version 1.6, 2006/05/02 20:59:47 |
version 1.7, 2006/05/02 21:03:53 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $RedRiver: check_hw_sensors,v 1.5 2006/05/02 19:49:29 andrew Exp $ |
# $RedRiver: check_hw_sensors,v 1.6 2006/05/02 19:59:47 andrew Exp $ |
######################################################################## |
######################################################################## |
# check_hw_sensors *** A nagios check for OpenBSD hw.sensors |
# check_hw_sensors *** A nagios check for OpenBSD hw.sensors |
# |
# |
|
|
foreach my $c (@{ $check->{$code} }) { |
foreach my $c (@{ $check->{$code} }) { |
$c =~ s/[^\d\.]//g; |
$c =~ s/[^\d\.]//g; |
unless (length $c) { |
unless (length $c) { |
warn "INVALID CHECK (" . $check->{$code} . |
warn "INVALID CHECK (" . $c . |
") for '$sensor->{'id'}:$code'"; |
") for '$sensor->{'id'}:$code'"; |
next; |
next; |
} |
} |
|
|
|
|
$c =~ s/[^\d\.]//g; |
$c =~ s/[^\d\.]//g; |
unless (length $c) { |
unless (length $c) { |
warn "INVALID CHECK (" . $check->{$code} . |
warn "INVALID CHECK (" . $c . |
") for '$sensor->{'id'}':$code"; |
") for '$sensor->{'id'}':$code"; |
next; |
next; |
} |
} |