Nagios Plugin

#!/usr/bin/perl

use Getopt::Long;
use File::stat;
use lib "/usr/lib/nagios/plugins";
use utils qw (%ERRORS &print_revision);
use RRDs;

#########################################################
#########################################################
my $VERSION="0.1";
my $PROGNAME="check_rrdmail";
my $AUTHOR="Michael Mende ";
#########################################################
#########################################################

my ($opt_c, $opt_f, $opt_w, $opt_C, $opt_W, $opt_h, $opt_V);
my (%warn,%crit);

Getopt::Long::Configure('bundling');
GetOptions(
        "V"   => \$opt_V, "version"     => \$opt_V,
        "h"   => \$opt_h, "help"        => \$opt_h,
        "w=s" => \$opt_w, "warning=s" => \$opt_w,
        "c=s" => \$opt_c, "critical=s" => \$opt_c,
);
if ($opt_V) {
        print_revision $PROGNAME,$VERSION;
        exit $ERRORS{'OK'};
}

if ($opt_h) {
        print_help();
        exit $ERRORS{'OK'};
}

if ($opt_c) {
	
}

sub print_usage () {
        print "Usage: $PROGNAME -w  -c  [-t ]\n";
}

sub print_help () {
        print_revision($PROGNAME,$VERSION);
        print "\n";
        print "Copyright (c) 2010 $AUTHOR\n";
        print "\n";
        print_usage();
        print "\n";
        print "   Checks the number of messages handled by your mail server\n";
        print "-w (--warning)   = Min. number of messages in queue to generate warning\n";
        print "-c (--critical)  = Min. number of messages in queue to generate critical alert ( w < c )\n";
				print "                   format rejected:recv:bounced:sent, e.g. 100:200:30:400 or :100::400\n";
        print "-t (--timeout)   = Plugin timeout in seconds (default = $utils::TIMEOUT)\n";
        print "-h (--help)\n";
        print "-V (--version)\n";
        print "\n\n";
        print "Note: -w and -c are required arguments.\n";
        print " This plugin uses the rrd files created by mailstat\n";
        print "\n\n";
}

my $EXIT = $ERRORS{'UNKNOWN'};
my $rrdfile = "/var/lib/mailgraph/mailgraph.rrd";
my $ctime = time;
my $resolution = 480; # the mailgraph daemon updates every 8 minutes
my $offset = 480;     # same as resolution

# precheck: rrd file exists? AND mtime > now - 2*OFFSET (~16 minutes)
my $stat = stat($rrdfile);
unless ($stat) {
	print "UNKNOWN - ${rrdfile}: $!\n";
	exit $ERRORS{'UNKNOWN'};
}
unless ($stat->mtime >= $ctime-2*$offset) {
	my $ftime = localtime($stat->mtime);
	print "UNKNOWN - $rrdfile too old \(mtime: $ftime\), check mailgraph daemon\n";
	exit $ERRORS{'UNKNOWN'};
}

# rrd fetch
my $rrdlast = RRDs::last($rrdfile);
unless ($rrdlast >= $ctime-2*$offset) {
	print "UNKNOWN - $rrdfile last entry too old \($rrdlast\), check mailgraph daemon\n";
	exit $ERRORS{'UNKNOWN'};
}
my ($start,$step,$names,$data) = RRDs::fetch($rrdfile, "AVERAGE", "-e", @{[int($ctime/$resolution)*$resolution]}-$offset, "-s", "e-$resolution", "-r", $resolution);
unless ($start && $step && $names && $data) {
	print "UNKNOWN - rrd fetch failed, check ${rrdfile}\n";
	exit $ERRORS{'UNKNOWN'};
} 
my %res;

@warn{@$names} = split /:/, $opt_w;
@crit{@$names} = split /:/, $opt_c;

for my $line (reverse @$data) {
	@res{@$names} = map {sprintf "%.2f", $_*60} @$line;
}

$EXIT=$ERRORS{'OK'};
foreach $key (keys %res) {
	if ($crit{$key} && $crit{$key} < $res{$key}) {
		$EXIT = $ERRORS{'CRITICAL'};
	} elsif ($warn{$key} && $warn{$key} < $res{$key}) {
		$EXIT = $ERRORS{'WARNING'};
	}
	last if $EXIT == $ERRORS{'CRITICAL'};
}

if ($EXIT == $ERRORS{'CRITICAL'}) {
	print "CRITICAL - ";
} elsif ($EXIT == $ERRORS{'WARNING'}) {
	print "WARNING - ";
} else {
	print "OK - ";
}

# Human readable mail/min
while (($key, $val) = each(%res)) {
  print "$key: ", sprintf("%d", $val)," ";
}
print "mails/min | ";
# perf data mail/s
while (($key, $val) = each(%res)) {
	print "$key=$val;$warn{$key};$crit{$key}: ";
}
print "mails/min\n";
exit $EXIT;

Nagiosgrapher Config

#---
#NagiosGrapherTemplate for check_rrdmail
#---

# @ Michael Mende 
#
# * change service_name whenever changing nagios service alias

# PIPE: master02	Postfix Mail Stats	OK - rejected: 0 recv: 21 bounced: 17 sent: 13 mails/min	rejected=0.00;;: recv=21.50;;: bounced=17.00;;: sent=13.00;;: mails/min

define ngraph{
         service_name            Postfix Mail Stats
         graph_perf_regex        rejected=(\d+.\d+)
         graph_value             rejected
         graph_units             mails/min
         graph_legend            rejected: 
				 rrd_plottype            LINE2
         rrd_color               EACC00
         print_format            %6.2lf
}

define ngraph{
        service_name            Postfix Mail Stats
        type                    GPRINT
        print_source            rejected
        print_description       Last:
        print_function          LAST
        print_format            %6.2lf
#        print_eol               left
}

define ngraph{
        service_name            Postfix Mail Stats
        type                    GPRINT
        print_source            rejected
        print_description       Min:
        print_function          MIN
        print_format            %6.2lf
#        print_eol               left
}

define ngraph{
        service_name            Postfix Mail Stats
        type                    GPRINT
        print_source            rejected
        print_description       Max:
        print_function          MAX
        print_format            %6.2lf
#        print_eol               left
}

define ngraph{
        service_name            Postfix Mail Stats
        type                    GPRINT
        print_source            rejected
        print_description       Avg:
        print_function          AVERAGE
        print_format            %6.2lf
        print_eol               left
}

##########

define ngraph{
         service_name            Postfix Mail Stats
         graph_perf_regex        bounced=(\d+.\d+)
         graph_value             bounced
         graph_units             mails/min
         graph_legend            bounced : 
         rrd_plottype            LINE2
         rrd_color               FF0000
}

define ngraph{
        service_name            Postfix Mail Stats
        type                    GPRINT
        print_source            bounced
        print_description       Last:
        print_function          LAST
        print_format            %6.2lf
#        print_eol               left
}

define ngraph{
        service_name            Postfix Mail Stats
        type                    GPRINT
        print_source            bounced
        print_description       Min:
        print_function          MIN
        print_format            %6.2lf
#        print_eol               left
}

define ngraph{
        service_name            Postfix Mail Stats
        type                    GPRINT
        print_source            bounced
        print_description       Max:
        print_function          MAX
        print_format            %6.2lf
#        print_eol               left
}

define ngraph{
        service_name            Postfix Mail Stats
        type                    GPRINT
        print_source            bounced
        print_description       Avg:
        print_function          AVERAGE
        print_format            %6.2lf
        print_eol               left
}

##########

define ngraph{
         service_name            Postfix Mail Stats
         graph_perf_regex        recv=(\d+.\d+)
         graph_value             recv
         graph_units             mails/min
         graph_legend            received:
         rrd_plottype            LINE2
         rrd_color               00FF00
}

define ngraph{
        service_name            Postfix Mail Stats
        type                    GPRINT
        print_source            recv
        print_description       Last:
        print_function          LAST
        print_format            %6.2lf
#        print_eol               left
}

define ngraph{
        service_name            Postfix Mail Stats
        type                    GPRINT
        print_source            recv
        print_description       Min:
        print_function          MIN
        print_format            %6.2lf
#        print_eol               left
}

define ngraph{
        service_name            Postfix Mail Stats
        type                    GPRINT
        print_source            recv
        print_description       Max:
        print_function          MAX
        print_format            %6.2lf
#        print_eol               left
}

define ngraph{
        service_name            Postfix Mail Stats
        type                    GPRINT
        print_source            recv
        print_description       Avg:
        print_function          AVERAGE
        print_format            %6.2lf
        print_eol               left
}

##########

define ngraph{
         service_name            Postfix Mail Stats
         graph_perf_regex        sent=(\d+.\d+)
         graph_value             sent
         graph_units             mails/min
         graph_legend            sent    :
         rrd_plottype            LINE2
         rrd_color               0000FF
}

define ngraph{
        service_name            Postfix Mail Stats
        type                    GPRINT
        print_source            sent
        print_description       Last:
        print_function          LAST
        print_format            %6.2lf
#        print_eol               left
}

define ngraph{
        service_name            Postfix Mail Stats
        type                    GPRINT
        print_source            sent
        print_description       Min:
        print_function          MIN
        print_format            %6.2lf
#        print_eol               left
}

define ngraph{
        service_name            Postfix Mail Stats
        type                    GPRINT
        print_source            sent
        print_description       Max:
        print_function          MAX
        print_format            %6.2lf
#        print_eol               left
}

define ngraph{
        service_name            Postfix Mail Stats
        type                    GPRINT
        print_source            sent
        print_description       Avg:
        print_function          AVERAGE
        print_format            %6.2lf
        print_eol               left
}

#[EOF]