| version 1.22, 2007/01/06 03:16:41 |
version 1.23, 2007/01/22 02:38:35 |
|
|
| #!/usr/bin/perl -T |
#!/usr/bin/perl -T |
| # $RedRiver: check_hw_sensors,v 1.21 2006/12/05 16:26:27 andrew Exp $ |
# $RedRiver: check_hw_sensors,v 1.22 2007/01/06 03:16:41 andrew Exp $ |
| ######################################################################## |
######################################################################## |
| # check_hw_sensors *** A nagios check for OpenBSD hw.sensors |
# check_hw_sensors *** A nagios check for OpenBSD hw.sensors |
| # |
# |
|
|
| |
|
| if (@s == 4) { # XXX This mebbe needs to end up $OSVer >= 4.1 |
if (@s == 4) { # XXX This mebbe needs to end up $OSVer >= 4.1 |
| $data = $o[0]; |
$data = $o[0]; |
| $descr =~ s/^\(|\)$//g; |
if ($data =~ s/\s+\((.*)\).*$//) { |
| $status = $o[2]; |
$descr = $1; |
| |
} |
| |
$status = $o[1]; |
| ($source, $type) = $id =~ /([^\.]+)\.([^\.]+)\d+$/; |
($source, $type) = $id =~ /([^\.]+)\.([^\.]+)\d+$/; |
| } elsif ($OSVer >= 4.0) { |
} elsif ($OSVer >= 4.0) { |
| $data = $o[2]; |
$data = $o[2]; |
|
|
| $result = 'OK'; |
$result = 'OK'; |
| foreach my $code ('warn', 'crit') { |
foreach my $code ('warn', 'crit') { |
| if ( |
if ( |
| |
$sensor->{'type'} eq 'fan' || |
| $sensor->{'type'} eq 'fanrpm' || |
$sensor->{'type'} eq 'fanrpm' || |
| $sensor->{'type'} eq 'volt' || |
$sensor->{'type'} eq 'volt' || |
| $sensor->{'type'} eq 'volts_dc' || |
$sensor->{'type'} eq 'volts_dc' || |
![[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