Parent Directory | Revision Log | Patch
revision 14 by dpavlin, Sat Apr 11 12:59:28 2009 UTC | revision 16 by dpavlin, Mon Apr 13 18:40:32 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 |