plugins-qmailqueue-virus: qmail_virusba

#!/usr/bin/perl 
#
# Plugin to count the daily amount of Virii (qmailscan)
#
# Contributed by Juergen Hoffmann (jh@byteaction.de.de) - 03.02.2006
#
# This plugin remebers the state of the amount of virii found
# and reports the difference instead. Hence showing the scanning performance
# by day
#
#
# Magic markers - optional - used by installation scripts and
# munin-config:
#
#%# family=manual
#%# capabilities=autoconf

use strict;
require IO::File;

my $LOGFILE = $ENV{'logfile'} || "/var/spool/excubator/quarantine.log";
my $STATEFILE = $ENV{'statefile'} || "/var/lib/munin/plugin-state/plugin-qmail_virusba.state";

my $date = `date +%d\\ %b\\ %Y`;
chomp($date);

my $collector_command = "zgrep \"$date\" $LOGFILE | wc -l";
my $fh = new IO::File;

if($ARGV[0] eq "autoconf")
{
        if( -e "$LOGFILE" )
        {
                print "yes\n";
        }
        else
        {
                print "$LOGFILE not found\n";
        }
}

if($ARGV[0] eq "config")
{
        print 'graph_title Virus Amount'."\n";
        print 'graph_args --base 1000 -l 0 '."\n";
        print 'graph_vlabel Daily Virus Amount'."\n";
        print 'graph_category Mail'."\n";
        print 'virus.label Virus'."\n";
        print 'virus.draw AREA'."\n";
        exit 0;
}

my $total_amount = `$collector_command`;
my $actual_amount = 0;

chomp($total_amount);

unless(-e "$STATEFILE")
{
        $fh->open(">$STATEFILE");
        print $fh "$total_amount";
        $fh->close();
        print "virus.value $total_amount";
        exit 0; 
}

$fh->open("<$STATEFILE");
my $last_amount = <$fh>;
chomp($last_amount);
$fh->close();

$actual_amount = $total_amount - $last_amount;
if($actual_amount < 0)
{
        # A new Day has started. Set the actual_amount to total_amount and write this into the statefile
        $actual_amount=$total_amount;
}


$fh->open(">$STATEFILE");
print $fh "$total_amount";
$fh->close();
print "virus.value $actual_amount";
exit 0;