=================================================================== RCS file: /cvs/nagios/check_hw_sensors/check_hw_sensors,v retrieving revision 1.3 retrieving revision 1.33 diff -u -r1.3 -r1.33 --- nagios/check_hw_sensors/check_hw_sensors 2006/05/02 02:39:23 1.3 +++ nagios/check_hw_sensors/check_hw_sensors 2009/11/10 23:11:18 1.33 @@ -1,427 +1,547 @@ -#!/usr/bin/perl -# $RedRiver: check_hw_sensors,v 1.2 2006/05/02 01:29:33 andrew Exp $ +#!/usr/bin/perl -T +# $RedRiver: check_hw_sensors,v 1.32 2009/11/10 19:46:06 andrew Exp $ ######################################################################## -# check_hw_sensors *** A nagios check for OpenBSD hw.sensors -# -# 2006.05.01 #*#*# andrew fresh +# check_hw_sensors *** A nagios check for OpenBSD sysctl hw.sensors +# +# 2006.05.01 #*#*# andrew fresh ######################################################################## use strict; use warnings; -#use Data::Dumper; +local %ENV = (); +my $NAGIOS_OUTPUT => 1; + +my $LICENSE = <<'EOL'; +Copyright (c) 2009 Andrew Fresh +Permission to use, copy, modify, and distribute this software for any +purpose with or without fee is hereby granted, provided that the above +copyright notice and this permission notice appear in all copies. + +THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES +WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR +ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES +WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN +ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF +OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. +EOL + use POSIX; -#use lib "/usr/local/libexec/nagios"; -use lib $ENV{'HOME'}; -use utils qw($TIMEOUT %ERRORS &print_revision &support); +use Config; +use lib '/usr/local/libexec/nagios'; +use utils qw($TIMEOUT %ERRORS &support); use Getopt::Long; Getopt::Long::Configure('bundling'); -my $PROGNAME = "check_hw_sensors"; +my $PROGNAME = 'check_hw_sensors'; -my $SYSCTL = 'sysctl'; -my $GETCAP = 'getcap'; -my $BASE = 'hw.sensors'; +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 $CHECK_SENSOR = $BASE; -my %CHECKS; -my %SENSORS; +my $state = 'UNKNOWN'; # tells whether the it is warning, critical, or OK +my $opt_V; +my $opt_h; +my $IGNORE_STATUS; +my $FILENAME; +my $SENSOR; +my $WARNING; +my $CRITICAL; -my $state = 'UNKNOWN'; # tells whether the it is warning, critical, or OK -my %states; # This stores the count of states; -my $filename; -my $sensor; -my $warning; -my $critical; -my $opt_h ; -my $opt_V ; - - #Option checking -my $status = GetOptions( - "version|V" => \$opt_V, - "help|h" => \$opt_h, - "filename|f:s" => \$filename, - "sensor|s=s" => \$sensor, - "warning|w=s" => \$warning, - "critical|c=s" => \$critical, +my $getopt_status = GetOptions( + 'version|V' => \$opt_V, + 'help|h' => \$opt_h, + 'ignore-status|i' => \$IGNORE_STATUS, + 'filename|f:s' => \$FILENAME, + 'sensor|s=s' => \$SENSOR, + 'warning|w=s' => \$WARNING, + 'critical|c=s' => \$CRITICAL, ); - -# set the default this way so it only happens if someone typed -f or --filename -$filename = '/etc/sensorsd.conf' if (defined $filename && $filename eq ''); -if ($status == 0) { - print_help() ; - exit $ERRORS{'OK'}; +if ( $getopt_status == 0 ) { + print_help(); + exit $ERRORS{'OK'}; } if ($opt_V) { - print_revision($PROGNAME,'$Revision: 1.3 $ '); - exit $ERRORS{'OK'}; + print_revision( $PROGNAME, '$Revision: 1.33 $ ' ); + exit $ERRORS{'OK'}; } if ($opt_h) { - print_help(); - exit $ERRORS{'OK'}; + print_help(); + exit $ERRORS{'OK'}; } -unless ( ( - defined $filename || - (defined $sensor && ($warning || $critical)) - ) && - ( (!defined $filename) || (!defined $sensor) ) -) { - print_help(); - exit $ERRORS{'OK'}; -} +# set the default this way so it only happens if someone typed -f or --filename +$FILENAME = $DEFAULT_CONFIG if ( defined $FILENAME && $FILENAME eq q{} ); +# Stuff is output in this file by print_sensor() +# http://www.openbsd.org/cgi-bin/cvsweb/src/sbin/sysctl/sysctl.c +my @TYPE_MAP = ( + { type => 'temp', + regex => qr/\sdegC$/xms, + }, + { type => 'fanrpm', + regex => qr/\sRPM$/xms, + }, + { type => 'volts_dc', + regex => qr/\sV\sDC$/xms, + }, + { type => 'amps', + regex => qr/\sA$/xms, + }, + { type => 'watthour', + regex => qr/\sWh$/xms, + }, + { type => 'amphour', + regex => qr/\sAh$/xms, + }, + { type => 'indicator', + regex => qr/^(On|Off)$/xms, + }, + { type => 'integer', + regex => qr/\sraw$/xms, + }, + { type => 'percent', + regex => qr/\s\%$/xms, + }, + { type => 'lux', + regex => qr/\slx$/xms, + }, + { type => 'drive', + regex => qr/^drive\s/xms, + }, + { type => 'timedelta', + regex => qr/\ssecs$/xms, + }, +); -if (defined $sensor) { - if ($sensor !~ /^$BASE/) { - $sensor = $BASE . '.' . $sensor; - } - $CHECK_SENSOR = $sensor; +my $CHECK_SENSOR = $BASE; +my %CHECKS; +if ( defined $SENSOR ) { + if ( $SENSOR !~ /^$BASE/xms ) { + $SENSOR = join q{.}, $BASE, $SENSOR; + } + $CHECK_SENSOR = $SENSOR; - $CHECKS{$sensor} = { - 'warning' => $warning, - 'critical' => $critical, - }; -} elsif (defined $filename) { - %CHECKS = parse_file($filename); + $CHECKS{$SENSOR}{'warn'} = $WARNING; + $CHECKS{$SENSOR}{'crit'} = $CRITICAL; + } +elsif ( defined $FILENAME ) { + %CHECKS = read_file($FILENAME); +} -open my $sysctl, "-|", $SYSCTL, $CHECK_SENSOR - or die "Couldn't open sysctl: $!"; -while (<$sysctl>) { -#while (<>) { - chomp; - my ($id, $output) = split /=/; - my @o = split /,\s*/, $output; +my @SENSORS = read_sensors($CHECK_SENSOR); +my %STATES = check_sensors( \@SENSORS, \%CHECKS, + { IGNORE_STATUS => $IGNORE_STATUS } ); - my $source = $o[0]; - my $descr = $o[1]; - my $status = $o[2] if @o == 5; - my $type = $o[-2]; - my $data = $o[-1]; +my $have_results = 0; +$state = 'OK'; +foreach my $error ( sort { $ERRORS{$b} <=> $ERRORS{$a} } keys %ERRORS ) { + if ( exists $STATES{$error} ) { + $have_results++; + $state = $error if $ERRORS{$state} < $ERRORS{$error}; - $SENSORS{$id} = { - id => $id, - output => $output, - source => $source, - description => $descr, - status => $status, - type => $type, - data => $data, - }; - + if ($NAGIOS_OUTPUT) { + print "$error (" . scalar( @{ $STATES{$error} } ) . ")"; + if ( $error ne 'OK' ) { + s/\s+/ /gxms; + print '
'; + print map {" - $_
"} @{ $STATES{$error} }; + } + } + else { + print "$error (" . scalar( @{ $STATES{$error} } ) . "):\n"; + foreach ( @{ $STATES{$error} } ) { + print " $_\n"; + } + } + } } -close $sysctl; - -sub as_if_numeric { - my $_a = $a; - my $_b = $b; - $_a =~ s/\D//g; - $_b =~ s/\D//g; - $_a <=> $_b; +if ( $have_results == 0 ) { + print "No results found\n"; } +exit $ERRORS{$state}; -foreach my $check (sort as_if_numeric keys %CHECKS) { - if (exists $SENSORS{$check}) { - my $r = check_sensor($CHECKS{$check}, $SENSORS{$check}); - push @{ $states{ $r } }, - $check . '=' . $SENSORS{$check}{'output'}; - } else { - # XXX Error missing sensor - push @{ $states{'UNKNOWN'} }, $check . '=No sensor with this id'; - } +sub read_sensors { + my ($sensor) = @_; + my @S; + open my $sysctl, '-|', $SYSCTL, $sensor + or die "Couldn't open sysctl: $!\n"; + while (<$sysctl>) { + chomp; + push @S, parse_sensor($_); + } + ## no critic 'die' + close $sysctl + or die $! + ? "Error closing sysctl pipe: $!\n" + : "Exit status $? from sysctl\n"; + + return @S; } -#print Dumper \%states; +sub parse_sensor { + my ($sensor) = @_; -$state = 'OK'; -foreach my $error (sort { $ERRORS{$a} <=> $ERRORS{$b} } keys %ERRORS) { - if (exists $states{$error}) { - $state = $error; - print "$error (" . scalar(@{ $states{ $error } }) . "):\n"; - foreach (@{ $states{ $error } }) { - print " $_\n"; - } - } -} -exit $ERRORS{$state}; + my ( $id, $output ) = split /=/xms, $sensor; + my @s = split /\./xms, $id; + my @o = split /,\s*/xms, $output; + my ( $type, $source, $descr, $data, $status ); -sub parse_file { - my $filename = shift; - my %contents; + $source = $o[0]; + $descr = $o[1]; - open my $fh, '-|', $GETCAP, '-a', '-f', $filename - or die "Couldn't open FILE '$GETCAP -a -f $filename': $!"; - while (<$fh>) { - chomp; - my ($key, @c) = split /\:/; - foreach (@c) { - my ($k, $v) = split /\=/; - $contents{$key}{$k} = $v; - } - } - close $fh; + if ( $OSVer >= 4.1 ) { + $data = $o[0]; + if ( $data =~ s/\s+\((.*)\).*$//xms ) { + $descr = $1; + } + $status = $o[1]; + ( $source, $type ) = $id =~ /([^\.]+)\.([^\.]+?)\d+$/xms; + } + elsif ( $OSVer >= 4.0 ) { + $data = $o[2]; + $status = $o[3]; + foreach my $t (@TYPE_MAP) { + if ( $data =~ /$t->{'regex'}/xms ) { + $type = $t->{'type'}; + last; + } + } + } + else { + $data = $o[-1]; + $status = $o[2] if @o == 5; + $type = $o[-2]; + } - return %contents; + $type ||= 'unknown'; + + return { + id => $id, + output => $output, + source => $source, + description => $descr, + status => $status, + type => $type, + data => $data, + }; } -sub parse_check { - my $type = shift; - my $check = shift; +sub read_file { + my $filename = shift; + my %contents; - $check->{'warn'} = $check->{'warning'} if (!defined $check->{'warn'}); - $check->{'crit'} = $check->{'critical'} if (!defined $check->{'crit'}); + die "file '$filename' does not exist.\n" unless -e $filename; - if (defined $check->{'warn'} && $check->{'warn'} =~ /:/) { - if (my ($low, $high) = split /:/, $check->{'warn'}) { - $check->{'warn.low'} = $low; - $check->{'warn.high'} = $high; - } - delete $check->{'warn'}; - } - if (defined $check->{'crit'} && $check->{'crit'} =~ /:/) { - if (my ($low, $high) = split /:/, $check->{'crit'}) { - $check->{'crit.low'} = $low; - $check->{'crit.high'} = $high; - } - delete $check->{'crit'}; - } + open my $fh, '-|', $GETCAP, '-a', '-f', $filename + or die "Couldn't open '$GETCAP -a -f $filename': $!\n"; + while (<$fh>) { + chomp; + my ( $s, @c ) = split /\:/xms; + $contents{$s} = parse_line(@c); + } + ## no critic 'die' + close $fh + or die $! + ? "Error closing getcap pipe: $!\n" + : "Exit status $? from getcap\n"; - if (defined $check->{'low'}) { - $check->{'warn.low'} = $check->{'low'} - unless defined $check->{'warn.low'}; - $check->{'crit.low'} = $check->{'low'} - unless defined $check->{'crit.low'}; - } - if (defined $check->{'high'}) { - $check->{'warn.high'} = $check->{'high'} - unless defined $check->{'warn.high'}; - $check->{'crit.high'} = $check->{'high'} - unless defined $check->{'crit.high'}; - } + return %contents; +} - no warnings 'uninitialized'; - $check->{'warn'} = [ split /,\s*/, $check->{'warn'} ]; - $check->{'crit'} = [ split /,\s*/, $check->{'crit'} ]; - - return $check; +sub parse_line { + my (@c) = @_; + my %c; + foreach (@c) { + my ( $k, $v ) = split /\=/xms; + if ( lc($k) eq 'ignore' ) { $c{'IGNORE'} = 1; } + elsif ( lc($k) eq 'status' ) { $c{'STATUS'} = 1; } + else { $c{$k} = $v; } + } + return \%c; } -sub check_sensor { - my $check = shift; - my $sensor = shift; - my $result = 'UNKNOWN'; - my %errors = ( - 'warn' => 'WARNING', - 'crit' => 'CRITICAL', - ); +sub parse_check { + my $check = shift; - return $result unless ref $sensor eq 'HASH'; + return unless $check; + return 'STATUS' if $check->{'STATUS'}; + return 'IGNORE' if $check->{'IGNORE'}; - $check = parse_check($sensor->{'type'}, $check); - #print Dumper $check, $sensor; + foreach my $code ( 'crit', 'warn' ) { + if ( defined $check->{$code} && $check->{$code} =~ /:/xms ) { + if ( my ( $low, $high ) = split /:/xms, $check->{$code} ) { + $check->{ $code . '.low' } = $low if length $low; + $check->{ $code . '.high' } = $high if length $high; + } + delete $check->{$code}; + } - $result = 'OK'; + foreach my $direction ( 'low', 'high' ) { + my $c = $code . '.' . $direction; + if ( defined $check->{$direction} ) { + $check->{$c} ||= $check->{$direction}; + } - foreach my $code ('warn', 'crit') { - if ( - $sensor->{'type'} eq 'volts_dc' || - $sensor->{'type'} eq 'fanrpm' || - $sensor->{'type'} eq 'raw' - ) { - my $data = $sensor->{'data'}; - $data =~ s/[^\d\.]//g; - unless (length $data) { - warn "INVALID DATA ($sensor->{'data'}) for '$sensor->{'id'}'"; - next; - } + if ( defined $check->{$c} ) { + my $old = $check->{$c}; + $check->{$c} =~ s/[^\d\.]//gxms; + if ( !length $check->{$c} ) { + warn "INVALID CHECK ($old)\n"; + delete $check->{$c}; + } + } + } - if ( - defined $check->{$code . ".low"} || - defined $check->{$code . ".high"} - ) { - if (defined $check->{$code . ".low"}) { - my $c = $check->{$code . ".low"}; - $c =~ s/[^\d\.]//g; - - unless (length $c) { - warn "INVALID CHECK (" . $check->{$code . ".low"} . - ") for '$sensor->{'id'}:$code.low'"; - next; - } + if ( defined $check->{$code} ) { + $check->{$code} = [ split /,\s*/xms, $check->{$code} ]; + } + else { + $check->{$code} = []; + } + } - $result = $errors{$code} - if ($c >= $data); - } - if (defined $check->{$code . ".high"}) { - my $c = $check->{$code . ".high"}; - $c =~ s/[^\d\.]//g; - unless (length $c) { - warn "INVALID CHECK (" . $check->{$code . ".high"} . - ") for '$sensor->{'id'}:$code.high'"; - next; - } + return $check; +} - $result = $errors{$code} - if ($c <= $data); - } - } elsif (defined $check->{$code}) { - my $matched = 0; - foreach my $c (@{ $check->{$code} }) { - $c =~ s/[^\d\.]//g; - unless (length $c) { - warn "INVALID CHECK (" . $check->{$code} . - ") for '$sensor->{'id'}:$code'"; - next; - } +sub check_sensors { + my ( $S, $C, $O ) = @_; - if ($_ eq $data) { - $matched = 1; - last; - } - } - $result = $errors{$code} unless $matched; - } + my %states; + foreach my $sensor ( @{$S} ) { + my ( $r, $data ); + if ( exists $C->{ $sensor->{id} } ) { + $r = check_sensor( $sensor, $C->{ $sensor->{id} } ); + $data = $sensor->{id} . '=' . $sensor->{output}; + } + elsif ( !$O->{ignore_status} && $sensor->{status} ) { + $r = check_sensor( $sensor, { STATUS => 1 } ); + $data = $sensor->{id} . '=' . $sensor->{output}; + } + else { - } elsif ($sensor->{'type'} eq 'temp') { - my ($degC, $degF) = split /\//, $sensor->{'data'}; - $degC =~ s/[^\d\.]//g; - $degF =~ s/[^\d\.]//g; - if ( - defined $check->{$code . ".low"} || - defined $check->{$code . ".high"} - ) { - if (defined $check->{$code . ".low"}) { - my $c = $check->{$code . ".low"}; - my $data = $degC; + # ignore this sensor, theoretically you could do the check and + # that would show unknown sensors. + } + if ( defined $r ) { + push @{ $states{$r} }, $data; + } + } - $data = $degF if ($c =~ /F/i); - unless (length $data) { - warn "INVALID DATA (" . $sensor->{'data'} . - ") for '$sensor->{'id'}'"; - next; - } + return %states; +} - $c =~ s/[^\d\.]//g; - unless (length $c) { - warn "INVALID CHECK (" . $check->{$code . ".low"} . - ") for '$sensor->{'id'}':$code.low"; - next; - } +sub check_sensor { + my ( $sensor, $check ) = @_; + my $result = 'UNKNOWN'; - $result = $errors{$code} - if ($c >= $data); - } - if (defined $check->{$code . ".high"}) { - my $c = $check->{$code . ".high"}; + return $result unless ref $sensor eq 'HASH'; + $check = parse_check($check) if $check; - my $data = $degC; - $data = $degF if ($c =~ /F/i); - unless (length $data) { - warn "INVALID DATA (" . $sensor->{'data'} . - ") for '$sensor->{'id'}'"; - next; - } + if ( !$check ) { return $result; } + elsif ( $check eq 'STATUS' ) { - $c =~ s/[^\d\.]//g; - unless (length $c) { - warn "INVALID CHECK (" . $check->{$code . ".high"} . - ") for '$sensor->{'id'}:$code.high'"; - next; - } + # It looks like returning $sensor->{status} should be safe, from + # src/sbin/sysctl/sysctl.c + return ( $sensor->{'status'} || $result ); + } + elsif ( $check eq 'IGNORE' ) { return; } - $result = $errors{$code} - if ($c <= $data); - } - } elsif (defined $check->{$code}) { + my $type = $sensor->{'type'}; + if (grep { $type eq $_ } + qw( + fan fanrpm + volt volts_dc + amps watthour amphour + integer raw percent + lux temp timedelta + ) + ) + { + $result = check_sensor_numeric( $sensor->{'data'}, $check ); + } + elsif ( grep { $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"; + } - my $matched = 0; - foreach my $c (@{ $check->{$code} }) { - my $data = $degC; + return $result; +} - $data = $degF if ($c =~ /F/i); - unless (length $data) { - warn "INVALID DATA (" . $sensor->{'data'} . - ") for '$sensor->{'id'}'"; - next; - } +sub check_sensor_numeric { + my ( $data, $check ) = @_; - $c =~ s/[^\d\.]//g; - unless (length $c) { - warn "INVALID CHECK (" . $check->{$code} . - ") for '$sensor->{'id'}':$code"; - next; - } + my $result = 'UNKNOWN'; + my %errors = ( + 'warn' => 'WARNING', + 'crit' => 'CRITICAL', + ); - if ($_ eq $data) { - $matched = 1; - last; - } - } - $result = $errors{$code} unless $matched; - } + $data =~ s/[^\d\.]//gxms; + if ( !length $data ) { + warn "INVALID DATA ($data)\n"; + return $result; + } - } elsif ( - $sensor->{'type'} eq 'drive' || - $sensor->{'type'} eq 'indicator' - ) { - if (defined $check->{$code}) { - my $matched = 0; - foreach (@{ $check->{$code} }) { - if ($_ eq $sensor->{'data'}) { - $matched = 1; - last; - } - } - $result = $errors{$code} unless $matched; - } + foreach my $code ( 'warn', 'crit' ) { + if ( defined $check->{ $code . ".low" } + || defined $check->{ $code . ".high" } ) + { + if (( defined $check->{ $code . ".low" } + && $check->{ $code . ".low" } >= $data + ) + || ( defined $check->{ $code . ".high" } + && $check->{ $code . ".high" } <= $data ) + ) + { + $result = $errors{$code}; + } + $result = 'OK' if $result eq 'UNKNOWN'; + } + elsif ( @{ $check->{$code} } ) { + my $matched = 0; + NUMERIC_CHECK: foreach ( @{ $check->{$code} } ) { + my $c = $_; + $c =~ s/[^\d\.]//gxms; + if ( !length $c ) { + warn "INVALID CHECK (" . $_ . ") for '$code'\n"; + next; + } - } else { - $result = 'UNKNOWN'; - } + if ( $c eq $data ) { + $matched = 1; + last NUMERIC_CHECK; + } + } + if ($matched) { + $result = 'OK' if $result eq 'UNKNOWN'; + } + else { + $result = $errors{$code}; + } + } + } - } + return $result; +} - return $result; +sub check_sensor_list { + my ( $data, $check ) = @_; + + my $result = 'UNKNOWN'; + my %errors = ( + 'warn' => 'WARNING', + 'crit' => 'CRITICAL', + ); + + foreach my $code ( 'warn', 'crit' ) { + if ( @{ $check->{$code} } ) { + my $matched = 0; + LIST_CHECK: foreach ( @{ $check->{$code} } ) { + if ( $_ eq $data ) { + $matched = 1; + last LIST_CHECK; + } + } + if ($matched) { + $result = 'OK' if $result eq 'UNKNOWN'; + } + else { + $result = $errors{$code}; + } + } + } + + return $result; } sub print_help { - print <]|(-s -w limit -c limit)) + print <<"EOL"; +$PROGNAME - monitors sysctl hw.sensors on OpenBSD + $PROGNAME [-i] [-f []|(-s [-w limit] [-c limit])] Usage: - -f, --filename=FILE - FILE to load checks from (defaults to /etc/sensorsd.conf) - -s, --sensor=ID - ID of a single sensor. "-s 0" means hw.sensors.0. - -w, --warning=RANGE or single ENTRY - Exit with WARNING status if outside of RANGE or if != ENTRY - -c, --critical=INTEGER - Exit with CRITICAL status if outside of RANGE or if != ENTRY + -i, --ignore-status + Don't automatically check the status of sensors that report it. + -f, --filename=FILE + FILE to load checks from (defaults to /etc/sensorsd.conf) + -s, --sensor=ID + ID of a single sensor. "-s kate0.temp0" means hw.sensors.kate0.temp0 + Overrides --filename. + -w, --warning=RANGE or single ENTRY + Exit with WARNING status if outside of RANGE or if != ENTRY + -c, --critical=RANGE or single ENTRY + Exit with CRITICAL status if outside of RANGE or if != ENTRY - -h (--help) usage help +FILE is in the same format as sensorsd.conf(5) plus some additional +entries. These additional entries in the file are ignored by +sensorsd(8) this means you can use the same config file for $PROGNAME +as well as sensorsd(8). -FILE is in the same format as sensorsd.conf(5). These additional entries in the file are ignored by sensorsd(8). $PROGNAME understands the following entries: - low, high, crit, warn, crit.low, crit.high, warn.low, warn.high +$PROGNAME understands the following entries: -An ENTRY depends on the type. The descriptions in sensorsd.conf(5) can be used when appropriate, or you can use the following: - volts_dc, fanrpm or raw - Anything that includes digits. Anything that isn't a digit or period is stripped from the entry and the sensor output and they are compared. - temp - Can be as above, but if the entry has an F in it, it compares farenheit, otherwise it uses celcius. - indicator or drive - does a case sensitive match of each entry in the comma separated list and if it does not match any of the entries, it matches the status. + low, high, crit, warn, crit.low, crit.high, warn.low, warn.high, + ignore, status -The entries 'crit' or 'warn' (or the -c or -w on the command line) may be a RANGE or a comma separated list of acceptable values. The comma separated list of values contains a list of things that will NOT cause the status. This is possibly counterintuitive, but you are more likely to know good values than bad values. +An ENTRY depends on the type. The descriptions in sensorsd.conf(5) +can be used when appropriate, or you can use the following: -A RANGE is a low ENTRY and a high ENTRY separated by a colon (:). + fanrpm, volts_dc, amps, watthour, amphour, integer (raw), percent, + lux, temp or timedelta - Anything that includes digits. Both the + value of the check and the value of the sensor response that are not + either a digit or period are stripped and then the two resultant + values are compared. + indicator or drive - does a case sensitive match of each + entry in the comma separated list and if it does not match + any of the entries, it sets the status. + +The entries 'crit' or 'warn' (or the -c or -w on the command line) +may be a RANGE or a comma separated list of acceptable values. +The comma separated list of values contains a list of things that +will NOT cause the status. This is possibly counterintuitive, but +you are more likely to know good values than bad values. + +A RANGE is a low ENTRY and a high ENTRY separated by a colon (:). +It can also be low: or :high with the other side left blank to only +make the single check. + +An entry marked "ignore" will cause that sensor to be skipped. +Generally used with state checking of all sensors to ignore sensors you +don't care about or that report incorrectly. + +If you are using --ignore-status, you can still check the status of +individual sensors with a status entry. + EOL - - print_revision($PROGNAME, '$Revision: 1.3 $'); + + print_revision( $PROGNAME, '$Revision: 1.33 $' ); + + print $LICENSE; + + return; +} + +sub print_revision { + my ( $prog, $rev ) = @_; + $rev =~ s/^\D+([\d\.]+)\D+$/v$1/xms; + + print "$prog $rev\n"; + + return; }