===================================================================
RCS file: /cvs/nagios/check_hw_sensors/check_hw_sensors,v
retrieving revision 1.6
retrieving revision 1.9
diff -u -r1.6 -r1.9
--- nagios/check_hw_sensors/check_hw_sensors 2006/05/02 20:59:47 1.6
+++ nagios/check_hw_sensors/check_hw_sensors 2006/05/03 03:26:47 1.9
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $RedRiver: check_hw_sensors,v 1.5 2006/05/02 19:49:29 andrew Exp $
+# $RedRiver: check_hw_sensors,v 1.8 2006/05/02 21:23:29 andrew Exp $
########################################################################
# check_hw_sensors *** A nagios check for OpenBSD hw.sensors
#
@@ -65,7 +65,7 @@
}
if ($opt_V) {
- print_revision($PROGNAME,'$Revision: 1.6 $ ');
+ print_revision($PROGNAME,'$Revision: 1.9 $ ');
exit $ERRORS{'OK'};
}
@@ -155,21 +155,14 @@
$state = $error;
}
}
-if (NAGIOS_OUTPUT && $have_results) {
- print '
';
-}
foreach my $error (sort { $ERRORS{$b} <=> $ERRORS{$a} } keys %ERRORS) {
if (exists $states{$error}) {
if (NAGIOS_OUTPUT) {
- print "- $error (" . scalar(@{ $states{ $error } }) . ")";
+ print "$error (" . scalar(@{ $states{ $error } }) . ")";
unless ($error eq 'OK') {
- print '
';
- foreach (@{ $states{ $error } }) {
- print "- $_
";
- }
- print '
';
+ print '
';
+ print map { " - $_
" } @{ $states{ $error } };
}
- print " "
} else {
print "$error (" . scalar(@{ $states{ $error } }) . "):\n";
foreach (@{ $states{ $error } }) {
@@ -181,9 +174,6 @@
if ($have_results == 0) {
print "No results found\n";
}
-if (NAGIOS_OUTPUT && $have_results) {
- print '
' . "\n";
-}
exit $ERRORS{$state};
@@ -303,12 +293,12 @@
$result = $errors{$code}
if ($c <= $data);
}
- } elsif (defined $check->{$code}) {
+ } elsif (@{ $check->{$code} }) {
my $matched = 0;
foreach my $c (@{ $check->{$code} }) {
$c =~ s/[^\d\.]//g;
unless (length $c) {
- warn "INVALID CHECK (" . $check->{$code} .
+ warn "INVALID CHECK (" . $c .
") for '$sensor->{'id'}:$code'";
next;
}
@@ -371,7 +361,7 @@
$result = $errors{$code}
if ($c <= $data);
}
- } elsif (defined $check->{$code}) {
+ } elsif (@{ $check->{$code} }) {
my $matched = 0;
foreach my $c (@{ $check->{$code} }) {
@@ -386,7 +376,7 @@
$c =~ s/[^\d\.]//g;
unless (length $c) {
- warn "INVALID CHECK (" . $check->{$code} .
+ warn "INVALID CHECK (" . $c .
") for '$sensor->{'id'}':$code";
next;
}
@@ -403,7 +393,7 @@
$sensor->{'type'} eq 'drive' ||
$sensor->{'type'} eq 'indicator'
) {
- if (defined $check->{$code}) {
+ if (@{ $check->{$code} }) {
my $matched = 0;
foreach (@{ $check->{$code} }) {
if ($_ eq $sensor->{'data'}) {
@@ -454,6 +444,6 @@
EOL
- print_revision($PROGNAME, '$Revision: 1.6 $');
+ print_revision($PROGNAME, '$Revision: 1.9 $');
}