ADJ網路實驗室 - Powered by Discuz! Board

複製內容到剪貼板
代碼:

# For vm-pop3d -- needs to match 2 log entries (uncomment all 3 "my" lines).

my $PID_pat = '^(... .. ..:..:..) \S+ (?:vm-pop3d)\[(\d+)\]: ';

my $IP_pat = $PID_pat . 'Connect from (\d+\.\d+\.\d+\.\d+)$';

my $OK_pat = $PID_pat . 'User .+ logged in$';



############################## Support Routines ############################



# This section takes care of defining a multi-line-match custom_match()

# subroutine, but only if the user configured our 3 required patterns.



if (defined($PID_pat) && defined($IP_pat) && defined($OK_pat)) {

    eval <<'EOT';

# Some pop services don't put the IP on the line that lets us know that a

# user was properly authenticated.  For these programs, we scan the IP off

# an earlier line and the check the validation by comparing the PID values.



    my %popIPs;



    # The maillog line to match is in $_.

    sub custom_match

    {

        if (/$PID_pat/o) {

            my($ts, $pid) = ($1, $2);

            if (/$IP_pat/o) {

                $popIPs{$pid} = $3;

            }

            else {

                foreach my $key (keys %popIPs) {

                    if ($pid == $key) {

                        my $ip = $popIPs{$pid};

                        delete $popIPs{$pid};

                        if (/$OK_pat/o) {

                            return ($ts, $ip);

                        }

                        last;

                    }

                }

            }

        }

        ( );

    }

EOT

}