nagios/check_rrd/bin/check_rrd - diff

Return to check_rrd CVS log

Up to [local] / nagios / check_rrd / bin

version 1.5, 2007/01/10 01:17:44

version 1.6, 2007/01/10 18:41:04

Line 1

#!/usr/bin/perl -T

# $RedRiver: check_rrd,v 1.4 2007/01/10 00:47:53 andrew Exp $

# $RedRiver: check_rrd,v 1.5 2007/01/10 01:17:44 andrew Exp $

########################################################################

# check_rrd *** A nagios check for changing averages in rrds

Line 14

use warnings;

use RRDs;

use Data::Dumper;

#use Data::Dumper;

%ENV = ();

Line 221

}

my $have_results = 0;

foreach my $DS (sort keys %check_status) {

foreach my $s (sort { $ERRORS{$a} <=> $ERRORS{$b} } keys %ERRORS) {

foreach my $DS (sort keys %check_status) {

foreach my $key (sort keys %{ $check_status{$DS} }) {

next unless $check_status{$DS}{$key}{'status'} eq $s;;

$have_results++;