Opensource.Platon.SK CVS: perl-modules/Platon/Log/Mail/Postfix.pm - diff

Up to [Platon] / perl-modules / Platon / Log / Mail

version 1.1, 2004/10/21 17:37:49

version 1.2, 2004/10/21 18:28:55

Line 10

# 2004-10-19 - created

# $Platon$

# $Platon: perl-modules/Platon/Log/Mail/Postfix.pm,v 1.1 2004/10/21 17:37:49 rajo Exp $

package Platon::Log::Mail::Postfix;

Line 35 sub savelog($$;)

if (( $xx->{created}, $xx->{host}, $xx->{log_level},

$xx->{process_name}, $xx->{pid}, $xx->{postfix_key}, $xx->{rest})

= ($line =~ m#^(20[^ ]+) (\S+) \[(\S+)\] postfix/(\S+)\[(\d+)\]: (\S+) (.*)$#)) {

= ($line =~ m/^(20[^ ]+) (\S+) \[(\S+)\] postfix\/(\S+)\[(\d+)\]: (\S+) (.*)$/o)) {

$xx->{postfix_key} =~ s/:$//g;

# postfix_key: connect disconnect warning fatal lost timeout refreshing terminating lost

if ($xx->{postfix_key} eq 'connect' or $xx->{postfix_key} eq 'disconnect') {

if (($xx->{client_hostname}, $xx->{client_ip}) = ($xx->{rest} =~ s#from\s+(\S+)\[([\.0-9]+)\]$##o)) {

if ($xx->{rest} =~ s#from\s+(\S+)\[([\.0-9]+)\]$##o) {

($xx->{client_hostname}, $xx->{client_ip}) = ($1, $2);

return $self->_savelog($xx);

}

else {


Copyright © 2002-2006 Platon Group Site powered by Metafox CMS	Go to Top