Sample logwatch service

logwatch.service

#!/usr/bin/perl
my $Debug = $ENV{'LOGWATCH_DEBUG'};
my $Detail = $ENV{'LOGWATCH_DETAIL_LEVEL'};
my $Error = 0;
my @ErrorLines = ();
my $Success = 0;
my @SuccessLines = ();
my @Warning = 0;
my @WarningLines = ();

while (defined($ThisLine = <STDIN>)) {
    if ($ThisLine =~ /ERROR: /) {
        @ErrorLines[$Error] = $ThisLine;
        $Error++;
    }
    if ($ThisLine =~ /WARNING: /) {
        @WarningLines[$Warning] = $ThisLine;
        $Warning++;
    }
    if ($ThisLine =~ /successfully/ and not $ThisLine =~ /logger/) {
        @SuccessLines[$Success] = $ThisLine;
        $Success++;
    }
}

if ($Detail >= 0 and scalar(@ErrorLines) > 0) {
    print "Errors:\n";
    for ($count = 0; $count <= scalar(@ErrorLines); $count++) {
        print "@ErrorLines[$count]";
    }
    print "\n";
}

if ($Detail >= 0 and scalar(@WarningLines) > 0) {
    print "Warnings:\n";
    for ($count = 0; $count <= scalar(@WarningLines); $count++) {
        print "@WarningLines[$count]";
    }
    print "\n";
}

if ($Detail > 0 and scalar(@SuccessLines) > 0) {
    print "Successes:\n";
    for ($count = 0; $count <= scalar(@SuccessLines); $count++) {
        print "@SuccessLines[$count]";
    }
}

exit(0);