version 1.20, 2006/12/05 00:17:47 |
version 1.21, 2006/12/05 16:26:27 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
# $RedRiver: check_hw_sensors,v 1.19 2006/12/04 23:33:53 andrew Exp $ |
# $RedRiver: check_hw_sensors,v 1.20 2006/12/05 00:17:47 andrew Exp $ |
######################################################################## |
######################################################################## |
# check_hw_sensors *** A nagios check for OpenBSD hw.sensors |
# check_hw_sensors *** A nagios check for OpenBSD hw.sensors |
# |
# |
|
|
|
|
%ENV = (); |
%ENV = (); |
|
|
use constant NAGIOS_OUTPUT => 1; |
use constant NAGIOS_OUTPUT => 0; |
|
|
use POSIX; |
use POSIX; |
use Config; |
use Config; |
|
|
$sensor->{'type'} eq 'drive' || |
$sensor->{'type'} eq 'drive' || |
$sensor->{'type'} eq 'indicator' |
$sensor->{'type'} eq 'indicator' |
) { |
) { |
$sensor->{'type'} =~ s/^drive\s+//; |
$sensor->{'data'} =~ s/^drive\s+//; |
if (@{ $check->{$code} }) { |
if (@{ $check->{$code} }) { |
my $matched = 0; |
my $matched = 0; |
foreach (@{ $check->{$code} }) { |
foreach (@{ $check->{$code} }) { |