byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

summarize: recognize tcpserver log entries

Browse Source
This commit is contained in:
Matt Simerson 2012-06-29 20:28:38 -04:00
parent cc26fb7b06
commit 3a622b3ee9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
log/summarize.pl
View File

@ -70,7 +70,7 @@ while ( defined (my $line = $fh->read) ) {
next if ! $line; next if ! $line;
my ( $type, $pid, $hook, $plugin, $message ) = parse_line( $line ); my ( $type, $pid, $hook, $plugin, $message ) = parse_line( $line );
next if ! $type; next if ! $type;
next if $type =~ /info|unknown|response/; next if $type =~ /^(info|unknown|response|tcpserver)$/;
next if $type eq 'init'; # doesn't occur in all deployment models next if $type eq 'init'; # doesn't occur in all deployment models
if ( ! $pids{$pid} ) { # haven't seen this pid if ( ! $pids{$pid} ) { # haven't seen this pid
@ -151,6 +151,7 @@ sub parse_line {
return parse_line_plugin( $line ) if substr($message, 0, 1) eq '('; return parse_line_plugin( $line ) if substr($message, 0, 1) eq '(';
return ( 'dispatch', $pid, undef, undef, $message ) if substr($message, 0, 12) eq 'dispatching '; return ( 'dispatch', $pid, undef, undef, $message ) if substr($message, 0, 12) eq 'dispatching ';
return ( 'response', $pid, undef, undef, $message ) if $message =~ /^[2|3]\d\d/; return ( 'response', $pid, undef, undef, $message ) if $message =~ /^[2|3]\d\d/;
return ( 'tcpserver', $pid, undef, undef, undef ) if substr($pid, 0, 10) eq 'tcpserver:';
# lines seen about once per connection # lines seen about once per connection
return ( 'init', $pid, undef, undef, $message ) if substr($message, 0, 19) eq 'Accepted connection'; return ( 'init', $pid, undef, undef, $message ) if substr($message, 0, 19) eq 'Accepted connection';