CyberTek - the future at the present!

Archive for maggio, 2013

Estrarre da log ultima login imap/pop3

Posted by: (Mag 27)

Utilizzando perl con questo semplice comando si può creare al volo un elenco degli utenti che hanno effettuato la login affiancando data ed ora della stessa.

Per le login imap:
perl -ne '$l{$2}=$1 if /^(.{15}) .* imap-login: Login: user=<([^>]+)>/; END { print "$_ last imap-login: $l{$_}\n" for keys %l }' /var/log/mail.log

Per le login pop3:
perl -ne '$l{$2}=$1 if /^(.{15}) .* pop3-login: Login: user=<([^>]+)>/; END { print "$_ last pop3-login: $l{$_}\n" for keys %l }' mail.log

 

 

Published in: linux, perl, scripts, shell, tips
Powered by pmar s.r.o.