[BACK]Return to check_hw_sensors CVS log [TXT][DIR] Up to [local] / nagios / check_hw_sensors

Diff for /nagios/check_hw_sensors/check_hw_sensors between version 1.20 and 1.22

version 1.20, 2006/12/05 00:17:47 version 1.22, 2007/01/06 03:16:41
Line 1 
Line 1 
 #!/usr/bin/perl -T  #!/usr/bin/perl -T
 # $RedRiver: check_hw_sensors,v 1.19 2006/12/04 23:33:53 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  # check_hw_sensors *** A nagios check for OpenBSD hw.sensors
 #  #
Line 13 
Line 13 
   
 %ENV = ();  %ENV = ();
   
 use constant NAGIOS_OUTPUT => 1;  use constant NAGIOS_OUTPUT => 0;
   
 use POSIX;  use POSIX;
 use Config;  use Config;
Line 153 
Line 153 
 #while (<>) {  #while (<>) {
         chomp;          chomp;
         my ($id, $output) = split /=/;          my ($id, $output) = split /=/;
           my @s = split /\./, $id;
         my @o = split /,\s*/, $output;          my @o = split /,\s*/, $output;
   
         my ($type, $source, $descr, $data, $status);          my ($type, $source, $descr, $data, $status);
Line 160 
Line 161 
         $source = $o[0];          $source = $o[0];
         $descr  = $o[1];          $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];                  $data   = $o[2];
                 $status = $o[3];                  $status = $o[3];
                 foreach my $t (@Type_Map) {                  foreach my $t (@Type_Map) {
Line 322 
Line 328 
         foreach my $code ('warn', 'crit') {          foreach my $code ('warn', 'crit') {
                 if (                  if (
                         $sensor->{'type'} eq 'fanrpm'   ||                          $sensor->{'type'} eq 'fanrpm'   ||
                           $sensor->{'type'} eq 'volt'     ||
                         $sensor->{'type'} eq 'volts_dc' ||                          $sensor->{'type'} eq 'volts_dc' ||
                         $sensor->{'type'} eq 'amps'     ||                          $sensor->{'type'} eq 'amps'     ||
                         $sensor->{'type'} eq 'watthour' ||                          $sensor->{'type'} eq 'watthour' ||
Line 469 
Line 476 
                         $sensor->{'type'} eq 'drive' ||                          $sensor->{'type'} eq 'drive' ||
                         $sensor->{'type'} eq 'indicator'                          $sensor->{'type'} eq 'indicator'
                 ) {                  ) {
                         $sensor->{'type'} =~ s/^drive\s+//;                          $sensor->{'data'} =~ s/^drive\s+//;
                         if (@{ $check->{$code} }) {                          if (@{ $check->{$code} }) {
                                 my $matched = 0;                                  my $matched = 0;
                                 foreach (@{ $check->{$code} }) {                                  foreach (@{ $check->{$code} }) {
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.22
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>