Jose Dolores Ruiz Chavarria - 2003-07-28

Por si alguien necesita el log_parse para ser usado con qpopper v4.x, aqui se los mando.

Recuerden cambiar en /etc/mail/poprelayd.conf el nombre del lop_parse por defecto.

Jose Dolores Ruiz
IBW Communications

------------------
sub log_parse_qpopper4 ($) {
    my @ip_addr;           # avoid hangs
    my $s = $_[0];

    open (OF, ">>/var/log/poprelayd.log");
    @log = split(/\s+/,$s);

    # qpopper v4 usa un campo mas
    if ($log[5] eq "Stats:")  {
            $fecha = `date`;
            chop ($fecha);
            print OF "$fecha: Autorizado: $log[6], $log[12]\n";
            push (@ip_addr, $log[12]);
    }
    close OF;
    return @ip_addr;
}