Parent Directory | Revision Log | Patch
revision 14 by dpavlin, Sat Apr 11 12:59:28 2009 UTC | revision 17 by dpavlin, Tue Apr 14 13:36:09 2009 UTC | |
---|---|---|
# | Line 120 while(1) { | Line 120 while(1) { |
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+)>\s*(\S*)\s*:\s*(.*)/ ) { | if ( $buf =~ /<(\d+)>(?:\w\w\w \d+ \d\d:\d\d:\d\d)?\s*(\S*)\s*:\s*(.*)/ ) { |
124 | $values[2] = $3; | $values[2] = $3; |
125 | my $level = $1 % 8; | my $level = $1 % 8; |
126 | my $facility = ( $1-$level ) / 8; | my $facility = ( $1-$level ) / 8; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |