[MASOCH-L] Topsenders no maillog do postfix

[Jorge Augusto Senger]

-----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-----