version 1.38, 2009/11/11 18:08:41 |
version 1.39, 2009/11/11 18:14:00 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
# $RedRiver: check_hw_sensors,v 1.37 2009/11/10 23:41:12 andrew Exp $ |
# $RedRiver: check_hw_sensors,v 1.38 2009/11/11 18:08:41 andrew Exp $ |
######################################################################## |
######################################################################## |
# check_hw_sensors *** A nagios check for OpenBSD sysctl hw.sensors |
# check_hw_sensors *** A nagios check for OpenBSD sysctl hw.sensors |
# |
# |
|
|
print $error . ' (' . scalar( @{ $STATES{$error} } ) . ')'; |
print $error . ' (' . scalar( @{ $STATES{$error} } ) . ')'; |
if ( $error ne 'OK' ) { |
if ( $error ne 'OK' ) { |
print '<br>'; |
print '<br>'; |
print map { s/\s+//xms; " - $_<br>" } @{ $STATES{$error} }; |
print map { " - $_<br>" } @{ $STATES{$error} }; |
} |
} |
} |
} |
else { |
else { |