1 files changed, 202 insertions, 0 deletions
diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/NicSubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/NicSubsystem.pm
new file mode 100755
index 0000000..02e5703
--- /dev/null
+++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/NicSubsystem.pm
@@ -0,0 +1,202 @@
+package HP::Proliant::Component::NicSubsystem;
+our @ISA = qw(HP::Proliant::Component);
+
+use strict;
+use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 };
+
+sub new {
+  my $class = shift;
+  my %params = @_;
+  my $self = {
+    runtime => $params{runtime},
+    rawdata => $params{rawdata},
+    method => $params{method},
+    condition => $params{condition},
+    status => $params{status},
+    logical_nics => [],
+    physical_nics => [],
+    blacklisted => 0,
+    info => undef,
+    extendedinfo => undef,
+  };
+  bless $self, $class;
+  if ($self->{method} eq 'snmp') {
+    return HP::Proliant::Component::NicSubsystem::SNMP->new(%params);
+  } elsif ($self->{method} eq 'cli') {
+    return HP::Proliant::Component::NicSubsystem::CLI->new(%params);
+  } else {
+    die "unknown method";
+  }
+  return $self;
+}
+
+sub check {
+  my $self = shift;
+  my $errorfound = 0;
+  $self->add_info('checking nic teams');
+  if (scalar (@{$self->{logical_nics}}) == 0) {
+    $self->add_info('no logical nics found');
+    $self->overall_check();
+  } else {
+    foreach (@{$self->{logical_nics}}) {
+      $_->check();
+    }
+  }
+  if (scalar (@{$self->{physical_nics}}) == 0) {
+    $self->add_info('no physical nics found. do you connect with slip?');
+  } else {
+    foreach (@{$self->{physical_nics}}) {
+      $_->check();
+    }
+  }
+}
+
+sub num_logical_nics {
+  my $self = shift;
+  return scalar @{$self->{logical_nics}};
+}
+
+sub num_physical_nics {
+  my $self = shift;
+  return scalar @{$self->{physical_nics}};
+}
+
+sub dump {
+  my $self = shift;
+  foreach (@{$self->{logical_nics}}) {
+    $_->dump();
+  }
+  foreach (@{$self->{physical_nics}}) {
+    $_->dump();
+  }
+}
+
+sub overall_check {
+  my $self = shift;
+  if ($self->{lognicstatus} ne "ok") {
+    $self->add_info(sprintf 'overall logical nic status is %s',
+        $self->{lognicstatus});
+  }
+}
+
+
+package HP::Proliant::Component::NicSubsystem::LogicalNic;
+our @ISA = qw(HP::Proliant::Component::NicSubsystem);
+
+use strict;
+use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 };
+
+sub new {
+  my $class = shift;
+  my %params = @_;
+  my $self = {
+    runtime => $params{runtime},
+    blacklisted => 0,
+    info => undef,
+    extendedinfo => undef,
+  };
+  foreach (qw(cpqNicIfLogMapIndex cpqNicIfLogMapIfNumber cpqNicIfLogMapDescription cpqNicIfLogMapGroupType cpqNicIfLogMapAdapterCount cpqNicIfLogMapAdapterOKCount cpqNicIfLogMapPhysicalAdapters cpqNicIfLogMapSwitchoverMode cpqNicIfLogMapCondition cpqNicIfLogMapStatus cpqNicIfLogMapNumSwitchovers cpqNicIfLogMapHwLocation cpqNicIfLogMapSpeed cpqNicIfLogMapVlanCount cpqNicIfLogMapVlans)) {
+    $self->{$_} = $params{$_};
+  }
+  bless $self, $class;
+  return $self;
+}
+
+sub check {
+  my $self = shift;
+  $self->blacklist('lni', $self->{cpqNicIfLogMapIndex});
+  if ($self->{cpqNicIfLogMapAdapterCount} > 0) {
+    if ($self->{cpqNicIfLogMapCondition} eq "other") {
+      # simply ignore this. if there is a physical nic
+      # it is usually unknown/other/scheissegal
+      $self->add_info(sprintf "logical nic %d (%s) is %s",
+          $self->{cpqNicIfLogMapIndex}, $self->{cpqNicIfLogMapDescription},
+          $self->{cpqNicIfLogMapCondition});
+    } elsif ($self->{cpqNicIfLogMapCondition} ne "ok") {
+      $self->add_info(sprintf "logical nic %d (%s) is %s (%s)",
+          $self->{cpqNicIfLogMapIndex}, $self->{cpqNicIfLogMapDescription},
+          $self->{cpqNicIfLogMapCondition}, $self->{cpqNicIfLogMapStatus});
+      $self->add_message(CRITICAL, $self->{info});
+    } else {
+      $self->add_info(sprintf "logical nic %d (%s) is %s",
+          $self->{cpqNicIfLogMapIndex}, $self->{cpqNicIfLogMapDescription},
+          $self->{cpqNicIfLogMapCondition});
+    }
+  } else {
+    $self->add_info(sprintf "logical nic %d (%s) has 0 physical nics",
+        $self->{cpqNicIfLogMapIndex}, $self->{cpqNicIfLogMapDescription});
+  }
+}
+
+sub dump {
+  my $self = shift;
+  printf "[LNIC_%s]\n", $self->{cpqNicIfLogMapIndex};
+  foreach (qw(cpqNicIfLogMapIndex cpqNicIfLogMapIfNumber cpqNicIfLogMapDescription cpqNicIfLogMapAdapterCount cpqNicIfLogMapGroupType cpqNicIfLogMapSwitchoverMode cpqNicIfLogMapCondition cpqNicIfLogMapStatus cpqNicIfLogMapNumSwitchovers cpqNicIfLogMapHwLocation cpqNicIfLogMapSpeed)) {
+    printf "%s: %s\n", $_, $self->{$_};
+  }
+  printf "info: %s\n", $self->{info};
+  printf "\n";
+}
+
+
+package HP::Proliant::Component::NicSubsystem::PhysicalNic;
+our @ISA = qw(HP::Proliant::Component::NicSubsystem);
+
+use strict;
+use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 };
+
+sub new {
+  my $class = shift;
+  my %params = @_;
+  my $self = {
+    runtime => $params{runtime},
+    blacklisted => 0,
+    info => undef,
+    extendedinfo => undef,
+  };
+  foreach (qw(cpqNicIfPhysAdapterIndex cpqNicIfPhysAdapterIfNumber cpqNicIfPhysAdapterRole cpqNicIfPhysAdapterDuplexState cpqNicIfPhysAdapterCondition cpqNicIfPhysAdapterState cpqNicIfPhysAdapterStatus cpqNicIfPhysAdapterBadTransmits cpqNicIfPhysAdapterBadReceives)) {
+    $self->{$_} = $params{$_};
+  }
+  bless $self, $class;
+  return $self;
+}
+
+sub check {
+  my $self = shift;
+  $self->blacklist('pni', $self->{cpqNicIfPhysAdapterIndex});
+  if ($self->{cpqNicIfPhysAdapterCondition} eq "other") {
+    # hp doesnt output a clear status. i am optimistic, unknown/other
+    # means "dont care"
+    $self->add_info(sprintf "physical nic %d (%s) is %s",
+        $self->{cpqNicIfPhysAdapterIndex}, $self->{cpqNicIfPhysAdapterRole},
+        $self->{cpqNicIfPhysAdapterCondition});
+  } elsif ($self->{cpqNicIfPhysAdapterCondition} ne "ok") {
+    $self->add_info(sprintf "physical nic %d (%s) is %s (%s,%s)",
+        $self->{cpqNicIfPhysAdapterIndex}, $self->{cpqNicIfPhysAdapterRole},
+        $self->{cpqNicIfPhysAdapterCondition},
+        $self->{cpqNicIfPhysAdapterState}, $self->{cpqNicIfPhysAdapterStatus});
+    $self->add_message(CRITICAL, $self->{info});
+  } else {
+    if ($self->{cpqNicIfPhysAdapterDuplexState} ne "full") {
+      $self->add_info(sprintf "physical nic %d (%s) is %s duplex",
+          $self->{cpqNicIfPhysAdapterIndex}, $self->{cpqNicIfPhysAdapterRole},
+          $self->{cpqNicIfPhysAdapterDuplexState});
+    } else {
+      $self->add_info(sprintf "physical nic %d (%s) is %s",
+          $self->{cpqNicIfPhysAdapterIndex}, $self->{cpqNicIfPhysAdapterRole},
+          $self->{cpqNicIfPhysAdapterCondition});
+    }
+  }
+}
+
+sub dump {
+  my $self = shift;
+  printf "[PNIC_%s]\n", $self->{cpqNicIfPhysAdapterIndex};
+  foreach (qw(cpqNicIfPhysAdapterIndex cpqNicIfPhysAdapterIfNumber cpqNicIfPhysAdapterRole cpqNicIfPhysAdapterDuplexState cpqNicIfPhysAdapterCondition cpqNicIfPhysAdapterState cpqNicIfPhysAdapterStatus cpqNicIfPhysAdapterBadTransmits cpqNicIfPhysAdapterBadReceives)) {
+    printf "%s: %s\n", $_, $self->{$_};
+  }
+  printf "info: %s\n", $self->{info};
+  printf "\n";
+}
+
+