nagios/check_hw_sensors/check_hw_sensors - diff

Return to check_hw_sensors CVS log

Up to [local] / nagios / check_hw_sensors

version 1.21, 2006/12/05 16:26:27

version 1.22, 2007/01/06 03:16:41

Line 1

#!/usr/bin/perl -T

# $RedRiver: check_hw_sensors,v 1.20 2006/12/05 00:17:47 andrew Exp $

# $RedRiver: check_hw_sensors,v 1.21 2006/12/05 16:26:27 andrew Exp $

########################################################################

# check_hw_sensors *** A nagios check for OpenBSD hw.sensors

Line 153

#while (<>) {

chomp;

my ($id, $output) = split /=/;

my @s = split /\./, $id;

my @o = split /,\s*/, $output;

my ($type, $source, $descr, $data, $status);

Line 160

Line 161

$source = $o[0];

$descr = $o[1];

if ($OSVer >= 4.0) {

if (@s == 4) { # XXX This mebbe needs to end up $OSVer >= 4.1

$data = $o[0];

$descr =~ s/^$|$$//g;

$status = $o[2];

($source, $type) = $id =~ /([^\.]+)\.([^\.]+)\d+$/;

} elsif ($OSVer >= 4.0) {

$data = $o[2];

$status = $o[3];

foreach my $t (@Type_Map) {

Line 322

Line 328

foreach my $code ('warn', 'crit') {

if (

$sensor->{'type'} eq 'fanrpm' ||

$sensor->{'type'} eq 'volt' ||

$sensor->{'type'} eq 'volts_dc' ||

$sensor->{'type'} eq 'amps' ||

$sensor->{'type'} eq 'watthour' ||