| version 1.39, 2009/11/11 18:14:00 |
version 1.40, 2009/11/11 18:14:40 |
|
|
| #!/usr/bin/perl -T |
#!/usr/bin/perl -T |
| # $RedRiver: check_hw_sensors,v 1.38 2009/11/11 18:08:41 andrew Exp $ |
# $RedRiver: check_hw_sensors,v 1.39 2009/11/11 18:14:00 andrew Exp $ |
| ######################################################################## |
######################################################################## |
| # check_hw_sensors *** A nagios check for OpenBSD sysctl hw.sensors |
# check_hw_sensors *** A nagios check for OpenBSD sysctl hw.sensors |
| # |
# |
|
|
| use POSIX; |
use POSIX; |
| use Config; |
use Config; |
| my $PREFIX; |
my $PREFIX; |
| |
|
| BEGIN { |
BEGIN { |
| ## no critic 'warnings' |
## no critic 'warnings' |
| no warnings 'uninitialized'; |
no warnings 'uninitialized'; |
| $PREFIX = "${PREFIX}" || '/usr/local'; # Magic for OpenBSD ports tree |
$PREFIX = "${PREFIX}" || '/usr/local'; # Magic for OpenBSD ports tree |
| } |
} |
| use lib $PREFIX . '/libexec/nagios'; |
use lib $PREFIX . '/libexec/nagios'; |
| use utils qw($TIMEOUT %ERRORS &support); |
use utils qw($TIMEOUT %ERRORS &support); |
|
|
| print $error . ' (' . scalar( @{ $STATES{$error} } ) . ')'; |
print $error . ' (' . scalar( @{ $STATES{$error} } ) . ')'; |
| if ( $error ne 'OK' ) { |
if ( $error ne 'OK' ) { |
| print '<br>'; |
print '<br>'; |
| print map { " - $_<br>" } @{ $STATES{$error} }; |
print map {" - $_<br>"} @{ $STATES{$error} }; |
| } |
} |
| } |
} |
| else { |
else { |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to check_hw_sensors CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / nagios / check_hw_sensors