nagios/check_hw_sensors/check_hw_sensors - diff

Return to check_hw_sensors CVS log

Up to [local] / nagios / check_hw_sensors

version 1.7, 2006/05/02 21:03:53

version 1.8, 2006/05/02 22:23:29

Line 1

#!/usr/bin/perl

# $RedRiver: check_hw_sensors,v 1.6 2006/05/02 19:59:47 andrew Exp $

# $RedRiver: check_hw_sensors,v 1.7 2006/05/02 20:03:53 andrew Exp $

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

# check_hw_sensors *** A nagios check for OpenBSD hw.sensors

Line 155

$state = $error;

}

if (NAGIOS_OUTPUT && $have_results) {

print '<ul>';

}

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

if (exists $states{$error}) {

if (NAGIOS_OUTPUT) {

print "<li>$error (" . scalar(@{ $states{ $error } }) . ")";

print "$error (" . scalar(@{ $states{ $error } }) . ")";

unless ($error eq 'OK') {

print '<ul>';

print '<br />';

foreach (@{ $states{ $error } }) {

print map { " - $_<br />" } @{ $states{ $error } };

print "<li>$_</li>";

}

print '</ul>';

}

print "</li>"

} else {

print "$error (" . scalar(@{ $states{ $error } }) . "):\n";

foreach (@{ $states{ $error } }) {

Line 180

Line 173

}

if ($have_results == 0) {

print "No results found\n";

}

if (NAGIOS_OUTPUT && $have_results) {

print '</ul>' . "\n";

}

exit $ERRORS{$state};