initial commit of source fetch

1 files changed, 447 insertions, 0 deletions

diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Server.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Server.pm
new file mode 100755
index 0000000..7477c40
--- /dev/null
+++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Server.pm
@@ -0,0 +1,447 @@
+package HP::Server;
+
+use strict;
+use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 };
+
+sub new {
+  my $class = shift;
+  my %params = @_;
+  my $self = {
+    runtime => $params{runtime},
+    productname => 'unknown',
+  };
+  bless $self, $class;
+  if (! ($self->{runtime}->{plugin}->opts->hostname ||
+      $self->{runtime}->{plugin}->opts->snmpwalk)) {
+    bless $self, 'HP::Proliant::CLI';
+    $self->{method} = 'cli';
+  } else {
+    $self->check_snmp_and_model();
+    if ($self->{runtime}->{options}->{servertype}) {
+      $self->{productname} = 'ProLiant' if 
+          $self->{runtime}->{options}->{servertype} eq 'proliant';
+      $self->{productname} = 'BladeSystem' if 
+          $self->{runtime}->{options}->{servertype} eq 'bladesystem';
+      $self->{productname} = 'Storage' if 
+          $self->{runtime}->{options}->{servertype} eq 'storage';
+    }
+    if (! $self->{runtime}->{plugin}->check_messages()) {
+      if ($self->{productname} =~ /ProLiant/) {
+        bless $self, 'HP::Proliant::SNMP';
+        $self->trace(3, 'using HP::Proliant::SNMP');
+      } elsif ($self->{productname} =~ /^DL\d+\s*G\d+/) {
+        bless $self, 'HP::Proliant::SNMP';
+        $self->trace(3, 'using HP::Proliant::SNMP');
+      } elsif ($self->{productname} =~ /OpenView .* appliance/) {
+        bless $self, 'HP::Proliant::SNMP';
+        $self->trace(3, 'using HP::Proliant::SNMP');
+      } elsif ($self->{productname} =~ /Synergy.*Gen/i) {
+        bless $self, 'HP::Proliant::SNMP';
+        $self->trace(3, 'using HP::Proliant::SNMP');
+      } elsif ($self->{productname} =~ /Superdome.*Enclosure/i) {
+        bless $self, 'HP::BladeSystem';
+        $self->trace(3, 'using HP::BladeSystem');
+      } elsif ($self->{productname} =~ /BladeSystem/) {
+        bless $self, 'HP::BladeSystem';
+        $self->trace(3, 'using HP::BladeSystem');
+      } elsif ($self->{productname} =~ /PROLIANT 4LEE/) {
+        bless $self, 'HP::Storage';
+        $self->trace(3, 'using HP::Storage');
+      } elsif ($self->{productname} =~ /X\d+[\s\w]* Network Storage/) {
+        # HP X1600 Network Storage System
+        # HP X1600 G2 Network Storage System
+        bless $self, 'HP::Proliant::SNMP';
+        $self->trace(3, 'using HP::Proliant::SNMP');
+      } elsif ($self->{productname} =~ /StorageWorks/i) {
+        bless $self, 'HP::StorageWorks';
+        $self->trace(3, 'using HP::StorageWorks');
+      } elsif ($self->{productname} =~ /MSA/i) {
+        bless $self, 'HP::StorageWorks';
+        $self->trace(3, 'using HP::StorageWorks');
+      } elsif ($self->{productname} =~ /StoreEasy/i) {
+        bless $self, 'HP::Proliant::SNMP';
+        $self->trace(3, 'using HP::Proliant::SNMP');
+      } elsif ($self->{productname} =~ /Storage/) { # fake
+        bless $self, 'HP::Storage';
+        $self->trace(3, 'using HP::Storage');
+      } else {
+        $self->add_message(CRITICAL,
+            sprintf('unknown device%s', $self->{productname} eq 'unknown' ?
+                '' : '('.$self->{productname}.')'));
+      }
+      $self->{method} = 'snmp';
+    }
+  }
+  if ($self->{runtime}->{options}->{blacklist} &&
+      -f $self->{runtime}->{options}->{blacklist}) {
+    $self->{runtime}->{options}->{blacklist} = do {
+        local (@ARGV, $/) = $self->{runtime}->{options}->{blacklist}; <> };
+  }
+  return $self;
+}
+
+sub check_snmp_and_model {
+# uptime pruefen
+# dann whoami
+  my $self = shift;
+  if ($self->{runtime}->{plugin}->opts->snmpwalk) {
+    my $response = {};
+    if (! -f $self->{runtime}->{plugin}->opts->snmpwalk) {
+      $self->{runtime}->{plugin}->add_message(CRITICAL, 
+          sprintf 'file %s not found',
+          $self->{runtime}->{plugin}->opts->snmpwalk);
+    } elsif (-x $self->{runtime}->{plugin}->opts->snmpwalk) {
+      my $cmd = sprintf "%s -On -v%s -c%s %s:%s 1.3.6.1.4.1.232 2>&1",
+          $self->{runtime}->{plugin}->opts->snmpwalk,
+          $self->{runtime}->{plugin}->opts->protocol,
+          $self->{runtime}->{plugin}->opts->community,
+          $self->{runtime}->{plugin}->opts->domain,
+          $self->{runtime}->{plugin}->opts->hostname;
+      open(WALK, "$cmd |");
+      while (<WALK>) {
+        if (/^.*?\.(232\.[\d\.]+) = .*?: (\-*\d+)/) {
+          $response->{'1.3.6.1.4.1.'.$1} = $2;
+        } elsif (/^.*?\.(232\.[\d\.]+) = .*?: "(.*?)"/) {
+          $response->{'1.3.6.1.4.1.'.$1} = $2;
+          $response->{'1.3.6.1.4.1.'.$1} =~ s/\s+$//;
+        }
+      }
+      close WALK;
+    } else {
+      open(MESS, $self->{runtime}->{plugin}->opts->snmpwalk);
+      my $in_string = 0;
+      my $in_hex_string = 0;
+      my $hex_oid = 0;
+      while(<MESS>) {
+        chomp;
+        if ($in_hex_string && /^(([0-9a-fA-F]{2})( [0-9a-fA-F]{2})*)\s*$/) {
+          $response->{$hex_oid} .= " ".$1;
+        } elsif ($in_string) {
+          if (/(.*)"$/) {
+            $response->{$hex_oid} .= $1;
+            $in_string = 0;
+          } else {
+            $response->{$hex_oid} .= $_;
+          }
+        } elsif (/^.*?\.(232\.[\d\.]+) = .*?: (\-*\d+)\s*$/) {
+          # SNMPv2-SMI::enterprises.232.6.2.6.7.1.3.1.4 = INTEGER: 6
+          $response->{'1.3.6.1.4.1.'.$1} = $2;
+          $in_hex_string = 0;
+        } elsif (/^.*?\.(232\.[\d\.]+) = .*?: "(.*?)"/) {
+          $response->{'1.3.6.1.4.1.'.$1} = $2;
+          $response->{'1.3.6.1.4.1.'.$1} =~ s/\s+$//;
+          $in_hex_string = 0;
+        } elsif (/^.*?\.(232\.[\d\.]+) = (\-*\d+)/) {
+          $response->{'1.3.6.1.4.1.'.$1} = $2;
+          $in_hex_string = 0;
+        } elsif (/^.*?\.(232\.[\d\.]+) = "(.*?)"/) {
+          $response->{'1.3.6.1.4.1.'.$1} = $2;
+          $response->{'1.3.6.1.4.1.'.$1} =~ s/\s+$//;
+          $in_hex_string = 0;
+        } elsif (/^.*?\.(232\.[\d\.]+) = STRING: "(.*?[^"])$/) {
+          $response->{'1.3.6.1.4.1.'.$1} = $2;
+          $response->{'1.3.6.1.4.1.'.$1} =~ s/\s+$//;
+          $in_string = 0;
+          $in_hex_string = 0;
+        } elsif (/^.*?\.(232\.[\d\.]+) = Hex-STRING: (.*)/) {
+          $response->{'1.3.6.1.4.1.'.$1} = $2;
+          $in_hex_string = 1;
+          $hex_oid = '1.3.6.1.4.1.'.$1;
+        } elsif (/^.*?\.(232\.[\d\.]+) =[ ]{1,2}Hex: (.*)/) {
+          $response->{'1.3.6.1.4.1.'.$1} = $2;
+          $in_hex_string = 1;
+          $hex_oid = '1.3.6.1.4.1.'.$1;
+        }
+      }
+      close MESS;
+    }
+    map { $response->{$_} =~ s/^\s+//; $response->{$_} =~ s/\s+$//; }
+        keys %$response;
+    $self->{rawdata} = $response;
+    $self->whoami();
+  } else {
+    if (eval "require Net::SNMP") {
+      my %params = ();
+      my $net_snmp_version = Net::SNMP->VERSION(); # 5.002000 or 6.000000
+      $params{'-translate'} = [
+        -timeticks => 0x0
+      ];
+      $params{'-hostname'} = $self->{runtime}->{plugin}->opts->hostname;
+      $params{'-domain'} = $self->{runtime}->{plugin}->opts->domain;
+      $params{'-version'} = $self->{runtime}->{plugin}->opts->protocol;
+      if ($self->{runtime}->{plugin}->opts->port) {
+        $params{'-port'} = $self->{runtime}->{plugin}->opts->port;
+      }
+      if ($self->{runtime}->{plugin}->opts->protocol eq '3') {
+        $params{'-username'} = $self->{runtime}->{plugin}->opts->username;
+        if ($self->{runtime}->{plugin}->opts->authpassword) {
+          $params{'-authpassword'} = $self->decode_password($self->{runtime}->{plugin}->opts->authpassword);
+        }
+        if ($self->{runtime}->{plugin}->opts->authprotocol) {
+          $params{'-authprotocol'} = $self->{runtime}->{plugin}->opts->authprotocol;
+        }
+        if ($self->{runtime}->{plugin}->opts->privpassword) {
+          $params{'-privpassword'} = $self->decode_password($self->{runtime}->{plugin}->opts->privpassword);
+        }
+        if ($self->{runtime}->{plugin}->opts->privprotocol) {
+          $params{'-privprotocol'} = $self->{runtime}->{plugin}->opts->privprotocol;
+        }
+      } elsif ($self->decode_password($self->{runtime}->{plugin}->opts->community) =~ /^snmpv3(.)(.+)/) {
+        my $separator = $1;
+        my ($authprotocol, $authpassword, $privprotocol, $privpassword,
+          $username, $contextengineid, $contextname) = split(/$separator/, $2);
+        $params{'-version'} = 3;
+        $params{'-username'} = $self->decode_password($username) if $username;
+        $params{'-authprotocol'} = $self->decode_password($authprotocol) if $authprotocol;
+        $params{'-authpassword'} = $self->decode_password($authpassword) if $authpassword;
+        $params{'-privprotocol'} = $self->decode_password($privprotocol) if $privprotocol;
+        $params{'-privpassword'} = $self->decode_password($privpassword) if $privpassword;
+      } else {
+        $params{'-community'} = $self->decode_password($self->{runtime}->{plugin}->opts->community);
+      }
+      $self->{runtime}->{snmpparams} = \%params;
+      my ($session, $error) = Net::SNMP->session(%params);
+      $self->{session} = $session;
+      if (! defined $session) {
+        $self->add_message(CRITICAL, 'cannot create session object (maybe wrong hostname)');
+        $self->trace(1, Data::Dumper::Dumper(\%params));
+      } else {
+        my $sysUpTime = '1.3.6.1.2.1.1.3.0';
+        my $result = $session->get_request(
+            -varbindlist => [$sysUpTime]
+        );
+        if (!defined($result)) {
+          $self->add_message(CRITICAL,
+              'could not contact snmp agent');
+          $session->close;
+        } else {
+          $self->trace(3, 'snmp agent answered');
+          $self->whoami();
+        }
+      }
+    } else {
+      $self->add_message(CRITICAL,
+          'could not find Net::SNMP module');
+    }
+  }
+}
+
+sub whoami {
+  my $self = shift;
+  my $productname = undef;
+  if ($self->{runtime}->{plugin}->opts->snmpwalk) {
+    my $cpqSiProductName = '1.3.6.1.4.1.232.2.2.4.2.0';
+    my $cpqSsMibRevMajor = '1.3.6.1.4.1.232.8.1.1.0';
+    my $cpqSsBackplaneModel = '1.3.6.1.4.1.232.8.2.2.6.1.9'.'.1.1';
+    my $cpqHoMibStatusArray = '1.3.6.1.4.1.232.11.2.10.1.0';
+    if ($productname = $self->{rawdata}->{$cpqSiProductName}) {
+      if (! $productname) {
+        $self->{productname} = 'ProLiant';
+      } else {
+        $self->{productname} = $self->{rawdata}->{$cpqSiProductName};
+      }
+    } elsif (exists $self->{rawdata}->{$cpqSsBackplaneModel}) {
+      $self->{productname} = $self->{rawdata}->{$cpqSsBackplaneModel};
+    } elsif (exists $self->{rawdata}->{$cpqSsMibRevMajor}) {
+      # at least there is a CPQSTSYS-MIB
+      $self->{productname} = 'Storage'
+    } else {
+      $self->add_message(CRITICAL,
+          'snmpwalk returns no product name (cpqsinfo-mib)');
+    }
+  } else {
+    my $cpqSiProductName = '1.3.6.1.4.1.232.2.2.4.2.0';
+    my $cpqSsMibRevMajor = '1.3.6.1.4.1.232.8.1.1.0';
+    my $cpqSsBackplaneModel = '1.3.6.1.4.1.232.8.2.2.6.1.9'.'.1.1';
+    my $cpqHoMibStatusArray = '1.3.6.1.4.1.232.11.2.10.1.0';
+    my $dummy = '1.3.6.1.2.1.1.5.0';
+    if ($productname = $self->valid_response($cpqSiProductName)) {
+      if ($productname =~ /HP P\d+ .*SAS/ && $self->valid_response($cpqHoMibStatusArray)) {
+        $self->{productname} = 'StorageWorks'
+      } elsif ($productname eq '') {
+        $self->{productname} = 'ProLiant';
+      } else {
+        $self->{productname} = $productname;
+      }
+    } elsif ($productname = $self->valid_response($cpqSsBackplaneModel)) {
+      $self->{productname} = $productname;
+    } elsif ($self->valid_response($cpqSsMibRevMajor)) {
+      # at least there is a CPQSTSYS-MIB
+      $self->{productname} = 'Storage'
+    } elsif ($self->valid_response($cpqHoMibStatusArray)) {
+      $self->{productname} = 'StorageWorks'
+    } else {
+      $self->add_message(CRITICAL,
+          'snmpwalk returns no product name (cpqsinfo-mib)');
+      $self->{session}->close;
+    }
+    $self->trace(3, 'whoami: '.$self->{productname});
+  }
+}
+
+sub valid_response {
+  my $self = shift;
+  my $oid = shift;
+  my $result = $self->{session}->get_request(
+      -varbindlist => [$oid]
+  );
+  if (!defined($result) ||
+      ! defined $result->{$oid} ||
+      $result->{$oid} eq 'noSuchInstance' ||
+      $result->{$oid} eq 'noSuchObject' ||
+      $result->{$oid} eq 'endOfMibView') {
+    return undef;
+  } else {
+    return $result->{$oid};
+  }
+}
+
+sub trace {
+  my $self = shift;
+  my $level = shift;
+  my $message = shift;
+  if ($self->{runtime}->{options}->{verbose} >= $level) {
+    printf "%s\n", $message;
+  }
+}
+
+sub blacklist {
+  my $self = shift;
+  my $type = shift;
+  my $name = shift;
+  $self->{blacklisted} = $self->is_blacklisted($type, $name);
+}
+
+sub add_blacklist {
+  my $self = shift;
+  my $list = shift;
+  $self->{runtime}->{options}->{blacklist} = join('/',
+      (split('/', $self->{runtime}->{options}->{blacklist}), $list));
+}
+
+sub is_blacklisted {
+  my $self = shift;
+  my $type = shift;
+  my $name = shift;
+  my $blacklisted = 0;
+#  $name =~ s/\:/-/g;
+  foreach my $bl_items (split(/\//, $self->{runtime}->{options}->{blacklist})) {
+    if ($bl_items =~ /^(\w+):([\:\w\-,]+)$/) {
+      my $bl_type = $1;
+      my $bl_names = $2;
+      foreach my $bl_name (split(/,/, $bl_names)) {
+        if ($bl_type eq $type && $bl_name eq $name) {
+          $blacklisted = 1;
+        }
+      }
+    } elsif ($bl_items =~ /^(\w+)$/) {
+      my $bl_type = $1;
+      if ($bl_type eq $type) {
+        $blacklisted = 1;
+      }
+    }
+  }
+  return $blacklisted;
+}
+
+sub add_message {
+  my $self = shift;
+  my $level = shift;
+  my $message = shift;
+  $self->{runtime}->{plugin}->add_message($level, $message) 
+      unless $self->{blacklisted};
+  if (exists $self->{failed}) {
+    if ($level == UNKNOWN && $self->{failed} == OK) {
+      $self->{failed} = $level;
+    } elsif ($level > $self->{failed}) {
+      $self->{failed} = $level;
+    }
+  }
+}
+
+sub remove_message {
+  my $self = shift;
+  my $level = shift;
+  my $message = shift;
+  $self->{runtime}->{plugin}->remove_message($level) ;
+}
+
+sub has_failed {
+  my $self = shift;
+  return $self->{failed};
+}
+
+sub add_info {
+  my $self = shift;
+  my $info = shift;
+  $info = $self->{blacklisted} ? $info.' (blacklisted)' : $info;
+  $self->{info} = $info;
+  if (! exists $self->{runtime}->{plugin}->{info}) {
+    $self->{runtime}->{plugin}->{info} = [];
+  }
+  push(@{$self->{runtime}->{plugin}->{info}}, $info);
+}
+
+sub annotate_info {
+  my $self = shift;
+  my $annotation = shift;
+  my $lastinfo = pop(@{$self->{runtime}->{plugin}->{info}});
+  $lastinfo .= sprintf ' (%s)', $annotation;
+  push(@{$self->{runtime}->{plugin}->{info}}, $lastinfo);
+}
+
+sub add_extendedinfo {
+  my $self = shift;
+  my $info = shift;
+  $self->{extendedinfo} = $info;
+  return if ! $self->{runtime}->{options}->{extendedinfo};
+  if (! exists $self->{runtime}->{plugin}->{extendedinfo}) {
+    $self->{runtime}->{plugin}->{extendedinfo} = [];
+  }
+  push(@{$self->{runtime}->{plugin}->{extendedinfo}}, $info);
+}
+
+sub get_extendedinfo {
+  my $self = shift;
+  if (! exists $self->{runtime}->{plugin}->{extendedinfo}) {
+    $self->{runtime}->{plugin}->{extendedinfo} = [];
+  }
+  return join(' ', @{$self->{runtime}->{plugin}->{extendedinfo}});
+}
+
+sub add_summary {
+  my $self = shift;
+  my $summary = shift;
+  if (! exists $self->{runtime}->{plugin}->{summary}) {
+    $self->{runtime}->{plugin}->{summary} = [];
+  }
+  push(@{$self->{runtime}->{plugin}->{summary}}, $summary);
+}
+
+sub get_summary {
+  my $self = shift;
+  if (! exists $self->{runtime}->{plugin}->{summary}) {
+    $self->{runtime}->{plugin}->{summary} = [];
+  }
+  return join(', ', @{$self->{runtime}->{plugin}->{summary}});
+}
+
+sub dumper {
+  my $self = shift;
+  my $object = shift;
+  my $run = $object->{runtime};
+  delete $object->{runtime};
+  printf STDERR "%s\n", Data::Dumper::Dumper($object);
+  $object->{runtime} = $run;
+}
+
+sub decode_password {
+  my $self = shift;
+  my $password = shift;
+  if ($password && $password =~ /^rfc3986:\/\/(.*)/) {
+    $password = $1;
+    $password =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;
+  }
+  return $password;
+}
+