diff options
Diffstat (limited to 'nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/MemorySubsystem.pm')
| -rwxr-xr-x | nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/MemorySubsystem.pm | 197 |
1 files changed, 197 insertions, 0 deletions
diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/MemorySubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/MemorySubsystem.pm new file mode 100755 index 0000000..17a49ea --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/MemorySubsystem.pm @@ -0,0 +1,197 @@ +package HP::Proliant::Component::MemorySubsystem; +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}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + dimms => [], + }; + bless $self, $class; + if ($self->{method} eq 'snmp') { + return HP::Proliant::Component::MemorySubsystem::SNMP->new(%params); + } elsif ($self->{method} eq 'cli') { + return HP::Proliant::Component::MemorySubsystem::CLI->new(%params); + } else { + die "unknown method"; + } +} + +sub check { + my $self = shift; + my $errorfound = 0; + $self->add_info('checking memory'); + foreach (@{$self->{dimms}}) { + $_->check(); # info ausfuellen + } + if ((scalar(grep { + $_->is_present() && + ($_->{condition} ne 'n/a' && $_->{condition} ne 'other' ) + } @{$self->{dimms}})) != 0) { + foreach (@{$self->{dimms}}) { + if (($_->is_present()) && ($_->{condition} ne 'ok')) { + $_->add_message(CRITICAL, $_->{info}); + $errorfound++; + } + } + } else { + if ($self->{runtime}->{options}->{ignore_dimms}) { + $self->add_message(OK, + sprintf "ignoring %d dimms with status 'n/a' ", + scalar(grep { ($_->is_present()) } @{$self->{dimms}})); + } elsif ($self->{runtime}->{options}->{buggy_firmware}) { + $self->add_message(OK, + sprintf "ignoring %d dimms with status 'n/a' because of buggy firmware", + scalar(grep { ($_->is_present()) } @{$self->{dimms}})); + } else { + $self->add_message(WARNING, + sprintf "status of all %d dimms is n/a (please upgrade firmware)", + scalar(grep { $_->is_present() } @{$self->{dimms}})); + $errorfound++; + } + } + foreach (@{$self->{dimms}}) { + printf "%s\n", $_->{info} if $self->{runtime}->{options}->{verbose} >= 2; + } + if (! $errorfound && $self->is_faulty()) { + #if ($self->is_faulty()) { + $self->add_message(WARNING, + sprintf 'overall memory error found'); + } +} + +sub dump { + my $self = shift; + printf "i dump the memory\n"; + foreach (@{$self->{dimms}}) { + $_->dump(); + } +} + +package HP::Proliant::Component::MemorySubsystem::Dimm; +our @ISA = qw(HP::Proliant::Component::MemorySubsystem); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + cartridge => $params{cartridge}, + module => $params{module}, + size => $params{size} || 0, + status => $params{status}, + condition => $params{condition}, + type => $params{type}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->{name} = sprintf '%s:%s', + $self->{cartridge}, $self->{module}; + $self->{location} = sprintf 'module %s @ cartridge %s', + $self->{module}, $self->{cartridge}; + return $self; +} + +sub check { + my $self = shift; + # check dient nur dazu, info und extended_info zu fuellen + # die eigentliche bewertung findet eins hoeher statt + $self->blacklist('d', $self->{name}); + if (($self->{status} eq 'present') || ($self->{status} eq 'good')) { + if ($self->{condition} eq 'other') { + $self->add_info(sprintf 'dimm %s (%s) is n/a', + $self->{name}, $self->{location}); + } elsif ($self->{condition} ne 'ok') { + $self->add_info( + sprintf "dimm module %s (%s) needs attention (%s)", + $self->{name}, $self->{location}, $self->{condition}); + } else { + $self->add_info(sprintf 'dimm module %s (%s) is %s', + $self->{name}, $self->{location}, $self->{condition}); + } + } elsif ($self->{status} eq 'notPresent') { + $self->add_info(sprintf 'dimm module %s (%s) is not present', + $self->{name}, $self->{location}); + } else { + $self->add_info( + sprintf "dimm module %s (%s) needs attention (%s)", + $self->{name}, $self->{location}, $self->{condition}); + } +} + +sub is_present { + my $self = shift; + my @signs_of_presence = (qw(present good add upgraded doesnotmatch + notsupported badconfig degraded)); + return scalar(grep { $self->{status} eq $_ } @signs_of_presence); +} + + +sub dump { + my $self = shift; + #printf "[DIMM_%s_%s]\n", $self->{cartridge}, $self->{module}; + #foreach (qw(cartridge module size status condition info)) { + # printf "%s: %s\n", $_, $self->{$_}; + #} + #printf "status: %s\n", $self->{status} if exists $self->{status}; + #printf "\n"; + printf "car %02d mod %02d siz %.0f sta %-12s con %-10s typ %s\n", + $self->{cartridge}, $self->{module}, $self->{size}, + $self->{status}, $self->{condition}, defined $self->{type} ? $self->{type} : ""; +} + + +package HP::Proliant::Component::MemorySubsystem::Cartridge; +our @ISA = qw(HP::Proliant::Component::MemorySubsystem); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + cpqHeResMemBoardSlotIndex => $params{cpqHeResMemBoardSlotIndex}, + cpqHeResMemBoardOnlineStatus => $params{cpqHeResMemBoardOnlineStatus}, + cpqHeResMemBoardErrorStatus => $params{cpqHeResMemBoardErrorStatus}, + cpqHeResMemBoardNumSockets => $params{cpqHeResMemBoardNumSockets}, + cpqHeResMemBoardOsMemSize => $params{cpqHeResMemBoardOsMemSize}, + cpqHeResMemBoardTotalMemSize => $params{cpqHeResMemBoardTotalMemSize}, + cpqHeResMemBoardCondition => $params{cpqHeResMemBoardCondition}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + return $self; +} + +sub dump { + my $self = shift; + #printf "[CARTRIDGE_%s_%s]\n", $self->{cpqHeResMemBoardSlotIndex}; + #foreach (qw(cpqHeResMemBoardSlotIndex cpqHeResMemBoardOnlineStatus + # cpqHeResMemBoardErrorStatus cpqHeResMemBoardNumSockets + # cpqHeResMemBoardOsMemSize cpqHeResMemBoardTotalMemSize + # cpqHeResMemBoardCondition)) { + # printf "%s: %s\n", $_, $self->{$_}; + #} + #printf "\n"; +} + + |