Return to logfilter CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / rsync / support

Annotation of embedaddon/rsync/support/logfilter, revision 1.1

1.1     ! misho       1: #!/usr/bin/perl
        !             2: # Filter the rsync daemon log messages by module name.  The log file can be
        !             3: # in either syslog format or rsync's own log-file format.  Note that the
        !             4: # MODULE_NAME parameter is used in a regular-expression match in order to
        !             5: # allow regex wildcards to be used.  You can also limit the output by
        !             6: # directory hierarchy in a module.  Examples:
        !             7: #
        !             8: #  logfilter foo /var/log/rsyncd.log   # output lines for module foo
        !             9: #  logfilter foo/dir /var/log/syslog   # limit lines to those in dir of foo
        !            10: 
        !            11: use strict;
        !            12: 
        !            13: my $match = shift;
        !            14: die "Usage: logfilter MODULE_NAME [LOGFILE ...]\n" unless defined $match;
        !            15: 
        !            16: my $syslog_prefix = '\w\w\w +\d+ \d\d:\d\d:\d\d \S+ rsyncd';
        !            17: my $rsyncd_prefix = '\d\d\d\d/\d\d/\d\d \d\d:\d\d:\d\d ';
        !            18: 
        !            19: my %pids;
        !            20: 
        !            21: while (<>) {
        !            22:     my($pid,$msg) = /^(?:$syslog_prefix|$rsyncd_prefix)\[(\d+)\]:? (.*)/o;
        !            23:     next unless defined $pid;
        !            24:     my($mod_spec) = $msg =~ /^rsync (?:on|to) (\S+) from /;
        !            25:     if (defined $mod_spec) {
        !            26:        if ($mod_spec =~ /^$match(\/\S*)?$/o) {
        !            27:            $pids{$pid} = 1;
        !            28:        } else {
        !            29:            delete $pids{$pid};
        !            30:        }
        !            31:     }
        !            32:     next unless $pids{$pid};
        !            33:     print $_;
        !            34: }