123 |
my $level = $1 % 8; |
my $level = $1 % 8; |
124 |
my $facility = ( $1-$level ) / 8; |
my $facility = ( $1-$level ) / 8; |
125 |
|
|
126 |
$buf =~ s/^\w\w\w \d+ \d\d:\d\d:\d\d//; # strip timestamp which some syslog servers insert here |
$buf =~ s/^\w\w\w\s+\d+\s+\d\d:\d\d:\d\d//; # strip timestamp which some syslog servers insert here |
127 |
|
|
128 |
my ( $program, $pid ); |
my ( $program, $pid ); |
129 |
|
|
130 |
if ( $buf =~ s/^\s*([^:]+)\s*:\s*// ) { |
if ( $buf =~ s/^\s*([^:]+)\s*:\s*// ) { |
131 |
$program = $1; |
$program = $1; |
132 |
$pid = $1 if $program =~ s/\[(\d+)\]$//; |
if ( $program =~ s/\[(\d+)\]$// ) { |
133 |
|
$pid = $1; |
134 |
|
} elsif ( $buf =~ s/^(\d+):\s*// ) { |
135 |
|
$pid = $1; |
136 |
|
} |
137 |
} |
} |
138 |
|
|
139 |
$values[1] = $buf; |
$values[1] = $buf; |