nagios/check_hw_sensors/check_hw_sensors - diff

Return to check_hw_sensors CVS log

Up to [local] / nagios / check_hw_sensors

Diff for /nagios/check_hw_sensors/check_hw_sensors between version 1.39 and 1.42

version 1.39, 2009/11/11 18:14:00

version 1.42, 2009/11/24 17:54:54

Line 1

#!/usr/bin/perl -T

# $RedRiver: check_hw_sensors,v 1.38 2009/11/11 18:08:41 andrew Exp $

# $RedRiver: check_hw_sensors,v 1.41 2009/11/12 18:53:52 andrew Exp $

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

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

Line 10

local %ENV = ();

use POSIX;

use Config;

use Getopt::Long;

use List::Util qw/ first /;

my $NAGIOS_OUTPUT = 1;

our $VERSION = q{$Revision$}; $VERSION =~ s/^\D+([\d\.]+)\D+$/v$1/xms;

my $LICENSE = <<'EOL';

Permission to use, copy, modify, and distribute this software for any

Line 27

Line 34

OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

EOL

use POSIX;

my $PROGNAME = 'check_hw_sensors';

use Config;

my $SYSCTL = '/sbin/sysctl';

my $GETCAP = '/usr/bin/getcap';

my $BASE = 'hw.sensors';

my $DEFAULT_CONFIG = '/etc/sensorsd.conf';

my $PREFIX;

BEGIN {

## no critic 'warnings'

no warnings 'uninitialized';

$PREFIX = "${PREFIX}" || '/usr/local'; # Magic for OpenBSD ports tree

}

use lib $PREFIX . '/libexec/nagios';

use utils qw($TIMEOUT %ERRORS &support);

use Getopt::Long;

$SIG{'ALRM'} = sub {

print "ERROR: $PROGNAME timeout\n";

exit $ERRORS{'UNKNOWN'};

};

alarm $TIMEOUT;

Getopt::Long::Configure('bundling');

my $PROGNAME = 'check_hw_sensors';

my $OSVer = $Config{'osvers'} || 0;

my $SYSCTL = '/sbin/sysctl';

my $GETCAP = '/usr/bin/getcap';

my $BASE = 'hw.sensors';

my $DEFAULT_CONFIG = '/etc/sensorsd.conf';

my $OSVer = $Config{'osvers'} || 0;

my $state = 'UNKNOWN'; # tells whether the it is warning, critical, or OK

my $opt_V;

my $opt_h;

Line 75

Line 86

}

if ($opt_V) {

print_revision( $PROGNAME, '$Revision$ ' );

print_revision( $PROGNAME, $VERSION );

exit $ERRORS{'OK'};

}

Line 85

Line 96

}

# set the default this way so it only happens if someone typed -f or --filename

$FILENAME = $DEFAULT_CONFIG if ( defined $FILENAME && $FILENAME eq q{} );

if ( defined $FILENAME && $FILENAME eq q{} ) {

$FILENAME = $DEFAULT_CONFIG;

}

# Stuff is output in this file by print_sensor()

# http://www.openbsd.org/cgi-bin/cvsweb/src/sbin/sysctl/sysctl.c

Line 136

Line 149

}

$CHECK_SENSOR = $SENSOR;

$CHECKS{$SENSOR}{'warn'} = $WARNING if $WARNING;

if ($WARNING) { $CHECKS{$SENSOR}{'warn'} = $WARNING; }

$CHECKS{$SENSOR}{'crit'} = $CRITICAL if $CRITICAL;

if ($CRITICAL) { $CHECKS{$SENSOR}{'crit'} = $CRITICAL; }

}

elsif ( defined $FILENAME ) {

%CHECKS = read_file($FILENAME);

Line 160

Line 173

print $error . ' (' . scalar( @{ $STATES{$error} } ) . ')';

if ( $error ne 'OK' ) {

print '<br>';

print map { " - $_<br>" } @{ $STATES{$error} };

print map {" - $_<br>"} @{ $STATES{$error} };

}

else {

Line 179

Line 192

sub read_sensors {

my ($sensor) = @_;

my @S;

open my $sysctl, '-|', $SYSCTL, $sensor

open my $sysctl, q{-|}, $SYSCTL, $sensor

or die "Couldn't open sysctl: $!\n";

while (<$sysctl>) {

chomp;

Line 197

Line 210

sub parse_sensor {

my ($sensor) = @_;

## no critic 'literal'

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

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

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

Line 247

Line 261

my $filename = shift;

my %contents;

die "file '$filename' does not exist.\n" unless -e $filename;

die "file '$filename' does not exist.\n" if !-e $filename;

open my $fh, '-|', $GETCAP, '-a', '-f', $filename

open my $fh, q{-|}, $GETCAP, q{-a}, q{-f}, $filename

or die "Couldn't open '$GETCAP -a -f $filename': $!\n";

while (<$fh>) {

chomp;

Line 280

Line 294

sub parse_check {

my $check = shift;

return unless $check;

return if !$check;

return 'STATUS' if $check->{'STATUS'};

return 'IGNORE' if $check->{'IGNORE'};

Line 294

Line 308

}

foreach my $direction ( 'low', 'high' ) {

my $c = $code . '.' . $direction;

my $c = $code . q{.} . $direction;

if ( defined $check->{$direction} ) {

$check->{$c} ||= $check->{$direction};

}

Line 328

Line 342

my ( $r, $data );

if ( exists $C->{ $sensor->{id} } ) {

$r = check_sensor( $sensor, $C->{ $sensor->{id} } );

$data = $sensor->{id} . '=' . $sensor->{output};

$data = $sensor->{id} . q{=} . $sensor->{output};

}

elsif ( $sensor->{status} && !$O->{IGNORE_STATUS} ) {

$r = check_sensor( $sensor, { STATUS => 1 } );

$data = $sensor->{id} . '=' . $sensor->{output};

$data = $sensor->{id} . q{=} . $sensor->{output};

}

else {

Line 351

Line 365

my ( $sensor, $check ) = @_;

my $result = 'UNKNOWN';

return $result unless ref $sensor eq 'HASH';

return $result if ref $sensor ne 'HASH';

$check = parse_check($check) if $check;

if ( !$check ) { return $result; }

Line 364

Line 378

elsif ( $check eq 'IGNORE' ) { return; }

my $type = $sensor->{'type'};

if (grep { $type eq $_ }

if (first { $type eq $_ }

qw(

fan fanrpm

volt volts_dc

Line 376

Line 390

{

$result = check_sensor_numeric( $sensor->{'data'}, $check );

}

elsif ( grep { $type eq $_ } qw( drive indicator ) ) {

elsif ( first { $type eq $_ } qw( drive indicator ) ) {

my $data = $sensor->{'data'};

$data =~ s/^drive\s+//xms;

$result = check_sensor_list( $data, $check );

}

else {

warn 'Unknown Sensor Type: ', $sensor->{'id'}, '=', $type, "\n";

warn "Unknown Sensor Type: $sensor->{id} = $type\n";

}

return $result;

Line 535

Line 549

EOL

print_revision( $PROGNAME, '$Revision$' );

print_revision( $PROGNAME, $VERSION );

print $LICENSE;

Line 544

Line 558

sub print_revision {

my ( $prog, $rev ) = @_;

$rev =~ s/^\D+([\d\.]+)\D+$/v$1/xms;

print "$prog $rev\n";

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>