[MASOCH-L] Topsenders no maillog do postfix

Antonio Carlos Pina antoniocarlospina at gmail.com
Fri Mar 30 12:28:23 BRT 2007


pflogsumm.pl

:-)


Em 30/03/07, Jorge Augusto Senger <jorge at br10.com.br> escreveu:
>
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
>
> Olá,
>
> Fiz um pequeno e simples script em perl para identificar os top senders
> de um servidor de e-mail rodando postfix.
> Claro que não substitui outras ferramentas de estatísticas mais
> avançadas, como o awstats, mas achei legal compartilhar com todos:
>
> #---- INICIO
>
> #!/usr/bin/perl -w
> # Em logs com muitos registros, redirecione a saída
> # para um arquivo qualquer para melhor análise.
>
> use strict;
> use warnings;
>
> my $arqlog = '/var/log/maillog';
> open (LOG, $arqlog);
> my @linhas = <LOG>;
> chomp @linhas;
> close LOG;
> my $linha;
> my %top;
> foreach $linha (@linhas)
> {
>        next if ($linha !~ m/from=</);
>        my ($mes, $dia, $hora, $server, $mta, $id, $from, $size, $nrcpt,
> $queue) = split(/\ /, $linha);
>        $from =~ s/from//g;
>        $from =~ tr/\=\<\>\ \,\;//d;
>        next if ($from !~ m/\@/);
>        $top{$from}++;
> }
> print "\n";
> print "<<< TOP SENDERS >>>\n\n";
> my $chave;
> foreach $chave (sort {$top{$b} <=> $top{$a}} keys %top)
> {
>        print "$chave =\> $top{$chave}\n\n";
> }
> exit;
>
> #---- FIM
>
>
> -----BEGIN PGP SIGNATURE-----
> Version: GnuPG v1.4.1 (GNU/Linux)
> Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org
>
> iD8DBQFGDST8iOnIWGbribERAiQqAKCBR7B4mzCmKwAaznjsigQZUIv76wCfWNUw
> N0gNpT7GDP72s9m12YiSMSY=
> =C9nV
> -----END PGP SIGNATURE-----
> __
> masoch-l list
> https://eng.registro.br/mailman/listinfo/masoch-l
>


More information about the masoch-l mailing list