#!/usr/bin/perl -w
#
# I want to know if someone turned off Nagios

use strict;
use Mail::Mailer;

my $CHECK = undef;
my $RESULT = undef;
my $INFO = undef;
my $type = undef;
my %headers = ();
my $mailprog = undef;

$type = 'sendmail';
$mailprog = Mail::Mailer->new($type);

# OLD AND BUSTED: $CHECK = `/usr/lib/nagios/plugins/check_nagios /var/log/nagios/status.log 5 '/usr/sbin/nagios'`;
# THE NEW HOTNESS:
$CHECK = `/usr/lib/nagios/plugins/check_nagios -e 5 -F /var/log/nagios/status.log -C nagios`;
($RESULT,$INFO) = split(":", $CHECK, 2);
if ($RESULT !~ m/ok/i) {
	%headers = (
		'To' => 'emailaddress',
		'From' => 'emailaddress',
		'Subject' => 'Nagios is down!'
		);
	$mailprog->open(\%headers);
	print $mailprog "$RESULT $INFO \n";
	$mailprog->close;
	exit 0;
	}
exit 0;