120 |
my $ip = join('.', unpack('C4',$ipaddr)); |
my $ip = join('.', unpack('C4',$ipaddr)); |
121 |
my @values = ( $ip, $hostname, $buf ); |
my @values = ( $ip, $hostname, $buf ); |
122 |
|
|
123 |
if ( $buf =~ /<(\d+)>(?:\w\w\w \d+ \d\d:\d\d:\d\d)?\s*(\S*)\s*:\s*(.*)/ ) { |
if ( $buf =~ s/<(\d+)>// ) { |
|
$values[2] = $3; |
|
124 |
my $level = $1 % 8; |
my $level = $1 % 8; |
125 |
my $facility = ( $1-$level ) / 8; |
my $facility = ( $1-$level ) / 8; |
126 |
my $program = $2; |
|
127 |
my $pid = $1 if $program =~ s/\[(\d+)\]$//; |
$buf =~ s/^\w\w\w \d+ \d\d:\d\d:\d\d//; # strip timestamp which some syslog servers insert here |
128 |
|
|
129 |
|
my ( $program, $pid ); |
130 |
|
|
131 |
|
if ( $buf =~ s/^\s*([^:]+)\s*:\s*// ) { |
132 |
|
$program = $1; |
133 |
|
$pid = $1 if $program =~ s/\[(\d+)\]$//; |
134 |
|
} |
135 |
|
|
136 |
|
$values[2] = $buf; |
137 |
push @values, ( $level, $facility, $program, $pid ); |
push @values, ( $level, $facility, $program, $pid ); |
138 |
$sth_log_full->execute( @values ); |
$sth_log_full->execute( @values ); |
139 |
} else { |
} else { |