nagios/check_hw_sensors/check_hw_sensors - diff

Return to check_hw_sensors CVS log

Up to [local] / nagios / check_hw_sensors

version 1.24, 2007/02/14 21:59:10

version 1.25, 2008/03/10 17:21:53

Line 1

#!/usr/bin/perl -T

# $RedRiver: check_hw_sensors,v 1.23 2007/01/22 02:38:35 andrew Exp $

# $RedRiver: check_hw_sensors,v 1.24 2007/02/14 21:59:10 andrew Exp $

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

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

Line 162

$source = $o[0];

$descr = $o[1];

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

if ($OSVer >= 4.1) {

$data = $o[0];

if ($data =~ s/\s+$(.*)$.*$//) {

$descr = $1;

}

$status = $o[1];

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

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

} elsif ($OSVer >= 4.0) {

$data = $o[2];

$status = $o[3];