logwatch-tor (logwatch script for tor logs)

gistfile1.pl

#!/usr/bin/perl -w
use strict;

use Logwatch ':all';

my @warnings;
my $current_count = 0;
my $message = "";

while (defined(my $line=<STDIN>)) {
    chomp $line;
    if ( $line =~ m/^(\w+)\s+(\d+)\s+(\d\d):(\d\d):(\d\d)\.(\d\d\d)\s+\[(warn|err)\](.*)/i ) {
        $message = $8;
        if ( ( $line =~ m/count\s+(\d*)/ ) && ( $1 > $current_count ) ) {
            pop @warnings if ($1 > 1) ;
            $current_count = $1;
        }                                       
        push @warnings, $message unless ( $message ~~ @warnings) ;
    }
}

foreach (@warnings){ print $_,"\n"; }

exit(0);

tor.conf

Title = "Tor"
LogFile = messages