diff options
Diffstat (limited to 'nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP')
60 files changed, 10450 insertions, 0 deletions
diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem.pm new file mode 100755 index 0000000..64e69e6 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem.pm @@ -0,0 +1,240 @@ +package HP::BladeSystem; + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; +use Data::Dumper; + +our @ISA = qw(HP::Server HP::Proliant::Component::SNMP); + +sub init { + my $self = shift; + $self->{components} = { + common_enclosure_subsystem => undef, + power_enclosure_subsystem => undef, + power_supply_subsystem => undef, + net_connector_subsystem => undef, + server_blade_subsystem => undef, + }; + $self->{serial} = 'unknown'; + $self->{product} = 'unknown'; + $self->{romversion} = 'unknown'; + $self->trace(3, 'BladeSystem identified'); + $self->collect(); + if (! $self->{runtime}->{plugin}->check_messages()) { + $self->set_serial(); + $self->analyze_common_enclosures(); + $self->analyze_power_enclosures(); + $self->analyze_power_supplies(); + $self->analyze_net_connectors(); + $self->analyze_server_blades(); + $self->check_common_enclosures(); + $self->check_power_enclosures(); + $self->check_power_supplies(); + $self->check_net_connectors(); + $self->check_server_blades(); + } +} + +sub identify { + my $self = shift; + return sprintf "System: '%s', S/N: '%s'", + $self->{product}, $self->{serial}; +} + +sub dump { + my $self = shift; + printf STDERR "serial %s\n", $self->{serial}; + printf STDERR "product %s\n", $self->{product}; + printf STDERR "romversion %s\n", $self->{romversion}; + printf STDERR "%s\n", Data::Dumper::Dumper($self->{enclosures}); +} + +sub analyze_common_enclosures { + my $self = shift; + $self->{components}->{common_enclosure_subsystem} = + HP::BladeSystem::Component::CommonEnclosureSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_power_enclosures { + my $self = shift; + $self->{components}->{power_enclosure_subsystem} = + HP::BladeSystem::Component::PowerEnclosureSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_power_supplies { + my $self = shift; + $self->{components}->{power_supply_subsystem} = + HP::BladeSystem::Component::PowerSupplySubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_net_connectors { + my $self = shift; + $self->{components}->{net_connector_subsystem} = + HP::BladeSystem::Component::NetConnectorSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_server_blades { + my $self = shift; + $self->{components}->{server_blade_subsystem} = + HP::BladeSystem::Component::ServerBladeSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub check_common_enclosures { + my $self = shift; + $self->{components}->{common_enclosure_subsystem}->check(); + $self->{components}->{common_enclosure_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; +} + +sub check_power_enclosures { + my $self = shift; + $self->{components}->{power_enclosure_subsystem}->check(); + $self->{components}->{power_enclosure_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; +} + +sub check_power_supplies { + my $self = shift; + $self->{components}->{power_supply_subsystem}->check(); + $self->{components}->{power_supply_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; +} + +sub check_net_connectors { + my $self = shift; + $self->{components}->{net_connector_subsystem}->check(); + $self->{components}->{net_connector_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; +} + +sub check_server_blades { + my $self = shift; + $self->{components}->{server_blade_subsystem}->check(); + $self->{components}->{server_blade_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; +} + +sub collect { + my $self = shift; + if ($self->{runtime}->{plugin}->opts->snmpwalk) { + my $cpqRackMibCondition = '1.3.6.1.4.1.232.22.1.3.0'; + $self->trace(3, 'getting cpqRackMibCondition'); + if (! exists $self->{rawdata}->{$cpqRackMibCondition}) { + $self->add_message(CRITICAL, + 'snmpwalk returns no health data (cpqrack-mib)'); + } + } else { + my $net_snmp_version = Net::SNMP->VERSION(); # 5.002000 or 6.000000 + #$params{'-translate'} = [ + # -all => 0x0 + #]; + my ($session, $error) = + Net::SNMP->session(%{$self->{runtime}->{snmpparams}}); + if (! defined $session) { + $self->{plugin}->add_message(CRITICAL, 'cannot create session object'); + $self->trace(1, Data::Dumper::Dumper($self->{runtime}->{snmpparams})); + } else { + # revMajor is often used for discovery of hp devices + my $cpqSeMibRev = '1.3.6.1.4.1.232.22.1'; + my $cpqSeMibRevMajor = '1.3.6.1.4.1.232.22.1.1.0'; + my $cpqRackMibCondition = '1.3.6.1.4.1.232.22.1.3.0'; + $self->trace(3, 'getting cpqRackMibCondition'); + my $result = $session->get_request( + -varbindlist => [$cpqRackMibCondition] + ); + if (!defined($result) || + $result->{$cpqRackMibCondition} eq 'noSuchInstance' || + $result->{$cpqRackMibCondition} eq 'noSuchObject' || + $result->{$cpqRackMibCondition} eq 'endOfMibView') { + $self->add_message(CRITICAL, + 'snmpwalk returns no health data (cpqrack-mib)'); + $session->close; + } else { + $self->trace(3, 'getting cpqRackMibCondition done'); + } + } + if (! $self->{runtime}->{plugin}->check_messages()) { + # snmp peer is alive + $self->trace(2, sprintf "Protocol is %s", + $self->{runtime}->{snmpparams}->{'-version'}); + my $oidtrees = [ + ["cpqSiComponent", "1.3.6.1.4.1.232.2.2"], + ["cpqSiAsset", "1.3.6.1.4.1.232.2.2.2"], + #["cpqRackInfo", "1.3.6.1.4.1.232.22"], + ['cpqRackCommonEnclosureEntry', '1.3.6.1.4.1.232.22.2.3.1.1.1'], + ['cpqRackCommonEnclosureTempEntry', '1.3.6.1.4.1.232.22.2.3.1.2.1'], + ['cpqRackCommonEnclosureFanEntry', '1.3.6.1.4.1.232.22.2.3.1.3.1'], + ['cpqRackCommonEnclosureFuseEntry', '1.3.6.1.4.1.232.22.2.3.1.4.1'], + ['cpqRackCommonEnclosureManagerEntry', '1.3.6.1.4.1.232.22.2.3.1.6.1'], + ['cpqRackPowerEnclosureEntry', '1.3.6.1.4.1.232.22.2.3.3.1.1'], + ['cpqRackServerBladeEntry', '1.3.6.1.4.1.232.22.2.4.1.1.1'], + ['cpqRackPowerSupplyEntry', '1.3.6.1.4.1.232.22.2.5.1.1.1'], + ['cpqRackNetConnectorEntry', '1.3.6.1.4.1.232.22.2.6.1.1.1'], + ['cpqRackMibCondition', '1.3.6.1.4.1.232.22.1.3.0'], + ]; + my $cpqSiComponent = "1.3.6.1.4.1.232.2.2"; + my $cpqSiAsset = "1.3.6.1.4.1.232.2.2.2"; + my $cpqRackInfo = "1.3.6.1.4.1.232.22"; + $session->translate; + my $response = {}; #break the walk up in smaller pieces + foreach my $subtree (@{$oidtrees}) { + my $tic = time; my $tac = $tic; + my $response0 = $session->get_table( + -baseoid => $subtree->[1]); + if (scalar (keys %{$response0}) == 0) { + $self->trace(2, sprintf "maxrepetitions failed. fallback"); + $response0 = $session->get_table( + -maxrepetitions => 1, + -baseoid => $subtree->[1]); + } + $tac = time; + $self->trace(2, sprintf "%03d seconds for walk %s (%d oids)", + $tac - $tic, $subtree->[0], scalar(keys %{$response0})); + map { $response->{$_} = $response0->{$_} } keys %{$response0}; + } + $session->close; + map { $response->{$_} =~ s/^\s+//; $response->{$_} =~ s/\s+$//; } + keys %$response; + $self->{rawdata} = $response; + } + } + return $self->{runtime}->{plugin}->check_messages(); +} + +sub set_serial { + my $self = shift; + + my $cpqSiSysSerialNum = "1.3.6.1.4.1.232.2.2.2.1.0"; + my $cpqSiProductName = "1.3.6.1.4.1.232.2.2.4.2.0"; + + $self->{serial} = + SNMP::Utils::get_object($self->{rawdata}, $cpqSiSysSerialNum); + $self->{product} = + SNMP::Utils::get_object($self->{rawdata}, $cpqSiProductName); + $self->{serial} = $self->{serial}; + $self->{product} = lc $self->{product}; + $self->{romversion} = 'unknown'; +##################################################################### +$self->{runtime}->{product} = $self->{product}; +} + diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component.pm new file mode 100755 index 0000000..15fa213 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component.pm @@ -0,0 +1,7 @@ +package HP::BladeSystem::Component; + +use strict; + +our @ISA = qw(HP::BladeSystem); + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/CommonEnclosureSubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/CommonEnclosureSubsystem.pm new file mode 100755 index 0000000..37cec73 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/CommonEnclosureSubsystem.pm @@ -0,0 +1,176 @@ +package HP::BladeSystem::Component::CommonEnclosureSubsystem; +our @ISA = qw(HP::BladeSystem::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}, + common_enclosures => [], + common_enclosure_temp_subsys => undef, + common_enclosure_fan_subsys => undef, + common_enclosure_fuse_subsys => undef, + common_enclosure_manager_subsys => undef, + common_enclosure_frus => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(); + return $self; +} + +sub init { + my $self = shift; + # jeweils ein block fuer + # enclosures, temps, fans, fuses + # loop ueber oids und entspr. new + my $oids = { + cpqRackCommonEnclosureEntry => '1.3.6.1.4.1.232.22.2.3.1.1.1', + cpqRackCommonEnclosureRack => '1.3.6.1.4.1.232.22.2.3.1.1.1.1', + cpqRackCommonEnclosureIndex => '1.3.6.1.4.1.232.22.2.3.1.1.1.2', + cpqRackCommonEnclosureModel => '1.3.6.1.4.1.232.22.2.3.1.1.1.3', + cpqRackCommonEnclosureSparePartNumber => '1.3.6.1.4.1.232.22.2.3.1.1.1.6', + cpqRackCommonEnclosureSerialNum => '1.3.6.1.4.1.232.22.2.3.1.1.1.7', + cpqRackCommonEnclosureFWRev => '1.3.6.1.4.1.232.22.2.3.1.1.1.8', + cpqRackCommonEnclosureName => '1.3.6.1.4.1.232.22.2.3.1.1.1.9', + cpqRackCommonEnclosureCondition => '1.3.6.1.4.1.232.22.2.3.1.1.1.16', + cpqRackCommonEnclosureHasServerBlades => '1.3.6.1.4.1.232.22.2.3.1.1.1.17', + cpqRackCommonEnclosureHasPowerBlades => '1.3.6.1.4.1.232.22.2.3.1.1.1.18', + cpqRackCommonEnclosureHasNetConnectors => '1.3.6.1.4.1.232.22.2.3.1.1.1.19', + cpqRackCommonEnclosureHasTempSensors => '1.3.6.1.4.1.232.22.2.3.1.1.1.20', + cpqRackCommonEnclosureHasFans => '1.3.6.1.4.1.232.22.2.3.1.1.1.21', + cpqRackCommonEnclosureHasFuses => '1.3.6.1.4.1.232.22.2.3.1.1.1.22', + cpqRackCommonEnclosureConditionValue => { + 1 => 'other', + 2 => 'ok', + 3 => 'degraded', + 4 => 'failed', + }, + cpqRackCommonEnclosureHasServerBladesValue => { + 1 => 'false', + 2 => 'true', + }, + }; + $oids->{cpqRackCommonEnclosureHasPowerBladesValue} = + $oids->{cpqRackCommonEnclosureHasServerBladesValue}; + $oids->{cpqRackCommonEnclosureHasNetConnectorsValue} = + $oids->{cpqRackCommonEnclosureHasServerBladesValue}; + $oids->{cpqRackCommonEnclosureHasTempSensorsValue} = + $oids->{cpqRackCommonEnclosureHasServerBladesValue}; + $oids->{cpqRackCommonEnclosureHasFansValue} = + $oids->{cpqRackCommonEnclosureHasServerBladesValue}; + $oids->{cpqRackCommonEnclosureHasServerBladesValue} = + $oids->{cpqRackCommonEnclosureHasServerBladesValue}; + # INDEX { cpqRackCommonEnclosureRack cpqRackCommonEnclosureIndex } + foreach ($self->get_entries($oids, 'cpqRackCommonEnclosureEntry')) { + push(@{$self->{common_enclosures}}, + HP::BladeSystem::Component::CommonEnclosureSubsystem::CommonEnclosure->new(%{$_})); + } + + $self->{common_enclosure_fan_subsys} = HP::BladeSystem::Component::CommonEnclosureSubsystem::FanSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); + $self->{common_enclosure_temp_subsys} = HP::BladeSystem::Component::CommonEnclosureSubsystem::TempSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); + $self->{common_enclosure_fuse_subsys} = HP::BladeSystem::Component::CommonEnclosureSubsystem::FuseSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); + $self->{common_enclosure_manager_subsys} = HP::BladeSystem::Component::CommonEnclosureSubsystem::ManagerSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub check { + my $self = shift; + foreach (@{$self->{common_enclosures}}) { + $_->check(); + } + $self->{common_enclosure_fan_subsys}->check(); + $self->{common_enclosure_temp_subsys}->check(); + $self->{common_enclosure_fuse_subsys}->check(); + $self->{common_enclosure_manager_subsys}->check(); +} + +sub dump { + my $self = shift; + foreach (@{$self->{common_enclosures}}) { + $_->dump(); + } + $self->{common_enclosure_fan_subsys}->dump(); + $self->{common_enclosure_temp_subsys}->dump(); + $self->{common_enclosure_fuse_subsys}->dump(); + $self->{common_enclosure_manager_subsys}->dump(); +} + + +package HP::BladeSystem::Component::CommonEnclosureSubsystem::CommonEnclosure; +our @ISA = qw(HP::BladeSystem::Component::CommonEnclosureSubsystem); + +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}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + map { $self->{$_} = $params{$_} } grep /cpqRackCommonEnclosure/, keys %params; + $self->{name} = $self->{cpqRackCommonEnclosureRack}.':'.$self->{cpqRackCommonEnclosureIndex}; + $self->{serfw} = sprintf "Ser: %s, FW: %s", $self->{cpqRackCommonEnclosureSerialNum}, + $self->{cpqRackCommonEnclosureFWRev}; + bless $self, $class; + return $self; +} + + +sub check { + my $self = shift; + $self->blacklist('ce', $self->{cpqRackCommonEnclosureName}); + my $info = sprintf 'common enclosure %s condition is %s (%s)', + $self->{cpqRackCommonEnclosureName}, $self->{cpqRackCommonEnclosureCondition}, $self->{serfw}; + $self->add_info($info); + if ($self->{cpqRackCommonEnclosureCondition} eq 'failed') { + $info .= sprintf " (SparePartNum %s)", $self->{cpqRackCommonEnclosureSparePartNumber}; + $self->add_message(CRITICAL, $info); + } elsif ($self->{cpqRackCommonEnclosureCondition} eq 'degraded') { + $info .= sprintf " (SparePartNum %s)", $self->{cpqRackCommonEnclosureSparePartNumber}; + $self->add_message(WARNING, $info); + } +} + +sub dump { + my $self = shift; + printf "[COMMON_ENCLOSURE_%s]\n", $self->{cpqRackCommonEnclosureName}; + foreach (qw(cpqRackCommonEnclosureRack cpqRackCommonEnclosureIndex cpqRackCommonEnclosureModel + cpqRackCommonEnclosureSerialNum cpqRackCommonEnclosureFWRev cpqRackCommonEnclosureFWRev + cpqRackCommonEnclosureName + cpqRackCommonEnclosureCondition cpqRackCommonEnclosureHasServerBlades + cpqRackCommonEnclosureHasPowerBlades cpqRackCommonEnclosureHasNetConnectors + cpqRackCommonEnclosureHasTempSensors cpqRackCommonEnclosureHasFans cpqRackCommonEnclosureHasFuses)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/CommonEnclosureSubsystem/FanSubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/CommonEnclosureSubsystem/FanSubsystem.pm new file mode 100755 index 0000000..c28b921 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/CommonEnclosureSubsystem/FanSubsystem.pm @@ -0,0 +1,139 @@ +package HP::BladeSystem::Component::CommonEnclosureSubsystem::FanSubsystem; +our @ISA = qw(HP::BladeSystem::Component::CommonEnclosureSubsystem); + +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}, + blacklisted => 0, + fans => [], + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(); + return $self; +} + +sub init { + my $self = shift; + my $oids = { + cpqRackCommonEnclosureFanEntry => '1.3.6.1.4.1.232.22.2.3.1.3.1', + cpqRackCommonEnclosureFanRack => '1.3.6.1.4.1.232.22.2.3.1.3.1.1', + cpqRackCommonEnclosureFanChassis => '1.3.6.1.4.1.232.22.2.3.1.3.1.2', + cpqRackCommonEnclosureFanIndex => '1.3.6.1.4.1.232.22.2.3.1.3.1.3', + cpqRackCommonEnclosureFanEnclosureName => '1.3.6.1.4.1.232.22.2.3.1.3.1.4', + cpqRackCommonEnclosureFanLocation => '1.3.6.1.4.1.232.22.2.3.1.3.1.5', + cpqRackCommonEnclosureFanPartNumber => '1.3.6.1.4.1.232.22.2.3.1.3.1.6', + cpqRackCommonEnclosureFanSparePartNumber => '1.3.6.1.4.1.232.22.2.3.1.3.1.7', + cpqRackCommonEnclosureFanPresent => '1.3.6.1.4.1.232.22.2.3.1.3.1.8', + cpqRackCommonEnclosureFanRedundant => '1.3.6.1.4.1.232.22.2.3.1.3.1.9', + cpqRackCommonEnclosureFanRedundantGroupId => '1.3.6.1.4.1.232.22.2.3.1.3.1.10', + cpqRackCommonEnclosureFanCondition => '1.3.6.1.4.1.232.22.2.3.1.3.1.11', + cpqRackCommonEnclosureFanEnclosureSerialNum => '1.3.6.1.4.1.232.22.2.3.1.3.1.12', + cpqRackCommonEnclosureFanPresentValue => { + 1 => 'other', + 2 => 'absent', + 3 => 'present', + }, + cpqRackCommonEnclosureFanRedundantValue => { + 0 => 'other', # meiner phantasie entsprungen, da sich hp nicht aeussert + 1 => 'other', + 2 => 'notRedundant', + 3 => 'redundant', + }, + cpqRackCommonEnclosureFanConditionValue => { + 1 => 'other', + 2 => 'ok', + 3 => 'degraded', + 4 => 'failed', + } + }; + # INDEX { cpqRackCommonEnclosureFanRack, cpqRackCommonEnclosureFanChassis, cpqRackCommonEnclosureFanIndex } + foreach ($self->get_entries($oids, 'cpqRackCommonEnclosureFanEntry')) { + push(@{$self->{fans}}, + HP::BladeSystem::Component::CommonEnclosureSubsystem::FanSubsystem::Fan->new(%{$_})); + } + +} + +sub check { + my $self = shift; + foreach (@{$self->{fans}}) { + $_->check() if $_->{cpqRackCommonEnclosureFanPresent} eq 'present' || + $self->{runtime}->{options}->{verbose} >= 3; # absent nur bei -vvv + } +} + +sub dump { + my $self = shift; + foreach (@{$self->{fans}}) { + $_->dump() if $_->{cpqRackCommonEnclosureFanPresent} eq 'present' || + $self->{runtime}->{options}->{verbose} >= 3; # absent nur bei -vvv + } +} + + +package HP::BladeSystem::Component::CommonEnclosureSubsystem::FanSubsystem::Fan; + +our @ISA = qw(HP::BladeSystem::Component::CommonEnclosureSubsystem::FanSubsystem); + +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}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + map { $self->{$_} = $params{$_} } grep /cpqRackCommonEnclosureFan/, keys %params; + $self->{name} = $self->{cpqRackCommonEnclosureFanRack}.':'.$self->{cpqRackCommonEnclosureFanChassis}.':'.$self->{cpqRackCommonEnclosureFanIndex}; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('f', $self->{name}); + $self->add_info(sprintf 'fan %s is %s, location is %s, redundance is %s, condition is %s', + $self->{name}, $self->{cpqRackCommonEnclosureFanPresent}, + $self->{cpqRackCommonEnclosureFanLocation}, + $self->{cpqRackCommonEnclosureFanRedundant}, + $self->{cpqRackCommonEnclosureFanCondition}); + if ($self->{cpqRackCommonEnclosureFanCondition} eq 'degraded') { + $self->{info} .= sprintf ", (SparePartNum: %s)", $self->{cpqRackCommonEnclosureFanSparePartNumber}; + $self->add_message(WARNING, $self->{info}); + } elsif ($self->{cpqRackCommonEnclosureFanCondition} eq 'failed') { + $self->{info} .= sprintf ", (SparePartNum: %s)", $self->{cpqRackCommonEnclosureFanSparePartNumber}; + $self->add_message(CRITICAL, $self->{info}); + } +} + +sub dump { + my $self = shift; + printf "[FAN_%s]\n", $self->{name}; + foreach (qw(cpqRackCommonEnclosureFanRack cpqRackCommonEnclosureFanChassis + cpqRackCommonEnclosureFanIndex cpqRackCommonEnclosureFanEnclosureName + cpqRackCommonEnclosureFanLocation cpqRackCommonEnclosureFanPartNumber + cpqRackCommonEnclosureFanSparePartNumber cpqRackCommonEnclosureFanPresent + cpqRackCommonEnclosureFanRedundant cpqRackCommonEnclosureFanRedundantGroupId + cpqRackCommonEnclosureFanCondition cpqRackCommonEnclosureFanEnclosureSerialNum)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "info: %s\n", $self->{info}; + printf "\n"; +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/CommonEnclosureSubsystem/FuseSubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/CommonEnclosureSubsystem/FuseSubsystem.pm new file mode 100755 index 0000000..bc67e3b --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/CommonEnclosureSubsystem/FuseSubsystem.pm @@ -0,0 +1,121 @@ +package HP::BladeSystem::Component::CommonEnclosureSubsystem::FuseSubsystem; +our @ISA = qw(HP::BladeSystem::Component::CommonEnclosureSubsystem); + +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}, + blacklisted => 0, + fuses => [], + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(); + return $self; +} + +sub init { + my $self = shift; + my $oids = { + cpqRackCommonEnclosureFuseEntry => '1.3.6.1.4.1.232.22.2.3.1.4.1', + cpqRackCommonEnclosureFuseRack => '1.3.6.1.4.1.232.22.2.3.1.4.1.1', + cpqRackCommonEnclosureFuseChassis => '1.3.6.1.4.1.232.22.2.3.1.4.1.2', + cpqRackCommonEnclosureFuseIndex => '1.3.6.1.4.1.232.22.2.3.1.4.1.3', + cpqRackCommonEnclosureFuseEnclosureName => '1.3.6.1.4.1.232.22.2.3.1.4.1.4', + cpqRackCommonEnclosureFuseLocation => '1.3.6.1.4.1.232.22.2.3.1.4.1.5', + cpqRackCommonEnclosureFusePresent => '1.3.6.1.4.1.232.22.2.3.1.4.1.8', + cpqRackCommonEnclosureFuseCondition => '1.3.6.1.4.1.232.22.2.3.1.4.1.11', + cpqRackCommonEnclosureFusePresentValue => { + 1 => 'other', + 2 => 'absent', + 3 => 'present', + }, + cpqRackCommonEnclosureFuseConditionValue => { + 1 => 'other', + 2 => 'ok', + 4 => 'failed', + } + }; + # INDEX { cpqRackCommonEnclosureFuseRack, cpqRackCommonEnclosureFuseChassis, cpqRackCommonEnclosureFuseIndex } + foreach ($self->get_entries($oids, 'cpqRackCommonEnclosureFuseEntry')) { + push(@{$self->{fuses}}, + HP::BladeSystem::Component::CommonEnclosureSubsystem::FuseSubsystem::Fuse->new(%{$_})); + } + +} + +sub check { + my $self = shift; + foreach (@{$self->{fuses}}) { + $_->check() if $_->{cpqRackCommonEnclosureFusePresent} eq 'present' || + $self->{runtime}->{options}->{verbose} >= 3; # absent nur bei -vvv + } +} + +sub dump { + my $self = shift; + foreach (@{$self->{fuses}}) { + $_->dump() if $_->{cpqRackCommonEnclosureFusePresent} eq 'present' || + $self->{runtime}->{options}->{verbose} >= 3; # absent nur bei -vvv + } +} + + +package HP::BladeSystem::Component::CommonEnclosureSubsystem::FuseSubsystem::Fuse; + +our @ISA = qw(HP::BladeSystem::Component::CommonEnclosureSubsystem::FuseSubsystem); + +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}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + map { $self->{$_} = $params{$_} } grep /cpqRackCommonEnclosureFuse/, keys %params; + $self->{name} = $self->{cpqRackCommonEnclosureFuseRack}.':'.$self->{cpqRackCommonEnclosureFuseChassis}.':'.$self->{cpqRackCommonEnclosureFuseIndex}; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('fu', $self->{name}); + $self->add_info(sprintf 'fuse %s is %s, location is %s, condition is %s', + $self->{name}, $self->{cpqRackCommonEnclosureFusePresent}, + $self->{cpqRackCommonEnclosureFuseLocation}, $self->{cpqRackCommonEnclosureFuseCondition}); + if ($self->{cpqRackCommonEnclosureFuseCondition} eq 'failed') { + $self->add_message(CRITICAL, $self->{info}); + } elsif ($self->{cpqRackCommonEnclosureFuseCondition} ne 'ok') { + $self->add_message(WARNING, $self->{info}); + } +} + +sub dump { + my $self = shift; + printf "[FUSE_%s]\n", $self->{name}; + foreach (qw(cpqRackCommonEnclosureFuseRack cpqRackCommonEnclosureFuseChassis + cpqRackCommonEnclosureFuseIndex cpqRackCommonEnclosureFuseEnclosureName + cpqRackCommonEnclosureFuseLocation cpqRackCommonEnclosureFusePresent + cpqRackCommonEnclosureFuseCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "info: %s\n", $self->{info}; + printf "\n"; +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/CommonEnclosureSubsystem/ManagerSubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/CommonEnclosureSubsystem/ManagerSubsystem.pm new file mode 100755 index 0000000..1c2e15b --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/CommonEnclosureSubsystem/ManagerSubsystem.pm @@ -0,0 +1,154 @@ +package HP::BladeSystem::Component::CommonEnclosureSubsystem::ManagerSubsystem; +our @ISA = qw(HP::BladeSystem::Component::CommonEnclosureSubsystem); + +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}, + blacklisted => 0, + managers => [], + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(); + return $self; +} + +sub init { + my $self = shift; + my $oids = { + cpqRackCommonEnclosureManagerEntry => '1.3.6.1.4.1.232.22.2.3.1.6.1', + cpqRackCommonEnclosureManagerRack => '1.3.6.1.4.1.232.22.2.3.1.6.1.1', + cpqRackCommonEnclosureManagerChassis => '1.3.6.1.4.1.232.22.2.3.1.6.1.2', + cpqRackCommonEnclosureManagerIndex => '1.3.6.1.4.1.232.22.2.3.1.6.1.3', + cpqRackCommonEnclosureManagerEnclosureName => '1.3.6.1.4.1.232.22.2.3.1.6.1.4', + cpqRackCommonEnclosureManagerLocation => '1.3.6.1.4.1.232.22.2.3.1.6.1.5', + cpqRackCommonEnclosureManagerPartNumber => '1.3.6.1.4.1.232.22.2.3.1.6.1.6', + cpqRackCommonEnclosureManagerSparePartNumber => '1.3.6.1.4.1.232.22.2.3.1.6.1.7', + cpqRackCommonEnclosureManagerSerialNum => '1.3.6.1.4.1.232.22.2.3.1.6.1.8', + cpqRackCommonEnclosureManagerRole => '1.3.6.1.4.1.232.22.2.3.1.6.1.9', + cpqRackCommonEnclosureManagerPresent => '1.3.6.1.4.1.232.22.2.3.1.6.1.10', + cpqRackCommonEnclosureManagerRedundant => '1.3.6.1.4.1.232.22.2.3.1.6.1.11', + cpqRackCommonEnclosureManagerCondition => '1.3.6.1.4.1.232.22.2.3.1.6.1.12', + cpqRackCommonEnclosureManagerFWRev => '1.3.6.1.4.1.232.22.2.3.1.6.1.15', + cpqRackCommonEnclosureManagerRoleValue => { + 1 => 'standby', + 2 => 'active', + }, + cpqRackCommonEnclosureManagerPresentValue => { + 1 => 'other', + 2 => 'absent', # mit vorsicht zu geniessen! + 3 => 'present', + }, + cpqRackCommonEnclosureManagerRedundantValue => { + 0 => 'other', # meiner phantasie entsprungen, da sich hp nicht aeussert + 1 => 'other', + 2 => 'notRedundant', + 3 => 'redundant', + }, + cpqRackCommonEnclosureManagerConditionValue => { + 1 => 'other', + 2 => 'ok', + 3 => 'degraded', + 4 => 'failed', + } + }; + # INDEX { cpqRackCommonEnclosureManagerRack, cpqRackCommonEnclosureManagerChassis, cpqRackCommonEnclosureManagerIndex } + foreach ($self->get_entries($oids, 'cpqRackCommonEnclosureManagerEntry')) { + push(@{$self->{managers}}, + HP::BladeSystem::Component::CommonEnclosureSubsystem::ManagerSubsystem::Manager->new(%{$_})); + } +} + +sub check { + my $self = shift; + foreach (@{$self->{managers}}) { + $_->check() if $_->{cpqRackCommonEnclosureManagerPresent} eq 'present' || + $self->{runtime}->{options}->{verbose} >= 3; # absent nur bei -vvv + } +} + +sub dump { + my $self = shift; + foreach (@{$self->{managers}}) { + $_->dump() if $_->{cpqRackCommonEnclosureManagerPresent} eq 'present' || + $self->{runtime}->{options}->{verbose} >= 3; # absent nur bei -vvv + } +} + + +package HP::BladeSystem::Component::CommonEnclosureSubsystem::ManagerSubsystem::Manager; + +our @ISA = qw(HP::BladeSystem::Component::CommonEnclosureSubsystem::ManagerSubsystem); + +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}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + map { $self->{$_} = $params{$_} } grep /cpqRackCommonEnclosureManager/, keys %params; + $self->{name} = $self->{cpqRackCommonEnclosureManagerRack}. + ':'.$self->{cpqRackCommonEnclosureManagerChassis}. + ':'.$self->{cpqRackCommonEnclosureManagerIndex}; + if ($self->{cpqRackCommonEnclosureManagerPresent} eq "absent" && + defined $self->{cpqRackCommonEnclosureManagerEnclosureName}) { + $self->{cpqRackCommonEnclosureManagerPresent} = "present"; + } + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('em', $self->{name}); + my $info = sprintf 'manager %s is %s, location is %s, redundance is %s, condition is %s, role is %s', + $self->{name}, $self->{cpqRackCommonEnclosureManagerPresent}, + $self->{cpqRackCommonEnclosureManagerLocation}, + $self->{cpqRackCommonEnclosureManagerRedundant}, + $self->{cpqRackCommonEnclosureManagerCondition}, + $self->{cpqRackCommonEnclosureManagerRole}; + $self->add_info($info) if $self->{cpqRackCommonEnclosureManagerPresent} eq 'present' || + $self->{runtime}->{options}->{verbose} >= 3; # absent managers nur bei -vvv + if ($self->{cpqRackCommonEnclosureManagerCondition} eq 'degraded') { + $self->{info} .= sprintf ' (SparePartNum: %s)', + $self->{cpqRackCommonEnclosureManagerSparePartNumber}; + $self->add_message(WARNING, $self->{info}); + } elsif ($self->{cpqRackCommonEnclosureManagerCondition} eq 'failed') { + $self->{info} .= sprintf ' (SparePartNum: %s)', + $self->{cpqRackCommonEnclosureManagerSparePartNumber}; + $self->add_message(CRITICAL, $self->{info}); + } +} + +sub dump { + my $self = shift; + printf "[ENCLOSURE_MANAGER_%s]\n", $self->{name}; + foreach (qw(cpqRackCommonEnclosureManagerRack cpqRackCommonEnclosureManagerChassis + cpqRackCommonEnclosureManagerIndex cpqRackCommonEnclosureManagerEnclosureName + cpqRackCommonEnclosureManagerLocation cpqRackCommonEnclosureManagerPartNumber + cpqRackCommonEnclosureManagerSparePartNumber cpqRackCommonEnclosureManagerPresent + cpqRackCommonEnclosureManagerRedundant + cpqRackCommonEnclosureManagerCondition cpqRackCommonEnclosureManagerFWRev)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "info: %s\n", $self->{info}; + printf "\n"; +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/CommonEnclosureSubsystem/TempSubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/CommonEnclosureSubsystem/TempSubsystem.pm new file mode 100755 index 0000000..3e004f1 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/CommonEnclosureSubsystem/TempSubsystem.pm @@ -0,0 +1,177 @@ +package HP::BladeSystem::Component::CommonEnclosureSubsystem::TempSubsystem; +our @ISA = qw(HP::BladeSystem::Component::CommonEnclosureSubsystem); + +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}, + temperatures => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + if ($params{runtime}->{options}->{customthresholds}) { + if (-f $params{runtime}->{options}->{customthresholds}) { + open CT, $params{runtime}->{options}->{customthresholds}; + $params{runtime}->{options}->{customthresholds} = <CT>; + close CT; + } + foreach my $ct_items + (split(/\//, $params{runtime}->{options}->{customthresholds})) { + if ($ct_items =~ /^(\d+):(\d+)$/) { + my $temp = $2; + $params{runtime}->{options}->{thresholds}->{$1} = $temp; + } else { + die sprintf "invalid threshold %s", $ct_items; + } + } + } + $self->init(); + return $self; +} + +sub init { + my $self = shift; + my %params = @_; + my $snmpwalk = $self->{rawdata}; + my $oids = { + cpqRackCommonEnclosureTempEntry => '1.3.6.1.4.1.232.22.2.3.1.2.1', + cpqRackCommonEnclosureTempRack => '1.3.6.1.4.1.232.22.2.3.1.2.1.1', + cpqRackCommonEnclosureTempChassis => '1.3.6.1.4.1.232.22.2.3.1.2.1.2', + cpqRackCommonEnclosureTempSensorIndex => '1.3.6.1.4.1.232.22.2.3.1.2.1.3', + cpqRackCommonEnclosureTempSensorEnclosureName => '1.3.6.1.4.1.232.22.2.3.1.2.1.4', + cpqRackCommonEnclosureTempLocation => '1.3.6.1.4.1.232.22.2.3.1.2.1.5', + cpqRackCommonEnclosureTempCurrent => '1.3.6.1.4.1.232.22.2.3.1.2.1.6', + cpqRackCommonEnclosureTempThreshold => '1.3.6.1.4.1.232.22.2.3.1.2.1.7', + cpqRackCommonEnclosureTempCondition => '1.3.6.1.4.1.232.22.2.3.1.2.1.8', + cpqRackCommonEnclosureTempType => '1.3.6.1.4.1.232.22.2.3.1.2.1.9', + cpqRackCommonEnclosureTempConditionValue => { + 1 => 'other', + 2 => 'ok', + 3 => 'degraded', + 4 => 'failed', + }, + cpqRackCommonEnclosureTempTypeValue => { + 1 => 'other', + 5 => 'blowout', + 9 => 'caution', + 15 => 'critical', + }, + }; + # INDEX { cpqRackCommonEnclosureTempRack cpqRackCommonEnclosureTempChassis + # cpqRackCommonEnclosureTempSensorIndex } + foreach ($self->get_entries($oids, 'cpqRackCommonEnclosureTempEntry')) { + push(@{$self->{temperatures}}, + HP::BladeSystem::Component::CommonEnclosureSubsystem::TempSubsystem::Temp->new(%{$_})) if (($_->{cpqRackCommonEnclosureTempCurrent} != -1 && $_->{cpqRackCommonEnclosureTempThreshold} != -1) && ($_->{cpqRackCommonEnclosureTempThreshold} != 0)); + } + +} + + +sub check { + my $self = shift; + my $errorfound = 0; + if (scalar (@{$self->{temperatures}}) == 0) { + #$self->overall_check(); + } else { + foreach (@{$self->{temperatures}}) { + $_->check(); + } + } +} + +sub dump { + my $self = shift; + foreach (@{$self->{temperatures}}) { + $_->dump(); + } +} + + +package HP::BladeSystem::Component::CommonEnclosureSubsystem::TempSubsystem::Temp; +our @ISA = qw(HP::BladeSystem::Component::CommonEnclosureSubsystem::TempSubsystem); + +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}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + map { $self->{$_} = $params{$_} } grep /cpqRackCommonEnclosureTemp/, keys %params; + $self->{name} = $params{cpqRackCommonEnclosureTempRack}.':'. + $params{cpqRackCommonEnclosureTempChassis}.':'. + $params{cpqRackCommonEnclosureTempSensorIndex}; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('t', $self->{name}); + if ($self->{cpqRackCommonEnclosureTempCurrent} > $self->{cpqRackCommonEnclosureTempThreshold}) { + $self->add_info(sprintf "%s temperature too high (%d%s)", + $self->{cpqRackCommonEnclosureTempLocation}, + $self->{cpqRackCommonEnclosureTempCurrent}, + $self->{runtime}->{options}->{celsius} ? "C" : "F"); + $self->add_message(CRITICAL, $self->{info}); + } else { + $self->add_info(sprintf "%s temperature is %d%s (%d max)", + $self->{cpqRackCommonEnclosureTempLocation}, + $self->{cpqRackCommonEnclosureTempCurrent}, + $self->{runtime}->{options}->{celsius} ? "C" : "F", + $self->{cpqRackCommonEnclosureTempThreshold}); + } + if ($self->{runtime}->{options}->{perfdata} == 2) { + $self->{runtime}->{plugin}->add_perfdata( + label => sprintf('temp_%s', $self->{name}), + value => $self->{cpqRackCommonEnclosureTempCurrent}, + warning => $self->{cpqRackCommonEnclosureTempThreshold}, + critical => $self->{cpqRackCommonEnclosureTempThreshold} + ); + } elsif ($self->{runtime}->{options}->{perfdata} == 1) { + $self->{runtime}->{plugin}->add_perfdata( + label => sprintf('temp_%s_%s', $self->{name}, + $self->{cpqRackCommonEnclosureTempLocation}), + value => $self->{cpqRackCommonEnclosureTempCurrent}, + warning => $self->{cpqRackCommonEnclosureTempThreshold}, + critical => $self->{cpqRackCommonEnclosureTempThreshold} + ); + } + $self->add_extendedinfo(sprintf "temp_%s=%d", + $self->{name}, $self->{cpqRackCommonEnclosureTempCurrent}); + +} + + +sub dump { + my $self = shift; + printf "[TEMP_%s]\n", $self->{name}; + foreach (qw(cpqRackCommonEnclosureTempRack cpqRackCommonEnclosureTempChassis + cpqRackCommonEnclosureTempSensorIndex cpqRackCommonEnclosureTempSensorEnclosureName + cpqRackCommonEnclosureTempLocation + cpqRackCommonEnclosureTempCurrent cpqRackCommonEnclosureTempThreshold + cpqRackCommonEnclosureTempCondition cpqRackCommonEnclosureTempType)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "info: %s\n\n", $self->{info}; +} + +1; + diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/NetConnectorSubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/NetConnectorSubsystem.pm new file mode 100755 index 0000000..9fbd4d0 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/NetConnectorSubsystem.pm @@ -0,0 +1,134 @@ +package HP::BladeSystem::Component::NetConnectorSubsystem; +our @ISA = qw(HP::BladeSystem::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}, + net_connectors => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(); + return $self; +} + +sub init { + my $self = shift; + my $oids = { + cpqRackNetConnectorEntry => '1.3.6.1.4.1.232.22.2.6.1.1.1', + cpqRackNetConnectorRack => '1.3.6.1.4.1.232.22.2.6.1.1.1.1', + cpqRackNetConnectorChassis => '1.3.6.1.4.1.232.22.2.6.1.1.1.2', + cpqRackNetConnectorIndex => '1.3.6.1.4.1.232.22.2.6.1.1.1.3', + cpqRackNetConnectorEnclosureName => '1.3.6.1.4.1.232.22.2.6.1.1.1.4', + cpqRackNetConnectorName => '1.3.6.1.4.1.232.22.2.6.1.1.1.5', + cpqRackNetConnectorModel => '1.3.6.1.4.1.232.22.2.6.1.1.1.6', + cpqRackNetConnectorSerialNum => '1.3.6.1.4.1.232.22.2.6.1.1.1.7', + cpqRackNetConnectorPartNumber => '1.3.6.1.4.1.232.22.2.6.1.1.1.8', + cpqRackNetConnectorSparePartNumber => '1.3.6.1.4.1.232.22.2.6.1.1.1.9', + cpqRackNetConnectorFWRev => '1.3.6.1.4.1.232.22.2.6.1.1.1.10', + cpqRackNetConnectorType => '1.3.6.1.4.1.232.22.2.6.1.1.1.11', + cpqRackNetConnectorLocation => '1.3.6.1.4.1.232.22.2.6.1.1.1.12', + cpqRackNetConnectorPresent => '1.3.6.1.4.1.232.22.2.6.1.1.1.13', + cpqRackNetConnectorHasFuses => '1.3.6.1.4.1.232.22.2.6.1.1.1.14', + cpqRackNetConnectorEnclosureSerialNum => '1.3.6.1.4.1.232.22.2.6.1.1.1.15', + cpqRackNetConnectorTypeValue => { + 0 => 'other', # undefined + 1 => 'other', + 2 => 'active', + 3 => 'passive', + }, + cpqRackNetConnectorPresentValue => { + 1 => 'other', + 2 => 'absent', + 3 => 'present', + }, + cpqRackNetConnectorHasFusesValue => { + -1 => 'false', # wird geliefert, also vermute ich false + 1 => 'false', + 2 => 'true', + }, + }; + + + # INDEX { cpqRackNetConnectorRack, cpqRackNetConnectorChassis, cpqRackNetConnectorIndex } + # dreckada dreck, dreckada + foreach ($self->get_entries($oids, 'cpqRackNetConnectorEntry')) { + push(@{$self->{net_connectors}}, + HP::BladeSystem::Component::NetConnectorSubsystem::NetConnector->new(%{$_})); + } +} + +sub check { + my $self = shift; + foreach (@{$self->{net_connectors}}) { + $_->check() if $_->{cpqRackNetConnectorPresent} eq 'present' || + $self->{runtime}->{options}->{verbose} >= 3; # absent nur bei -vvv + } +} + +sub dump { + my $self = shift; + foreach (@{$self->{net_connectors}}) { + $_->dump() if $_->{cpqRackNetConnectorPresent} eq 'present' || + $self->{runtime}->{options}->{verbose} >= 3; # absent nur bei -vvv + } +} + + +package HP::BladeSystem::Component::NetConnectorSubsystem::NetConnector; +our @ISA = qw(HP::BladeSystem::Component::NetConnectorSubsystem); + +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}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + map { $self->{$_} = $params{$_} } grep /cpqRackNetConnector/, keys %params; + $self->{name} = $params{cpqRackNetConnectorRack}. + ':'.$params{cpqRackNetConnectorChassis}. + ':'.$params{cpqRackNetConnectorIndex}; + $self->{serfw} = sprintf "Ser: %s, FW: %s", $self->{cpqRackNetConnectorSerialNum}, $self->{cpqRackNetConnectorFWRev}; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('nc', $self->{name}); + my $info = sprintf 'net connector %s is %s, model is %s (%s)', + $self->{name}.($self->{cpqRackNetConnectorName} ? ' \''.$self->{cpqRackNetConnectorName}.'\'' : ''), + $self->{cpqRackNetConnectorPresent}, $self->{cpqRackNetConnectorModel}, $self->{serfw}; + $self->add_info($info); + # hat weder status noch condition, vielleicht spaeter mal + $info .= sprintf " (SparePartNum %s)", $self->{cpqRackNetConnectorSparePartNumber}; +} + +sub dump { + my $self = shift; + printf "[NET_CONNECTOR_%s]\n", $self->{cpqRackNetConnectorName}; + foreach (qw(cpqRackNetConnectorRack cpqRackNetConnectorChassis cpqRackNetConnectorIndex cpqRackNetConnectorEnclosureName cpqRackNetConnectorName cpqRackNetConnectorModel cpqRackNetConnectorSerialNum cpqRackNetConnectorPartNumber cpqRackNetConnectorSparePartNumber cpqRackNetConnectorFWRev cpqRackNetConnectorType cpqRackNetConnectorLocation cpqRackNetConnectorPresent cpqRackNetConnectorHasFuses cpqRackNetConnectorEnclosureSerialNum)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/PowerEnclosureSubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/PowerEnclosureSubsystem.pm new file mode 100755 index 0000000..82445d3 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/PowerEnclosureSubsystem.pm @@ -0,0 +1,136 @@ +package HP::BladeSystem::Component::PowerEnclosureSubsystem; +our @ISA = qw(HP::BladeSystem::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}, + power_enclosures => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(); + return $self; +} + +sub init { + my $self = shift; + +# cpqRackPowerEnclosureTable + my $oids = { + cpqRackPowerEnclosureEntry => '1.3.6.1.4.1.232.22.2.3.3.1.1', + cpqRackPowerEnclosureRack => '1.3.6.1.4.1.232.22.2.3.3.1.1.1', + cpqRackPowerEnclosureIndex => '1.3.6.1.4.1.232.22.2.3.3.1.1.2', + cpqRackPowerEnclosureName => '1.3.6.1.4.1.232.22.2.3.3.1.1.3', + cpqRackPowerEnclosureMgmgtBoardSerialNum => '1.3.6.1.4.1.232.22.2.3.3.1.1.4', + cpqRackPowerEnclosureRedundant => '1.3.6.1.4.1.232.22.2.3.3.1.1.5', + cpqRackPowerEnclosureLoadBalanced => '1.3.6.1.4.1.232.22.2.3.3.1.1.6', + cpqRackPowerEnclosureInputPwrType => '1.3.6.1.4.1.232.22.2.3.3.1.1.7', + cpqRackPowerEnclosurePwrFeedMax => '1.3.6.1.4.1.232.22.2.3.3.1.1.8', + cpqRackPowerEnclosureCondition => '1.3.6.1.4.1.232.22.2.3.3.1.1.9', + cpqRackPowerEnclosureRedundantValue => { + 1 => 'other', + 2 => 'notRedundant', + 3 => 'redundant', + }, + cpqRackPowerEnclosureLoadBalancedValue => { + 0 => 'aechz', + 1 => 'other', + 2 => 'notLoadBalanced', + 3 => 'loadBalanced', + }, + cpqRackPowerEnclosureInputPwrTypeValue => { + 1 => 'other', + 2 => 'singlePhase', + 3 => 'threePhase', + 4 => 'directCurrent', + }, + cpqRackPowerEnclosureConditionValue => { + 1 => 'other', + 2 => 'ok', + 3 => 'degraded', + }, + }; + + + # INDEX { cpqRackPowerEnclosureRack, cpqRackPowerEnclosureIndex } + # dreckada dreck, dreckada + foreach ($self->get_entries($oids, 'cpqRackPowerEnclosureEntry')) { + push(@{$self->{power_enclosures}}, + HP::BladeSystem::Component::PowerEnclosureSubsystem::PowerEnclosure->new(%{$_})); + } +} + +sub check { + my $self = shift; + foreach (@{$self->{power_enclosures}}) { + $_->check(); + } +} + +sub dump { + my $self = shift; + foreach (@{$self->{power_enclosures}}) { + $_->dump(); + } +} + + +package HP::BladeSystem::Component::PowerEnclosureSubsystem::PowerEnclosure; +our @ISA = qw(HP::BladeSystem::Component::PowerEnclosureSubsystem); + +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}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + map { $self->{$_} = $params{$_} } grep /cpqRackPowerEnclosure/, keys %params; + $self->{name} = $self->{cpqRackPowerEnclosureRack}.':'.$self->{cpqRackPowerEnclosureIndex}; + bless $self, $class; + $self->init(); + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('pe', $self->{name}); + my $info = sprintf 'power enclosure %s \'%s\' condition is %s', + $self->{name}, $self->{cpqRackPowerEnclosureName}, $self->{cpqRackPowerEnclosureCondition}; + $self->add_info($info); + if ($self->{cpqRackPowerEnclosureCondition} eq 'degraded') { + $self->add_message(WARNING, $info); + } +} + +sub dump { + my $self = shift; + printf "[POWER_ENCLOSURE_%s]\n", $self->{cpqRackPowerEnclosureName}; + foreach (qw(cpqRackPowerEnclosureRack cpqRackPowerEnclosureIndex + cpqRackPowerEnclosureName cpqRackPowerEnclosureMgmgtBoardSerialNum + cpqRackPowerEnclosureRedundant cpqRackPowerEnclosureLoadBalanced + cpqRackPowerEnclosureInputPwrType cpqRackPowerEnclosurePwrFeedMax + cpqRackPowerEnclosureCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/PowerSupplySubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/PowerSupplySubsystem.pm new file mode 100755 index 0000000..261ce19 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/PowerSupplySubsystem.pm @@ -0,0 +1,238 @@ +package HP::BladeSystem::Component::PowerSupplySubsystem; +our @ISA = qw(HP::BladeSystem::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}, + power_supplies => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(); + return $self; +} + +sub init { + my $self = shift; + my $oids = { + cpqRackPowerSupplyEntry => '1.3.6.1.4.1.232.22.2.5.1.1.1', + cpqRackPowerSupplyRack => '1.3.6.1.4.1.232.22.2.5.1.1.1.1', + cpqRackPowerSupplyChassis => '1.3.6.1.4.1.232.22.2.5.1.1.1.2', + cpqRackPowerSupplyIndex => '1.3.6.1.4.1.232.22.2.5.1.1.1.3', + cpqRackPowerSupplyEnclosureName => '1.3.6.1.4.1.232.22.2.5.1.1.1.4', + cpqRackPowerSupplySerialNum => '1.3.6.1.4.1.232.22.2.5.1.1.1.5', + cpqRackPowerSupplySparePartNumber => '1.3.6.1.4.1.232.22.2.5.1.1.1.7', + cpqRackPowerSupplyFWRev => '1.3.6.1.4.1.232.22.2.5.1.1.1.8', + cpqRackPowerSupplyMaxPwrOutput => '1.3.6.1.4.1.232.22.2.5.1.1.1.9', + cpqRackPowerSupplyCurPwrOutput => '1.3.6.1.4.1.232.22.2.5.1.1.1.10', + cpqRackPowerSupplyIntakeTemp => '1.3.6.1.4.1.232.22.2.5.1.1.1.12', + cpqRackPowerSupplyExhaustTemp => '1.3.6.1.4.1.232.22.2.5.1.1.1.13', + cpqRackPowerSupplyStatus => '1.3.6.1.4.1.232.22.2.5.1.1.1.14', + cpqRackPowerSupplySupplyInputLineStatus => '1.3.6.1.4.1.232.22.2.5.1.1.1.15', + cpqRackPowerSupplyPresent => '1.3.6.1.4.1.232.22.2.5.1.1.1.16', + cpqRackPowerSupplyCondition => '1.3.6.1.4.1.232.22.2.5.1.1.1.17', + cpqRackPowerSupplySupplyInputLineStatusValue => { + 1 => 'noError', + 2 => 'lineOverVoltage', + 3 => 'lineUnderVoltage', + 4 => 'lineHit', + 5 => 'brownOut', + 6 => 'linePowerLoss', + }, + cpqRackPowerSupplyStatusValue => { + 1 => 'noError', + 2 => 'generalFailure', + 3 => 'bistFailure', + 4 => 'fanFailure', + 5 => 'tempFailure', + 6 => 'interlockOpen', + 7 => 'epromFailed', + 8 => 'vrefFailed', + 9 => 'dacFailed', + 10 => 'ramTestFailed', + 11 => 'voltageChannelFailed', + 12 => 'orringdiodeFailed', + 13 => 'brownOut', + 14 => 'giveupOnStartup', + 15 => 'nvramInvalid', + 16 => 'calibrationTableInvalid', + }, + cpqRackPowerSupplyPresentValue => { + 1 => 'other', + 2 => 'absent', + 3 => 'present', + }, + cpqRackPowerSupplyConditionValue => { + 1 => 'other', + 2 => 'ok', + 3 => 'degraded', + 4 => 'failed', + }, + }; + + + # INDEX { cpqRackPowerSupplyRack, cpqRackPowerSupplyChassis, cpqRackPowerSupplyIndex } + foreach ($self->get_entries($oids, 'cpqRackPowerSupplyEntry')) { + push(@{$self->{power_supplies}}, + HP::BladeSystem::Component::PowerSupplySubsystem::PowerSupply->new(%{$_})); + } +} + +sub check { + my $self = shift; + my $total_current_watt = 0; + my $total_max_watt = 0; + my $total_in_temp = 0; + my $total_out_temp = 0; + my $num_ps = 0; + foreach (@{$self->{power_supplies}}) { + $_->check() if $_->{cpqRackPowerSupplyPresent} eq 'present' || + $self->{runtime}->{options}->{verbose} >= 3; # absent nur bei -vvv + if ($_->{cpqRackPowerSupplyPresent} eq 'present') { + $total_max_watt += $_->{cpqRackPowerSupplyMaxPwrOutput}; + $total_current_watt += $_->{cpqRackPowerSupplyCurPwrOutput}; + $total_in_temp += $_->{cpqRackPowerSupplyIntakeTemp} + if $_->{cpqRackPowerSupplyIntakeTemp} != -1; + $total_out_temp += $_->{cpqRackPowerSupplyExhaustTemp} + if $_->{cpqRackPowerSupplyExhaustTemp} != -1; + $num_ps++; + } + } + $self->{runtime}->{plugin}->add_perfdata( + label => 'watt_total', + value => $total_current_watt, + warning => $total_max_watt, + critical => $total_max_watt, + ); + #$self->{runtime}->{plugin}->add_perfdata( + # label => 'watt_total_pct', + # value => ($total_current_watt == 0 ? 0 : + # sprintf("%.2f", + # ($total_current_watt / $total_max_watt * 100))), + # warning => 100, + # critical => 100, + # uom => '%', + #); + if ($total_in_temp) { + $self->{runtime}->{plugin}->add_perfdata( + label => 'in_temp', + value => $total_in_temp / $num_ps, + ); + } + if ($total_out_temp) { + $self->{runtime}->{plugin}->add_perfdata( + label => 'out_temp', + value => $total_out_temp / $num_ps, + ); + } +} + +sub dump { + my $self = shift; + foreach (@{$self->{power_supplies}}) { + $_->dump() if $_->{cpqRackPowerSupplyPresent} eq 'present' || + $self->{runtime}->{options}->{verbose} >= 3; # absent nur bei -vvv + } +} + + +package HP::BladeSystem::Component::PowerSupplySubsystem::PowerSupply; +our @ISA = qw(HP::BladeSystem::Component::PowerSupplySubsystem); + +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}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + map { $self->{$_} = $params{$_} } grep /cpqRackPowerSupply/, keys %params; + $self->{name} = $params{cpqRackPowerSupplyRack}. + ':'.$params{cpqRackPowerSupplyChassis}. + ':'.$params{cpqRackPowerSupplyIndex}; + $self->{serfw} = sprintf "Ser: %s, FW: %s", $self->{cpqRackPowerSupplySerialNum}, $self->{cpqRackPowerSupplyFWRev}; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('ps', $self->{name}); + my $info = sprintf 'power supply %s is %s, condition is %s (%s)', + $self->{name}, $self->{cpqRackPowerSupplyPresent}, + $self->{cpqRackPowerSupplyCondition}, $self->{serfw}; + $self->add_info($info); + if ($self->{cpqRackPowerSupplyPresent} eq 'present') { + if ($self->{cpqRackPowerSupplyCondition} eq 'degraded') { + $info .= sprintf " (SparePartNum %s)", $self->{cpqRackPowerSupplySparePartNumber}; + $self->add_message(WARNING, $info); + $self->add_info(sprintf 'power supply %s status is %s, inp.line status is %s', + $self->{name}, $self->{cpqRackPowerSupplyStatus}, + $self->{cpqRackPowerSupplySupplyInputLineStatus}); + } elsif ($self->{cpqRackPowerSupplyCondition} eq 'failed') { + $info .= sprintf " (SparePartNum %s)", $self->{cpqRackPowerSupplySparePartNumber}; + $self->add_message(CRITICAL, $info); + $self->add_info(sprintf 'power supply %s status is %s, inp.line status is %s', + $self->{name}, $self->{cpqRackPowerSupplyStatus}, + $self->{cpqRackPowerSupplySupplyInputLineStatus}); + } + if ($self->{runtime}->{options}->{perfdata} != 2) { + $self->{runtime}->{plugin}->add_perfdata( + label => sprintf('watt_%s', $self->{name}), + value => $self->{cpqRackPowerSupplyCurPwrOutput}, + warning => $self->{cpqRackPowerSupplyMaxPwrOutput}, + critical => $self->{cpqRackPowerSupplyMaxPwrOutput} + ); + #$self->{runtime}->{plugin}->add_perfdata( + # label => sprintf('watt_pct_%s', $self->{name}), + # value => ($self->{cpqRackPowerSupplyCurPwrOutput} == 0 ? 0 : + # sprintf ("%.2f", + # ($self->{cpqRackPowerSupplyCurPwrOutput} / + # $self->{cpqRackPowerSupplyMaxPwrOutput} * 100))), + # warning => 100, + # critical => 100, + # uom => '%', + #); + if ($self->{cpqRackPowerSupplyIntakeTemp} != -1) { + $self->{runtime}->{plugin}->add_perfdata( + label => sprintf('in_temp_%s', $self->{name}), + value => $self->{cpqRackPowerSupplyIntakeTemp}, + ); + } + if ($self->{cpqRackPowerSupplyExhaustTemp} != -1) { + $self->{runtime}->{plugin}->add_perfdata( + label => sprintf('out_temp_%s', $self->{name}), + value => $self->{cpqRackPowerSupplyExhaustTemp}, + ); + } + } + } +} + +sub dump { + my $self = shift; + printf "[POWER_SUPPLY%s]\n", $self->{name}; + foreach (qw(cpqRackPowerSupplyRack cpqRackPowerSupplyChassis cpqRackPowerSupplyIndex cpqRackPowerSupplyEnclosureName cpqRackPowerSupplySerialNum cpqRackPowerSupplySparePartNumber cpqRackPowerSupplyFWRev cpqRackPowerSupplyMaxPwrOutput cpqRackPowerSupplyCurPwrOutput cpqRackPowerSupplyIntakeTemp cpqRackPowerSupplyExhaustTemp cpqRackPowerSupplyStatus cpqRackPowerSupplySupplyInputLineStatus cpqRackPowerSupplyPresent cpqRackPowerSupplyCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/ServerBladeSubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/ServerBladeSubsystem.pm new file mode 100755 index 0000000..2b41f7c --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/BladeSystem/Component/ServerBladeSubsystem.pm @@ -0,0 +1,158 @@ +package HP::BladeSystem::Component::ServerBladeSubsystem; +our @ISA = qw(HP::BladeSystem::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}, + server_blades => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(); + return $self; +} + +sub init { + my $self = shift; + my $oids = { + cpqRackServerBladeEntry => '1.3.6.1.4.1.232.22.2.4.1.1.1', + cpqRackServerBladeRack => '1.3.6.1.4.1.232.22.2.4.1.1.1.1', + cpqRackServerBladeChassis => '1.3.6.1.4.1.232.22.2.4.1.1.1.2', + cpqRackServerBladeIndex => '1.3.6.1.4.1.232.22.2.4.1.1.1.3', + cpqRackServerBladeName => '1.3.6.1.4.1.232.22.2.4.1.1.1.4', + cpqRackServerBladeEnclosureName => '1.3.6.1.4.1.232.22.2.4.1.1.1.5', + cpqRackServerBladePartNumber => '1.3.6.1.4.1.232.22.2.4.1.1.1.6', + cpqRackServerBladeSparePartNumber => '1.3.6.1.4.1.232.22.2.4.1.1.1.7', + cpqRackServerBladePosition => '1.3.6.1.4.1.232.22.2.4.1.1.1.8', + cpqRackServerBladeHeight => '1.3.6.1.4.1.232.22.2.4.1.1.1.9', + cpqRackServerBladeWidth => '1.3.6.1.4.1.232.22.2.4.1.1.1.10', + cpqRackServerBladeDepth => '1.3.6.1.4.1.232.22.2.4.1.1.1.11', + cpqRackServerBladePresent => '1.3.6.1.4.1.232.22.2.4.1.1.1.12', + cpqRackServerBladeHasFuses => '1.3.6.1.4.1.232.22.2.4.1.1.1.13', + cpqRackServerBladeEnclosureSerialNum => '1.3.6.1.4.1.232.22.2.4.1.1.1.14', + cpqRackServerBladeSlotsUsed => '1.3.6.1.4.1.232.22.2.4.1.1.1.15', + cpqRackServerBladeStatus => '1.3.6.1.4.1.232.22.2.4.1.1.1.21', + cpqRackServerBladeDiagnosticString => '1.3.6.1.4.1.232.22.2.4.1.1.1.24', + cpqRackServerBladePowered => '1.3.6.1.4.1.232.22.2.4.1.1.1.25', + cpqRackServerBladePOSTStatus => '1.3.6.1.4.1.232.22.2.4.1.1.1.35', + cpqRackServerBladePresentValue => { + 1 => 'other', + 2 => 'absent', + 3 => 'present', + }, + cpqRackServerBladeStatusValue => { + 1 => 'other', + 2 => 'ok', + 3 => 'degraded', + 4 => 'failed', + }, + cpqRackServerBladePoweredValue => { + 0 => 'aechz', + 1 => 'other', + 2 => 'on', + 3 => 'off', + 4 => 'powerStagedOff', + 5 => 'reboot', + }, + cpqRackServerBladePOSTStatusValue => { + 1 => 'other', + 2 => 'started', + 3 => 'completed', + 4 => 'failed', + }, + }; + + + # INDEX { cpqRackServerBladeRack, cpqRackServerBladeChassis, cpqRackServerBladeIndex } + # dreckada dreck, dreckada + foreach ($self->get_entries($oids, 'cpqRackServerBladeEntry')) { + push(@{$self->{server_blades}}, + HP::BladeSystem::Component::ServerBladeSubsystem::ServerBlade->new(%{$_})); + } +} + +sub check { + my $self = shift; + foreach (@{$self->{server_blades}}) { + $_->check() if $_->{cpqRackServerBladePresent} eq 'present' || + $self->{runtime}->{options}->{verbose} >= 3; # absent blades nur bei -vvv + } +} + +sub dump { + my $self = shift; + foreach (@{$self->{server_blades}}) { + $_->dump() if $_->{cpqRackServerBladePresent} eq 'present' || + $self->{runtime}->{options}->{verbose} >= 3; # absent blades nur bei -vvv + } +} + + +package HP::BladeSystem::Component::ServerBladeSubsystem::ServerBlade; +our @ISA = qw(HP::BladeSystem::Component::ServerBladeSubsystem); + +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}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + map { $self->{$_} = $params{$_} } grep /cpqRackServerBlade/, keys %params; + $self->{cpqRackServerBladeDiagnosticString} ||= ''; + $self->{name} = $self->{cpqRackServerBladeRack}. + ':'.$self->{cpqRackServerBladeChassis}. + ':'.$self->{cpqRackServerBladeIndex}; + bless $self, $class; + $self->init(); +#printf "%s\n", Data::Dumper::Dumper(\%params); + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('sb', $self->{name}); + my $info = sprintf 'server blade %s \'%s\' is %s, status is %s, powered is %s', + $self->{name}, $self->{cpqRackServerBladeName}, $self->{cpqRackServerBladePresent}, + $self->{cpqRackServerBladeStatus}, $self->{cpqRackServerBladePowered}; + $self->add_info($info); + if ($self->{cpqRackServerBladePowered} eq 'on') { + if ($self->{cpqRackServerBladeStatus} eq 'degraded') { + $self->add_message(WARNING, sprintf 'server blade %s diag is \'%s\', post status is %s', + $self->{cpqRackServerBladeName}, $self->{cpqRackServerBladeDiagnosticString}, + $self->{cpqRackServerBladePOSTStatus}); + } elsif ($self->{cpqRackServerBladeStatus} eq 'failed') { + $self->add_message(CRITICAL, sprintf 'server blade %s diag is \'%s\', post status is %s', + $self->{cpqRackServerBladeName}, $self->{cpqRackServerBladeDiagnosticString}, + $self->{cpqRackServerBladePOSTStatus}); + } + } +} + +sub dump { + my $self = shift; + printf "[SERVER_BLADE_%s]\n", $self->{cpqRackServerBladeName}; + foreach (qw(cpqRackServerBladeRack cpqRackServerBladeChassis cpqRackServerBladeIndex cpqRackServerBladeName cpqRackServerBladeEnclosureName cpqRackServerBladePartNumber cpqRackServerBladeSparePartNumber cpqRackServerBladePosition cpqRackServerBladeHeight cpqRackServerBladeWidth cpqRackServerBladeDepth cpqRackServerBladePresent cpqRackServerBladeHasFuses cpqRackServerBladeEnclosureSerialNum cpqRackServerBladeSlotsUsed cpqRackServerBladeStatus cpqRackServerBladeDiagnosticString cpqRackServerBladePowered cpqRackServerBladePOSTStatus)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant.pm new file mode 100755 index 0000000..6b0f1ac --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant.pm @@ -0,0 +1,771 @@ +package HP::Proliant; + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; +use Data::Dumper; + +our @ISA = qw(HP::Server); + +sub init { + my $self = shift; + $self->{components} = { + powersupply_subsystem => undef, + fan_subsystem => undef, + temperature_subsystem => undef, + cpu_subsystem => undef, + memory_subsystem => undef, + nic_subsystem => undef, + disk_subsystem => undef, + asr_subsystem => undef, + event_subsystem => undef, + battery_subsystem => undef, + }; + $self->{serial} = 'unknown'; + $self->{product} = 'unknown'; + $self->{romversion} = 'unknown'; + $self->collect(); + if (! $self->{runtime}->{plugin}->check_messages() && + ! exists $self->{noinst_hint}) { + $self->set_serial(); + $self->check_for_buggy_firmware(); + $self->analyze_cpus(); + $self->analyze_powersupplies(); + $self->analyze_fan_subsystem(); + $self->analyze_temperatures(); + $self->analyze_memory_subsystem(); + $self->analyze_nic_subsystem(); + $self->analyze_disk_subsystem(); + $self->analyze_asr_subsystem(); + $self->analyze_event_subsystem(); + $self->analyze_battery_subsystem(); + $self->auto_blacklist(); + $self->check_cpus(); + $self->check_powersupplies(); + $self->check_fan_subsystem(); + $self->check_temperatures(); + $self->check_memory_subsystem(); + $self->check_nic_subsystem(); + $self->check_disk_subsystem(); + $self->check_asr_subsystem(); + $self->check_event_subsystem(); + $self->check_battery_subsystem(); + } +} + +sub identify { + my $self = shift; + foreach (qw(product serial romversion)) { + $self->{$_} =~ s/^\s+//; + $self->{$_} =~ s/\s+$//; + } + return sprintf "System: '%s', S/N: '%s', ROM: '%s'", + $self->{product}, $self->{serial}, $self->{romversion}; +} + +sub check_for_buggy_firmware { + my $self = shift; + my @buggyfirmwares = ( + "P24 12/11/2001", + "P24 11/15/2002", + "D13 06/03/2003", + "D13 09/15/2004", + "P20 12/17/2002" + ); + if ($self->{romversion} =~ /^\w+ \d+\/\d+\/\d+$/) { + $self->{runtime}->{options}->{buggy_firmware} = + grep /^$self->{romversion}/, @buggyfirmwares; + } else { + # nicht parsbarer schrott in cpqSeSysRomVer, gesehen bei Gen9 + $self->{runtime}->{options}->{buggy_firmware} = undef; + } +} + +sub dump { + my $self = shift; + printf STDERR "serial %s\n", $self->{serial}; + printf STDERR "product %s\n", $self->{product}; + printf STDERR "romversion %s\n", $self->{romversion}; + printf STDERR "%s\n", Data::Dumper::Dumper($self->{components}); +} + +sub analyze_powersupplies { + my $self = shift; + $self->{components}->{powersupply_subsystem} = + HP::Proliant::Component::PowersupplySubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_fan_subsystem { + my $self = shift; + $self->{components}->{fan_subsystem} = + HP::Proliant::Component::FanSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_temperatures { + my $self = shift; + $self->{components}->{temperature_subsystem} = + HP::Proliant::Component::TemperatureSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_cpus { + my $self = shift; + $self->{components}->{cpu_subsystem} = + HP::Proliant::Component::CpuSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_memory_subsystem { + my $self = shift; + $self->{components}->{memory_subsystem} = + HP::Proliant::Component::MemorySubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_nic_subsystem { + my $self = shift; + return if $self->{method} ne "snmp"; + $self->{components}->{nic_subsystem} = + HP::Proliant::Component::NicSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_disk_subsystem { + my $self = shift; + $self->{components}->{disk_subsystem} = + HP::Proliant::Component::DiskSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_asr_subsystem { + my $self = shift; + $self->{components}->{asr_subsystem} = + HP::Proliant::Component::AsrSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_event_subsystem { + my $self = shift; + $self->{components}->{event_subsystem} = + HP::Proliant::Component::EventSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_battery_subsystem { + my $self = shift; + $self->{components}->{battery_subsystem} = + HP::Proliant::Component::BatterySubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub check_cpus { + my $self = shift; + $self->{components}->{cpu_subsystem}->check(); + $self->{components}->{cpu_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; +} + +sub check_powersupplies { + my $self = shift; + $self->{components}->{powersupply_subsystem}->check(); + $self->{components}->{powersupply_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; +} + +sub check_fan_subsystem { + my $self = shift; + $self->{components}->{fan_subsystem}->check(); + $self->{components}->{fan_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; +} + +sub check_temperatures { + my $self = shift; + $self->{components}->{temperature_subsystem}->check(); + $self->{components}->{temperature_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; +} + +sub check_memory_subsystem { + my $self = shift; + $self->{components}->{memory_subsystem}->check(); + $self->{components}->{memory_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; +} + +sub check_nic_subsystem { + my $self = shift; + return if $self->{method} ne "snmp"; + if ($self->{runtime}->{plugin}->{opts}->get('eval-nics')) { + $self->{components}->{nic_subsystem}->check(); + $self->{components}->{nic_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; + } +} +sub check_disk_subsystem { + my $self = shift; + $self->{components}->{disk_subsystem}->check(); + $self->{components}->{disk_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; + # zum anhaengen an die normale ausgabe... da: 2 logical drives, 5 physical... + $self->{runtime}->{plugin}->add_message(OK, + $self->{components}->{disk_subsystem}->{summary}) + if $self->{components}->{disk_subsystem}->{summary}; +} + +sub check_asr_subsystem { + my $self = shift; + $self->{components}->{asr_subsystem}->check(); + $self->{components}->{asr_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; +} + +sub check_event_subsystem { + my $self = shift; + $self->{components}->{event_subsystem}->check(); + $self->{components}->{event_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; +} + +sub check_battery_subsystem { + my $self = shift; + $self->{components}->{battery_subsystem}->check(); + $self->{components}->{battery_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; +} + +sub auto_blacklist() { + my $self = shift; + if ($self->{product} =~ /380 g6/) { + # http://bizsupport1.austin.hp.com/bc/docs/support/SupportManual/c01723408/c01723408.pdf seite 19 + if ($self->{components}->{cpu_subsystem}->num_cpus() == 1) { + $self->add_blacklist('ff/f:5,6'); + } + } elsif ($self->{product} =~ /380 g6/) { + # http://bizsupport1.austin.hp.com/bc/docs/support/SupportManual/c01704762/c01704762.pdf Fan 2 is only required when processor 2 is installed in the server. + } +} + + +package HP::Proliant::CLI; + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +our @ISA = qw(HP::Proliant); + +sub collect { + my $self = shift; + my $hpasmcli = undef; + if (($self->{runtime}->{plugin}->opts->hpasmcli) && + (-f $self->{runtime}->{plugin}->opts->hpasmcli) && + (! -x $self->{runtime}->{plugin}->opts->hpasmcli)) { + no strict 'refs'; + open(BIRK, $self->{runtime}->{plugin}->opts->hpasmcli); + # all output in one file prefixed with server|powersupply|fans|temp|dimm + while(<BIRK>) { + chomp; + $self->{rawdata} .= $_."\n"; + } + close BIRK; + # If you run this script and redirect it's output to a file + # you can use it for testing purposes with + # --hpasmcli <output> + # It must not be executable. (chmod 644) + my $diag = <<'EOEO'; + hpasmcli=$(which hpasmcli) + hpacucli=$(which hpacucli) + for i in server powersupply fans temp dimm + do + $hpasmcli -s "show $i" | while read line + do + printf "%s %s\n" $i "$line" + done + done + if [ -x "$hpacucli" ]; then + for i in config status + do + $hpacucli ctrl all show $i | while read line + do + printf "%s %s\n" $i "$line" + done + done + fi +EOEO + } else { + #die "exec hpasmcli"; + # alles einsammeln und in rawdata stecken + my $hpasmcli = undef; + $hpasmcli = $self->{runtime}->{plugin}->opts->hpasmcli ? + $self->{runtime}->{plugin}->opts->hpasmcli : '/sbin/hpasmcli'; +# check if this exists at all +# descend the directory + if ($self->{runtime}->{plugin}->opts->hpasmcli && + -e $self->{runtime}->{plugin}->opts->hpasmcli) { + $hpasmcli = $self->{runtime}->{plugin}->opts->hpasmcli; + } elsif (-e '/sbin/hpasmcli') { + $hpasmcli = '/sbin/hpasmcli'; + } else { + $hpasmcli = undef; + } + if ($hpasmcli) { + if ($< != 0) { + close STDIN; + $hpasmcli = "sudo -S ".$hpasmcli; + } + $self->trace(2, sprintf "calling %s\n", $hpasmcli); + $self->check_daemon(); + if (! $self->{runtime}->{plugin}->check_messages()) { + $self->check_hpasm_client($hpasmcli); + if (! $self->{runtime}->{plugin}->check_messages()) { + foreach my $component (qw(server fans temp dimm powersupply iml)) { + if (open HPASMCLI, "$hpasmcli -s \"show $component\" </dev/null |") { + my @output = <HPASMCLI>; + close HPASMCLI; + $self->{rawdata} .= join("\n", map { + $component.' '.$_; + } @output); + } + } + if ($self->{runtime}->{options}->{hpacucli}) { + #1 oder 0. pfad selber finden + my $hpacucli = undef; + if (-e '/usr/sbin/hpssacli') { + $hpacucli = '/usr/sbin/hpssacli'; + } elsif (-e '/usr/local/sbin/hpssacli') { + $hpacucli = '/usr/local/sbin/hpssacli'; + } elsif (-e '/usr/sbin/hpacucli') { + $hpacucli = '/usr/sbin/hpacucli'; + } elsif (-e '/usr/local/sbin/hpacucli') { + $hpacucli = '/usr/local/sbin/hpacucli'; + } elsif (-e '/usr/sbin/hpssacli') { + $hpacucli = '/usr/sbin/hpssacli'; + } elsif (-e '/usr/local/sbin/hpssacli') { + $hpacucli = '/usr/local/sbin/hpssacli'; + } else { + $hpacucli = $hpasmcli; + $hpacucli =~ s/^sudo\s*//; + $hpacucli =~ s/hpasmcli/hpacucli/; + $hpacucli = -e $hpacucli ? $hpacucli : undef; + if (! $hpacucli) { + $hpacucli = $hpasmcli; + $hpacucli =~ s/^sudo\s*//; + $hpacucli =~ s/hpasmcli/hpssacli/; + $hpacucli = -e $hpacucli ? $hpacucli : undef; + } + } + if ($hpacucli) { + if ($< != 0) { + close STDIN; + $hpacucli = "sudo -S ".$hpacucli; + } + $self->trace(2, sprintf "calling %s\n", $hpacucli); + $self->check_hpacu_client($hpacucli); + if (! $self->{runtime}->{plugin}->check_messages()) { + if (open HPACUCLI, "$hpacucli ctrl all show status 2>&1|") { + my @output = <HPACUCLI>; + close HPACUCLI; + $self->{rawdata} .= join("\n", map { + 'status '.$_; + } @output); + } + if (open HPACUCLI, "$hpacucli ctrl all show config 2>&1|") { + my @output = <HPACUCLI>; + close HPACUCLI; + $self->{rawdata} .= join("\n", map { + 'config '.$_; + } @output); + if (grep /Syntax error at "config"/, @output) { + # older version of hpacucli CLI 7.50.18.0 + foreach my $slot (0..10) { + if (open HPACUCLI, "$hpacucli ctrl slot=$slot logicaldrive all show 2>&1|") { + my @output = <HPACUCLI>; + close HPACUCLI; + $self->{rawdata} .= join("\n", map { + 'config '.$_; + } @output); + } + if (open HPACUCLI, "$hpacucli ctrl slot=$slot physicaldrive all show 2>&1|") { + my @output = <HPACUCLI>; + close HPACUCLI; + $self->{rawdata} .= join("\n", map { + 'config '.$_; + } @output); + } + } + } + } + } elsif ($self->{runtime}->{options}->{hpacucli} == 2) { + # we probably don't have sudo-privileges, but we were compiled with + # --enable-hpacucli=maybe + # so we cover it up in silence + $self->remove_message(UNKNOWN); + $self->trace(2, sprintf "calling %s seems to have failed, but nobody cares\n", $hpacucli); + } + } else { + if ($self->{runtime}->{options}->{noinstlevel} eq 'ok') { + $self->add_message(OK, + 'hpacucli is not installed. let\'s hope the best...'); + } else { + $self->add_message( + uc $self->{runtime}->{options}->{noinstlevel}, + 'hpacucli is not installed.'); + } + } + } + } + } + } else { + if ($self->{runtime}->{options}->{noinstlevel} eq 'ok') { + $self->add_message(OK, + 'hpasm is not installed, i can only guess'); + $self->{noinst_hint} = 1; + } else { + $self->add_message( + uc $self->{runtime}->{options}->{noinstlevel}, + 'hpasmcli is not installed.'); + } + } + } +} + + +sub check_daemon { + my $self = shift; + my $multiproc_os_signatures_files = { + '/etc/SuSE-release' => 'VERSION\s*=\s*8', + '/etc/trustix-release' => '.*', + '/etc/redhat-release' => '.*Pensacola.*', + '/etc/debian_version' => '3\.1', + '/etc/issue' => '.*Kernel 2\.4\.9-vmnix2.*', # VMware ESX Server 2.5.4 + }; + if (open PS, "/bin/ps -e -ocmd|") { + my $numprocs = 0; + my $numcliprocs = 0; + my @procs = <PS>; + close PS; + $numprocs = grep /hpasm.*d$/, map { (split /\s+/, $_)[0] } @procs; + $numcliprocs = grep /hpasmcli/, grep !/check_hpasm/, @procs; + if (! $numprocs ) { + $self->add_message(CRITICAL, 'hpasmd needs to be restarted'); + } elsif ($numprocs > 1) { + my $known = 0; + foreach my $osfile (keys %{$multiproc_os_signatures_files}) { + if (-f $osfile) { + open OSSIG, $osfile; + if (grep /$multiproc_os_signatures_files->{$osfile}/, <OSSIG>) { + $known = 1; + } + close OSSIG; + } + } + if (! $known) { + $self->add_message(UNKNOWN, 'multiple hpasmd procs'); + } + } + if ($numcliprocs == 1) { + $self->add_message(UNKNOWN, 'another hpasmcli is running'); + } elsif ($numcliprocs > 1) { + $self->add_message(UNKNOWN, 'hanging hpasmcli processes'); + } + } +} + +sub check_hpasm_client { + my $self = shift; + my $hpasmcli = shift; + if (open HPASMCLI, "$hpasmcli -s help 2>&1 |") { + my @output = <HPASMCLI>; + close HPASMCLI; + if (grep /Could not communicate with hpasmd/, @output) { + $self->add_message(CRITICAL, 'hpasmd needs to be restarted'); + } elsif (grep /(asswor[dt]:)|(You must be root)/, @output) { + $self->add_message(UNKNOWN, + sprintf "insufficient rights to call %s", $hpasmcli); + } elsif (grep /must have a tty/, @output) { + $self->add_message(CRITICAL, + 'sudo must be configured with requiretty=no (man sudo)'); + } elsif (grep /ERROR: hpasmcli only runs on HPE Proliant Servers/, @output) { + $self->add_message(UNKNOWN, "hpasmcli detected incompatible hardware"); + } elsif (! grep /CLEAR/, @output) { + $self->add_message(UNKNOWN, + sprintf "insufficient rights to call %s", $hpasmcli); + } + } else { + $self->add_message(UNKNOWN, + sprintf "insufficient rights to call %s", $hpasmcli); + } +} + +sub check_hpacu_client { + my $self = shift; + my $hpacucli = shift; + if (open HPACUCLI, "$hpacucli help 2>&1 |") { + my @output = <HPACUCLI>; + close HPACUCLI; + if (grep /Another instance of hpacucli is running/, @output) { + $self->add_message(UNKNOWN, 'another hpacucli is running'); + } elsif (grep /You need to have administrator rights/, @output) { + $self->add_message(UNKNOWN, + sprintf "insufficient rights to call %s", $hpacucli); + } elsif (grep /(asswor[dt]:)|(You must be root)/, @output) { + $self->add_message(UNKNOWN, + sprintf "insufficient rights to call %s", $hpacucli); + } elsif (! grep /(CLI Syntax)|(ACU CLI)/, @output) { + $self->add_message(UNKNOWN, + sprintf "insufficient rights to call %s", $hpacucli); + } + } else { + $self->add_message(UNKNOWN, + sprintf "insufficient rights to call %s", $hpacucli); + } +} + +sub set_serial { + my $self = shift; + foreach (grep(/^server/, split(/\n/, $self->{rawdata}))) { + if (/System\s+:\s+(.*[^\s])/) { + $self->{product} = lc $1; + } elsif (/Serial No\.\s+:\s+(\w+)/) { + $self->{serial} = $1; + } elsif (/ROM version\s+:\s+(.*[^\s])/) { + $self->{romversion} = $1; + } + } + $self->{serial} = $self->{serial}; + $self->{product} = lc $self->{product}; + $self->{romversion} = $self->{romversion}; + foreach (qw(serial product romversion)) { + $self->{$_} =~ s/\s+$//g; + } +} + + +package HP::Proliant::SNMP; + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +our @ISA = qw(HP::Proliant); + +sub collect { + my $self = shift; + my %oidtables = ( + system => "1.3.6.1.2.1.1", + cpqSeProcessor => "1.3.6.1.4.1.232.1.2.2", + cpqHePWSComponent => "1.3.6.1.4.1.232.6.2.9", + cpqHeThermal => "1.3.6.1.4.1.232.6.2.6", + cpqHeMComponent => "1.3.6.1.4.1.232.6.2.14", + cpqDaComponent => "1.3.6.1.4.1.232.3.2", + cpqSiComponent => "1.3.6.1.4.1.232.2.2", + cpqSeRom => "1.3.6.1.4.1.232.1.2.6", + cpqSasComponent => "1.3.6.1.4.1.232.5", + cpqIdeComponent => "1.3.6.1.4.1.232.14", + cpqFcaComponent => "1.3.6.1.4.1.232.16.2", + cpqHeAsr => "1.3.6.1.4.1.232.6.2.5", + cpqNic => "1.3.6.1.4.1.232.18.2", + cpqHeEventLog => "1.3.6.1.4.1.232.6.2.11", + cpqHeSysBackupBattery => "1.3.6.1.4.1.232.6.2.17", + + # cpqHeComponent => "1.3.6.1.4.1.232.6.2", + # cpqHeFComponent => "1.3.6.1.4.1.232.6.2.6.7", + # cpqHeTComponent => "1.3.6.1.4.1.232.6.2.6.8", + ); + my %oidvalues = ( + cpqHeEventLogSupported => "1.3.6.1.4.1.232.6.2.11.1.0", + cpqHeEventLogCondition => "1.3.6.1.4.1.232.6.2.11.2.0", + cpqNicIfLogMapOverallCondition => "1.3.6.1.4.1.232.18.2.2.2.0", + cpqHeThermalTempStatus => "1.3.6.1.4.1.232.6.2.6.3.0", + cpqHeThermalSystemFanStatus => "1.3.6.1.4.1.232.6.2.6.4.0", + cpqHeThermalCpuFanStatus => "1.3.6.1.4.1.232.6.2.6.5.0", + cpqHeAsrStatus => "1.3.6.1.4.1.232.6.2.5.1.0", + cpqHeAsrCondition => "1.3.6.1.4.1.232.6.2.5.17.0", + ); + if ($self->{runtime}->{plugin}->opts->snmpwalk) { + my $cpqSeMibCondition = '1.3.6.1.4.1.232.1.1.3.0'; # 2=ok + my $cpqHeMibCondition = '1.3.6.1.4.1.232.6.1.3.0'; # hat nicht jeder + if ($self->{productname} =~ /4LEE/) { + # rindsarsch! + $self->{rawdata}->{$cpqHeMibCondition} = 0; + } + if (! exists $self->{rawdata}->{$cpqHeMibCondition} && + ! exists $self->{rawdata}->{$cpqSeMibCondition}) { # vlt. geht doch was + $self->add_message(CRITICAL, + 'snmpwalk returns no health data (cpqhlth-mib)'); + } + $self->{fullrawdata} = {}; + %{$self->{fullrawdata}} = %{$self->{rawdata}}; + $self->{rawdata} = {}; + if (! $self->{runtime}->{plugin}->check_messages()) { + # for a better simulation, only put those oids into + # rawdata which would also be put by a real snmp agent. + foreach my $table (keys %oidtables) { + my $oid = $oidtables{$table}; + $oid =~ s/\./\\./g; + my $tmpoids = {}; + my $tic = time; + map { $tmpoids->{$_} = $self->{fullrawdata}->{$_} } + grep /^$oid/, %{$self->{fullrawdata}}; + my $tac = time; + $self->trace(2, sprintf "%03d seconds for walk %s (%d oids)", + $tac - $tic, $table, scalar(keys %{$tmpoids})); + map { $self->{rawdata}->{$_} = $tmpoids->{$_} } keys %{$tmpoids}; + } + my @oids = values %oidvalues; + map { $self->{rawdata}->{$_} = $self->{fullrawdata}->{$_} } @oids; + } + } else { + my $net_snmp_version = Net::SNMP->VERSION(); # 5.002000 or 6.000000 + #$params{'-translate'} = [ + # -all => 0x0 + #]; + my ($session, $error) = + Net::SNMP->session(%{$self->{runtime}->{snmpparams}}); + if (! defined $session) { + $self->{plugin}->add_message(CRITICAL, 'cannot create session object'); + $self->trace(1, Data::Dumper::Dumper($self->{runtime}->{snmpparams})); + } else { + $session->translate(['-timeticks' => 0]); + # revMajor is often used for discovery of hp devices + my $cpqHeMibRev = '1.3.6.1.4.1.232.6.1'; + my $cpqHeMibRevMajor = '1.3.6.1.4.1.232.6.1.1.0'; + my $cpqHeMibCondition = '1.3.6.1.4.1.232.6.1.3.0'; + my $result = $session->get_request( + -varbindlist => [$cpqHeMibCondition] + ); + if ($self->{productname} =~ /4LEE/) { + # rindsarsch! + $result->{$cpqHeMibCondition} = 0; + } + if (!defined($result) || + $result->{$cpqHeMibCondition} eq 'noSuchInstance' || + $result->{$cpqHeMibCondition} eq 'noSuchObject' || + $result->{$cpqHeMibCondition} eq 'endOfMibView') { + $self->add_message(CRITICAL, + 'snmpwalk returns no health data (cpqhlth-mib)'); + $session->close; + } else { + # this is not reliable. many agents return 4=failed + #if ($result->{$cpqHeMibCondition} != 2) { + # $obstacle = "cmapeerstart"; + #} + } + } + if (! $self->{runtime}->{plugin}->check_messages()) { + # snmp peer is alive + $self->trace(2, sprintf "Protocol is %s", + $self->{runtime}->{snmpparams}->{'-version'}); + $session->translate; + my $response = {}; #break the walk up in smaller pieces + foreach my $table (keys %oidtables) { + my $oid = $oidtables{$table}; + my $tic = time; + my $tmpresponse = $session->get_table( + -baseoid => $oid); + if (scalar (keys %{$tmpresponse}) == 0) { + $self->trace(2, sprintf "maxrepetitions failed. fallback"); + $tmpresponse = $session->get_table( + -maxrepetitions => 1, + -baseoid => $oid); + } + my $tac = time; + $self->trace(2, sprintf "%03d seconds for walk %s (%d oids)", + $tac - $tic, $table, scalar(keys %{$tmpresponse})); + map { $response->{$_} = $tmpresponse->{$_} } keys %{$tmpresponse}; + } + my @oids = values %oidvalues; + my $tic = time; + my $tmpresponse = $session->get_request( + -varbindlist => \@oids, + ); + my $tac = time; + $self->trace(2, sprintf "%03d seconds for get various (%d oids)", + $tac - $tic, scalar(keys %{$tmpresponse})); + map { $response->{$_} = $tmpresponse->{$_} } keys %{$tmpresponse}; + $session->close(); + $self->{rawdata} = $response; + } + } + return $self->{runtime}->{plugin}->check_messages(); +} + +sub set_serial { + my $self = shift; + + my $cpqSiSysSerialNum = "1.3.6.1.4.1.232.2.2.2.1.0"; + my $cpqSiProductName = "1.3.6.1.4.1.232.2.2.4.2.0"; + my $cpqSeSysRomVer = "1.3.6.1.4.1.232.1.2.6.1.0"; + my $cpqSeRedundantSysRomVer = "1.3.6.1.4.1.232.1.2.6.4.0"; + + $self->{serial} = + SNMP::Utils::get_object($self->{rawdata}, $cpqSiSysSerialNum); + $self->{product} = + SNMP::Utils::get_object($self->{rawdata}, $cpqSiProductName); + $self->{romversion} = + SNMP::Utils::get_object($self->{rawdata}, $cpqSeSysRomVer); + $self->{redundantromversion} = + SNMP::Utils::get_object($self->{rawdata}, $cpqSeRedundantSysRomVer); + if ($self->{romversion} && $self->{romversion} =~ + #/(\d{2}\/\d{2}\/\d{4}).*?([ADP]{1}\d{2}).*/) { + /(\d{2}\/\d{2}\/\d{4}).*?Family.*?([A-Z]{1})(\d+).*/) { + $self->{romversion} = sprintf("%s%02d %s", $2, $3, $1); + } elsif ($self->{romversion} && $self->{romversion} =~ + /([ADP]{1}\d{2})\-(\d{2}\/\d{2}\/\d{4})/) { + $self->{romversion} = sprintf("%s %s", $1, $2); + } else { + # fallback if romversion is broken, redundantromversion not + #.1.3.6.1.4.1.232.1.2.6.1.0 = STRING: "4), Family " + #.1.3.6.1.4.1.232.1.2.6.3.0 = "" + #.1.3.6.1.4.1.232.1.2.6.4.0 = STRING: "v1.20 (08/26/2014), Family " + if ($self->{redundantromversion} && $self->{redundantromversion} =~ + /(\d{2}\/\d{2}\/\d{4}).*?Family.*?([A-Z]{1})(\d+).*/) { + $self->{romversion} = sprintf("%s%02d %s", $2, $3, $1); + } elsif ($self->{redundantromversion} && $self->{redundantromversion} =~ + /([ADP]{1}\d{2})\-(\d{2}\/\d{2}\/\d{4})/) { + $self->{romversion} = sprintf("%s %s", $1, $2); + } + } + if (!$self->{serial} && $self->{romversion}) { + # this probably is a very, very old server. + $self->{serial} = "METHUSALEM"; + $self->{runtime}->{scrapiron} = 1; + } + $self->{serial} = $self->{serial}; + $self->{product} = lc $self->{product}; + $self->{romversion} = $self->{romversion}; + $self->{runtime}->{product} = $self->{product}; +} + + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component.pm new file mode 100755 index 0000000..cefab99 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component.pm @@ -0,0 +1,5 @@ +package HP::Proliant::Component; +our @ISA = qw(HP::Proliant); + +1; + diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/AsrSubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/AsrSubsystem.pm new file mode 100755 index 0000000..fccfb3d --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/AsrSubsystem.pm @@ -0,0 +1,45 @@ +package HP::Proliant::Component::AsrSubsystem; +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}, + temperatures => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + if ($self->{method} eq 'snmp') { + return HP::Proliant::Component::AsrSubsystem::SNMP->new(%params); + } elsif ($self->{method} eq 'cli') { + return HP::Proliant::Component::AsrSubsystem::CLI->new(%params); + } else { + die "unknown method"; + } + return $self; +} + +sub check { + my $self = shift; + my $errorfound = 0; + $self->add_info('checking ASR'); + $self->overall_check(); +} + +sub dump { + my $self = shift; +} + + +1; + diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/AsrSubsystem/CLI.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/AsrSubsystem/CLI.pm new file mode 100755 index 0000000..68dad8a --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/AsrSubsystem/CLI.pm @@ -0,0 +1,32 @@ +package HP::Proliant::Component::AsrSubsystem::CLI; +our @ISA = qw(HP::Proliant::Component::AsrSubsystem); + +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}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(%params); + return $self; +} + +sub init { + my $self = shift; + my %params = @_; +} + +sub overall_check { + my $self = shift; + my %params = @_; +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/AsrSubsystem/SNMP.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/AsrSubsystem/SNMP.pm new file mode 100755 index 0000000..823ccf4 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/AsrSubsystem/SNMP.pm @@ -0,0 +1,68 @@ +package HP::Proliant::Component::AsrSubsystem::SNMP; +our @ISA = qw(HP::Proliant::Component::AsrSubsystem + HP::Proliant::Component::SNMP); + +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}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->overall_init(%params); + return $self; +} + +sub overall_init { + my $self = shift; + my %params = @_; + my $snmpwalk = $params{rawdata}; + my $cpqHeAsrStatus = "1.3.6.1.4.1.232.6.2.5.1.0"; + my $cpqHeAsrStatusValue = { + 1 => "other", + 2 => "notAvailable", + 3 => "disabled", + 4 => "enabled", + }; + my $cpqHeAsrCondition = "1.3.6.1.4.1.232.6.2.5.17.0"; + my $cpqHeAsrConditionValue = { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }; + $self->{asrcondition} = SNMP::Utils::get_object_value( + $snmpwalk, $cpqHeAsrCondition, + $cpqHeAsrConditionValue); + $self->{asrstatus} = SNMP::Utils::get_object_value( + $snmpwalk, $cpqHeAsrStatus, + $cpqHeAsrStatusValue); + $self->{asrcondition} |= lc $self->{asrcondition}; + $self->{asrstatus} |= lc $self->{asrstatus}; +} + +sub overall_check { + my $self = shift; + my $result = 0; + $self->blacklist('asr', ''); + if ($self->{asrstatus} and $self->{asrstatus} eq "enabled") { + my $info = sprintf 'ASR overall condition is %s', $self->{asrcondition}; + if ($self->{asrcondition} eq "degraded") { + $self->add_message(WARNING, $info); + } elsif ($self->{asrcondition} eq "failed") { + $self->add_message(CRITICAL, $info); + } + $self->add_info($info); + } else { + $self->add_info('This system does not have ASR.'); + } +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/BatterySubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/BatterySubsystem.pm new file mode 100755 index 0000000..82da78d --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/BatterySubsystem.pm @@ -0,0 +1,124 @@ +package HP::Proliant::Component::BatterySubsystem; +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}, + sysbatteries => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + if ($self->{method} eq 'snmp') { + return HP::Proliant::Component::BatterySubsystem::SNMP->new(%params); + } elsif ($self->{method} eq 'cli') { + #return HP::Proliant::Component::BatterySubsystem::CLI->new(%params); + } else { + die "unknown method"; + } + return $self; +} + +sub check { + my $self = shift; + my $errorfound = 0; + $self->add_info('checking sysbatteries'); + if (scalar (@{$self->{sysbatteries}}) == 0) { + #$self->overall_check(); + $self->add_info('no sysbatteries found'); + } else { + foreach (sort { $a->{cpqHeSysBatteryIndex} <=> $b->{cpqHeSysBatteryIndex}} + @{$self->{sysbatteries}}) { + $_->check(); + } + } +} + +sub dump { + my $self = shift; + foreach (@{$self->{sysbatteries}}) { + $_->dump(); + } +} + + +package HP::Proliant::Component::BatterySubsystem::Battery; +our @ISA = qw(HP::Proliant::Component::BatterySubsystem); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + cpqHeSysBatteryChassis => $params{cpqHeSysBatteryChassis}, + cpqHeSysBatteryIndex => $params{cpqHeSysBatteryIndex}, + cpqHeSysBatteryPresent => $params{cpqHeSysBatteryPresent}, + cpqHeSysBatteryCondition => $params{cpqHeSysBatteryCondition}, + cpqHeSysBatteryStatus => $params{cpqHeSysBatteryStatus}, + cpqHeSysBatteryCapacityMaximum => $params{cpqHeSysBatteryCapacityMaximum}, + cpqHeSysBatteryProductName => $params{cpqHeSysBatteryProductName}, + cpqHeSysBatteryModel => $params{cpqHeSysBatteryModel}, + cpqHeSysBatterySerialNumber => $params{cpqHeSysBatterySerialNumber}, + cpqHeSysBatteryFirmwareRev => $params{cpqHeSysBatteryFirmwareRev}, + cpqHeSysBatterySparePartNum => $params{cpqHeSysBatterySparePartNum}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + $self->{name} = $params{name} || + $self->{cpqHeSysBatteryChassis}.':'.$self->{cpqHeSysBatteryIndex}; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('sba', $self->{name}); + my $info = sprintf "battery %s/%s has condition %s and status %s", + $self->{cpqHeSysBatteryChassis}, + $self->{cpqHeSysBatteryIndex}, + $self->{cpqHeSysBatteryCondition}, + $self->{cpqHeSysBatteryStatus}; + if ($self->{cpqHeSysBatteryCondition} eq "ok") { + } elsif ($self->{cpqHeSysBatteryCondition} eq "degraded") { + $self->add_info($info); + $self->add_message(WARNING, $self->{info}); + } elsif ($self->{cpqHeSysBatteryCondition} eq "failed") { + $self->add_info($info); + $self->add_message(CRITICAL, $self->{info}); + } else { + $self->add_info($info); + $self->add_message(UNKNOWN, $self->{info}); + } +} + +sub dump { + my $self = shift; + printf "[SYSBATTERY_%s_%s]\n", $self->{cpqHeSysBatteryChassis}, + $self->{cpqHeSysBatteryIndex}; + foreach (qw(cpqHeSysBatteryChassis cpqHeSysBatteryIndex + cpqHeSysBatteryPresent cpqHeSysBatteryCondition cpqHeSysBatteryStatus + cpqHeSysBatteryCapacityMaximum cpqHeSysBatteryProductName + cpqHeSysBatteryModel cpqHeSysBatterySerialNumber + cpqHeSysBatteryFirmwareRev cpqHeSysBatterySparePartNum)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "info: %s\n\n", $self->{info}; +} + + +1; + diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/BatterySubsystem/CLI.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/BatterySubsystem/CLI.pm new file mode 100755 index 0000000..46211e6 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/BatterySubsystem/CLI.pm @@ -0,0 +1,27 @@ +package HP::Proliant::Component::BatterySubsystem::CLI; +our @ISA = qw(HP::Proliant::Component::BatterySubsystem); + +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}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(%params); + return $self; +} + +sub init { + my $self = shift; + my %params = @_; +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/BatterySubsystem/SNMP.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/BatterySubsystem/SNMP.pm new file mode 100755 index 0000000..2fb23df --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/BatterySubsystem/SNMP.pm @@ -0,0 +1,78 @@ +package HP::Proliant::Component::BatterySubsystem::SNMP; +our @ISA = qw(HP::Proliant::Component::BatterySubsystem + HP::Proliant::Component::SNMP); + +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}, + sysbatteries => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(%params); + return $self; +} + +sub init { + my $self = shift; + my %params = @_; + my $snmpwalk = $self->{rawdata}; + my $oids = { + cpqHeSysBatteryTable => '1.3.6.1.4.1.232.6.2.17.2', + cpqHeSysBatteryEntry => '1.3.6.1.4.1.232.6.2.17.2.1', + cpqHeSysBatteryChassis => '1.3.6.1.4.1.232.6.2.17.2.1.1', + cpqHeSysBatteryIndex => '1.3.6.1.4.1.232.6.2.17.2.1.2', + cpqHeSysBatteryPresent => '1.3.6.1.4.1.232.6.2.17.2.1.3', + cpqHeSysBatteryPresentValue => { + '1' => 'other', + '2' => 'absent', + '3' => 'present', + }, + cpqHeSysBatteryCondition => '1.3.6.1.4.1.232.6.2.17.2.1.4', + cpqHeSysBatteryConditionValue => { + '1' => 'other', + '2' => 'ok', + '3' => 'degraded', + '4' => 'failed', + }, + cpqHeSysBatteryStatus => '1.3.6.1.4.1.232.6.2.17.2.1.5', + cpqHeSysBatteryStatusValue => { + '1' => 'noError', + '2' => 'generalFailure', + '3' => 'shutdownHighResistance', + '4' => 'shutdownLowVoltage', + '5' => 'shutdownShortCircuit', + '6' => 'shutdownChargeTimeout', + '7' => 'shutdownOverTemperature', + '8' => 'shutdownDischargeMinVoltage', + '9' => 'shutdownDischargeCurrent', + '10' => 'shutdownLoadCountHigh', + '11' => 'shutdownEnablePin', + '12' => 'shutdownOverCurrent', + '13' => 'shutdownPermanentFailure', + '14' => 'shutdownBackupTimeExceeded', + }, + cpqHeSysBatteryCapacityMaximum => '1.3.6.1.4.1.232.6.2.17.2.1.6', + cpqHeSysBatteryProductName => '1.3.6.1.4.1.232.6.2.17.2.1.7', + cpqHeSysBatteryModel => '1.3.6.1.4.1.232.6.2.17.2.1.8', + cpqHeSysBatterySerialNumber => '1.3.6.1.4.1.232.6.2.17.2.1.9', + cpqHeSysBatteryFirmwareRev => '1.3.6.1.4.1.232.6.2.17.2.1.10', + cpqHeSysBatterySparePartNum => '1.3.6.1.4.1.232.6.2.17.2.1.11', + }; + # INDEX { cpqHeSysBatteryChassis, cpqHeSysBatteryIndex } + foreach ($self->get_entries($oids, 'cpqHeSysBatteryEntry')) { + next if ! $_->{cpqHeSysBatteryPresent} eq "present"; + push(@{$self->{sysbatteries}}, + HP::Proliant::Component::BatterySubsystem::Battery->new(%{$_})); + } +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/CpuSubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/CpuSubsystem.pm new file mode 100755 index 0000000..0486fd9 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/CpuSubsystem.pm @@ -0,0 +1,112 @@ +package HP::Proliant::Component::CpuSubsystem; +our @ISA = qw(HP::Proliant::Component); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; +################################## scrapiron ########## + my %params = @_; + my $self = { + runtime => $params{runtime}, + rawdata => $params{rawdata}, + method => $params{method}, + condition => $params{condition}, + status => $params{status}, + cpus => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + if ($self->{method} eq 'snmp') { + return HP::Proliant::Component::CpuSubsystem::SNMP->new(%params); + } elsif ($self->{method} eq 'cli') { + return HP::Proliant::Component::CpuSubsystem::CLI->new(%params); + } else { + die "unknown method"; + } + return $self; +} + +sub check { + my $self = shift; + my $errorfound = 0; + $self->add_info('checking cpus'); + if (scalar (@{$self->{cpus}}) == 0) { + # sachen gibts..... + # $self->overall_check(); # sowas ist mir nur einmal untergekommen + } else { + foreach (@{$self->{cpus}}) { + $_->check(); + } + } +} + +sub num_cpus { + my $self = shift; + return scalar @{$self->{cpus}}; +} + +sub dump { + my $self = shift; + foreach (@{$self->{cpus}}) { + $_->dump(); + } +} + + +package HP::Proliant::Component::CpuSubsystem::Cpu; +our @ISA = qw(HP::Proliant::Component::CpuSubsystem); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + cpqSeCpuSlot => $params{cpqSeCpuSlot}, + cpqSeCpuUnitIndex => $params{cpqSeCpuUnitIndex}, + cpqSeCpuName => $params{cpqSeCpuName}, + cpqSeCpuStatus => $params{cpqSeCpuStatus}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('c', $self->{cpqSeCpuUnitIndex}); + if ($self->{cpqSeCpuStatus} ne "ok") { + if ($self->{runtime}->{options}{scrapiron} && + ($self->{cpqSeCpuStatus} eq "unknown")) { + $self->add_info(sprintf "cpu %d probably ok (%s)", + $self->{cpqSeCpuUnitIndex}, $self->{cpqSeCpuStatus}); + } else { + $self->add_info(sprintf "cpu %d needs attention (%s)", + $self->{cpqSeCpuUnitIndex}, $self->{cpqSeCpuStatus}); + $self->add_message(CRITICAL, $self->{info}); + } + } else { + $self->add_info(sprintf "cpu %d is %s", + $self->{cpqSeCpuUnitIndex}, $self->{cpqSeCpuStatus}); + } + $self->add_extendedinfo(sprintf "cpu_%s=%s", + $self->{cpqSeCpuUnitIndex}, $self->{cpqSeCpuStatus}); +} + +sub dump { + my $self = shift; + printf "[CPU_%s]\n", $self->{cpqSeCpuUnitIndex}; + foreach (qw(cpqSeCpuSlot cpqSeCpuUnitIndex cpqSeCpuName cpqSeCpuStatus)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "info: %s\n", $self->{info}; + printf "\n"; +} diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/CpuSubsystem/CLI.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/CpuSubsystem/CLI.pm new file mode 100755 index 0000000..8953417 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/CpuSubsystem/CLI.pm @@ -0,0 +1,57 @@ +package HP::Proliant::Component::CpuSubsystem::CLI; +our @ISA = qw(HP::Proliant::Component::CpuSubsystem); + +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}, + cpus => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(%params); + return $self; +} + +sub init { + my $self = shift; + my %params = @_; + my %tmpcpu = ( + runtime => $params{runtime}, + ); + my $inblock = 0; + foreach (grep(/^server/, split(/\n/, $self->{rawdata}))) { + if (/Processor:\s+(\d+)/) { + $tmpcpu{cpqSeCpuUnitIndex} = $1; + $inblock = 1; + } elsif (/Name\s*:\s+(.+?)\s*$/) { + $tmpcpu{cpqSeCpuName} = $1; + } elsif (/Status\s*:\s+(.+?)\s*$/) { + $tmpcpu{cpqSeCpuStatus} = lc $1; + } elsif (/Socket\s*:\s+(.+?)\s*$/) { + $tmpcpu{cpqSeCpuSlot} = $1; + } elsif (/^server\s*$/) { + if ($inblock) { + $inblock = 0; + push(@{$self->{cpus}}, + HP::Proliant::Component::CpuSubsystem::Cpu->new(%tmpcpu)); + %tmpcpu = ( + runtime => $params{runtime}, + ); + } + } + } + if ($inblock) { + push(@{$self->{cpus}}, + HP::Proliant::Component::CpuSubsystem::Cpu->new(%tmpcpu)); + } +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/CpuSubsystem/SNMP.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/CpuSubsystem/SNMP.pm new file mode 100755 index 0000000..0824d04 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/CpuSubsystem/SNMP.pm @@ -0,0 +1,50 @@ +package HP::Proliant::Component::CpuSubsystem::SNMP; +our @ISA = qw(HP::Proliant::Component::CpuSubsystem + HP::Proliant::Component::SNMP); + +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}, + cpus => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(); + return $self; +} + +sub init { + my $self = shift; + my $snmpwalk = $self->{rawdata}; + # CPQSTDEQ-MIB + my $oids = { + cpqSeCpuEntry => '1.3.6.1.4.1.232.1.2.2.1.1', + cpqSeCpuUnitIndex => '1.3.6.1.4.1.232.1.2.2.1.1.1', + cpqSeCpuSlot => '1.3.6.1.4.1.232.1.2.2.1.1.2', + cpqSeCpuName => '1.3.6.1.4.1.232.1.2.2.1.1.3', + cpqSeCpuStatus => '1.3.6.1.4.1.232.1.2.2.1.1.6', + cpqSeCpuStatusValue => { + 1 => "unknown", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + 5 => "disabled", + }, + }; + + # INDEX { cpqSeCpuUnitIndex } + foreach ($self->get_entries($oids, 'cpqSeCpuEntry')) { + push(@{$self->{cpus}}, + HP::Proliant::Component::CpuSubsystem::Cpu->new(%{$_})); + } +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem.pm new file mode 100755 index 0000000..bd50a87 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem.pm @@ -0,0 +1,159 @@ +package HP::Proliant::Component::DiskSubsystem; +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}, + da_subsystem => undef, + sas_da_subsystem => undef, + ide_da_subsystem => undef, + fca_da_subsystem => undef, + scsi_da_subsystem => undef, + condition => $params{condition}, + blacklisted => 0, + }; + bless $self, $class; + $self->init(); + return $self; +} + +sub init { + my $self = shift; + $self->{da_subsystem} = HP::Proliant::Component::DiskSubsystem::Da->new( + runtime => $self->{runtime}, + rawdata => $self->{rawdata}, + method => $self->{method}, + ); + $self->{sas_subsystem} = HP::Proliant::Component::DiskSubsystem::Sas->new( + runtime => $self->{runtime}, + rawdata => $self->{rawdata}, + method => $self->{method}, + ); + $self->{scsi_subsystem} = HP::Proliant::Component::DiskSubsystem::Scsi->new( + runtime => $self->{runtime}, + rawdata => $self->{rawdata}, + method => $self->{method}, + ); + $self->{ide_subsystem} = HP::Proliant::Component::DiskSubsystem::Ide->new( + runtime => $self->{runtime}, + rawdata => $self->{rawdata}, + method => $self->{method}, + ); + $self->{fca_subsystem} = HP::Proliant::Component::DiskSubsystem::Fca->new( + runtime => $self->{runtime}, + rawdata => $self->{rawdata}, + method => $self->{method}, + ); +} + +sub check { + my $self = shift; + $self->add_info('checking disk subsystem'); + $self->{da_subsystem}->check(); + $self->{sas_subsystem}->check(); + $self->{scsi_subsystem}->check(); + $self->{ide_subsystem}->check(); + $self->{fca_subsystem}->check(); + $self->disk_summary(); +} + +sub dump { + my $self = shift; + $self->{da_subsystem}->dump(); + $self->{sas_subsystem}->dump(); + $self->{scsi_subsystem}->dump(); + $self->{ide_subsystem}->dump(); + $self->{fca_subsystem}->dump(); +} + +sub disk_summary { + my $self = shift; + foreach my $subsys (qw(da sas scsi ide fca)) { + if (my $pd = $self->{$subsys.'_subsystem'}->has_physical_drives()) { + my $ld = $self->{$subsys.'_subsystem'}->has_logical_drives(); + $self->add_summary(sprintf '%s: %d logical drives, %d physical drives', + $subsys, $ld, $pd); + } + } +} + +sub assemble { + my $self = shift; + $self->trace(3, sprintf "%s controllers und platten zusammenfuehren", + ref($self)); + $self->trace(3, sprintf "has %d controllers", + scalar(@{$self->{controllers}})); + $self->trace(3, sprintf "has %d accelerators", + scalar(@{$self->{accelerators}})) if exists $self->{accelerators}; + $self->trace(3, sprintf "has %d enclosures", + scalar(@{$self->{enclosures}})); + $self->trace(3, sprintf "has %d physical_drives", + scalar(@{$self->{physical_drives}})); + $self->trace(3, sprintf "has %d logical_drives", + scalar(@{$self->{logical_drives}})); + $self->trace(3, sprintf "has %d spare_drives", + scalar(@{$self->{spare_drives}})); + my $found = { + accelerators => {}, + enclosures => {}, + logical_drives => {}, + physical_drives => {}, + spare_drives => {}, + }; + # found->{komponente}->{controllerindex} ist ein array + # von teilen, die zu einem controller gehoeren + foreach my $item (qw(accelerators enclosures logical_drives physical_drives spare_drives)) { + next if ($item eq "enclosures" && ! exists $self->{$item}); + foreach (@{$self->{$item}}) { + $found->{item}->{$_->{controllerindex}} = [] + unless exists $found->{$item}->{$_->{controllerindex}}; + push(@{$found->{$item}->{$_->{controllerindex}}}, $_); + } + } + foreach my $item (qw(accelerators enclosures logical_drives physical_drives spare_drives)) { + foreach (@{$self->{controllers}}) { + if (exists $found->{$item}->{$_->{controllerindex}}) { + $_->{$item} = $found->{$item}->{$_->{controllerindex}}; + delete $found->{$item}->{$_->{controllerindex}}; + } else { + $_->{$item} = []; # z.b. ein leerer controller: physical_drives = [] + } + } + } + # was jetzt noch in $found uebrig ist, gehoert zu keinem controller + # d.h. komponenten mit ungueltigen cnrtlindex wurden gefunden +} + +sub has_controllers { + my $self = shift; + return scalar(@{$self->{controllers}}); +} + +sub has_accelerators { + my $self = shift; + return exists $self->{accelerators} ? scalar(@{$self->{accelerators}}) : 0; +} + +sub has_physical_drives { + my $self = shift; + return scalar(@{$self->{physical_drives}}); +} + +sub has_logical_drives { + my $self = shift; + return scalar(@{$self->{logical_drives}}); +} + +sub has_enclosures { + my $self = shift; + return scalar(@{$self->{enclosures}}); +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Da.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Da.pm new file mode 100755 index 0000000..5dbc5ef --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Da.pm @@ -0,0 +1,407 @@ +package HP::Proliant::Component::DiskSubsystem::Da; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem); + +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}, + controllers => [], + accelerators => [], + enclosures => [], + physical_drives => [], + logical_drives => [], + spare_drives => [], + condition => undef, + blacklisted => 0, + }; + bless $self, $class; + if ($self->{method} eq 'snmp') { + bless $self, 'HP::Proliant::Component::DiskSubsystem::Da::SNMP'; + } else { + bless $self, 'HP::Proliant::Component::DiskSubsystem::Da::CLI'; + } + $self->init(); + $self->assemble(); + return $self; +} + +sub check { + my $self = shift; + foreach (@{$self->{controllers}}) { + $_->check(); + } +} + +sub dump { + my $self = shift; + foreach (@{$self->{controllers}}) { + $_->dump(); + } +} + +package HP::Proliant::Component::DiskSubsystem::Da::Controller; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Da); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + cpqDaCntlrIndex => $params{cpqDaCntlrIndex}, + cpqDaCntlrSlot => $params{cpqDaCntlrSlot}, + cpqDaCntlrModel => $params{cpqDaCntlrModel}, + cpqDaCntlrCondition => $params{cpqDaCntlrCondition}, + cpqDaCntlrBoardCondition => $params{cpqDaCntlrBoardCondition}, + blacklisted => 0, + }; + $self->{name} = $params{name} || $self->{cpqDaCntlrSlot}; + $self->{controllerindex} = $self->{cpqDaCntlrIndex}; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; +#$self->dumper($self); + $self->blacklist('daco', $self->{cpqDaCntlrIndex}); + foreach (@{$self->{accelerators}}) { + $_->check(); + } + foreach (@{$self->{enclosures}}) { + $_->check(); + } + foreach (@{$self->{logical_drives}}) { + $_->check(); + } + foreach (@{$self->{physical_drives}}) { + $_->check(); + } + foreach (@{$self->{spare_drives}}) { + $_->check(); + } + if ($self->{cpqDaCntlrCondition} eq 'other') { + if (scalar(@{$self->{physical_drives}})) { + $self->add_message(CRITICAL, + sprintf 'da controller %s in slot %s needs attention', + $self->{cpqDaCntlrIndex}, $self->{cpqDaCntlrSlot}); + $self->add_info(sprintf 'da controller %s in slot %s needs attention', + $self->{cpqDaCntlrIndex}, $self->{cpqDaCntlrSlot}); + } else { + $self->add_info(sprintf 'da controller %s in slot %s is ok and unused', + $self->{cpqDaCntlrIndex}, $self->{cpqDaCntlrSlot}); + $self->{blacklisted} = 1; + } + } elsif ($self->{cpqDaCntlrCondition} eq 'degraded') { + # maybe only the battery has failed and is disabled, no problem + if (scalar(grep { + $_->has_failed() && $_->is_disabled() + } @{$self->{accelerators}})) { + # message was already written in the accel code + } else { + $self->add_message(CRITICAL, + sprintf 'da controller %s in slot %s needs attention', + $self->{cpqDaCntlrIndex}, $self->{cpqDaCntlrSlot}); + $self->add_info(sprintf 'da controller %s in slot %s needs attention', + $self->{cpqDaCntlrIndex}, $self->{cpqDaCntlrSlot}); + } + } elsif ($self->{cpqDaCntlrCondition} ne 'ok') { + $self->add_message(CRITICAL, + sprintf 'da controller %s in slot %s needs attention', + $self->{cpqDaCntlrIndex}, $self->{cpqDaCntlrSlot}); + $self->add_info(sprintf 'da controller %s in slot %s needs attention', + $self->{cpqDaCntlrIndex}, $self->{cpqDaCntlrSlot}); + } else { + $self->add_info(sprintf 'da controller %s in slot %s is ok', + $self->{cpqDaCntlrIndex}, $self->{cpqDaCntlrSlot}); + } +} + +sub dump { + my $self = shift; + printf "[DA_CONTROLLER_%s]\n", $self->{name}; + foreach (qw(cpqDaCntlrSlot cpqDaCntlrIndex cpqDaCntlrCondition + cpqDaCntlrModel)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; + foreach (@{$self->{accelerators}}) { + $_->dump(); + } + foreach (@{$self->{enclosures}}) { + $_->dump(); + } + foreach (@{$self->{logical_drives}}) { + $_->dump(); + } + foreach (@{$self->{physical_drives}}) { + $_->dump(); + } + foreach (@{$self->{spare_drives}}) { + $_->dump(); + } +} + + +package HP::Proliant::Component::DiskSubsystem::Da::Accelerator; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Da); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + cpqDaAccelCntlrIndex => $params{cpqDaAccelCntlrIndex}, + cpqDaAccelBattery => $params{cpqDaAccelBattery} || 'notPresent', + cpqDaAccelCondition => $params{cpqDaAccelCondition}, + cpqDaAccelStatus => $params{cpqDaAccelStatus}, + cpqDaAccelErrCode => $params{cpqDaAccelErrCode}, + blacklisted => 0, + failed => 0, + }; + $self->{controllerindex} = $self->{cpqDaAccelCntlrIndex}; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('daac', $self->{cpqDaAccelCntlrIndex}); + $self->add_info(sprintf 'controller accelerator is %s', + $self->{cpqDaAccelCondition}); + if ($self->{cpqDaAccelCondition} eq "failed" || $self->{cpqDaAccelCondition} eq "degraded") { + $self->add_message(CRITICAL, sprintf + "controller accelerator is %s (reason: %s) and needs attention", + $self->{cpqDaAccelCondition}, $self->{cpqDaAccelErrCode}); + } + $self->blacklist('daacb', $self->{cpqDaAccelCntlrIndex}); + $self->add_info(sprintf 'controller accelerator battery is %s', + $self->{cpqDaAccelBattery}); + if ($self->{cpqDaAccelBattery} eq "notPresent") { + } elsif ($self->{cpqDaAccelBattery} eq "recharging") { + $self->add_message(WARNING, "controller accelerator battery recharging"); + } elsif ($self->{cpqDaAccelBattery} eq "failed" && + $self->{cpqDaAccelStatus} eq "tmpDisabled") { + $self->add_message(WARNING, "controller accelerator battery needs attention"); + } elsif ($self->{cpqDaAccelBattery} ne "ok") { + # (other) failed degraded + $self->add_message(CRITICAL, "controller accelerator battery needs attention"); + } +} + +sub has_failed { + my $self = shift; + return $self->{cpqDaAccelStatus} =~ /Disabled/ ? 1 : 0; +} + +sub is_disabled { + my $self = shift; + return $self->{cpqDaAccelStatus} =~ /Disabled/ ? 1 : 0; +} + +sub dump { + my $self = shift; + printf "[ACCELERATOR]\n"; + foreach (qw(cpqDaAccelCntlrIndex cpqDaAccelBattery + cpqDaAccelStatus cpqDaAccelCondition cpqDaAccelErrCode)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + +package HP::Proliant::Component::DiskSubsystem::Da::Enclosure; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Da); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + name => $params{name}, + cpqDaEnclCntlrIndex => $params{cpqDaEnclCntlrIndex}, + cpqDaEnclIndex => $params{cpqDaEnclIndex}, + cpqDaEnclPort => $params{cpqDaEnclPort}, + cpqDaEnclBox => $params{cpqDaEnclBox}, + cpqDaEnclCondition => $params{cpqDaEnclCondition}, + blacklisted => 0, + }; + bless $self, $class; + $self->{name} = $params{name} || + $self->{cpqDaEnclPort}.':'.$self->{cpqDaEnclBox}; ##vorerst + $self->{controllerindex} = $self->{cpqDaEnclCntlrIndex}; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('dae', $self->{name}); + $self->add_info( + sprintf "disk enclosure %s is %s", + $self->{name}, $self->{cpqDaEnclCondition}); + if ($self->{cpqDaEnclCondition} !~ /^OK/) { + $self->add_message(CRITICAL, + sprintf "disk enclosure %s is %s", + $self->{name}, $self->{cpqDaEnclCondition}); + } +} + +sub dump { + my $self = shift; + printf "[Disk Enclosure]\n"; + foreach (qw(cpqDaEnclCntlrIndex cpqDaEnclIndex cpqDaEnclPort + cpqDaEnclBox cpqDaEnclCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + +package HP::Proliant::Component::DiskSubsystem::Da::LogicalDrive; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Da); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + cpqDaLogDrvIndex => $params{cpqDaLogDrvIndex}, + cpqDaLogDrvCntlrIndex => $params{cpqDaLogDrvCntlrIndex}, + cpqDaLogDrvSize => $params{cpqDaLogDrvSize}, + cpqDaLogDrvFaultTol => $params{cpqDaLogDrvFaultTol}, + cpqDaLogDrvPercentRebuild => $params{cpqDaLogDrvPercentRebuild}, + cpqDaLogDrvStatus => $params{cpqDaLogDrvStatus}, + cpqDaLogDrvCondition => $params{cpqDaLogDrvCondition}, + cpqDaLogDrvPhyDrvIDs => $params{cpqDaLogDrvPhyDrvIDs}, + blacklisted => 0, + }; + bless $self, $class; + $self->{name} = $params{name} || + $self->{cpqDaLogDrvCntlrIndex}.':'.$self->{cpqDaLogDrvIndex}; ##vorerst + $self->{controllerindex} = $self->{cpqDaLogDrvCntlrIndex}; + if (! $self->{cpqDaLogDrvPercentRebuild} || + $self->{cpqDaLogDrvPercentRebuild} == 4294967295) { + $self->{cpqDaLogDrvPercentRebuild} = 100; + } + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('dald', $self->{name}); + $self->add_info(sprintf "logical drive %s is %s (%s)", + $self->{name}, $self->{cpqDaLogDrvStatus}, + $self->{cpqDaLogDrvFaultTol}); + if ($self->{cpqDaLogDrvCondition} ne "ok") { + if ($self->{cpqDaLogDrvStatus} =~ + /rebuild|recovering|recovery|expanding|queued/) { + $self->add_message(WARNING, + sprintf "logical drive %s is %s", + $self->{name}, $self->{cpqDaLogDrvStatus}); + } else { + $self->add_message(CRITICAL, + sprintf "logical drive %s is %s", + $self->{name}, $self->{cpqDaLogDrvStatus}); + } + } +} + +sub dump { + my $self = shift; + printf "[LOGICAL_DRIVE]\n"; + foreach (qw(cpqDaLogDrvCntlrIndex cpqDaLogDrvIndex cpqDaLogDrvSize + cpqDaLogDrvFaultTol cpqDaLogDrvStatus cpqDaLogDrvCondition + cpqDaLogDrvPercentRebuild cpqDaLogDrvPhyDrvIDs)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +package HP::Proliant::Component::DiskSubsystem::Da::PhysicalDrive; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Da); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + name => $params{name}, + cpqDaPhyDrvCntlrIndex => $params{cpqDaPhyDrvCntlrIndex}, + cpqDaPhyDrvIndex => $params{cpqDaPhyDrvIndex}, + cpqDaPhyDrvBay => $params{cpqDaPhyDrvBay}, + cpqDaPhyDrvBusNumber => $params{cpqDaPhyDrvBusNumber}, + cpqDaPhyDrvSize => $params{cpqDaPhyDrvSize}, + cpqDaPhyDrvStatus => $params{cpqDaPhyDrvStatus}, + cpqDaPhyDrvCondition => $params{cpqDaPhyDrvCondition}, + blacklisted => 0, + }; + bless $self, $class; + $self->{name} = $params{name} || + $self->{cpqDaPhyDrvCntlrIndex}.':'.$self->{cpqDaPhyDrvIndex}; ##vorerst + $self->{controllerindex} = $self->{cpqDaPhyDrvCntlrIndex}; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('dapd', $self->{name}); + $self->add_info( + sprintf "physical drive %s is %s", + $self->{name}, $self->{cpqDaPhyDrvCondition}); + if ($self->{cpqDaPhyDrvCondition} ne 'ok') { + $self->add_message(CRITICAL, + sprintf "physical drive %s is %s", + $self->{name}, $self->{cpqDaPhyDrvCondition}); + } +} + +sub dump { + my $self = shift; + printf "[PHYSICAL_DRIVE]\n"; + foreach (qw(cpqDaPhyDrvCntlrIndex cpqDaPhyDrvIndex cpqDaPhyDrvBay + cpqDaPhyDrvBusNumber cpqDaPhyDrvSize cpqDaPhyDrvStatus + cpqDaPhyDrvCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +package HP::Proliant::Component::DiskSubsystem::Da::SpareDrive; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Da); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub dump { + my $self = shift; + printf "[SPARE_DRIVE]\n"; + foreach (qw(cpqDaPhyDrvCntlrIndex cpqDaPhyDrvIndex cpqDaPhyDrvBay + cpqDaPhyDrvBusNumber cpqDaPhyDrvSize cpqDaPhyDrvStatus + cpqDaPhyDrvCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Da/CLI.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Da/CLI.pm new file mode 100755 index 0000000..75d3181 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Da/CLI.pm @@ -0,0 +1,239 @@ +package HP::Proliant::Component::DiskSubsystem::Da::CLI; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Da); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + controllers => [], + accelerators => [], + enclosures => [], + physical_drives => [], + logical_drives => [], + spare_drives => [], + blacklisted => 0, + }; + bless $self, $class; + return $self; +} + +sub init { + my $self = shift; + my $hpacucli = $self->{rawdata}; + my $slot = 0; + my $type = "unkn"; + my @lines = (); + my $thistype = 0; + my $tmpcntl = {}; + my $tmpaccel = {}; + my $tmpld = {}; + my $tmppd = {}; + my $tmpencl = {}; + my $cntlindex = 0; + my $enclosureindex = 0; + my $ldriveindex = 0; + my $pdriveindex = 0; + my $incontroller = 0; + foreach (split(/\n/, $hpacucli)) { + next unless /^status/; + next if /^status\s*$/; + s/^status\s*//; + if (/(MSA[\s\w]+)\s+in\s+(\w+)/) { + $incontroller = 1; + $slot = $2; + $cntlindex++; + $tmpcntl->{$slot}->{cpqDaCntlrIndex} = $cntlindex; + $tmpcntl->{$slot}->{cpqDaCntlrModel} = $1; + $tmpcntl->{$slot}->{cpqDaCntlrSlot} = $slot; + } elsif (/([\s\w]+) in Slot\s+(\d+)/) { + $incontroller = 1; + $slot = $2; + $cntlindex++; + $tmpcntl->{$slot}->{cpqDaCntlrIndex} = $cntlindex; + $tmpcntl->{$slot}->{cpqDaCntlrModel} = $1; + $tmpcntl->{$slot}->{cpqDaCntlrSlot} = $slot; + } elsif (/Controller Status: (\w+)/) { + $tmpcntl->{$slot}->{cpqDaCntlrBoardCondition} = lc $1; + $tmpcntl->{$slot}->{cpqDaCntlrCondition} = lc $1; + } elsif (/Cache Status: ([\w\s]+?)\s*$/) { + # Cache Status: OK + # Cache Status: Not Configured + # Cache Status: Temporarily Disabled + $tmpaccel->{$slot}->{cpqDaAccelCntlrIndex} = $cntlindex; + $tmpaccel->{$slot}->{cpqDaAccelSlot} = $slot; + #condition: other,ok,degraded,failed + #status: other,invalid,enabled,tmpDisabled,permDisabled + $tmpaccel->{$slot}->{cpqDaAccelCondition} = lc $1; + if ($tmpaccel->{$slot}->{cpqDaAccelCondition} eq 'ok') { + $tmpaccel->{$slot}->{cpqDaAccelStatus} = 'enabled'; + } elsif ($tmpaccel->{$slot}->{cpqDaAccelCondition} eq 'not configured') { + $tmpaccel->{$slot}->{cpqDaAccelCondition} = 'ok'; + $tmpaccel->{$slot}->{cpqDaAccelStatus} = 'enabled'; + } elsif ($tmpaccel->{$slot}->{cpqDaAccelCondition} eq 'temporarily disabled') { + $tmpaccel->{$slot}->{cpqDaAccelCondition} = 'ok'; + $tmpaccel->{$slot}->{cpqDaAccelStatus} = 'tmpDisabled'; + } elsif ($tmpaccel->{$slot}->{cpqDaAccelCondition} eq 'permanently disabled') { + $tmpaccel->{$slot}->{cpqDaAccelCondition} = 'ok'; + $tmpaccel->{$slot}->{cpqDaAccelStatus} = 'permDisabled'; + } else { + $tmpaccel->{$slot}->{cpqDaAccelStatus} = 'enabled'; + } + } elsif (/Battery.* Status: (\w+)/) { + # sowas gibts auch Battery/Capacitor Status: OK + $tmpaccel->{$slot}->{cpqDaAccelBattery} = lc $1; + } elsif (/^\s*$/) { + } + } + $slot = 0; + $cntlindex = 0; + $enclosureindex = 0; + $ldriveindex = 0; + $pdriveindex = 0; + foreach (split(/\n/, $hpacucli)) { + next unless /^config/; + next if /^config\s*$/; + s/^config\s*//; + if (/(MSA[\s\w]+)\s+in\s+(\w+)/) { + $slot = $2; + $cntlindex++; + $pdriveindex = 1; + } elsif (/([\s\w]+) in Slot\s+(\d+)/) { + #if ($slot ne $2 || ! $slot) { + $cntlindex++; + # 2012-12-15 das passt nicht zur oberen schleife + # ich habe keine ahnung, was der hintergrund fuer dieses if ist + #} + $slot = $2; + $pdriveindex = 1; + } elsif (/([\s\w]+) at Port ([\w]+), Box (\d+), (.*)/) { + $enclosureindex++; + $tmpencl->{$slot}->{$enclosureindex}->{cpqDaEnclCntlrIndex} = $cntlindex; + $tmpencl->{$slot}->{$enclosureindex}->{cpqDaEnclIndex} = $enclosureindex; + $tmpencl->{$slot}->{$enclosureindex}->{cpqDaEnclPort} = $2; + $tmpencl->{$slot}->{$enclosureindex}->{cpqDaEnclBox} = $3; + $tmpencl->{$slot}->{$enclosureindex}->{cpqDaEnclCondition} = $4; + $tmpencl->{$slot}->{$enclosureindex}->{cpqDaEnclStatus} = + $tmpencl->{$slot}->{$enclosureindex}->{cpqDaEnclCondition}; + $tmpencl->{$slot}->{$enclosureindex}->{cpqDaLogDrvPhyDrvIDs} = 'unknown'; + } elsif (/logicaldrive\s+(.+?)\s+\((.*)\)/) { + # logicaldrive 1 (683.5 GB, RAID 5, OK) + # logicaldrive 1 (683.5 GB, RAID 5, OK) + # logicaldrive 2 (442 MB, RAID 1+0, OK) + $ldriveindex = $1; + $tmpld->{$slot}->{$ldriveindex}->{cpqDaLogDrvCntlrIndex} = $cntlindex; + $tmpld->{$slot}->{$ldriveindex}->{cpqDaLogDrvIndex} = $ldriveindex; + ($tmpld->{$slot}->{$ldriveindex}->{cpqDaLogDrvSize}, + $tmpld->{$slot}->{$ldriveindex}->{cpqDaLogDrvFaultTol}, + $tmpld->{$slot}->{$ldriveindex}->{cpqDaLogDrvCondition}) = + map { lc $_ } split(/,\s*/, $2); + $tmpld->{$slot}->{$ldriveindex}->{cpqDaLogDrvStatus} = + $tmpld->{$slot}->{$ldriveindex}->{cpqDaLogDrvCondition}; + $tmpld->{$slot}->{$ldriveindex}->{cpqDaLogDrvPhyDrvIDs} = 'unknown'; + } elsif (/physicaldrive\s+(.+?)\s+\((.*)\)/) { + # physicaldrive 2:0 (port 2:id 0 , Parallel SCSI, 36.4 GB, OK) + # physicaldrive 2I:1:6 (port 2I:box 1:bay 6, SAS, 146 GB, OK) + # physicaldrive 1:1 (box 1:bay 1, Parallel SCSI, 146 GB, OK) + my $name = $1; + my($location, $type, $size, $status) = split(/,/, $2); + $status =~ s/^\s+//g; + $status =~ s/\s+$//g; + $status = lc $status; + my %location = (); + foreach (split(/:/, $location)) { + $location{$1} = $2 if /(\w+)\s+(\w+)/; + } + $location{box} ||= 0; + $location{id} ||= $pdriveindex; + $location{bay} ||= $location{id}; + $location{port} ||= $location{bay}; + $tmppd->{$slot}->{$name}->{name} = lc $name; + $tmppd->{$slot}->{$name}->{cpqDaPhyDrvCntlrIndex} = $cntlindex; + $tmppd->{$slot}->{$name}->{cpqDaPhyDrvIndex} = $location{id}; + $tmppd->{$slot}->{$name}->{cpqDaPhyDrvBay} = $location{bay}; + $tmppd->{$slot}->{$name}->{cpqDaPhyDrvBusNumber} = $location{port}; + $tmppd->{$slot}->{$name}->{cpqDaPhyDrvSize} = $size; + $tmppd->{$slot}->{$name}->{cpqDaPhyDrvStatus} = $status; + $tmppd->{$slot}->{$name}->{cpqDaPhyDrvCondition} = $status; + $tmppd->{$slot}->{$name}->{ldriveindex} = $ldriveindex || -1; + foreach (keys %{$tmppd->{$slot}->{$name}}) { + $tmppd->{$slot}->{$name}->{$_} =~ s/^\s+//g; + $tmppd->{$slot}->{$name}->{$_} =~ s/\s+$//g; + $tmppd->{$slot}->{$name}->{$_} = lc $tmppd->{$slot}->{$name}->{$_}; + } + $pdriveindex++; + } + } + + foreach my $slot (keys %{$tmpcntl}) { + if (exists $tmpcntl->{$slot}->{cpqDaCntlrModel} && + ! $self->identified($tmpcntl->{$slot}->{cpqDaCntlrModel})) { + delete $tmpcntl->{$slot}; + delete $tmpaccel->{$slot}; + delete $tmpencl->{$slot}; + delete $tmpld->{$slot}; + delete $tmppd->{$slot}; + } + } + +#printf "%s\n", Data::Dumper::Dumper($tmpcntl); +#printf "%s\n", Data::Dumper::Dumper($tmpaccel); +#printf "%s\n", Data::Dumper::Dumper($tmpld); +#printf "%s\n", Data::Dumper::Dumper($tmppd); + foreach my $slot (sort { + $tmpcntl->{$a}->{cpqDaCntlrIndex} <=> $tmpcntl->{$b}->{cpqDaCntlrIndex} + }keys %{$tmpcntl}) { + $tmpcntl->{$slot}->{runtime} = $self->{runtime}; + push(@{$self->{controllers}}, + HP::Proliant::Component::DiskSubsystem::Da::Controller->new( + %{$tmpcntl->{$slot}})); + } + foreach my $slot (sort { + $tmpaccel->{$a}->{cpqDaAccelCntlrIndex} <=> $tmpaccel->{$b}->{cpqDaAccelCntlrIndex} + } keys %{$tmpaccel}) { + $tmpaccel->{$slot}->{runtime} = $self->{runtime}; + push(@{$self->{accelerators}}, + HP::Proliant::Component::DiskSubsystem::Da::Accelerator->new( + %{$tmpaccel->{$slot}})); + } + foreach my $slot (keys %{$tmpencl}) { + foreach my $enclosureindex (keys %{$tmpencl->{$slot}}) { + $tmpencl->{$slot}->{$enclosureindex}->{runtime} = $self->{runtime}; + push(@{$self->{enclosures}}, + HP::Proliant::Component::DiskSubsystem::Da::Enclosure->new( + %{$tmpencl->{$slot}->{$enclosureindex}})); + } + } + foreach my $slot (keys %{$tmpld}) { + foreach my $ldriveindex (keys %{$tmpld->{$slot}}) { + $tmpld->{$slot}->{$ldriveindex}->{runtime} = $self->{runtime}; + push(@{$self->{logical_drives}}, + HP::Proliant::Component::DiskSubsystem::Da::LogicalDrive->new( + %{$tmpld->{$slot}->{$ldriveindex}})); + } + foreach my $pdriveindex (sort { + (split ':', $a, 2)[0] cmp (split ':', $b, 2)[0] || + (split ':', $a, 2)[1] cmp (split ':', $b, 2)[1] || + (split ':', $a, 2)[2] <=> (split ':', $b, 2)[2] + } keys %{$tmppd->{$slot}}) { + $tmppd->{$slot}->{$pdriveindex}->{runtime} = $self->{runtime}; + push(@{$self->{physical_drives}}, + HP::Proliant::Component::DiskSubsystem::Da::PhysicalDrive->new( + %{$tmppd->{$slot}->{$pdriveindex}})); + } + } +} + +sub identified { + my $self = shift; + my $info = shift; + return 1 if $info =~ /Parallel SCSI/; + return 1 if $info =~ /Smart Array/; # Trond: works fine on E200i, P400, E400 + return 1 if $info =~ /MSA500/; + #return 1 if $info =~ /Smart Array (5|6)/; + #return 1 if $info =~ /Smart Array P400i/; # snmp sagt Da, trotz SAS in cli + #return 1 if $info =~ /Smart Array P410i/; # dto + return 0; +} diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Da/SNMP.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Da/SNMP.pm new file mode 100755 index 0000000..629fe29 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Da/SNMP.pm @@ -0,0 +1,232 @@ +package HP::Proliant::Component::DiskSubsystem::Da::SNMP; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Da + HP::Proliant::Component::SNMP); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + controllers => [], + accelerators => [], + enclosures => [], + physical_drives => [], + logical_drives => [], + spare_drives => [], + blacklisted => 0, + }; + bless $self, $class; + return $self; +} + +sub init { + my $self = shift; + my $snmpwalk = $self->{rawdata}; + + # CPQIDA-MIB + my $oids = { + cpqDaCntlrEntry => "1.3.6.1.4.1.232.3.2.2.1.1", + cpqDaCntlrIndex => "1.3.6.1.4.1.232.3.2.2.1.1.1", + cpqDaCntlrModel => "1.3.6.1.4.1.232.3.2.2.1.1.2", + cpqDaCntlrSlot => "1.3.6.1.4.1.232.3.2.2.1.1.5", + cpqDaCntlrCondition => "1.3.6.1.4.1.232.3.2.2.1.1.6", + cpqDaCntlrBoardCondition => "1.3.6.1.4.1.232.3.2.2.1.1.12", + cpqDaCntlrModelValue => { + 1 => 'other', + 2 => 'ida', + 3 => 'idaExpansion', + 4 => 'ida-2', + 5 => 'smart', + 6 => 'smart-2e', + 7 => 'smart-2p', + 8 => 'smart-2sl', + 9 => 'smart-3100es', + 10 => 'smart-3200', + 11 => 'smart-2dh', + 12 => 'smart-221', + 13 => 'sa-4250es', + 14 => 'sa-4200', + 15 => 'sa-integrated', + 16 => 'sa-431', + 17 => 'sa-5300', + 18 => 'raidLc2', + 19 => 'sa-5i', + 20 => 'sa-532', + 21 => 'sa-5312', + 22 => 'sa-641', + 23 => 'sa-642', + 24 => 'sa-6400', + 25 => 'sa-6400em', + 26 => 'sa-6i', + }, + cpqDaCntlrConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + cpqDaCntlrBoardConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + }; + + # INDEX { cpqDaCntlrIndex } + foreach ($self->get_entries($oids, 'cpqDaCntlrEntry')) { + push(@{$self->{controllers}}, + HP::Proliant::Component::DiskSubsystem::Da::Controller->new(%{$_})); + } + + $oids = { + cpqDaAccelEntry => "1.3.6.1.4.1.232.3.2.2.2.1", + cpqDaAccelCntlrIndex => "1.3.6.1.4.1.232.3.2.2.2.1.1", + cpqDaAccelStatus => "1.3.6.1.4.1.232.3.2.2.2.1.2", + cpqDaAccelErrCode => "1.3.6.1.4.1.232.3.2.2.2.1.5", + cpqDaAccelBattery => "1.3.6.1.4.1.232.3.2.2.2.1.6", + cpqDaAccelCondition => "1.3.6.1.4.1.232.3.2.2.2.1.9", + cpqDaAccelBatteryValue => { + 1 => 'other', + 2 => 'ok', + 3 => 'recharging', + 4 => 'failed', + 5 => 'degraded', + 6 => 'notPresent', + }, + cpqDaAccelConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + cpqDaAccelStatusValue => { + 1 => "other", + 2 => "invalid", + 3 => "enabled", + 4 => "tmpDisabled", + 5 => "permDisabled", + }, + cpqDaAccelErrCodeValue => { + 1 => 'other', + 2 => 'invalid', + 3 => 'badConfig', + 4 => 'lowBattery', + 5 => 'disableCmd', + 6 => 'noResources', + 7 => 'notConnected', + 8 => 'badMirrorData', + 9 => 'readErr', + 10 => 'writeErr', + 11 => 'configCmd', + 12 => 'expandInProgress', + 13 => 'snapshotInProgress', + 14 => 'redundantLowBattery', + 15 => 'redundantSizeMismatch', + 16 => 'redundantCacheFailure', + 17 => 'excessiveEccErrors', + 18 => 'adgEnablerMissing', + 19 => 'postEccErrors', + 20 => 'batteryHotRemoved', + 21 => 'capacitorChargeLow', + 22 => 'notEnoughBatteries', + 23 => 'cacheModuleNotSupported', + 24 => 'batteryNotSupported', + 25 => 'noCapacitorAttached', + 26 => 'capBasedBackupFailed', + 27 => 'capBasedRestoreFailed', + 28 => 'capBasedModuleHWFailure', + 29 => 'capacitorFailedToCharge', + 30 => 'capacitorBasedHWMemBeingErased', + 31 => 'incompatibleCacheModule', + 32 => 'fbcmChargerCircuitFailure', + }, + }; + + # INDEX { cpqDaAccelCntlrIndex } + foreach ($self->get_entries($oids, 'cpqDaAccelEntry')) { + push(@{$self->{accelerators}}, + HP::Proliant::Component::DiskSubsystem::Da::Accelerator->new(%{$_})); + } + + $oids = { + cpqDaLogDrvEntry => "1.3.6.1.4.1.232.3.2.3.1.1", + cpqDaLogDrvCntlrIndex => "1.3.6.1.4.1.232.3.2.3.1.1.1", + cpqDaLogDrvIndex => "1.3.6.1.4.1.232.3.2.3.1.1.2", + cpqDaLogDrvFaultTol => "1.3.6.1.4.1.232.3.2.3.1.1.3", + cpqDaLogDrvStatus => "1.3.6.1.4.1.232.3.2.3.1.1.4", + cpqDaLogDrvSize => "1.3.6.1.4.1.232.3.2.3.1.1.9", + cpqDaLogDrvPhyDrvIDs => "1.3.6.1.4.1.232.3.2.3.1.1.10", + cpqDaLogDrvCondition => "1.3.6.1.4.1.232.3.2.3.1.1.11", + cpqDaLogDrvPercentRebuild => "1.3.6.1.4.1.232.3.2.3.1.1.12", + cpqDaLogDrvFaultTolValue => { + 1 => "other", + 2 => "none", + 3 => "mirroring", + 4 => "dataGuard", + 5 => "distribDataGuard", + 7 => "advancedDataGuard", + }, + cpqDaLogDrvConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + cpqDaLogDrvStatusValue => { + 1 => "other", + 2 => "ok", + 3 => "failed", + 4 => "unconfigured", + 5 => "recovering", + 6 => "readyForRebuild", + 7 => "rebuilding", + 8 => "wrongDrive", + 9 => "badConnect", + 10 => "overheating", + 11 => "shutdown", + 12 => "expanding", + 13 => "notAvailable", + 14 => "queuedForExpansion", + }, + }; + + # INDEX { cpqDaLogDrvCntlrIndex, cpqDaLogDrvIndex } + foreach ($self->get_entries($oids, 'cpqDaLogDrvEntry')) { + $_->{cpqDaLogDrvPhyDrvIDs} ||= 'empty'; + push(@{$self->{logical_drives}}, + HP::Proliant::Component::DiskSubsystem::Da::LogicalDrive->new(%{$_})); + } + + $oids = { + cpqDaPhyDrvEntry => "1.3.6.1.4.1.232.3.2.5.1.1", + cpqDaPhyDrvCntlrIndex => "1.3.6.1.4.1.232.3.2.5.1.1.1", + cpqDaPhyDrvIndex => "1.3.6.1.4.1.232.3.2.5.1.1.2", + cpqDaPhyDrvBay => "1.3.6.1.4.1.232.3.2.5.1.1.5", + cpqDaPhyDrvStatus => "1.3.6.1.4.1.232.3.2.5.1.1.6", + cpqDaPhyDrvSize => "1.3.6.1.4.1.232.3.2.5.1.1.9", + cpqDaPhyDrvCondition => "1.3.6.1.4.1.232.3.2.5.1.1.37", + cpqDaPhyDrvBusNumber => "1.3.6.1.4.1.232.3.2.5.1.1.50", + cpqDaPhyDrvConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + cpqDaPhyDrvStatusValue => { + 1 => "other", + 2 => "ok", + 3 => "failed", + 4 => "predictiveFailure", + }, + }; + + # INDEX { cpqDaPhyDrvCntlrIndex, cpqDaPhyDrvIndex } + foreach ($self->get_entries($oids, 'cpqDaPhyDrvEntry')) { + push(@{$self->{physical_drives}}, + HP::Proliant::Component::DiskSubsystem::Da::PhysicalDrive->new(%{$_})); + } + +} diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Fca.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Fca.pm new file mode 100755 index 0000000..2014697 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Fca.pm @@ -0,0 +1,433 @@ +package HP::Proliant::Component::DiskSubsystem::Fca; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem); + +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}, + host_controllers => [], + controllers => [], + accelerators => [], + enclosures => [], + physical_drives => [], + logical_drives => [], + spare_drives => [], + global_status => undef, + blacklisted => 0, + }; + bless $self, $class; + if ($self->{method} eq 'snmp') { + bless $self, 'HP::Proliant::Component::DiskSubsystem::Fca::SNMP'; + } else { + bless $self, 'HP::Proliant::Component::DiskSubsystem::Fca::CLI'; + } + $self->init(); + $self->assemble(); + return $self; +} + +sub assemble { + my $self = shift; + $self->trace(3, sprintf "%s controllers und platten zusammenfuehren", + ref($self)); + $self->trace(3, sprintf "has %d host controllers", + scalar(@{$self->{host_controllers}})); + $self->trace(3, sprintf "has %d controllers", + scalar(@{$self->{controllers}})); + $self->trace(3, sprintf "has %d physical_drives", + scalar(@{$self->{physical_drives}})); + $self->trace(3, sprintf "has %d logical_drives", + scalar(@{$self->{logical_drives}})); + $self->trace(3, sprintf "has %d spare_drives", + scalar(@{$self->{spare_drives}})); +} + +sub check { + my $self = shift; + foreach (@{$self->{host_controllers}}) { + $_->check(); + } + foreach (@{$self->{controllers}}) { + $_->check(); + } + foreach (@{$self->{accelerators}}) { + $_->check(); + } + foreach (@{$self->{logical_drives}}) { + $_->check(); + } + foreach (@{$self->{physical_drives}}) { + $_->check(); + } + # wozu eigentlich? + #if (! $self->has_controllers()) { + #$self->{global_status}->check(); + #} +} + +sub dump { + my $self = shift; + foreach (@{$self->{host_controllers}}) { + $_->dump(); + } + foreach (@{$self->{controllers}}) { + $_->dump(); + } + foreach (@{$self->{accelerators}}) { + $_->dump(); + } + foreach (@{$self->{logical_drives}}) { + $_->dump(); + } + foreach (@{$self->{physical_drives}}) { + $_->dump(); + } + #$self->{global_status}->dump(); +} + + +package HP::Proliant::Component::DiskSubsystem::Fca::GlobalStatus; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Fca); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + cpqFcaMibCondition => $params{cpqFcaMibCondition}, + }; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + if ($self->{cpqFcaMibCondition} eq 'other') { + $self->add_message(OK, + sprintf 'fcal overall condition is other, update your drivers, please'); + } elsif ($self->{cpqFcaMibCondition} ne 'ok') { + $self->add_message(CRITICAL, + sprintf 'fcal overall condition is %s', $self->{cpqFcaMibCondition}); + } + $self->{info} = + sprintf 'fcal overall condition is %s', $self->{cpqFcaMibCondition}; +} + +sub dump { + my $self = shift; + printf "[FCAL]\n"; + foreach (qw(cpqFcaMibCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +package HP::Proliant::Component::DiskSubsystem::Fca::HostController; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Fca); + +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, + }; + map { $self->{$_} = $params{$_} } grep /cpqFcaHostCntlr/, keys %params; + $self->{name} = $params{name} || $self->{cpqFcaHostCntlrIndex}; + $self->{controllerindex} = $self->{cpqFcaHostCntlrIndex}; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('fcahc', $self->{name}); + my $info = sprintf 'fcal host controller %s in slot %s is %s', + $self->{name}, $self->{cpqFcaHostCntlrSlot}, $self->{cpqFcaHostCntlrCondition}; + if ($self->{cpqFcaHostCntlrCondition} eq 'other') { + #$info .= sprintf ' and needs attention (%s)', $self->{cpqFcaHostCntlrStatus}; + # let's assume other=ok + $self->add_message(OK, $info); + $self->add_info($info); + } elsif ($self->{cpqFcaHostCntlrCondition} ne 'ok') { + $self->add_message(CRITICAL, $info); + $self->add_info($info); + } else { + $self->add_info($info); + } + $self->blacklist('fcahco', $self->{name}); + $info = sprintf 'fcal host controller %s overall condition is %s', + $self->{name}, $self->{cpqFcaHostCntlrOverallCondition}; + if ($self->{cpqFcaHostCntlrOverallCondition} eq 'other') { + $self->add_message(OK, $info); + } elsif ($self->{cpqFcaHostCntlrOverallCondition} ne 'ok') { + $self->add_message(WARNING, $info); + } + $self->add_info($info); +} + +sub dump { + my $self = shift; + printf "[FCAL_HOST_CONTROLLER_%s]\n", $self->{name}; + foreach (qw(cpqFcaHostCntlrIndex cpqFcaHostCntlrSlot + cpqFcaHostCntlrModel cpqFcaHostCntlrStatus cpqFcaHostCntlrCondition + cpqFcaHostCntlrOverallCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +package HP::Proliant::Component::DiskSubsystem::Fca::Controller; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Fca); + +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, + }; + map { $self->{$_} = $params{$_} } grep /cpqFcaCntlr/, keys %params; + $self->{name} = $params{name} || + $self->{cpqFcaCntlrBoxIndex}.':'.$self->{cpqFcaCntlrBoxIoSlot}; + $self->{controllerindex} = $self->{cpqFcaCntlrBoxIndex}; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('fcaco', $self->{name}); + my $info = sprintf 'fcal controller %s in box %s/slot %s is %s', + $self->{name}, $self->{cpqFcaCntlrBoxIndex}, $self->{cpqFcaCntlrBoxIoSlot}, + $self->{cpqFcaCntlrCondition}; + if ($self->{cpqFcaCntlrCondition} eq 'other') { + if (1) { # was ist mit phys. drives? + $info .= ' needs attention'; + $info .= sprintf(' (%s)', $self->{cpqFcaCntlrStatus}) unless $self->{cpqFcaCntlrStatus} eq 'ok'; + $self->add_message(CRITICAL, $info); + $self->add_info($info); + } else { + $self->add_info($info); + $self->{blacklisted} = 1; + } + } elsif ($self->{cpqFcaCntlrCondition} ne 'ok') { + $info .= ' needs attention'; + $info .= sprintf(' (%s)', $self->{cpqFcaCntlrStatus}) unless $self->{cpqFcaCntlrStatus} eq 'ok'; + $self->add_message(CRITICAL, $info); + $self->add_info($info); + } else { + $self->add_info($info); + } +} + +sub dump { + my $self = shift; + printf "[FCAL_CONTROLLER_%s]\n", $self->{name}; + foreach (qw(cpqFcaCntlrBoxIndex cpqFcaCntlrBoxIoSlot cpqFcaCntlrModel + cpqFcaCntlrStatus cpqFcaCntlrCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +package HP::Proliant::Component::DiskSubsystem::Fca::Accelerator; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Fca); + +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, + }; + map { $self->{$_} = $params{$_} } grep /cpqFcaAccel/, keys %params; + $self->{name} = $params{name} || + $self->{cpqFcaAccelBoxIndex}.':'.$self->{cpqFcaAccelBoxIoSlot}; + $self->{controllerindex} = $self->{cpqFcaAccelBoxIndex}; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + # !!! cpqFcaAccelStatus + $self->blacklist('fcaac', $self->{name}); + my $info = sprintf 'fcal accelerator %s in box %s/slot %s is ', + $self->{name}, $self->{cpqFcaAccelBoxIndex}, $self->{cpqFcaAccelBoxIoSlot}; + if ($self->{cpqFcaAccelStatus} eq 'invalid') { + $info .= 'not installed'; + $self->add_info($info); + } elsif ($self->{cpqFcaAccelStatus} eq 'tmpDisabled') { + $info .= 'temp disabled'; + $self->add_info($info); + } elsif ($self->{cpqFcaAccelCondition} eq 'other') { + $info .= sprintf '%s and needs attention (%s)', + $self->{cpqFcaAccelCondition}, $self->{cpqFcaAccelErrCode}; + $self->add_message(CRITICAL, $info); + $self->add_info($info); + } elsif ($self->{cpqFcaAccelCondition} ne 'ok') { + $info .= sprintf '%s and needs attention (%s)', + $self->{cpqFcaAccelCondition}, $self->{cpqFcaAccelErrCode}; + $self->add_message(CRITICAL, $info); + $self->add_info($info); + } else { + $info .= sprintf '%s', $self->{cpqFcaAccelCondition}; + $self->add_info($info); + } +} + +sub dump { + my $self = shift; + printf "[FCAL_ACCELERATOR_%s]\n", $self->{name}; + foreach (qw(cpqFcaAccelBoxIndex cpqFcaAccelBoxIoSlot cpqFcaAccelStatus + cpqFcaAccelErrCode cpqFcaAccelBatteryStatus cpqFcaAccelCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +package HP::Proliant::Component::DiskSubsystem::Fca::LogicalDrive; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Fca); + +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, + }; + map { $self->{$_} = $params{$_} } grep /cpqFcaLogDrv/, keys %params; + bless $self, $class; + $self->{name} = $params{name} || + $self->{cpqFcaLogDrvBoxIndex}.':'. + $self->{cpqFcaLogDrvIndex}; + $self->{controllerindex} = $self->{cpqFcaLogDrvBoxIndex}; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('fcald', $self->{name}); + my $info = sprintf 'logical drive %s (%s) is %s', + $self->{name}, $self->{cpqFcaLogDrvFaultTol}, $self->{cpqFcaLogDrvCondition}; + if ($self->{cpqFcaLogDrvCondition} ne "ok") { + $info .= sprintf ' (%s)', $self->{cpqFcaLogDrvStatus}; + if ($self->{cpqFcaLogDrvStatus} =~ + /rebuild|recovering|expand/) { + $info .= sprintf ' (%s)', $self->{cpqFcaLogDrvStatus}; + $self->add_message(WARNING, $info); + } else { + $self->add_message(CRITICAL, $info); + } + } + $self->add_info($info); +} + +sub dump { + my $self = shift; + printf "[LOGICAL_DRIVE_%s]\n", $self->{name}; + foreach (qw(cpqFcaLogDrvBoxIndex cpqFcaLogDrvIndex cpqFcaLogDrvFaultTol + cpqFcaLogDrvStatus cpqFcaLogDrvPercentRebuild cpqFcaLogDrvSize + cpqFcaLogDrvPhyDrvIDs cpqFcaLogDrvCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +package HP::Proliant::Component::DiskSubsystem::Fca::PhysicalDrive; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Fca); + +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, + }; + map { $self->{$_} = $params{$_} } grep /cpqFcaPhyDrv/, keys %params; + $self->{name} = $params{name} || + $self->{cpqFcaPhyDrvBoxIndex}.':'.$self->{cpqFcaPhyDrvIndex}; ####vorerst + $self->{controllerindex} = $self->{cpqScsiPhyDrvCntlrIndex}; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('fcapd', $self->{name}); + my $info = sprintf "physical drive %s is %s", + $self->{name}, $self->{cpqFcaPhyDrvStatus}; + if ($self->{cpqFcaPhyDrvStatus} eq 'unconfigured') { + # not part of a logical drive + # condition will surely be other + } elsif ($self->{cpqFcaPhyDrvCondition} ne 'ok') { + $self->add_message(CRITICAL, $info); + } + $self->add_info($info); +} + +sub dump { + my $self = shift; + printf "[PHYSICAL_DRIVE_%s]\n", $self->{name}; + foreach (qw(cpqFcaPhyDrvBoxIndex cpqFcaPhyDrvIndex cpqFcaPhyDrvModel + cpqFcaPhyDrvBay cpqFcaPhyDrvStatus cpqFcaPhyDrvCondition + cpqFcaPhyDrvSize cpqFcaPhyDrvBusNumber)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +package HP::Proliant::Component::DiskSubsystem::Fca::SpareDrive; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Fca); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub dump { + my $self = shift; + printf "[SPARE_DRIVE]\n"; +} + + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Fca/CLI.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Fca/CLI.pm new file mode 100755 index 0000000..fd11dbc --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Fca/CLI.pm @@ -0,0 +1,34 @@ +package HP::Proliant::Component::DiskSubsystem::Fca::CLI; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Fca); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + controllers => [], + accelerators => [], + enclosures => [], + physical_drives => [], + logical_drives => [], + spare_drives => [], + blacklisted => 0, + }; + bless $self, $class; + return $self; +} + +sub init { + my $self = shift; + # ..... + $self->{global_status} = + HP::Proliant::Component::DiskSubsystem::Fca::GlobalStatus->new( + runtime => $self->{runtime}, + cpqFcaMibCondition => 'n/a', + ); + +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Fca/SNMP.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Fca/SNMP.pm new file mode 100755 index 0000000..fc603e5 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Fca/SNMP.pm @@ -0,0 +1,303 @@ +package HP::Proliant::Component::DiskSubsystem::Fca::SNMP; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Fca + HP::Proliant::Component::SNMP); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + controllers => [], + accelerators => [], + enclosures => [], + physical_drives => [], + logical_drives => [], + spare_drives => [], + blacklisted => 0, + }; + bless $self, $class; + return $self; +} + +sub init { + my $self = shift; + my $snmpwalk = $self->{rawdata}; + + # CPQFCA-MIB + my $oids = { + cpqFcaHostCntlrEntry => '1.3.6.1.4.1.232.16.2.7.1.1', + cpqFcaHostCntlrIndex => '1.3.6.1.4.1.232.16.2.7.1.1.1', + cpqFcaHostCntlrSlot => '1.3.6.1.4.1.232.16.2.7.1.1.2', + cpqFcaHostCntlrModel => '1.3.6.1.4.1.232.16.2.7.1.1.3', + cpqFcaHostCntlrStatus => '1.3.6.1.4.1.232.16.2.7.1.1.4', + cpqFcaHostCntlrCondition => '1.3.6.1.4.1.232.16.2.7.1.1.5', + cpqFcaHostCntlrOverallCondition => '1.3.6.1.4.1.232.16.2.7.1.1.8', + cpqFcaHostCntlrModelValue => { + 1 => "other", + # You may need to upgrade your driver software and\or instrument + # agent(s). You have a drive array controller in the system + # that the instrument agent does not recognize. (other according to CPQFCAL-MIB) + 2 => "fchc-p", + 3 => "fchc-e", + 4 => "fchc64", + 5 => "sa-sam", + 6 => "fca-2101", + 7 => "sw64-33", + 8 => "fca-221x", + 9 => "dpfcmc", + 10 => 'fca-2404', + 11 => 'fca-2214', + 12 => 'a7298a', + 13 => 'fca-2214dc', + 14 => 'a6826a', + 15 => 'fcmcG3', + 16 => 'fcmcG4', + 17 => 'ab46xa', + 18 => 'fc-generic', + 19 => 'fca-1143', + 20 => 'fca-1243', + 21 => 'fca-2143', + 22 => 'fca-2243', + 23 => 'fca-1050', + 24 => 'fca-lpe1105', + 25 => 'fca-qmh2462', + 26 => 'fca-1142sr', + 27 => 'fca-1242sr', + 28 => 'fca-2142sr', + 29 => 'fca-2242sr', + 30 => 'fcmc20pe', + 31 => 'fca-81q', + 32 => 'fca-82q', + 33 => 'fca-qmh2562', + 34 => 'fca-81e', + 35 => 'fca-82e', + 36 => 'fca-1205', + }, + cpqFcaHostCntlrStatusValue => { + 1 => "other", + 2 => "ok", + 3 => "failed", + 4 => "shutdown", + 5 => "loopDegraded", + 6 => "loopFailed", + 7 => "notConnected", + }, + cpqFcaHostCntlrConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + cpqFcaHostCntlrOverallConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, # cntrl + alle associated storage boxes + }; + + # INDEX { cpqFcaHostCntlrIndex } + foreach ($self->get_entries($oids, 'cpqFcaHostCntlrEntry')) { + push(@{$self->{host_controllers}}, + HP::Proliant::Component::DiskSubsystem::Fca::HostController->new(%{$_})); + } + + $oids = { + cpqFcaCntlrEntry => '1.3.6.1.4.1.232.16.2.2.1.1', + cpqFcaCntlrBoxIndex => '1.3.6.1.4.1.232.16.2.2.1.1.1', + cpqFcaCntlrBoxIoSlot => '1.3.6.1.4.1.232.16.2.2.1.1.2', + cpqFcaCntlrModel => '1.3.6.1.4.1.232.16.2.2.1.1.3', + cpqFcaCntlrStatus => '1.3.6.1.4.1.232.16.2.2.1.1.5', + cpqFcaCntlrCondition => '1.3.6.1.4.1.232.16.2.2.1.1.6', + cpqFcaCntlrModelValue => { + 1 => "other", + 2 => "fibreArray", + 3 => "msa1000", + 4 => "smartArrayClusterStorage", + 5 => "hsg80", + 6 => "hsv110", + 7 => "msa500g2", + 8 => "msa20", + 8 => "msa1510i", + }, + cpqFcaCntlrStatusValue => { + 1 => "other", + 2 => "ok", + 3 => "failed", + 4 => "offline", + 5 => "redundantPathOffline", + 6 => "notConnected", + }, + cpqFcaCntlrConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + }; + + # INDEX { cpqFcaCntlrBoxIndex, cpqFcaCntlrBoxIoSlot } + foreach ($self->get_entries($oids, 'cpqFcaCntlrEntry')) { + push(@{$self->{controllers}}, + HP::Proliant::Component::DiskSubsystem::Fca::Controller->new(%{$_})); + } + + $oids = { + cpqFcaAccelEntry => '1.3.6.1.4.1.232.16.2.2.2.1', + cpqFcaAccelBoxIndex => '1.3.6.1.4.1.232.16.2.2.2.1.1', + cpqFcaAccelBoxIoSlot => '1.3.6.1.4.1.232.16.2.2.2.1.2', + cpqFcaAccelStatus => '1.3.6.1.4.1.232.16.2.2.2.1.3', + cpqFcaAccelErrCode => '1.3.6.1.4.1.232.16.2.2.2.1.5', + cpqFcaAccelBatteryStatus => '1.3.6.1.4.1.232.16.2.2.2.1.6', + cpqFcaAccelCondition => '1.3.6.1.4.1.232.16.2.2.2.1.9', + cpqFcaAccelStatusValue => { + 1 => "other", + 2 => "invalid", + 3 => "enabled", + 4 => "tmpDisabled", + 5 => "permDisabled", + }, + cpqFcaAccelErrCodeValue => { + 1 => 'other', + 2 => 'invalid', + 3 => 'badConfig', + 4 => 'lowBattery', + 5 => 'disableCmd', + 6 => 'noResources', + 7 => 'notConnected', + 8 => 'badMirrorData', + 9 => 'readErr', + 10 => 'writeErr', + 11 => 'configCmd', + 12 => 'expandInProgress', + 13 => 'snapshotInProgress', + 14 => 'redundantLowBattery', + 15 => 'redundantSizeMismatch', + 16 => 'redundantCacheFailure', + 17 => 'excessiveEccErrors', + 19 => 'postEccErrors', + }, + cpqFcaAccelBatteryStatusValue => { + 1 => 'other', + 2 => 'ok', + 3 => 'recharging', + 4 => 'failed', + 5 => 'degraded', + 6 => 'notPresent', + }, + cpqFcaAccelConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + }; + + # INDEX { cpqFcaAccelBoxIndex, cpqFcaAccelBoxIoSlot } + foreach ($self->get_entries($oids, 'cpqFcaAccelEntry')) { + push(@{$self->{accelerators}}, + HP::Proliant::Component::DiskSubsystem::Fca::Accelerator->new(%{$_})); + } + + $oids = { + cpqFcaLogDrvEntry => '1.3.6.1.4.1.232.16.2.3.1.1', + cpqFcaLogDrvBoxIndex => '1.3.6.1.4.1.232.16.2.3.1.1.1', + cpqFcaLogDrvIndex => '1.3.6.1.4.1.232.16.2.3.1.1.2', + cpqFcaLogDrvFaultTol => '1.3.6.1.4.1.232.16.2.3.1.1.3', + cpqFcaLogDrvStatus => '1.3.6.1.4.1.232.16.2.3.1.1.4', + cpqFcaLogDrvPercentRebuild => '1.3.6.1.4.1.232.16.2.3.1.1.6', + cpqFcaLogDrvSize => '1.3.6.1.4.1.232.16.2.3.1.1.9', + cpqFcaLogDrvPhyDrvIDs => '1.3.6.1.4.1.232.16.2.3.1.1.10', + cpqFcaLogDrvCondition => '1.3.6.1.4.1.232.16.2.3.1.1.11', + cpqFcaLogDrvFaultTolValue => { + 1 => 'other', + 2 => 'none', + 3 => 'mirroring', + 4 => 'dataGuard', + 5 => 'distribDataGuard', + 7 => 'advancedDataGuard', + }, + cpqFcaLogDrvStatusValue => { + 1 => 'other', + 2 => 'ok', + 3 => 'failed', + 4 => 'unconfigured', + 5 => 'recovering', + 6 => 'readyForRebuild', + 7 => 'rebuilding', + 8 => 'wrongDrive', + 9 => 'badConnect', + 10 => 'overheating', + 11 => 'shutdown', + 12 => 'expanding', + 13 => 'notAvailable', + 14 => 'queuedForExpansion', + 15 => 'hardError', + }, + cpqFcaLogDrvConditionValue => { + 1 => 'other', + 2 => 'ok', + 3 => 'degraded', + 4 => 'failed', + }, + }; + + # INDEX { cpqFcaLogDrvBoxIndex, cpqFcaLogDrvIndex } + foreach ($self->get_entries($oids, 'cpqFcaLogDrvEntry')) { + push(@{$self->{logical_drives}}, + HP::Proliant::Component::DiskSubsystem::Fca::LogicalDrive->new(%{$_})); + } + + $oids = { + cpqFcaPhyDrvEntry => '1.3.6.1.4.1.232.16.2.5.1.1', + cpqFcaPhyDrvBoxIndex => '1.3.6.1.4.1.232.16.2.5.1.1.1', + cpqFcaPhyDrvIndex => '1.3.6.1.4.1.232.16.2.5.1.1.2', + cpqFcaPhyDrvModel => '1.3.6.1.4.1.232.16.2.5.1.1.3', + cpqFcaPhyDrvBay => '1.3.6.1.4.1.232.16.2.5.1.1.5', + cpqFcaPhyDrvStatus => '1.3.6.1.4.1.232.16.2.5.1.1.6', + cpqFcaPhyDrvCondition => '1.3.6.1.4.1.232.16.2.5.1.1.31', + cpqFcaPhyDrvSize => '1.3.6.1.4.1.232.16.2.5.1.1.38', + cpqFcaPhyDrvBusNumber => '1.3.6.1.4.1.232.16.2.5.1.1.42', + cpqFcaPhyDrvStatusValue => { + 1 => 'other', + 2 => 'unconfigured', + 3 => 'ok', + 4 => 'threshExceeded', + 5 => 'predictiveFailure', + 6 => 'failed', + }, + cpqFcaPhyDrvConditionValue => { + 1 => 'other', + 2 => 'ok', + 3 => 'degraded', + 4 => 'failed', + }, + }; + + # INDEX { cpqFcaPhyDrvBoxIndex, cpqFcaPhyDrvIndex } + foreach ($self->get_entries($oids, 'cpqFcaPhyDrvEntry')) { + push(@{$self->{physical_drives}}, + HP::Proliant::Component::DiskSubsystem::Fca::PhysicalDrive->new(%{$_})); + } + + $oids = { + cpqFcaMibRevMajor => '1.3.6.1.4.1.232.16.1.1.0', + cpqFcaMibRevMinor => '1.3.6.1.4.1.232.16.1.2.0', + cpqFcaMibCondition => '1.3.6.1.4.1.232.16.1.3.0', + cpqFcaMibConditionValue => { + 1 => 'other', + 2 => 'ok', + 3 => 'degraded', + 4 => 'failed', + }, + }; + $self->{global_status} = + HP::Proliant::Component::DiskSubsystem::Fca::GlobalStatus->new( + runtime => $self->{runtime}, + cpqFcaMibCondition => + SNMP::Utils::get_object_value($snmpwalk, + $oids->{cpqFcaMibCondition}, $oids->{cpqFcaMibConditionValue}) + ); +} diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Ide.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Ide.pm new file mode 100755 index 0000000..fdd3230 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Ide.pm @@ -0,0 +1,256 @@ +package HP::Proliant::Component::DiskSubsystem::Ide; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem); + +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}, + controllers => [], + enclosures => [], + physical_drives => [], + logical_drives => [], + spare_drives => [], + condition => undef, + blacklisted => 0, + }; + bless $self, $class; + if ($self->{method} eq 'snmp') { + bless $self, 'HP::Proliant::Component::DiskSubsystem::Ide::SNMP'; + } else { + bless $self, 'HP::Proliant::Component::DiskSubsystem::Ide::CLI'; + } + $self->init(); + $self->assemble(); + return $self; +} + +sub check { + my $self = shift; + foreach (@{$self->{controllers}}) { + $_->check(); + } +} + +sub dump { + my $self = shift; + foreach (@{$self->{controllers}}) { + $_->dump(); + } +} + +package HP::Proliant::Component::DiskSubsystem::Ide::Controller; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Ide); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + cpqIdeControllerIndex => $params{cpqIdeControllerIndex}, + cpqIdeControllerOverallCondition => $params{cpqIdeControllerOverallCondition}, + cpqIdeControllerModel => $params{cpqIdeControllerModel}, + cpqIdeControllerSlot => $params{cpqIdeControllerSlot}, # -1 ist sysboard? + blacklisted => 0, + }; + $self->{name} = $params{name} || $self->{cpqIdeControllerIndex}; + $self->{controllerindex} = $self->{cpqIdeControllerIndex}; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('ideco', $self->{name}); + if ($self->{cpqIdeControllerOverallCondition} eq 'other') { + if (scalar(@{$self->{physical_drives}})) { + $self->add_message(CRITICAL, + sprintf 'ide controller %s in slot %s needs attention', + $self->{cpqIdeControllerIndex}, $self->{cpqIdeControllerSlot}); + $self->add_info(sprintf 'ide controller %s in slot %s needs attention', + $self->{cpqIdeControllerIndex}, $self->{cpqIdeControllerSlot}); + } else { + $self->add_info(sprintf 'ide controller %s in slot %s is ok and unused', + $self->{cpqIdeControllerIndex}, $self->{cpqIdeControllerSlot}); + $self->{blacklisted} = 1; + } + } elsif ($self->{cpqIdeControllerOverallCondition} ne 'ok') { + $self->add_message(CRITICAL, + sprintf 'ide controller %s in slot %s needs attention', + $self->{cpqIdeControllerIndex}, $self->{cpqIdeControllerSlot}); + $self->add_info(sprintf 'ide controller %s in slot %s needs attention', + $self->{cpqIdeControllerIndex}, $self->{cpqIdeControllerSlot}); + } else { + $self->add_info(sprintf 'ide controller %s in slot %s is ok', + $self->{cpqIdeControllerIndex}, $self->{cpqIdeControllerSlot}); + } + foreach (@{$self->{logical_drives}}) { + $_->check(); + } + foreach (@{$self->{physical_drives}}) { + $_->check(); + } + foreach (@{$self->{spare_drives}}) { + $_->check(); + } +} + +sub dump { + my $self = shift; + printf "[IDE_CONTROLLER_%s]\n", $self->{name}; + foreach (qw(cpqIdeControllerIndex cpqIdeControllerSlot + cpqIdeControllerModel cpqIdeControllerOverallCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; + foreach (@{$self->{logical_drives}}) { + $_->dump(); + } + foreach (@{$self->{physical_drives}}) { + $_->dump(); + } + foreach (@{$self->{spare_drives}}) { + $_->dump(); + } +} + + +package HP::Proliant::Component::DiskSubsystem::Ide::LogicalDrive; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Ide); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + cpqIdeLogicalDriveControllerIndex => $params{cpqIdeLogicalDriveControllerIndex}, + cpqIdeLogicalDriveIndex => $params{cpqIdeLogicalDriveIndex}, + cpqIdeLogicalDriveRaidLevel => $params{cpqIdeLogicalDriveRaidLevel}, + cpqIdeLogicalDriveCapacity => $params{cpqIdeLogicalDriveCapacity}, + cpqIdeLogicalDriveStatus => $params{cpqIdeLogicalDriveStatus}, + cpqIdeLogicalDriveCondition => $params{cpqIdeLogicalDriveCondition}, + cpqIdeLogicalDriveDiskIds => $params{cpqIdeLogicalDriveDiskIds}, + cpqIdeLogicalDriveSpareIds => $params{cpqIdeLogicalDriveSpareIds}, + cpqIdeLogicalDriveRebuildingDisk => $params{cpqIdeLogicalDriveRebuildingDisk}, + blacklisted => 0, + }; + bless $self, $class; + $self->{name} = $params{name} || + $self->{cpqIdeLogicalDriveControllerIndex}.':'. + $self->{cpqIdeLogicalDriveIndex}; + $self->{controllerindex} = $self->{cpqIdeLogicalDriveControllerIndex}; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('ideld', $self->{name}); + if ($self->{cpqIdeLogicalDriveCondition} ne "ok") { + if ($self->{cpqIdeLogicalDriveStatus} =~ + /rebuild/) { + $self->add_message(WARNING, + sprintf "logical drive %s is %s", + $self->{name}, $self->{cpqIdeLogicalDriveStatus}); + } else { + $self->add_message(CRITICAL, + sprintf "logical drive %s is %s", + $self->{name}, $self->{cpqIdeLogicalDriveStatus}); + } + } + $self->add_info( + sprintf "logical drive %s is %s", $self->{name}, + $self->{cpqIdeLogicalDriveStatus}); +} + +sub dump { + my $self = shift; + printf "[LOGICAL_DRIVE]\n"; + foreach (qw(cpqIdeLogicalDriveControllerIndex cpqIdeLogicalDriveIndex + cpqIdeLogicalDriveRaidLevel cpqIdeLogicalDriveCapacity + cpqIdeLogicalDriveDiskIds cpqIdeLogicalDriveSpareIds + cpqIdeLogicalDriveRebuildingDisk cpqIdeLogicalDriveStatus + cpqIdeLogicalDriveCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +package HP::Proliant::Component::DiskSubsystem::Ide::PhysicalDrive; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Ide); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + cpqIdeAtaDiskControllerIndex => $params{cpqIdeAtaDiskControllerIndex}, + cpqIdeAtaDiskIndex => $params{cpqIdeAtaDiskIndex}, + cpqIdeAtaDiskModel => $params{cpqIdeAtaDiskModel}, + cpqIdeAtaDiskStatus => $params{cpqIdeAtaDiskStatus}, + cpqIdeAtaDiskCondition => $params{cpqIdeAtaDiskCondition}, + cpqIdeAtaDiskCapacity => $params{cpqIdeAtaDiskCapacity}, + cpqIdeAtaDiskLogicalDriveMember => $params{cpqIdeAtaDiskLogicalDriveMember}, + cpqIdeAtaDiskIsSpare => $params{cpqIdeAtaDiskIsSpare}, + blacklisted => 0, + }; + $self->{name} = $params{name} || + $self->{cpqIdeAtaDiskControllerIndex}.':'. + $self->{cpqIdeAtaDiskIndex}; ####vorerst + $self->{controllerindex} = $self->{cpqIdeAtaDiskControllerIndex}; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('idepd', $self->{name}); + if ($self->{cpqIdeAtaDiskCondition} ne 'ok') { + $self->add_message(CRITICAL, + sprintf "physical drive %s is %s", + $self->{name}, $self->{cpqIdeAtaDiskCondition}); + } + $self->add_info( + sprintf "physical drive %s is %s", + $self->{name}, $self->{cpqIdeAtaDiskCondition}); +} + +sub dump { + my $self = shift; + printf "[PHYSICAL_DRIVE]\n"; + foreach (qw(cpqIdeAtaDiskControllerIndex cpqIdeAtaDiskIndex + cpqIdeAtaDiskModel cpqIdeAtaDiskCapacity cpqIdeAtaDiskLogicalDriveMember + cpqIdeAtaDiskStatus cpqIdeAtaDiskCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +package HP::Proliant::Component::DiskSubsystem::Ide::SpareDrive; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Ide); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub dump { + my $self = shift; + printf "[SPARE_DRIVE]\n"; +} + + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Ide/CLI.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Ide/CLI.pm new file mode 100755 index 0000000..babc616 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Ide/CLI.pm @@ -0,0 +1,27 @@ +package HP::Proliant::Component::DiskSubsystem::Ide::CLI; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Ide); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + controllers => [], + accelerators => [], + enclosures => [], + physical_drives => [], + logical_drives => [], + spare_drives => [], + blacklisted => 0, + }; + bless $self, $class; + return $self; +} + +sub init { + my $self = shift; +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Ide/SNMP.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Ide/SNMP.pm new file mode 100755 index 0000000..86f9543 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Ide/SNMP.pm @@ -0,0 +1,115 @@ +package HP::Proliant::Component::DiskSubsystem::Ide::SNMP; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Ide + HP::Proliant::Component::SNMP); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + controllers => [], + accelerators => [], + enclosures => [], + physical_drives => [], + logical_drives => [], + spare_drives => [], + blacklisted => 0, + }; + bless $self, $class; + return $self; +} + +sub init { + my $self = shift; + my $snmpwalk = $self->{rawdata}; + + # CPQIDE-MIB + my $oids = { + cpqIdeControllerEntry => '1.3.6.1.4.1.232.14.2.3.1.1', + cpqIdeControllerIndex => '1.3.6.1.4.1.232.14.2.3.1.1.1', + cpqIdeControllerOverallCondition => '1.3.6.1.4.1.232.14.2.3.1.1.2', + cpqIdeControllerModel => '1.3.6.1.4.1.232.14.2.3.1.1.3', + cpqIdeControllerSlot => '1.3.6.1.4.1.232.14.2.3.1.1.5', + cpqIdeControllerOverallConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + }; + + # INDEX { cpqIdeControllerIndex } + foreach ($self->get_entries($oids, 'cpqIdeControllerEntry')) { + push(@{$self->{controllers}}, + HP::Proliant::Component::DiskSubsystem::Ide::Controller->new(%{$_})); + } + + $oids = { + cpqIdeLogicalDriveEntry => '1.3.6.1.4.1.232.14.2.6.1.1', + cpqIdeLogicalDriveControllerIndex => '1.3.6.1.4.1.232.14.2.6.1.1.1', + cpqIdeLogicalDriveIndex => '1.3.6.1.4.1.232.14.2.6.1.1.2', + cpqIdeLogicalDriveRaidLevel => '1.3.6.1.4.1.232.14.2.6.1.1.3', + cpqIdeLogicalDriveCapacity => '1.3.6.1.4.1.232.14.2.6.1.1.4', + cpqIdeLogicalDriveStatus => '1.3.6.1.4.1.232.14.2.6.1.1.5', + cpqIdeLogicalDriveCondition => '1.3.6.1.4.1.232.14.2.6.1.1.6', + cpqIdeLogicalDriveDiskIds => '1.3.6.1.4.1.232.14.2.6.1.1.7', + cpqIdeLogicalDriveSpareIds => '1.3.6.1.4.1.232.14.2.6.1.1.9', + cpqIdeLogicalDriveRebuildingDisk => '1.3.6.1.4.1.232.14.2.6.1.1.10', + cpqIdeLogicalDriveRaidLevelValue => { + 1 => "other", + 2 => "raid0", + 3 => "raid1", + 4 => "raid0plus1", + }, + cpqIdeLogicalDriveStatusValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "rebuilding", + 5 => "failed", + }, + cpqIdeLogicalDriveConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + }; + # INDEX { cpqIdeLogicalDriveControllerIndex, cpqIdeLogicalDriveIndex } + foreach ($self->get_entries($oids, 'cpqIdeLogicalDriveEntry')) { + push(@{$self->{logical_drives}}, + HP::Proliant::Component::DiskSubsystem::Ide::LogicalDrive->new(%{$_})); + } + + $oids = { + cpqIdeAtaDiskEntry => '1.3.6.1.4.1.232.14.2.4.1.1', + cpqIdeAtaDiskControllerIndex => '1.3.6.1.4.1.232.14.2.4.1.1.1', + cpqIdeAtaDiskIndex => '1.3.6.1.4.1.232.14.2.4.1.1.2', + cpqIdeAtaDiskModel => '1.3.6.1.4.1.232.14.2.4.1.1.3', + cpqIdeAtaDiskStatus => '1.3.6.1.4.1.232.14.2.4.1.1.6', + cpqIdeAtaDiskCondition => '1.3.6.1.4.1.232.14.2.4.1.1.7', + cpqIdeAtaDiskCapacity => '1.3.6.1.4.1.232.14.2.4.1.1.8', + cpqIdeAtaDiskLogicalDriveMember => '1.3.6.1.4.1.232.14.2.4.1.1.13', + cpqIdeAtaDiskIsSpare => '1.3.6.1.4.1.232.14.2.4.1.1.14', + cpqIdeAtaDiskStatusValue => { + 1 => "other", + 2 => "ok", + 3 => "smartError", + 4 => "failed", + }, + cpqIdeAtaDiskConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + }; + # INDEX { cpqIdeAtaDiskControllerIndex, cpqIdeAtaDiskIndex } + foreach ($self->get_entries($oids, 'cpqIdeAtaDiskEntry')) { + push(@{$self->{physical_drives}}, + HP::Proliant::Component::DiskSubsystem::Ide::PhysicalDrive->new(%{$_})); + } + +} diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Sas.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Sas.pm new file mode 100755 index 0000000..bb417d4 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Sas.pm @@ -0,0 +1,251 @@ +package HP::Proliant::Component::DiskSubsystem::Sas; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem); + +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}, + controllers => [], + enclosures => [], + physical_drives => [], + logical_drives => [], + spare_drives => [], + condition => undef, + blacklisted => 0, + }; + bless $self, $class; + if ($self->{method} eq 'snmp') { + bless $self, 'HP::Proliant::Component::DiskSubsystem::Sas::SNMP'; + } else { + bless $self, 'HP::Proliant::Component::DiskSubsystem::Sas::CLI'; + } + $self->init(); + $self->assemble(); + return $self; +} + +sub check { + my $self = shift; + foreach (@{$self->{controllers}}) { + $_->check(); + } +} + +sub dump { + my $self = shift; + foreach (@{$self->{controllers}}) { + $_->dump(); + } +} + +package HP::Proliant::Component::DiskSubsystem::Sas::Controller; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Sas); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + cpqSasHbaIndex => $params{cpqSasHbaIndex}, + cpqSasHbaLocation => $params{cpqSasHbaLocation}, + cpqSasHbaSlot => $params{cpqSasHbaSlot}, + cpqSasHbaStatus => $params{cpqSasHbaStatus}, + cpqSasHbaCondition => $params{cpqSasHbaCondition}, + blacklisted => 0, + }; + $self->{name} = $params{name} || $self->{cpqSasHbaSlot}; + $self->{controllerindex} = $self->{cpqSasHbaIndex}; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('saco', $self->{cpqSasHbaSlot}); + if ($self->{cpqSasHbaCondition} eq 'other') { + if (scalar(@{$self->{physical_drives}})) { + $self->add_message(CRITICAL, + sprintf 'sas controller in slot %s needs attention', + $self->{cpqSasHbaSlot}); + $self->add_info(sprintf 'sas controller in slot %s needs attention', + $self->{cpqSasHbaSlot}); + } else { + $self->add_info(sprintf 'sas controller in slot %s is ok and unused', + $self->{cpqSasHbaSlot}); + $self->{blacklisted} = 1; + } + } elsif ($self->{cpqSasHbaCondition} ne 'ok') { + $self->add_message(CRITICAL, + sprintf 'sas controller in slot %s needs attention', + $self->{cpqSasHbaSlot}); + $self->add_info(sprintf 'sas controller in slot %s needs attention', + $self->{cpqSasHbaSlot}); + } else { + $self->add_info(sprintf 'sas controller in slot %s is ok', + $self->{cpqSasHbaSlot}); + } + foreach (@{$self->{logical_drives}}) { + $_->check(); + } + foreach (@{$self->{physical_drives}}) { + $_->check(); + } + foreach (@{$self->{spare_drives}}) { + $_->check(); + } +} + +sub dump { + my $self = shift; + printf "[SAS_HBA%s]\n", $self->{name}; + foreach (qw(cpqSasHbaSlot cpqSasHbaIndex cpqSasHbaCondition + cpqSasHbaStatus cpqSasHbaLocation)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; + foreach (@{$self->{logical_drives}}) { + $_->dump(); + } + foreach (@{$self->{physical_drives}}) { + $_->dump(); + } + foreach (@{$self->{spare_drives}}) { + $_->dump(); + } +} + + +package HP::Proliant::Component::DiskSubsystem::Sas::LogicalDrive; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Sas); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + cpqSasLogDrvHbaIndex => $params{cpqSasLogDrvHbaIndex}, + cpqSasLogDrvIndex => $params{cpqSasLogDrvIndex}, + cpqSasLogDrvStatus => $params{cpqSasLogDrvStatus}, + cpqSasLogDrvCondition => $params{cpqSasLogDrvCondition}, + cpqSasLogDrvRebuildingPercent => $params{cpqSasLogDrvRebuildingPercent}, + cpqSasLogDrvRaidLevel => $params{cpqSasLogDrvRaidLevel}, + blacklisted => 0, + }; + bless $self, $class; + $self->{name} = $params{name} || + $self->{cpqSasLogDrvHbaIndex}.':'.$self->{cpqSasLogDrvIndex}; ####vorerst + $self->{controllerindex} = $self->{cpqSasLogDrvHbaIndex}; + if (! $self->{cpqSasLogDrvRebuildingPercent} || + $self->{cpqSasLogDrvRebuildingPercent} == 4294967295) { + $self->{cpqSasLogDrvRebuildingPercent} = 100; + } + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('sald', $self->{name}); + if ($self->{cpqSasLogDrvCondition} ne "ok") { + if ($self->{cpqSasLogDrvStatus} =~ + /rebuild|recovering|expanding|queued/) { + $self->add_message(WARNING, + sprintf "logical drive %s is %s", + $self->{name}, $self->{cpqSasLogDrvStatus}); + } else { + $self->add_message(CRITICAL, + sprintf "logical drive %s is %s", + $self->{name}, $self->{cpqSasLogDrvStatus}); + } + } + $self->add_info( + sprintf "logical drive %s is %s (%s)", $self->{name}, + $self->{cpqSasLogDrvStatus}, $self->{cpqSasLogDrvRaidLevel}); +} + +sub dump { + my $self = shift; + printf "[LOGICAL_DRIVE]\n"; + foreach (qw(cpqSasLogDrvHbaIndex cpqSasLogDrvIndex cpqSasLogDrvRaidLevel + cpqSasLogDrvStatus cpqSasLogDrvCondition + cpqSasLogDrvRebuildingPercent)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +package HP::Proliant::Component::DiskSubsystem::Sas::PhysicalDrive; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Sas); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + cpqSasPhyDrvHbaIndex => $params{cpqSasPhyDrvHbaIndex}, + cpqSasPhyDrvIndex => $params{cpqSasPhyDrvIndex}, + cpqSasPhyDrvLocationString => $params{cpqSasPhyDrvLocationString}, + cpqSasPhyDrvStatus => $params{cpqSasPhyDrvStatus}, + cpqSasPhyDrvSize => $params{cpqSasPhyDrvSize}, + cpqSasPhyDrvCondition => $params{cpqSasPhyDrvCondition}, + blacklisted => 0, + }; + $self->{name} = $params{name} || + $self->{cpqSasPhyDrvHbaIndex}.':'.$self->{cpqSasPhyDrvIndex}; ####vorerst + $self->{controllerindex} = $self->{cpqSasPhyDrvHbaIndex}; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('sapd', $self->{name}); + if ($self->{cpqSasPhyDrvCondition} ne 'ok') { + $self->add_message(CRITICAL, + sprintf "physical drive %s is %s", + $self->{name}, $self->{cpqSasPhyDrvCondition}); + } + $self->add_info( + sprintf "physical drive %s is %s", + $self->{name}, $self->{cpqSasPhyDrvCondition}); +} + +sub dump { + my $self = shift; + printf "[PHYSICAL_DRIVE]\n"; + foreach (qw(cpqSasPhyDrvHbaIndex cpqSasPhyDrvIndex cpqSasPhyDrvLocationString + cpqSasPhyDrvSize cpqSasPhyDrvStatus cpqSasPhyDrvCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +package HP::Proliant::Component::DiskSubsystem::Sas::SpareDrive; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Sas); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub dump { + my $self = shift; + printf "[SPARE_DRIVE]\n"; +} + + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Sas/CLI.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Sas/CLI.pm new file mode 100755 index 0000000..1a250d3 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Sas/CLI.pm @@ -0,0 +1,27 @@ +package HP::Proliant::Component::DiskSubsystem::Sas::CLI; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Sas); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + controllers => [], + accelerators => [], + enclosures => [], + physical_drives => [], + logical_drives => [], + spare_drives => [], + blacklisted => 0, + }; + bless $self, $class; + return $self; +} + +sub init { + my $self = shift; +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Sas/SNMP.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Sas/SNMP.pm new file mode 100755 index 0000000..cb493fd --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Sas/SNMP.pm @@ -0,0 +1,126 @@ +package HP::Proliant::Component::DiskSubsystem::Sas::SNMP; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Sas + HP::Proliant::Component::SNMP); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + controllers => [], + accelerators => [], + enclosures => [], + physical_drives => [], + logical_drives => [], + spare_drives => [], + blacklisted => 0, + }; + bless $self, $class; + return $self; +} + +sub init { + my $self = shift; + my $snmpwalk = $self->{rawdata}; + + # CPQSCSI-MIB + my $oids = { + cpqSasHbaEntry => "1.3.6.1.4.1.232.5.5.1.1.1", + cpqSasHbaIndex => "1.3.6.1.4.1.232.5.5.1.1.1.1", + cpqSasHbaLocation => "1.3.6.1.4.1.232.5.5.1.1.1.2", + cpqSasHbaSlot => "1.3.6.1.4.1.232.5.5.1.1.1.6", + cpqSasHbaStatus => "1.3.6.1.4.1.232.5.5.1.1.1.4", + cpqSasHbaStatusValue => { + 1 => "other", + 2 => "ok", + 3 => "failed", + }, + cpqSasHbaCondition => "1.3.6.1.4.1.232.5.5.1.1.1.5", + cpqSasHbaConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + }; + + # INDEX { cpqSasHbaIndex } + foreach ($self->get_entries($oids, 'cpqSasHbaEntry')) { + push(@{$self->{controllers}}, + HP::Proliant::Component::DiskSubsystem::Sas::Controller->new(%{$_})); + } + + $oids = { + cpqSasLogDrvEntry => "1.3.6.1.4.1.232.5.5.3.1.1", + cpqSasLogDrvHbaIndex => "1.3.6.1.4.1.232.5.5.3.1.1.1", + cpqSasLogDrvIndex => "1.3.6.1.4.1.232.5.5.3.1.1.2", + cpqSasLogDrvStatus => "1.3.6.1.4.1.232.5.5.3.1.1.4", + cpqSasLogDrvCondition => "1.3.6.1.4.1.232.5.5.3.1.1.5", + cpqSasLogDrvRebuildingPercent => "1.3.6.1.4.1.232.5.5.3.1.1.12", + cpqSasLogDrvRaidLevel => "1.3.6.1.4.1.232.5.5.3.1.1.3", + cpqSasLogDrvRaidLevelValue => { + 1 => "other", + 2 => "raid0", + 3 => "raid1", + 4 => "raid0plus1", + 5 => "raid5", + 6 => "raid15", + 7 => "volume", + }, + cpqSasLogDrvConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + cpqSasLogDrvStatusValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "rebuilding", + 5 => "failed", + 6 => "offline", + } + }; + # INDEX { cpqSasLogDrvCntlrIndex, cpqSasLogDrvIndex } + foreach ($self->get_entries($oids, 'cpqSasLogDrvEntry')) { + push(@{$self->{logical_drives}}, + HP::Proliant::Component::DiskSubsystem::Sas::LogicalDrive->new(%{$_})); + } + + $oids = { + cpqSasPhyDrvEntry => "1.3.6.1.4.1.232.5.5.2.1.1", + cpqSasPhyDrvHbaIndex => "1.3.6.1.4.1.232.5.5.2.1.1.1", + cpqSasPhyDrvIndex => "1.3.6.1.4.1.232.5.5.2.1.1.2", + cpqSasPhyDrvLocationString => "1.3.6.1.4.1.232.5.5.2.1.1.3", + cpqSasPhyDrvStatus => "1.3.6.1.4.1.232.5.5.2.1.1.5", + cpqSasPhyDrvSize => "1.3.6.1.4.1.232.5.5.2.1.1.8", + cpqSasPhyDrvCondition => "1.3.6.1.4.1.232.5.5.2.1.1.6", + cpqSasPhyDrvConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + cpqSasPhyDrvStatusValue => { + 1 => "other", + 2 => "ok", + 3 => "predictiveFailure", + 4 => "offline", + 5 => "failed", + 6 => "missingWasOk", + 7 => "missingWasPredictiveFailure", + 8 => "missingWasOffline", + 9 => "missingWasFailed", + }, + }; + + # INDEX { cpqPhyLogDrvCntlrIndex, cpqSasPhyDrvIndex } + foreach ($self->get_entries($oids, 'cpqSasPhyDrvEntry')) { + push(@{$self->{physical_drives}}, + HP::Proliant::Component::DiskSubsystem::Sas::PhysicalDrive->new(%{$_})); + } + +} diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Scsi.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Scsi.pm new file mode 100755 index 0000000..cf38238 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Scsi.pm @@ -0,0 +1,227 @@ +package HP::Proliant::Component::DiskSubsystem::Scsi; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem); + +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}, + controllers => [], + enclosures => [], + physical_drives => [], + logical_drives => [], + spare_drives => [], + condition => undef, + blacklisted => 0, + }; + bless $self, $class; + if ($self->{method} eq 'snmp') { + bless $self, 'HP::Proliant::Component::DiskSubsystem::Scsi::SNMP'; + } else { + bless $self, 'HP::Proliant::Component::DiskSubsystem::Scsi::CLI'; + } + $self->init(); + $self->assemble(); + return $self; +} + +sub check { + my $self = shift; + foreach (@{$self->{controllers}}) { + $_->check(); + } +} + +sub dump { + my $self = shift; + foreach (@{$self->{controllers}}) { + $_->dump(); + } +} + +package HP::Proliant::Component::DiskSubsystem::Scsi::Controller; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Scsi); + +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, + }; + map { $self->{$_} = $params{$_} } grep /cpqScsiCntlr/, keys %params; + $self->{name} = $params{name} || $params{cpqScsiCntlrIndex}.':'.$params{cpqScsiCntlrBusIndex}; + $self->{controllerindex} = $self->{cpqScsiCntlrIndex}; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('scco', $self->{name}); + my $info = sprintf 'scsi controller %s in slot %s is %s', + $self->{name}, $self->{cpqScsiCntlrSlot}, $self->{cpqScsiCntlrCondition}; + if ($self->{cpqScsiCntlrCondition} eq 'other') { + if (scalar(@{$self->{physical_drives}})) { + $info .= ' and needs attention'; + $self->add_message(CRITICAL, $info); + $self->add_info($info); + } else { + $info .= ' and unused'; + $self->add_info($info); + $self->{blacklisted} = 1; + } + } elsif ($self->{cpqScsiCntlrCondition} ne 'ok') { + $info .= ' and needs attention'; + $self->add_message(CRITICAL, $info); + $self->add_info($info); + } else { + $self->add_info($info); + } + foreach (@{$self->{logical_drives}}) { + $_->check(); + } + foreach (@{$self->{physical_drives}}) { + $_->check(); + } + foreach (@{$self->{spare_drives}}) { + $_->check(); + } +} + +sub dump { + my $self = shift; + printf "[SCSI_CONTROLLER_%s]\n", $self->{name}; + foreach (qw(cpqScsiCntlrIndex cpqScsiCntlrBusIndex cpqScsiCntlrSlot + cpqScsiCntlrStatus cpqScsiCntlrCondition cpqScsiCntlrHwLocation)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; + foreach (@{$self->{logical_drives}}) { + $_->dump(); + } + foreach (@{$self->{physical_drives}}) { + $_->dump(); + } + foreach (@{$self->{spare_drives}}) { + $_->dump(); + } +} + + +package HP::Proliant::Component::DiskSubsystem::Scsi::LogicalDrive; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Scsi); + +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, + }; + map { $self->{$_} = $params{$_} } grep /cpqScsiLogDrv/, keys %params; + $self->{name} = $params{name} || $params{cpqScsiLogDrvCntlrIndex}.':'.$params{cpqScsiLogDrvBusIndex}.':'.$params{cpqScsiLogDrvIndex}; + bless $self, $class; + $self->{controllerindex} = $self->{cpqScsiLogDrvCntlrIndex}; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('scld', $self->{name}); + my $info = sprintf 'logical drive %s is %s', $self->{name}, $self->{cpqScsiLogDrvStatus}; + if ($self->{cpqScsiLogDrvCondition} ne "ok") { + if ($self->{cpqScsiLogDrvStatus} =~ + /rebuild|recovering/) { + $self->add_message(WARNING, $info); + } else { + $self->add_message(CRITICAL, $info); + } + } + $self->add_info($info); +} + +sub dump { + my $self = shift; + printf "[LOGICAL_DRIVE_%s]\n", $self->{name}; + foreach (qw(cpqScsiLogDrvCntlrIndex cpqScsiLogDrvBusIndex cpqScsiLogDrvIndex + cpqScsiLogDrvFaultTol cpqScsiLogDrvStatus cpqScsiLogDrvSize + cpqScsiLogDrvPhyDrvIDs cpqScsiLogDrvCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +package HP::Proliant::Component::DiskSubsystem::Scsi::PhysicalDrive; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Scsi); + +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, + }; + map { $self->{$_} = $params{$_} } grep /cpqScsiPhyDrv/, keys %params; + $self->{name} = $params{name} || + $self->{cpqScsiPhyDrvCntlrIndex}.':'.$self->{cpqScsiPhyDrvBusIndex}.':'.$self->{cpqScsiPhyDrvIndex}; + $self->{controllerindex} = $self->{cpqScsiPhyDrvCntlrIndex}; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('scpd', $self->{name}); + my $info = sprintf 'physical drive %s is %s', $self->{name}, $self->{cpqScsiPhyDrvCondition}; + if ($self->{cpqScsiPhyDrvCondition} ne 'ok') { + $self->add_message(CRITICAL, $info); + } + $self->add_info($info); +} + +sub dump { + my $self = shift; + printf "[PHYSICAL_DRIVE_%s]\n", $self->{name}; + foreach (qw(cpqScsiPhyDrvCntlrIndex cpqScsiPhyDrvBusIndex cpqScsiPhyDrvIndex + cpqScsiPhyDrvStatus cpqScsiPhyDrvSize cpqScsiPhyDrvCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "\n"; +} + + +package HP::Proliant::Component::DiskSubsystem::Scsi::SpareDrive; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Scsi); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub dump { + my $self = shift; + printf "[SPARE_DRIVE]\n"; +} + + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Scsi/CLI.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Scsi/CLI.pm new file mode 100755 index 0000000..69b3926 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Scsi/CLI.pm @@ -0,0 +1,27 @@ +package HP::Proliant::Component::DiskSubsystem::Scsi::CLI; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Scsi); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + controllers => [], + accelerators => [], + enclosures => [], + physical_drives => [], + logical_drives => [], + spare_drives => [], + blacklisted => 0, + }; + bless $self, $class; + return $self; +} + +sub init { + my $self = shift; +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Scsi/SNMP.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Scsi/SNMP.pm new file mode 100755 index 0000000..71a0f66 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/DiskSubsystem/Scsi/SNMP.pm @@ -0,0 +1,134 @@ +package HP::Proliant::Component::DiskSubsystem::Scsi::SNMP; +our @ISA = qw(HP::Proliant::Component::DiskSubsystem::Scsi + HP::Proliant::Component::SNMP); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + controllers => [], + accelerators => [], + enclosures => [], + physical_drives => [], + logical_drives => [], + spare_drives => [], + blacklisted => 0, + }; + bless $self, $class; + return $self; +} + +sub init { + my $self = shift; + my $snmpwalk = $self->{rawdata}; + + # CPQSCSI-MIB + my $oids = { + cpqScsiCntlrEntry => '1.3.6.1.4.1.232.5.2.2.1.1', + cpqScsiCntlrIndex => '1.3.6.1.4.1.232.5.2.2.1.1.1', + cpqScsiCntlrBusIndex => '1.3.6.1.4.1.232.5.2.2.1.1.2', + cpqScsiCntlrSlot => '1.3.6.1.4.1.232.5.2.2.1.1.6', + cpqScsiCntlrStatus => '1.3.6.1.4.1.232.5.2.2.1.1.7', + cpqScsiCntlrCondition => '1.3.6.1.4.1.232.5.2.2.1.1.12', + cpqScsiCntlrHwLocation => '1.3.6.1.4.1.232.5.2.2.1.1.16', + cpqScsiCntlrStatusValue => { + 1 => "other", + 2 => "ok", + 3 => "failed", + }, + cpqScsiCntlrConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + } + }; + + # INDEX { cpqScsiCntlrIndex, cpqScsiCntlrBusIndex } + foreach ($self->get_entries($oids, 'cpqScsiCntlrEntry')) { + push(@{$self->{controllers}}, + HP::Proliant::Component::DiskSubsystem::Scsi::Controller->new(%{$_})); + } + + $oids = { + cpqScsiLogDrvEntry => '1.3.6.1.4.1.232.5.2.3.1.1', + cpqScsiLogDrvCntlrIndex => '1.3.6.1.4.1.232.5.2.3.1.1.1', + cpqScsiLogDrvBusIndex => '1.3.6.1.4.1.232.5.2.3.1.1.2', + cpqScsiLogDrvIndex => '1.3.6.1.4.1.232.5.2.3.1.1.3', + cpqScsiLogDrvFaultTol => '1.3.6.1.4.1.232.5.2.3.1.1.4', + cpqScsiLogDrvStatus => '1.3.6.1.4.1.232.5.2.3.1.1.5', + cpqScsiLogDrvSize => '1.3.6.1.4.1.232.5.2.3.1.1.6', + cpqScsiLogDrvPhyDrvIDs => '1.3.6.1.4.1.232.5.2.3.1.1.7', + cpqScsiLogDrvCondition => '1.3.6.1.4.1.232.5.2.3.1.1.8', + cpqScsiLogDrvStatusValue => { + 1 => "other", + 2 => "ok", + 3 => "failed", + 4 => "unconfigured", + 5 => "recovering", + 6 => "readyForRebuild", + 7 => "rebuilding", + 8 => "wrongDrive", + 9 => "badConnect", + }, + cpqScsiLogDrvConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + cpqScsiLogDrvFaultTolValue => { + 1 => "other", + 2 => "none", + 3 => "mirroring", + 4 => "dataGuard", + 5 => "distribDataGuard", + }, + + }; + # INDEX { cpqScsiLogDrvCntlrIndex, cpqScsiLogDrvBusIndex, cpqScsiLogDrvIndex } + foreach ($self->get_entries($oids, 'cpqScsiLogDrvEntry')) { + push(@{$self->{logical_drives}}, + HP::Proliant::Component::DiskSubsystem::Scsi::LogicalDrive->new(%{$_})); + } + + $oids = { + cpqScsiPhyDrvEntry => '1.3.6.1.4.1.232.5.2.4.1.1', + cpqScsiPhyDrvCntlrIndex => '1.3.6.1.4.1.232.5.2.4.1.1.1', + cpqScsiPhyDrvBusIndex => '1.3.6.1.4.1.232.5.2.4.1.1.2', + cpqScsiPhyDrvIndex => '1.3.6.1.4.1.232.5.2.4.1.1.3', + cpqScsiPhyDrvStatus => '1.3.6.1.4.1.232.5.2.4.1.1.9', + cpqScsiPhyDrvSize => '1.3.6.1.4.1.232.5.2.4.1.1.7', + cpqScsiPhyDrvCondition => '1.3.6.1.4.1.232.5.2.4.1.1.26', + cpqScsiPhyDrvConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + cpqScsiPhyDrvStatusValue => { + 1 => "other", + 2 => "ok", + 3 => "failed", + 4 => "notConfigured", + 5 => "badCable", + 6 => "missingWasOk", + 7 => "missingWasFailed", + 8 => "predictiveFailure", + 9 => "missingWasPredictiveFailure", + 10 => "offline", + 11 => "missingWasOffline", + 12 => "hardError", + }, + }; + + # INDEX { cpqScsiPhyDrvCntlrIndex, cpqScsiPhyDrvBusIndex, cpqScsiPhyDrvIndex } + foreach ($self->get_entries($oids, 'cpqScsiPhyDrvEntry')) { + push(@{$self->{physical_drives}}, + HP::Proliant::Component::DiskSubsystem::Scsi::PhysicalDrive->new(%{$_})); + } + +} diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/EventSubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/EventSubsystem.pm new file mode 100755 index 0000000..2a7a378 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/EventSubsystem.pm @@ -0,0 +1,236 @@ +package HP::Proliant::Component::EventSubsystem; +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}, + events => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + boottime => 0, + }; + bless $self, $class; + if ($self->{method} eq 'snmp') { + $self = HP::Proliant::Component::EventSubsystem::SNMP->new(%params); + my $sysUpTime = SNMP::Utils::get_object( + $self->{rawdata}, '1.3.6.1.2.1.1.3.0') || 3600*24*100; + $self->{boottime} = int(time - $sysUpTime / 100); + } elsif ($self->{method} eq 'cli') { + $self = HP::Proliant::Component::EventSubsystem::CLI->new(%params); + my $uptime = do { local (@ARGV, $/) = "/proc/uptime"; my $x = <>; close ARGV; $x }; + # also watch 10 minutes of booting before the operating system starts ticking + $self->{boottime} = time - int((split(/\s+/, $uptime))[0]) - 600; + } else { + die "unknown method"; + } + # repair dates + my $lasttime = 0; + for my $event (reverse @{$self->{events}}) { + if ($event->{cpqHeEventLogUpdateTime} != 0) { + $lasttime = $event->{cpqHeEventLogUpdateTime}; + } else { + $event->{cpqHeEventLogUpdateTime} = $lasttime; + } + } + # maybe the most recent events had zero timestamps. + # fill them up with timestamps from the past. + for my $event (@{$self->{events}}) { + if ($event->{cpqHeEventLogUpdateTime} != 0) { + $lasttime = $event->{cpqHeEventLogUpdateTime}; + } else { + $event->{cpqHeEventLogUpdateTime} = $lasttime; + } + } + # we need the boottime in the event's check method + for my $event (@{$self->{events}}) { + $event->{boottime} = $self->{boottime}; + } + return $self; +} + +sub check { + my $self = shift; + my $errorfound = 0; + $self->add_info('checking events'); + if (scalar (@{$self->{events}}) == 0) { + #$self->overall_check(); + $self->add_info('no events found'); + } else { + foreach (sort { $a->{cpqHeEventLogEntryNumber} <=> $b->{cpqHeEventLogEntryNumber}} + @{$self->{events}}) { + $_->check($self->{warningtime}, $self->{criticaltime}); + } + } +} + +sub dump { + my $self = shift; + foreach (sort { $a->{cpqHeEventLogEntryNumber} <=> $b->{cpqHeEventLogEntryNumber} } @{$self->{events}}) { + $_->dump(); + } +} + + +package HP::Proliant::Component::EventSubsystem::Event; +our @ISA = qw(HP::Proliant::Component::EventSubsystem); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +{ + our $interesting_events = { + # POST Error: 201-Memory Error Multi-bit error occurred during memory initialization, Board 1, Bank B. Bank containing DIMM(s) has been disabled.. + # POST Error: 201-Memory Error Single-bit error occured during memory initialization, Board 1, DIMM 1. Bank containing DIMM(s) has been disabled.. + # POST Error: 207-Memory initialization error on Memory Board 5 DIMM 7. The operating system may not have access to all of the memory installed in the system.. + # POST Error: 207-Invalid Memory Configuration-Mismatched DIMMs within DIMM Bank Memory in Bank A Not Utilized.. + # POST Error: 210 - Quick Path Interconnect (QPI) Link Degradation. A QPI link is operating in a degraded performace state.. + 'POST Messages' => [ + '201-Memory', '207-Memory', + '210\s*-\s*Quick Path Interconnect.*degraded.*' + ], + 'Main Memory' => [ + 'Corrected Memory Error threshold exceeded', + 'Uncorrectable Memory Error', + ], + }; +} + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + cpqHeEventLogEntryNumber => $params{cpqHeEventLogEntryNumber}, + cpqHeEventLogEntrySeverity => lc $params{cpqHeEventLogEntrySeverity}, + cpqHeEventLogEntryClass => $params{cpqHeEventLogEntryClass}, + cpqHeEventLogEntryCount => $params{cpqHeEventLogEntryCount} || 1, + cpqHeEventLogInitialTime => $params{cpqHeEventLogInitialTime}, + cpqHeEventLogUpdateTime => $params{cpqHeEventLogUpdateTime}, + cpqHeEventLogErrorDesc => $params{cpqHeEventLogErrorDesc}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + if (! $self->{cpqHeEventLogInitialTime}) { + $self->{cpqHeEventLogInitialTime} = $self->{cpqHeEventLogUpdateTime}; + } + # + # + #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + # |warn |crit |now + # + #<----- ignore -------><----- warning ------><---------- critical ---------> + # + # If we have --eventrange <warnlookback>/<critlookback> + # Very young events are shown as critical + # If the event gets older, it is shown as warning + # At some time, the event is no longer shown + # Without --eventrange the event is shown as critical until you manually repair it + if ($params{runtime}->{options}->{eventrange}) { + my ($warningrange, $criticalrange) = split(/\//, $params{runtime}->{options}->{eventrange}); + if (! $criticalrange) { + $criticalrange = $warningrange; + } + if ($criticalrange =~ /^(\d+)[s]*$/) { + $criticalrange = $1; + } elsif ($criticalrange =~ /^(\d+)m$/) { + $criticalrange = $1 * 60; + } elsif ($criticalrange =~ /^(\d+)h$/) { + $criticalrange = $1 * 3600; + } elsif ($criticalrange =~ /^(\d+)d$/) { + $criticalrange = $1 * 3600 * 24; + } else { + die "range has to be <number>[smhd]"; + } + if ($warningrange =~ /^(\d+)[s]*$/) { + $warningrange = $1; + } elsif ($warningrange =~ /^(\d+)m$/) { + $warningrange = $1 * 60; + } elsif ($warningrange =~ /^(\d+)h$/) { + $warningrange = $1 * 3600; + } elsif ($warningrange =~ /^(\d+)d$/) { + $warningrange = $1 * 3600 * 24; + } else { + die "range has to be <number>[smhd]"; + } + $self->{warningtime} = time - $warningrange; + $self->{criticaltime} = time - $criticalrange; + } else { + $self->{warningtime} = 0; + $self->{criticaltime} = 0; + } + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('evt', $self->{cpqHeEventLogEntryNumber}); + # only check severity "critical" and "caution" + # optional: only check interesting events + # POST events only if they date maximum from reboot-5min + # younger than critical? -> critical + # + $self->add_info(sprintf "Event: %d Added: %s Class: (%s) %s %s", + $self->{cpqHeEventLogEntryNumber}, + $self->{cpqHeEventLogUpdateTime}, + $self->{cpqHeEventLogEntryClass}, + $self->{cpqHeEventLogEntrySeverity}, + $self->{cpqHeEventLogErrorDesc}); + if ($self->{cpqHeEventLogEntrySeverity} eq "caution" || + $self->{cpqHeEventLogEntrySeverity} eq "critical") { + # also watch 10 minutes of booting before the operating system starts ticking + if ($self->{cpqHeEventLogUpdateTime} >= $self->{boottime}) { + foreach my $class (keys %{$HP::Proliant::Component::EventSubsystem::Event::interesting_events}) { + foreach my $pattern (@{$HP::Proliant::Component::EventSubsystem::Event::interesting_events->{$class}}) { + if ($self->{cpqHeEventLogErrorDesc} =~ /$pattern/) { + if ($self->{cpqHeEventLogUpdateTime} < $self->{warningtime}) { + # you didn't care for this problem too long. + # don't say i didn't warn you. + if (0) { + # auto-ack? + } + last; + } elsif ($self->{cpqHeEventLogUpdateTime} < $self->{criticaltime}) { + $self->add_message(WARNING, $self->{info}); + last; + } else { + $self->add_message(CRITICAL, $self->{info}); + last; + } + } + } + } + } + } else { + # info, repair... + } +} + +sub dump { + my $self = shift; + printf "[EVENT_%s]\n", $self->{cpqHeEventLogEntryNumber}; + foreach (qw(cpqHeEventLogEntryNumber cpqHeEventLogEntrySeverity + cpqHeEventLogEntryCount cpqHeEventLogInitialTime + cpqHeEventLogUpdateTime cpqHeEventLogErrorDesc)) { + if ($_ =~ /.*Time$/) { + printf "%s: %s\n", $_, scalar localtime $self->{$_}; + } else { + printf "%s: %s\n", $_, $self->{$_}; + } + } + printf "info: %s\n\n", $self->{info}; +} + +1; + diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/EventSubsystem/CLI.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/EventSubsystem/CLI.pm new file mode 100755 index 0000000..b75a547 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/EventSubsystem/CLI.pm @@ -0,0 +1,78 @@ +package HP::Proliant::Component::EventSubsystem::CLI; +our @ISA = qw(HP::Proliant::Component::EventSubsystem); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; +use Time::Local; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + rawdata => $params{rawdata}, + events => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(%params); + return $self; +} + + +sub init { + my $self = shift; + my %params = @_; + my %tmpevent = ( + runtime => $params{runtime}, + ); + my $inblock = 0; + foreach (grep(/^iml/, split(/\n/, $self->{rawdata}))) { + s/^iml\s*//g; + if (/^Event:\s+(\d+)\s+[\w]+:\s+(\d+)\/(\d+)\/(\d+)\s+(\d+):(\d+)/) { + # Event: 31 Added: 09/22/2011 05:11 + # 1 2 3 4 5 6 + $tmpevent{cpqHeEventLogEntryNumber} = $1; + if ($4 == 0) { + # Event: 29 Added: 00/00/0000 00:00 + $tmpevent{cpqHeEventLogUpdateTime} = 0; + } else { + eval { + $tmpevent{cpqHeEventLogUpdateTime} = timelocal(0, $6, $5, $3, $2 - 1, $4); + }; + if ($@) { + # Event: 10 Added: 27/27/2027 27:27 + $tmpevent{cpqHeEventLogUpdateTime} = 0; + } + } + $inblock = 1; + } elsif (/^(\w+):\s+(.*?)\s+\-\s+(.*)/) { + $tmpevent{cpqHeEventLogEntrySeverity} = $1; + $tmpevent{cpqHeEventLogEntryClass} = $2; + $tmpevent{cpqHeEventLogErrorDesc} = $3; + if ($tmpevent{cpqHeEventLogErrorDesc} =~ /.*?:\s+(\d+)/) { + $tmpevent{cpqHeEventLogEntryCode} = $1; + } else { + $tmpevent{cpqHeEventLogEntryCode} = 0; + } + } elsif (/^\s*$/) { + if ($inblock) { + $inblock = 0; + push(@{$self->{events}}, + HP::Proliant::Component::EventSubsystem::Event->new(%tmpevent)); + %tmpevent = ( + runtime => $params{runtime}, + ); + } + } + } + if ($inblock) { + push(@{$self->{events}}, + HP::Proliant::Component::EventSubsystem::Event->new(%tmpevent)); + } +} + +1; + diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/EventSubsystem/SNMP.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/EventSubsystem/SNMP.pm new file mode 100755 index 0000000..506732a --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/EventSubsystem/SNMP.pm @@ -0,0 +1,221 @@ +package HP::Proliant::Component::EventSubsystem::SNMP; +our @ISA = qw(HP::Proliant::Component::EventSubsystem + HP::Proliant::Component::SNMP); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; +use Time::Local; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + rawdata => $params{rawdata}, + events => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->overall_init(%params); + $self->init(%params); + return $self; +} + +sub overall_init { + my $self = shift; + my %params = @_; + my $snmpwalk = $params{rawdata}; + # overall + my $cpqHeEventLogSupported = '1.3.6.1.4.1.232.6.2.11.1.0'; + my $cpqHeEventLogSupportedValue = { + 1 => 'other', + 2 => 'notSupported', + 3 => 'supported', + 4 => 'clear', + }; + my $cpqHeEventLogCondition = '1.3.6.1.4.1.232.6.2.11.2.0'; + my $cpqHeEventLogConditionValue = { + 1 => 'other', + 2 => 'ok', + 3 => 'degraded', + 4 => 'failed', + }; + $self->{eventsupp} = SNMP::Utils::get_object_value( + $snmpwalk, $cpqHeEventLogSupported, + $cpqHeEventLogSupportedValue); + $self->{eventstatus} = SNMP::Utils::get_object_value( + $snmpwalk, $cpqHeEventLogCondition, + $cpqHeEventLogConditionValue); + $self->{eventsupp} |= lc $self->{eventsupp}; + $self->{eventstatus} |= lc $self->{eventstatus}; +} + +sub init { + my $self = shift; + my %params = @_; + my $snmpwalk = $self->{rawdata}; + my $oids = { + cpqHeEventLogEntry => "1.3.6.1.4.1.232.6.2.11.3.1", + cpqHeEventLogEntryNumber => "1.3.6.1.4.1.232.6.2.11.3.1.1", + cpqHeEventLogEntrySeverity => "1.3.6.1.4.1.232.6.2.11.3.1.2", + cpqHeEventLogEntryClass => "1.3.6.1.4.1.232.6.2.11.3.1.3", + cpqHeEventLogEntryCode => "1.3.6.1.4.1.232.6.2.11.3.1.4", + cpqHeEventLogEntryCount => "1.3.6.1.4.1.232.6.2.11.3.1.5", + cpqHeEventLogInitialTime => "1.3.6.1.4.1.232.6.2.11.3.1.6", + cpqHeEventLogUpdateTime => "1.3.6.1.4.1.232.6.2.11.3.1.7", + cpqHeEventLogErrorDesc => "1.3.6.1.4.1.232.6.2.11.3.1.8", + + cpqHeEventLogEntryClassValue => { + # 2 Fan Failure (Fan 1, Location I/O Board) + # Internal Storage System Overheating (Slot 0, Zone 1, Location Storage, Temperature Unknown) + # System Fans Not Redundant (Location I/O Board) + # MY MUSTARD: only critical events should lead to an alert, if at all. The caution events mean "loss of redundancy". + # We monitor temperatures and fan status anyway. + #2 => "", + # 3 Corrected Memory Error threshold exceeded (System Memory, Memory Module 1) + # Uncorrectable Memory Error detected by ROM-based memory validation (Board 1, Memory Module 4) + # MY MUSTARD: threshold exceeded is caution. Uncorrectable errors are critical. Both should be detected anyway. + 3 => "Main Memory", + # 4 Accelerator Cache Memory Parity Error (Socket 1) + #4 => "", + # 5 Processor Correctable error threshold exceeded (Board 0, Processor 2) + #5 => "", + # 6 Unrecoverable Intermodule Bus error (Error code 0x00000000) + #6 => "", + # 8 PCI Bus Error (Slot 0, Bus 0, Device 0, Function 0) + 8 => "PCI Bus", + # 10 1720-S.M.A.R.T. Hard Drive Detects Imminent Failure + # POST Error: 201-Memory Error Multi-bit error occurred during memory initialization, Board 1, Bank B. Bank containing DIMM(s) has been disabled.. + # POST Error: 201-Memory Error Single-bit error occured during memory initialization, Board 1, DIMM 1. Bank containing DIMM(s) has been disabled.. + # POST Error: 207-Memory Configuration Warning - memory boards should be installed sequentially. + # POST Error: 210-Memory Board Failure on board 4. + # POST Error: 210-Memory Board Power Fault on board 3. + # POST Error: 207-Memory initialization error on Memory Board 5 DIMM 7. The operating system may not have access to all of the memory installed in the system.. + # POST Error: 207-Invalid Memory Configuration-Mismatched DIMMs within DIMM Bank Memory in Bank A Not Utilized.. + 10 => "POST Messages", + 11 => "Power Subsystem", + 13 => "ASR", + # 14 Automatic Operating System Shutdown Initiated Due to Overheat Condition + # Automatic Operating System Shutdown Initiated Due to Fan Failure + # Blue Screen Trap (BugCheck, STOP: 0x00000050 (0x9CB2C5B4, 0x00000001, 0x00000004, 0x00000000)) + # Operating System failure (BugCheck, STOP: 0x000000AB (0x00000005, 0x00000488, 0x00000000, 0x00000002)) + 14 => "OS Class", + # 15 Unknown Event (Class 15, Code 255) + #15 => "", + # 17 Network Adapter Link Down (Slot 0, Port 4) + # Network Adapters Redundancy Reduced (Slot 0, Port 1) + 17 => "Network Adapter", + # 19 Drive Array Device Failure (Slot 0, Bus 2, Bay 4) + # Internal SAS Enclosure Device Failure (Bay 1, Box 1, Port 2I, Slot 1) + #19 => "", + # 20 An Unrecoverable System Error (NMI) has occurred + # Unrecoverable System Error has occurred (Error code 0x01AE0E2F, 0x00000000) + 20 => "Unrecoverable System Error", + # 32 ROM flashed (New version: 01/09/2008) + 32 => "System Revision", + # 33 IML Cleared (Administrator) + # IML cleared through HP ProLiant Health Agent (cmahealthd) + # Insight Diagnostics Note: Physisches Festplattenlaufwerk 5, Controller Steckplatz 0-Diagnosis: Fehlgeschlagen + 33 => "Maintenance Note", + # 34 New Chassis Connected (Enclosure Address 27AC) + # Loss Of Chassis Connectivity (Enclosure Serial Number 8004******) + # Server Blade Enclosure Server Blade Inserted (Slot 16, Enclosure Address 0000) + #34 => "", + }, + cpqHeEventLogEntrySeverityValue => { + 2 => "informational", + 3 => "infoWithAlert", + 6 => "repaired", + 9 => "caution", + 15 => "critical", + }, + # Time + # 07 D8 09 02 11 11 + }; + # INDEX { cpqHeEventLogEntryNumber } + foreach ($self->get_entries($oids, 'cpqHeEventLogEntry')) { + if ($_->{cpqHeEventLogInitialTime} =~ /^(([0-9a-fA-F]{2})( [0-9a-fA-F]{2})*)\s*$/) { + $_->{cpqHeEventLogInitialTime} =~ s/ //; + my ($year, $month, $day, $hour, $min) = map { hex($_) } split(/\s+/, $_->{cpqHeEventLogInitialTime}); + if ($year == 0) { + $_->{cpqHeEventLogInitialTime} = 0; + } else { + eval { + $_->{cpqHeEventLogInitialTime} = timelocal(0, $min, $hour, $day, $month - 1, $year); + }; + if ($@) { + $_->{cpqHeEventLogInitialTime} = 0; + } + } + } elsif ($_->{cpqHeEventLogInitialTime} =~ /^0x([0-9a-fA-F]{4})([0-9a-fA-F]{2})([0-9a-fA-F]{2})([0-9a-fA-F]{2})([0-9a-fA-F]{2})/) { + my ($year, $month, $day, $hour, $min) = map { hex($_) } ($1, $2, $3, $4, $5); + if ($year == 0) { + $_->{cpqHeEventLogInitialTime} = 0; + } else { + eval { + $_->{cpqHeEventLogInitialTime} = timelocal(0, $min, $hour, $day, $month - 1, $year); + }; + if ($@) { + $_->{cpqHeEventLogInitialTime} = 0; + } + } + } elsif ($_->{cpqHeEventLogInitialTime} =~ /^\0\0\0\0\0\0/) { + $_->{cpqHeEventLogInitialTime} = 0; + } + if ($_->{cpqHeEventLogUpdateTime} =~ /^(([0-9a-fA-F]{2})( [0-9a-fA-F]{2})*)\s*$/) { + $_->{cpqHeEventLogUpdateTime} =~ s/ //; + my ($year, $month, $day, $hour, $min) = map { hex($_) } split(/\s+/, $_->{cpqHeEventLogUpdateTime}); + if ($year == 0) { + $_->{cpqHeEventLogUpdateTime} = 0; + } else { + eval { + $_->{cpqHeEventLogUpdateTime} = timelocal(0, $min, $hour, $day, $month - 1, $year); + }; + if ($@) { + $_->{cpqHeEventLogUpdateTime} = 0; + } + } + } elsif ($_->{cpqHeEventLogUpdateTime} =~ /^0x([0-9a-fA-F]{4})([0-9a-fA-F]{2})([0-9a-fA-F]{2})([0-9a-fA-F]{2})([0-9a-fA-F]{2})/) { + my ($year, $month, $day, $hour, $min) = map { hex($_) } ($1, $2, $3, $4, $5); + if ($year == 0) { + $_->{cpqHeEventLogUpdateTime} = 0; + } else { + eval { + $_->{cpqHeEventLogUpdateTime} = timelocal(0, $min, $hour, $day, $month - 1, $year); + }; + if ($@) { + $_->{cpqHeEventLogUpdateTime} = 0; + } + } + } elsif ($_->{cpqHeEventLogUpdateTime} =~ /^\0\0\0\0\0\0/) { + $_->{cpqHeEventLogUpdateTime} = 0; + } + if ($_->{cpqHeEventLogErrorDesc} =~ /^(([0-9a-fA-F]{2})(\s+[0-9a-fA-F]{2})*)\s*$/) { + $_->{cpqHeEventLogErrorDesc} = join "", map { chr($_) } map { if (hex($_) > 127) { 20; } else { hex($_) } } split(/\s+/, $_->{cpqHeEventLogErrorDesc}); + } + push(@{$self->{events}}, + HP::Proliant::Component::EventSubsystem::Event->new(%{$_})); + } +} + +sub overall_check { + my $self = shift; + my $result = 0; + $self->blacklist('oe', ''); + if ($self->{eventsupp} && $self->{eventsupp} eq "supported") { + if ($self->{eventstatus} eq "ok") { + $result = 0; + $self->add_info('eventlog system is ok'); + } else { + $result = 0; + $self->add_info(sprintf "eventlog system is %s", $self->{eventstatus}); + } + } else { + $result = 0; + $self->add_info('no event status found'); + } +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/FanSubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/FanSubsystem.pm new file mode 100755 index 0000000..38da57b --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/FanSubsystem.pm @@ -0,0 +1,263 @@ +package HP::Proliant::Component::FanSubsystem; +our @ISA = qw(HP::Proliant::Component); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; +################################## fan_redundancy ########## + my %params = @_; + my $self = { + runtime => $params{runtime}, + rawdata => $params{rawdata}, + method => $params{method}, + condition => $params{condition}, + status => $params{status}, + fans => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + if ($self->{method} eq 'snmp') { + return HP::Proliant::Component::FanSubsystem::SNMP->new(%params); + } elsif ($self->{method} eq 'cli') { + return HP::Proliant::Component::FanSubsystem::CLI->new(%params); + } else { + die 'unknown method'; + } + return $self; +} + +sub check { + my $self = shift; + my $errorfound = 0; + $self->add_info('checking fans'); + $self->blacklist('ff', ''); + if (scalar (@{$self->{fans}}) == 0) { + $self->overall_check(); # sowas ist mir nur einmal untergekommen + # die maschine hatte alles in allem nur 2 oids (cpqHeFltTolFanChassis) + # SNMPv2-SMI::enterprises.232.6.2.6.7.1.1.0.1 = INTEGER: 0 + # SNMPv2-SMI::enterprises.232.6.2.6.7.1.1.0.2 = INTEGER: 0 + } else { + my $overallhealth = $self->overall_check(); + foreach (@{$self->{fans}}) { + $_->{overallhealth} = $overallhealth; + $_->check(); + } + } +} + +sub dump { + my $self = shift; + foreach (@{$self->{fans}}) { + $_->dump(); + } +} + +sub get_fan_by_index { + my $self = shift; + my $index; + foreach (@{$self->{fans}}) { + return $_ if exists $_->{cpqHeFltTolFanIndex} && + $_->{cpqHeFltTolFanIndex} == $index; + } + return undef; +} + + +package HP::Proliant::Component::FanSubsystem::Fan; +our @ISA = qw(HP::Proliant::Component::FanSubsystem); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + if (exists $params{cpqHeFltTolFanRedundant}) { + return HP::Proliant::Component::FanSubsystem::Fan::FTol->new(%params); + } else { + return HP::Proliant::Component::FanSubsystem::Fan::Thermal->new(%params); + } +} + + +package HP::Proliant::Component::FanSubsystem::Fan::FTol; +our @ISA = qw(HP::Proliant::Component::FanSubsystem::Fan); + + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + cpqHeFltTolFanChassis => $params{cpqHeFltTolFanChassis}, + cpqHeFltTolFanIndex => $params{cpqHeFltTolFanIndex}, + cpqHeFltTolFanLocale => $params{cpqHeFltTolFanLocale}, + cpqHeFltTolFanPresent => $params{cpqHeFltTolFanPresent}, + cpqHeFltTolFanType => $params{cpqHeFltTolFanType}, + cpqHeFltTolFanSpeed => $params{cpqHeFltTolFanSpeed}, + cpqHeFltTolFanRedundant => $params{cpqHeFltTolFanRedundant}, + cpqHeFltTolFanRedundantPartner => $params{cpqHeFltTolFanRedundantPartner}, + cpqHeFltTolFanCondition => $params{cpqHeFltTolFanCondition}, + cpqHeFltTolFanPctMax => $params{cpqHeFltTolFanPctMax}, #!!! + cpqHeFltTolFanHotPlug => $params{cpqHeFltTolFanHotPlug}, #!!! + partner => $params{partner}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + if (($self->{cpqHeFltTolFanRedundant} eq 'redundant') && + ((! defined $self->{cpqHeFltTolFanRedundantPartner}) || + (! $self->{cpqHeFltTolFanRedundantPartner}))) { + $self->{cpqHeFltTolFanRedundant} = 'notRedundant'; + # cpqHeFltTolFanRedundantPartner=0: partner not avail + } + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('f', $self->{cpqHeFltTolFanIndex}); + $self->add_info(sprintf 'fan %d is %s, speed is %s, pctmax is %s%%, '. + 'location is %s, redundance is %s, partner is %s', + $self->{cpqHeFltTolFanIndex}, $self->{cpqHeFltTolFanPresent}, + $self->{cpqHeFltTolFanSpeed}, $self->{cpqHeFltTolFanPctMax}, + $self->{cpqHeFltTolFanLocale}, $self->{cpqHeFltTolFanRedundant}, + $self->{cpqHeFltTolFanRedundantPartner}); + $self->add_extendedinfo(sprintf 'fan_%s=%d%%', + $self->{cpqHeFltTolFanIndex}, $self->{cpqHeFltTolFanPctMax}); + if ($self->{cpqHeFltTolFanPresent} eq 'present') { + if ($self->{cpqHeFltTolFanSpeed} eq 'high') { + $self->add_info(sprintf 'fan %d (%s) runs at high speed', + $self->{cpqHeFltTolFanIndex}, $self->{cpqHeFltTolFanLocale}); + $self->add_message(CRITICAL, $self->{info}); + } elsif ($self->{cpqHeFltTolFanSpeed} ne 'normal') { + $self->add_info(sprintf 'fan %d (%s) needs attention', + $self->{cpqHeFltTolFanIndex}, $self->{cpqHeFltTolFanLocale}); + $self->add_message(CRITICAL, $self->{info}); + } + if ($self->{cpqHeFltTolFanCondition} eq 'failed') { + $self->add_info(sprintf 'fan %d (%s) failed', + $self->{cpqHeFltTolFanIndex}, $self->{cpqHeFltTolFanLocale}); + $self->add_message(CRITICAL, $self->{info}); + } elsif ($self->{cpqHeFltTolFanCondition} eq 'degraded') { + $self->add_info(sprintf 'fan %d (%s) degraded', + $self->{cpqHeFltTolFanIndex}, $self->{cpqHeFltTolFanLocale}); + $self->add_message(WARNING, $self->{info}); + } elsif ($self->{cpqHeFltTolFanCondition} ne 'ok' && + $self->{cpqHeFltTolFanCondition} ne 'other') { + $self->add_info(sprintf 'fan %d (%s) is not ok', + $self->{cpqHeFltTolFanIndex}, $self->{cpqHeFltTolFanLocale}); + $self->add_message(WARNING, $self->{info}); + } + if ($self->{cpqHeFltTolFanRedundant} eq 'notRedundant') { + # sieht so aus, als waere notRedundant und partner=0 normal z.b. dl360 + # das duerfte der fall sein, wenn nur eine cpu verbaut wurde und + # statt einem redundanten paar nur dummies drinstecken. + # "This specifies if the fan is in a redundant configuration" + # notRedundant heisst also sowohl nicht redundant wegen ausfall + # des partners als auch von haus aus nicht redundant ausgelegt + if ($self->{cpqHeFltTolFanRedundantPartner}) { + # nicht redundant, hat aber einen partner. da muss man genauer + # hinschauen + #if (my $partner = $self->{partner}) { + #} + if ($self->{overallhealth}) { + # da ist sogar das system der meinung, dass etwas faul ist + if (! $self->{runtime}->{options}->{ignore_fan_redundancy}) { + $self->add_info(sprintf 'fan %d (%s) is not redundant', + $self->{cpqHeFltTolFanIndex}, $self->{cpqHeFltTolFanLocale}); + $self->add_message(WARNING, $self->{info}); + } + } else { + # das ist wohl so gewollt, dass einzelne fans eingebaut werden, + # obwohl redundante paerchen vorgesehen sind. + # scheint davon abzuhaengen, wieviele cpus geordert wurden. + } + } + } elsif ($self->{cpqHeFltTolFanRedundant} eq 'other') { + #seen on a dl320 g5p with bios from 2008. + # maybe redundancy is not supported at all + } + } elsif ($self->{cpqHeFltTolFanPresent} eq 'failed') { # from cli + $self->add_info(sprintf 'fan %d (%s) failed', + $self->{cpqHeFltTolFanIndex}, $self->{cpqHeFltTolFanLocale}); + $self->add_message(CRITICAL, $self->{info}); + } elsif ($self->{cpqHeFltTolFanPresent} eq 'absent') { + $self->add_info(sprintf 'fan %d (%s) needs attention (is absent)', + $self->{cpqHeFltTolFanIndex}, $self->{cpqHeFltTolFanLocale}); + # weiss nicht, ob absent auch kaputt bedeuten kann + # wenn nicht, dann wuerde man sich hier dumm und daemlich blacklisten + #$self->add_message(CRITICAL, $self->{info}); + $self->add_message(WARNING, $self->{info}) if $self->{overallhealth}; + } + if ($self->{runtime}->{options}->{perfdata}) { + $self->{runtime}->{plugin}->add_perfdata( + label => sprintf('fan_%s', $self->{cpqHeFltTolFanIndex}), + value => $self->{cpqHeFltTolFanPctMax}, + uom => '%', + ); + } +} + +sub dump { + my $self = shift; + printf "[FAN_%s]\n", $self->{cpqHeFltTolFanIndex}; + foreach (qw(cpqHeFltTolFanChassis cpqHeFltTolFanIndex cpqHeFltTolFanLocale + cpqHeFltTolFanPresent cpqHeFltTolFanType cpqHeFltTolFanSpeed + cpqHeFltTolFanRedundant cpqHeFltTolFanRedundantPartner + cpqHeFltTolFanCondition cpqHeFltTolFanHotPlug)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "info: %s\n", $self->{info}; + printf "\n"; +} + + +package HP::Proliant::Component::FanSubsystem::Fan::Thermal; +our @ISA = qw(HP::Proliant::Component::FanSubsystem::Fan); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + cpqHeThermalFanIndex => $params{cpqHeThermalFanIndex}, + cpqHeThermalFanRequired => $params{cpqHeThermalFanRequired}, + cpqHeThermalFanPresent => $params{cpqHeThermalFanPresent}, + cpqHeThermalFanCpuFan => $params{cpqHeThermalFanCpuFan}, + cpqHeThermalFanStatus => $params{cpqHeThermalFanStatus}, + cpqHeThermalFanHwLocation => $params{cpqHeThermalFanHwLocation}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; +} + +sub dump { + my $self = shift; + printf "[FAN_%s]\n", $self->{cpqHeThermalFanIndex}; + foreach (qw(cpqHeThermalFanIndex cpqHeThermalFanRequired + cpqHeThermalFanPresent cpqHeThermalFanCpuFan cpqHeThermalFanStatus + cpqHeThermalFanHwLocation)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "info: %s\n", $self->{info}; + printf "\n"; +} diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/FanSubsystem/CLI.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/FanSubsystem/CLI.pm new file mode 100755 index 0000000..f82c770 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/FanSubsystem/CLI.pm @@ -0,0 +1,101 @@ +package HP::Proliant::Component::FanSubsystem::CLI; +our @ISA = qw(HP::Proliant::Component::FanSubsystem); + +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}, + fans => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(%params); + return $self; +} + +# partner not available = cpqHeFltTolFanRedundantPartner=0 +# cpqHeFltTolFanTypeValue = other +sub init { + my $self = shift; + my %params = @_; + my %tmpfan = (); + foreach (grep(/^fans/, split(/\n/, $self->{rawdata}))) { + s/^fans //g; + if (/^#(\d+)\s+([\w#_\/\-]+)\s+(\w+)\s+(\w+)\s+(FAILED|[N\/A\d]+)%*\s+([\w\/]+)\s+(FAILED|[N\/A\d]+)\s+(\w+)/) { + %tmpfan = ( + cpqHeFltTolFanIndex => $1, + cpqHeFltTolFanLocale => lc $2, + cpqHeFltTolFanPresent => lc $3, + cpqHeFltTolFanSpeed => lc $4, + cpqHeFltTolFanPctMax => lc $5, # (FAILED|[N\/A\d]+) + cpqHeFltTolFanRedundant => lc $6, + cpqHeFltTolFanRedundantPartner => lc $7, # (FAILED|[N\/A\d]+) + cpqHeFltTolFanHotPlug => lc $8, + ); + } elsif (/^#(\d+)\s+([\w#_\/\-]+?)(Yes|No|N\/A)\s+(\w+)\s+(FAILED|[N\/A\d]+)%*\s+([\w\/]+)\s+(FAILED|[N\/A\d]+)\s+(\w+)/) { + # #5 SCSI_BACKPLANE_ZONEYes NORMAL N/A .... + %tmpfan = ( + cpqHeFltTolFanIndex => $1, + cpqHeFltTolFanLocale => lc $2, + cpqHeFltTolFanPresent => lc $3, + cpqHeFltTolFanSpeed => lc $4, + cpqHeFltTolFanPctMax => lc $5, + cpqHeFltTolFanRedundant => lc $6, + cpqHeFltTolFanRedundantPartner => lc $7, + cpqHeFltTolFanHotPlug => lc $8, + ); + } elsif (/^#(\d+)\s+([\w#_\/\-]+)\s+[NOno]+\s/) { + # Fan is not installed. #2 CPU#2 No - - No N/A - + } elsif (/^#(\d+)/) { + main::contact_author("FAN", $_); + } + if (%tmpfan) { + $tmpfan{runtime} = $params{runtime}; + $tmpfan{cpqHeFltTolFanChassis} = 1; # geht aus hpasmcli nicht hervor + $tmpfan{cpqHeFltTolFanType} = 'other'; + if ($tmpfan{cpqHeFltTolFanPctMax} !~ /^\d+$/) { + if ($tmpfan{cpqHeFltTolFanSpeed} eq 'normal') { + $tmpfan{cpqHeFltTolFanPctMax} = 50; + } elsif ($tmpfan{cpqHeFltTolFanSpeed} eq 'high') { + $tmpfan{cpqHeFltTolFanPctMax} = 100; + } else { + $tmpfan{cpqHeFltTolFanPctMax} = 0; + } + } + if($tmpfan{cpqHeFltTolFanSpeed} eq 'failed') { + $tmpfan{cpqHeFltTolFanCondition} = 'failed'; + } elsif($tmpfan{cpqHeFltTolFanSpeed} eq 'n/a') { + $tmpfan{cpqHeFltTolFanCondition} = 'other'; + } else { + $tmpfan{cpqHeFltTolFanCondition} = 'ok'; + } + $tmpfan{cpqHeFltTolFanRedundant} = + $tmpfan{cpqHeFltTolFanRedundant} eq 'yes' ? 'redundant' : + $tmpfan{cpqHeFltTolFanRedundant} eq 'no' ? 'notRedundant' : 'other'; + $tmpfan{cpqHeFltTolFanPresent} = + $tmpfan{cpqHeFltTolFanPresent} eq 'yes' ? 'present' : + $tmpfan{cpqHeFltTolFanPresent} eq 'failed' ? 'present' : + $tmpfan{cpqHeFltTolFanPresent} eq 'no' ? 'absent' : 'other'; + $tmpfan{cpqHeFltTolFanHotPlug} = + $tmpfan{cpqHeFltTolFanHotPlug} eq 'yes' ? 'hotPluggable' : + $tmpfan{cpqHeFltTolFanHotPlug} eq 'no' ? 'nonHotPluggable' : 'other'; + push(@{$self->{fans}}, + HP::Proliant::Component::FanSubsystem::Fan->new(%tmpfan)); + %tmpfan = (); + } + } +} + +sub overall_check { + my $self = shift; + # nix. nur wegen der gleichheit mit snmp + return 0; +} +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/FanSubsystem/SNMP.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/FanSubsystem/SNMP.pm new file mode 100755 index 0000000..82bd180 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/FanSubsystem/SNMP.pm @@ -0,0 +1,231 @@ +package HP::Proliant::Component::FanSubsystem::SNMP; +our @ISA = qw(HP::Proliant::Component::FanSubsystem + HP::Proliant::Component::SNMP); + +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}, + fans => [], + he_fans => [], + th_fans => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->overall_init(%params); + $self->he_init(%params); + $self->te_init(%params); + $self->unite(); + return $self; +} + +sub overall_init { + my $self = shift; + my %params = @_; + my $snmpwalk = $params{rawdata}; + # overall + my $cpqHeThermalSystemFanStatus = '1.3.6.1.4.1.232.6.2.6.4.0'; + my $cpqHeThermalSystemFanStatusValue = { + 1 => 'other', + 2 => 'ok', + 3 => 'degraded', + 4 => 'failed', + }; + my $cpqHeThermalCpuFanStatus = '1.3.6.1.4.1.232.6.2.6.5.0'; + my $cpqHeThermalCpuFanStatusValue = { + 1 => 'other', + 2 => 'ok', + 4 => 'failed', # shutdown + }; + $self->{sysstatus} = SNMP::Utils::get_object_value( + $snmpwalk, $cpqHeThermalSystemFanStatus, + $cpqHeThermalSystemFanStatusValue); + $self->{cpustatus} = SNMP::Utils::get_object_value( + $snmpwalk, $cpqHeThermalCpuFanStatus, + $cpqHeThermalCpuFanStatusValue); + $self->{sysstatus} |= lc $self->{sysstatus}; + $self->{cpustatus} |= lc $self->{cpustatus}; +} + +sub te_init { + my $self = shift; + my %params = @_; + my $snmpwalk = $params{rawdata}; + my $ignore_redundancy = $params{ignore_redundancy}; + # cpqHeThermalFanTable + my $oids = { + cpqHeThermalFanEntry => '1.3.6.1.4.1.232.6.2.6.6.1', + cpqHeThermalFanIndex => '1.3.6.1.4.1.232.6.2.6.6.1.1', + cpqHeThermalFanRequired => '1.3.6.1.4.1.232.6.2.6.6.1.2', + cpqHeThermalFanPresent => '1.3.6.1.4.1.232.6.2.6.6.1.3', + cpqHeThermalFanCpuFan => '1.3.6.1.4.1.232.6.2.6.6.1.4', + cpqHeThermalFanStatus => '1.3.6.1.4.1.232.6.2.6.6.1.5', + cpqHeThermalFanHwLocation => '1.3.6.1.4.1.232.6.2.6.6.1.6', + cpqHeThermalFanRequiredValue => { + 1 => 'other', + 2 => 'nonRequired', + 3 => 'required', + }, + cpqHeThermalFanPresentValue => { + 1 => 'other', + 2 => 'absent', + 3 => 'present', + }, + cpqHeThermalFanCpuFanValue => { + 1 => 'other', + 2 => 'systemFan', + 3 => 'cpuFan', + }, + cpqHeThermalFanStatusValue => { + 1 => 'other', + 2 => 'ok', + 4 => 'failed', + }, + }; + # INDEX { cpqHeThermalFanIndex } + foreach ($self->get_entries($oids, 'cpqHeThermalFanEntry')) { + next if ! $_->{cpqHeThermalFanPresent}; + push(@{$self->{th_fans}}, + HP::Proliant::Component::FanSubsystem::Fan->new(%{$_})); + } +} + +sub he_init { + my $self = shift; + my %params = @_; + my $snmpwalk = $params{rawdata}; + my $ignore_redundancy = $params{ignore_redundancy}; + # cpqHeFltTolFanTable + my $oids = { + cpqHeFltTolFanEntry => '1.3.6.1.4.1.232.6.2.6.7.1', + cpqHeFltTolFanChassis => '1.3.6.1.4.1.232.6.2.6.7.1.1', + cpqHeFltTolFanIndex => '1.3.6.1.4.1.232.6.2.6.7.1.2', + cpqHeFltTolFanLocale => '1.3.6.1.4.1.232.6.2.6.7.1.3', + cpqHeFltTolFanPresent => '1.3.6.1.4.1.232.6.2.6.7.1.4', + cpqHeFltTolFanType => '1.3.6.1.4.1.232.6.2.6.7.1.5', + cpqHeFltTolFanSpeed => '1.3.6.1.4.1.232.6.2.6.7.1.6', + cpqHeFltTolFanRedundant => '1.3.6.1.4.1.232.6.2.6.7.1.7', + cpqHeFltTolFanRedundantPartner => '1.3.6.1.4.1.232.6.2.6.7.1.8', + cpqHeFltTolFanCondition => '1.3.6.1.4.1.232.6.2.6.7.1.9', + cpqHeFltTolFanHotPlug => '1.3.6.1.4.1.232.6.2.6.7.1.10', + cpqHeFltTolFanHwLocation => '1.3.6.1.4.1.232.6.2.6.7.1.11', + cpqHeFltTolFanCurrentSpeed => '1.3.6.1.4.1.232.6.2.6.7.1.12', + cpqHeFltTolFanLocaleValue => { + 1 => "other", + 2 => "unknown", + 3 => "system", + 4 => "systemBoard", + 5 => "ioBoard", + 6 => "cpu", + 7 => "memory", + 8 => "storage", + 9 => "removableMedia", + 10 => "powerSupply", + 11 => "ambient", + 12 => "chassis", + 13 => "bridgeCard", + }, + cpqHeFltTolFanPresentValue => { + 1 => "other", + 2 => "absent", + 3 => "present", + }, + cpqHeFltTolFanSpeedValue => { + 1 => "other", + 2 => "normal", + 3 => "high", + }, + cpqHeFltTolFanRedundantValue => { + 1 => "other", + 2 => "notRedundant", + 3 => "redundant", + }, + cpqHeFltTolFanTypeValue => { + 1 => "other", + 2 => "tachInput", + 3 => "spinDetect", + }, + cpqHeFltTolFanConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + cpqHeFltTolFanHotPlugValue => { + 1 => "other", + 2 => "nonHotPluggable", + 3 => "hotPluggable", + }, + }; + # INDEX { cpqHeFltTolFanChassis, cpqHeFltTolFanIndex } + foreach ($self->get_entries($oids, 'cpqHeFltTolFanEntry')) { + next if ! defined $_->{cpqHeFltTolFanIndex}; + # z.b. USM65201WS hat nur solche fragmente. die werden erst gar nicht + # als fans akzeptiert. dafuer gibts dann die overall condition + # SNMPv2-SMI::enterprises.232.6.2.6.7.1.1.0.1 = INTEGER: 0 + # SNMPv2-SMI::enterprises.232.6.2.6.7.1.1.0.2 = INTEGER: 0 + $_->{cpqHeFltTolFanPctMax} = ($_->{cpqHeFltTolFanPresent} eq 'present') ? + 50 : 0; + push(@{$self->{he_fans}}, + HP::Proliant::Component::FanSubsystem::Fan->new(%{$_})); + } + +} + +sub unite { + my $self = shift; + my $tmpfans = {}; + foreach (@{$self->{he_fans}}) { + $tmpfans->{$_->{cpqHeFltTolFanIndex}} = $_; + } + foreach (@{$self->{he_fans}}) { + if (exists $tmpfans->{$_->{cpqHeFltTolFanRedundantPartner}}) { + $_->{partner} = $tmpfans->{$_->{cpqHeFltTolFanRedundantPartner}}; + } else { + $_->{partner} = undef; + } + } + @{$self->{fans}} = @{$self->{he_fans}}; +} + +sub overall_check { + my $self = shift; + my $result = 0; + $self->blacklist('ofs', ''); + if ($self->{sysstatus} && $self->{cpustatus}) { + if ($self->{sysstatus} eq 'degraded') { + $result = 1; + $self->add_message(WARNING, + sprintf 'system fan overall status is %s', $self->{sysstatus}); + } elsif ($self->{sysstatus} eq 'failed') { + $result = 2; + $self->add_message(CRITICAL, + sprintf 'system fan overall status is %s', $self->{sysstatus}); + } + if ($self->{cpustatus} eq 'degraded') { + $result = 1; + $self->add_message(WARNING, + sprintf 'cpu fan overall status is %s', $self->{cpustatus}); + } elsif ($self->{cpustatus} eq 'failed') { + $result = 2; + $self->add_message(CRITICAL, + sprintf 'cpu fan overall status is %s', $self->{cpustatus}); + } + $self->add_info(sprintf 'overall fan status: system=%s, cpu=%s', + $self->{sysstatus}, $self->{cpustatus}); + } else { + $result = 0; + $self->add_info('this system seems to be water-cooled. no fans found'); + } + return $result; +} + +1; + 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"; +} + + diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/MemorySubsystem/CLI.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/MemorySubsystem/CLI.pm new file mode 100755 index 0000000..f53d77f --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/MemorySubsystem/CLI.pm @@ -0,0 +1,87 @@ +package HP::Proliant::Component::MemorySubsystem::CLI; +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}, + rawdata => $params{rawdata}, + dimms => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(%params); + return $self; +} + +sub init { + my $self = shift; + my %params = @_; + $self->{dimms} = []; + my %tmpdimm = ( + runtime => $params{runtime}, + ); + my $inblock = 0; + foreach (grep(/^dimm/, split(/\n/, $self->{rawdata}))) { + s/^dimm\s*$//g; + if (/Cartridge #:\s+(\d+)/ || /Processor #:\s+(\d+)/) { + # neuerdings (g6) tauchen hier prozessor- statt cartridge-angaben auf + $tmpdimm{cartridge} = $1; + $tmpdimm{board} = $1; + $inblock = 1; + } elsif (/Module #:\s+(\d+)/) { + $tmpdimm{module} = $1; + } elsif (/Present:\s+(\w+)/) { + $tmpdimm{status} = lc $1 eq 'yes' ? 'present' : + lc $1 eq 'no' ? 'notPresent' : 'other'; + } elsif (/Status:\s+(.+?)\s*$/) { + $tmpdimm{condition} = lc $1 =~ /degraded/ ? 'degraded' : + lc $1 eq 'ok' ? 'ok' : lc $1 =~ /n\/a/ ? 'n/a' : 'other'; + } elsif (/Size:\s+(\d+)\s*(.+?)\s*$/) { + $tmpdimm{size} = $1 * (lc $2 eq 'mb' ? 1024*1024 : + lc $2 eq 'gb' ? 1024*1024*1024 : 1); + } elsif (/^\s*$/) { + if ($inblock) { + $inblock = 0; + push(@{$self->{dimms}}, + HP::Proliant::Component::MemorySubsystem::Dimm->new(%tmpdimm)); + %tmpdimm = ( + runtime => $params{runtime}, + ); + } + } elsif (/(\d+)\s+(\d+)\s+(\w+)\s+(0x\w+)\s+(0x\w+)\s+(\d+[MGT]B)\s+(\d+MHz)\s+(\w+)/) { + $tmpdimm{cartridge} = $1; + $tmpdimm{module} = $2; + $tmpdimm{status} = lc $3 eq 'yes' ? 'present' : + lc $3 eq 'no' ? 'notPresent' : 'other'; + my $formfactor = $4; + my $memorytype = $5; + my $memorysize = $6; + my $memoryspeed = $7; + $tmpdimm{condition} = lc $8 =~ /degraded/ ? 'degraded' : + lc $8 eq 'ok' ? 'ok' : lc $8 =~ /n\/a/ ? 'n/a' : 'other'; + $memorysize =~ /(\d+)([MGT]B)/; + $tmpdimm{size} = $1 * (lc $2 eq 'mb' ? 1024*1024 : + lc $2 eq 'gb' ? 1024*1024*1024 : 1); + push(@{$self->{dimms}}, + HP::Proliant::Component::MemorySubsystem::Dimm->new(%tmpdimm)); + } + } + if ($inblock) { + push(@{$self->{dimms}}, + HP::Proliant::Component::MemorySubsystem::Dimm->new(%tmpdimm)); + } +} + +sub is_faulty { + my $self = shift; + return 0; # cli hat so einen globalen status nicht +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/MemorySubsystem/SNMP.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/MemorySubsystem/SNMP.pm new file mode 100755 index 0000000..410a858 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/MemorySubsystem/SNMP.pm @@ -0,0 +1,746 @@ +package HP::Proliant::Component::MemorySubsystem::SNMP; +our @ISA = qw(HP::Proliant::Component::MemorySubsystem + HP::Proliant::Component::SNMP); + +use strict; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + rawdata => $params{rawdata}, + dimms => [], + si_dimms => [], + he_dimms => [], + h2_dimms => [], + he_cartridges => [], + h2_cartridges => [], + si_overall_condition => undef, + he_overall_condition => undef, + h2_overall_condition => undef, + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->si_init(); + $self->he_init(); + $self->he_cartridge_init(); + $self->h2_init(); + #$self->h2_cartridge_init(); + $self->condense(); + return $self; +} + +sub si_init { + my $self = shift; + my $snmpwalk = $self->{rawdata}; + my $oids = { + cpqSiMemModuleEntry => '1.3.6.1.4.1.232.2.2.4.5.1', + cpqSiMemBoardIndex => '1.3.6.1.4.1.232.2.2.4.5.1.1', + cpqSiMemModuleIndex => '1.3.6.1.4.1.232.2.2.4.5.1.2', + cpqSiMemModuleSize => '1.3.6.1.4.1.232.2.2.4.5.1.3', + cpqSiMemModuleType => '1.3.6.1.4.1.232.2.2.4.5.1.4', + cpqSiMemECCStatus => '1.3.6.1.4.1.232.2.2.4.5.1.11', + cpqSiMemModuleHwLocation => '1.3.6.1.4.1.232.2.2.4.5.1.12', + cpqSiMemModuleTypeValue => { + 1 => 'other', + 2 => 'board', + 3 => 'cpqSingleWidthModule', + 4 => 'cpqDoubleWidthModule', + 5 => 'simm', + 6 => 'pcmcia', + 7 => 'compaq-specific', + 8 => 'dimm', + 9 => 'smallOutlineDimm', + 10 => 'rimm', + 11 => 'srimm', + }, + cpqSiMemECCStatusValue => { + 0 => "n/a", + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "degradedModuleIndexUnknown", + 34 => 'n/a', # es ist zum kotzen... + 104 => 'n/a', + }, + }; + # INDEX { cpqSiMemBoardIndex, cpqSiMemModuleIndex } + foreach ($self->get_entries($oids, 'cpqSiMemModuleEntry')) { + $_->{cartridge} = $_->{cpqSiMemBoardIndex}; + $_->{module} = $_->{cpqSiMemModuleIndex}; + next if (! defined $_->{cartridge} || ! defined $_->{module}); + $_->{size} = $_->{cpqSiMemModuleSize}; + $_->{type} = $_->{cpqSiMemModuleType}; + $_->{condition} = $_->{cpqSiMemECCStatus}; + $_->{status} = ($_->{cpqSiMemModuleSize} > 0) ? 'present' : 'notPresent'; + push(@{$self->{si_dimms}}, + HP::Proliant::Component::MemorySubsystem::Dimm->new(%{$_}) + ); + } + my $cpqSiMemECCCondition = '1.3.6.1.4.1.232.2.2.4.15.0'; + my $cpqSiMemECCConditionValue = { + 1 => 'other', + 2 => 'ok', + 3 => 'degraded', + }; + $self->{si_overall_condition} = SNMP::Utils::get_object_value( + $self->{rawdata}, $cpqSiMemECCCondition, + $cpqSiMemECCConditionValue); + $self->trace(2, sprintf 'overall si condition is %s', + $self->{si_overall_condition} || 'undefined'); +} + +sub he_init { + my $self = shift; + my $snmpwalk = $self->{rawdata}; + my $oids = { + cpqHeResMemModuleEntry => '1.3.6.1.4.1.232.6.2.14.11.1', + cpqHeResMemBoardIndex => '1.3.6.1.4.1.232.6.2.14.11.1.1', + cpqHeResMemModuleIndex => '1.3.6.1.4.1.232.6.2.14.11.1.2', + cpqHeResMemModuleStatus => '1.3.6.1.4.1.232.6.2.14.11.1.4', + cpqHeResMemModuleCondition => '1.3.6.1.4.1.232.6.2.14.11.1.5', + cpqHeResMemModuleStatusValue => { + 1 => "other", # unknown or could not be determined + 2 => "notPresent", # not present or un-initialized + 3 => "present", # present but not in use + 4 => "good", # present and in use. ecc threshold not exceeded + 5 => "add", # added but not yet in use + 6 => "upgrade", # upgraded but not yet in use + 7 => "missing", # expected but missing + 8 => "doesNotMatch", # does not match the other modules in the bank + 9 => "notSupported", # module not supported + 10 => "badConfig", # violates add/upgrade configuration + 11 => "degraded", # ecc exceeds threshold + }, + # condition = status of the correctable memory errors + cpqHeResMemModuleConditionValue => { + 0 => "n/a", # this appears only with buggy firmwares. + # (only 1 module shows up) + 1 => "other", + 2 => "ok", + 3 => "degraded", + }, + }; + my $tablesize = SNMP::Utils::get_size($snmpwalk, + $oids->{cpqHeResMemModuleEntry}); + # INDEX { cpqHeResMemBoardIndex, cpqHeResMemModuleIndex } + foreach ($self->get_entries($oids, 'cpqHeResMemModuleEntry')) { + $_->{cartridge} = $_->{cpqHeResMemBoardIndex}; + $_->{module} = $_->{cpqHeResMemModuleIndex}; + $_->{present} = $_->{cpqHeResMemModuleStatus}; + $_->{status} = $_->{cpqHeResMemModuleStatus}; + $_->{condition} = $_->{cpqHeResMemModuleCondition}; + if ((! defined $_->{module}) && ($_->{cartridge} == 0)) { + $_->{module} = $_->{index2}; # auf dem systemboard verbaut + } + + push(@{$self->{he_dimms}}, + HP::Proliant::Component::MemorySubsystem::Dimm->new(%{$_}) + ) unless (! defined $_->{cartridge} || ! defined $_->{module} || + $tablesize == 1); + } + my $cpqHeResilientMemCondition = '1.3.6.1.4.1.232.6.2.14.4.0'; + my $cpqHeResilientMemConditionValue = { + 1 => 'other', + 2 => 'ok', + 3 => 'degraded', + }; + $self->{he_overall_condition} = SNMP::Utils::get_object_value( + $self->{rawdata}, $cpqHeResilientMemCondition, + $cpqHeResilientMemConditionValue); + $self->trace(2, sprintf 'overall he condition is %s', + $self->{hei_overall_condition} || 'undefined'); +} + +sub he_cartridge_init { + my $self = shift; + my $snmpwalk = $self->{rawdata}; + my $oids = { + cpqHeResMemBoardEntry => '1.3.6.1.4.1.232.6.2.14.10.1', + cpqHeResMemBoardSlotIndex => '1.3.6.1.4.1.232.6.2.14.10.1.1', + cpqHeResMemBoardOnlineStatus => '1.3.6.1.4.1.232.6.2.14.10.1.2', + cpqHeResMemBoardErrorStatus => '1.3.6.1.4.1.232.6.2.14.10.1.3', + cpqHeResMemBoardNumSockets => '1.3.6.1.4.1.232.6.2.14.10.1.5', + cpqHeResMemBoardOsMemSize => '1.3.6.1.4.1.232.6.2.14.10.1.6', + cpqHeResMemBoardTotalMemSize => '1.3.6.1.4.1.232.6.2.14.10.1.7', + cpqHeResMemBoardCondition => '1.3.6.1.4.1.232.6.2.14.10.1.8', + # onlinestatus + cpqHeResMemBoardOnlineStatusValue => { + 0 => "n/a", # this appears only with buggy firmwares. + # (only 1 module shows up) + 1 => "other", + 2 => "present", + 3 => "absent", + }, + cpqHeResMemBoardErrorStatusValue => { + 1 => "other", # + 2 => "noError", # + 3 => "dimmEccError", # + 4 => "unlockError", # + 5 => "configError", # + 6 => "busError", # + 7 => "powerError", # + }, + # condition = status of the correctable memory errors + cpqHeResMemBoardConditionValue => { + 0 => "n/a", # this appears only with buggy firmwares. + # (only 1 module shows up) + 1 => "other", + 2 => "ok", + 3 => "degraded", + }, + }; + my $tablesize = SNMP::Utils::get_size($snmpwalk, + $oids->{cpqHeResMemBoardEntry}); + # INDEX { cpqHeResMemBoardIndex, cpqHeResMemBoardIndex } + foreach ($self->get_entries($oids, 'cpqHeResMemBoardEntry')) { + push(@{$self->{he_cartridges}}, + HP::Proliant::Component::MemorySubsystem::Cartridge->new(%{$_}) + ) unless (! defined $_->{cpqHeResMemBoardSlotIndex} || $tablesize == 1); + } +} + +sub h2_init { + my $self = shift; + my $snmpwalk = $self->{rawdata}; + my $oids = { + cpqHeResMem2ModuleEntry => '1.3.6.1.4.1.232.6.2.14.13.1', + cpqHeResMem2BoardNum => '1.3.6.1.4.1.232.6.2.14.13.1.2', + cpqHeResMem2ModuleNum => '1.3.6.1.4.1.232.6.2.14.13.1.5', + cpqHeResMem2ModuleStatus => '1.3.6.1.4.1.232.6.2.14.13.1.19', + cpqHeResMem2ModuleCondition => '1.3.6.1.4.1.232.6.2.14.13.1.20', + cpqHeResMem2ModuleSize => '1.3.6.1.4.1.232.6.2.14.13.1.6', + + cpqHeResMem2ModuleStatusValue => { + 1 => "other", # unknown or could not be determined + 2 => "notPresent", # not present or un-initialized + 3 => "present", # present but not in use + 4 => "good", # present and in use. ecc threshold not exceeded + 5 => "add", # added but not yet in use + 6 => "upgrade", # upgraded but not yet in use + 7 => "missing", # expected but missing + 8 => "doesNotMatch", # does not match the other modules in the bank + 9 => "notSupported", # module not supported + 10 => "badConfig", # violates add/upgrade configuration + 11 => "degraded", # ecc exceeds threshold + }, + # condition = status of the correctable memory errors + cpqHeResMem2ModuleConditionValue => { + 0 => "n/a", # this appears only with buggy firmwares. + # (only 1 module shows up) + 1 => "other", + 2 => "ok", + 3 => "degraded", + }, + }; + # INDEX { cpqHeResMem2ModuleNum } + my $lastboard = 0; + my $lastmodule = 0; + my $myboard= 0; + my $hpboard = 0; + foreach (sort { $a->{index1} <=> $b->{index1} } + $self->get_entries($oids, 'cpqHeResMem2ModuleEntry')) { + $hpboard = $_->{cpqHeResMem2BoardNum}; + # dass hier faelschlicherweise 0 zurueckkommt, wundert mich schon + # gar nicht mehr + $_->{module} = $_->{cpqHeResMem2ModuleNum}; + if ($_->{module} < $lastmodule) { + # sieht so aus, als haette man es mit einem neuen board zu tun + # da hp zu bloed ist, selber hochzuzaehlen, muss ich das tun + $myboard++; + } + $lastmodule = $_->{cpqHeResMem2ModuleNum}; + $_->{cartridge} = ($myboard != $hpboard) ? $myboard : $hpboard; + $_->{present} = $_->{cpqHeResMem2ModuleStatus}; + $_->{status} = $_->{cpqHeResMem2ModuleStatus}; + $_->{condition} = $_->{cpqHeResMem2ModuleCondition}; + $_->{size} = $_->{cpqHeResMem2ModuleSize}; + push(@{$self->{h2_dimms}}, + HP::Proliant::Component::MemorySubsystem::Dimm->new(%{$_}) + ) unless (! defined $_->{cpqHeResMem2BoardNum} || + ! defined $_->{cpqHeResMem2ModuleNum}); + } +} + +sub h2_cartridge_init { + my $self = shift; + my $snmpwalk = $self->{rawdata}; + my $oids = { + cpqHeResMem2BoardEntry => '1.3.6.1.4.1.232.6.2.14.12.1', + cpqHeResMem2BoardIndex => '1.3.6.1.4.1.232.6.2.14.12.1.1', + cpqHeResMem2BoardOnlineStatus => '1.3.6.1.4.1.232.6.2.14.12.1.5', + cpqHeResMem2BoardErrorStatus => '1.3.6.1.4.1.232.6.2.14.12.1.6', + cpqHeResMem2BoardNumSockets => '1.3.6.1.4.1.232.6.2.14.12.1.8', + cpqHeResMem2BoardOsMemSize => '1.3.6.1.4.1.232.6.2.14.12.1.9', + cpqHeResMem2BoardTotalMemSize => '1.3.6.1.4.1.232.6.2.14.12.1.10', + cpqHeResMem2BoardCondition => '1.3.6.1.4.1.232.6.2.14.12.1.11', + # onlinestatus + cpqHeResMem2BoardOnlineStatusValue => { + 0 => "n/a", # this appears only with buggy firmwares. + # (only 1 module shows up) + 1 => "other", + 2 => "present", + 3 => "absent", + }, + cpqHeResMem2BoardErrorStatusValue => { + 1 => "other", # + 2 => "noError", # + 3 => "dimmEccError", # + 4 => "unlockError", # + 5 => "configError", # + 6 => "busError", # + 7 => "powerError", # + }, + # condition = status of the correctable memory errors + cpqHeResMem2BoardConditionValue => { + 0 => "n/a", # this appears only with buggy firmwares. + # (only 1 module shows up) + 1 => "other", + 2 => "ok", + 3 => "degraded", + }, + }; + my $tablesize = SNMP::Utils::get_size($snmpwalk, + $oids->{cpqHeResMemBoardEntry}); + # INDEX { cpqHeResMem2BoardIndex, cpqHeResMem2BoardIndex } + foreach ($self->get_entries($oids, 'cpqHeResMem2BoardEntry')) { + push(@{$self->{h2_cartridges}}, + HP::Proliant::Component::MemorySubsystem::Cartridge->new(%{$_}) + ) unless (! defined $_->{cpqHeRes2MemBoardIndex} || $tablesize == 1); + } +} + +sub condense { + my $self = shift; + my $snmpwalk = $self->{rawdata}; + # wenn saemtliche dimms n/a sind + # wenn ignore dimms: ignoring %d dimms with status 'n/a' + # wenn buggyfirmware: ignoring %d dimms with status 'n/a' because of buggy firmware + # if buggy firmware : condition n/a ist normal + # ignore-dimms : + # es gibt si_dimms und he_dimms + my $si_dimms = scalar(@{$self->{si_dimms}}); + my $he_dimms = scalar(@{$self->{he_dimms}}); + my $h2_dimms = scalar(@{$self->{h2_dimms}}); + $self->trace(2, sprintf "SI: %02d HE: %02d H2: %02d", + $si_dimms, $he_dimms, $h2_dimms) + if ($self->{runtime}->{options}->{verbose} >= 2); + foreach ($self->get_si_boards()) { + printf "SI%02d-> ", $_ if ($self->{runtime}->{options}->{verbose} >= 2); + foreach ($self->get_si_modules($_)) { + printf "%02d ", $_ if ($self->{runtime}->{options}->{verbose} >= 2); + } + printf "\n" if ($self->{runtime}->{options}->{verbose} >= 2); + } + foreach ($self->get_he_boards()) { + printf "HE%02d-> ", $_ if ($self->{runtime}->{options}->{verbose} >= 2); + foreach ($self->get_he_modules($_)) { + printf "%02d ", $_ if ($self->{runtime}->{options}->{verbose} >= 2); + } + printf "\n" if ($self->{runtime}->{options}->{verbose} >= 2); + } + foreach ($self->get_h2_boards()) { + printf "H2%02d-> ", $_ if ($self->{runtime}->{options}->{verbose} >= 2); + foreach ($self->get_h2_modules($_)) { + printf "%02d ", $_ if ($self->{runtime}->{options}->{verbose} >= 2); + } + printf "\n" if ($self->{runtime}->{options}->{verbose} >= 2); + } + if (($h2_dimms == 0) && ($he_dimms == 0) && ($si_dimms > 0)) { + printf "TYP1 %s\n", $self->{runtime}->{product} + if ($self->{runtime}->{options}->{verbose} >= 2); + @{$self->{dimms}} = $self->update_si_with_si(); + } elsif (($h2_dimms == 0) && ($he_dimms > 0) && ($si_dimms > 0)) { + printf "TYP2 %s\n", $self->{runtime}->{product} + if ($self->{runtime}->{options}->{verbose} >= 2); + @{$self->{dimms}} = $self->update_si_with_he(); + } elsif (($h2_dimms == 0) && ($he_dimms > 0) && ($si_dimms == 0)) { + printf "TYP3 %s\n", $self->{runtime}->{product} + if ($self->{runtime}->{options}->{verbose} >= 2); + @{$self->{dimms}} = $self->update_he_with_he(); + } elsif (($h2_dimms > 0) && ($he_dimms == 0) && ($si_dimms == 0)) { + printf "TYP4 %s\n", $self->{runtime}->{product} + if ($self->{runtime}->{options}->{verbose} >= 2); + @{$self->{dimms}} = $self->update_h2_with_h2(); + } elsif (($h2_dimms > 0) && ($he_dimms > 0) && ($si_dimms == 0)) { + printf "TYP5 %s\n", $self->{runtime}->{product} + if ($self->{runtime}->{options}->{verbose} >= 2); + @{$self->{dimms}} = $self->update_he_with_h2(); + } elsif (($h2_dimms > 0) && ($he_dimms == 0) && ($si_dimms > 0)) { + printf "TYP6 %s\n", $self->{runtime}->{product} + if ($self->{runtime}->{options}->{verbose} >= 2); + @{$self->{dimms}} = $self->update_si_with_h2(); + } elsif (($h2_dimms > 0) && ($he_dimms > 0) && ($si_dimms > 0)) { + if ($h2_dimms > $si_dimms) { + printf "TYP7 %s\n", $self->{runtime}->{product} + if ($self->{runtime}->{options}->{verbose} >= 2); + @{$self->{dimms}} = $self->update_he_with_h2(); + } else { + printf "TYP8 %s\n", $self->{runtime}->{product} + if ($self->{runtime}->{options}->{verbose} >= 2); + @{$self->{dimms}} = $self->update_si_with_he(); + } + } else { + printf "TYPX %s\n", $self->{runtime}->{product} + if ($self->{runtime}->{options}->{verbose} >= 2); + } + my $all_dimms = scalar(@{$self->{dimms}}); + $self->trace(2, sprintf "ALL: %02d", $all_dimms); +} + +sub dump { + my $self = shift; + if ($self->{runtime}->{options}->{verbose} > 2) { + printf "[SI]\n"; + foreach (@{$self->{si_dimms}}) { + $_->dump(); + } + printf "[HE]\n"; + foreach (@{$self->{he_dimms}}) { + $_->dump(); + } + printf "[H2]\n"; + foreach (@{$self->{h2_dimms}}) { + $_->dump(); + } + } + $self->SUPER::dump(); +} + +sub update_si_with_si { + my $self = shift; + my $snmpwalk = $self->{rawdata}; + my @dimms = (); + my $repaircondition = undef; + # wenn si keine statusinformationen liefert, dann besteht die chance + # dass ein undokumentiertes he-fragment vorliegt + # 1.3.6.1.4.1.232.6.2.14.11.1.1.0.<anzahl der dimms> + my $cpqHeResMemModuleEntry = "1.3.6.1.4.1.232.6.2.14.11.1"; + if (SNMP::Utils::get_size($snmpwalk, $cpqHeResMemModuleEntry) == 1) { + $repaircondition = lc SNMP::Utils::get_object( + $snmpwalk, $cpqHeResMemModuleEntry.'.1.0.'.scalar(@{$self->{si_dimms}})); + # repaircondition 0 (ok) biegt alles wieder gerade + } else { + # anderer versuch + if ($self->{si_overall_condition} && + $self->{si_overall_condition} eq 'ok') { + $repaircondition = 0; + } + } + foreach my $si_dimm (@{$self->{si_dimms}}) { + if (($si_dimm->{condition} eq 'n/a') || + ($si_dimm->{condition} eq 'other')) { + $si_dimm->{condition} = 'ok' if + (defined $repaircondition && $repaircondition == 0); + } + push(@dimms, + HP::Proliant::Component::MemorySubsystem::Dimm->new( + runtime => $si_dimm->{runtime}, + cartridge => $si_dimm->{cartridge}, + module => $si_dimm->{module}, + size => $si_dimm->{size}, + status => $si_dimm->{status}, + condition => $si_dimm->{condition}, + )); + } + return @dimms; +} + +sub update_si_with_he { + my $self = shift; + my @dimms = (); + my $first_si_cartridge = ($self->get_si_boards())[0]; + my $first_he_cartridge = ($self->get_he_boards())[0]; + my $offset = 0; + if (scalar(@{$self->{si_dimms}}) == scalar(@{$self->{he_dimms}})) { + # aufpassen! sowas kann vorkommen: si cartridge 0...6, he cartridge 1...7 + if ($first_si_cartridge != $first_he_cartridge) { + # README case 5 + $offset = $first_si_cartridge - $first_he_cartridge; + } + } elsif ((scalar(@{$self->{si_dimms}}) > 1) && + (scalar(@{$self->{he_dimms}}) == 1)) { + # siehe update_si_with_si. he-fragment + return $self->update_si_with_si(); + } else { + # z.b. 4 si notpresent, 4 si present, 4 he + } + foreach my $si_dimm (@{$self->{si_dimms}}) { + if (($si_dimm->{condition} eq 'n/a') || + ($si_dimm->{condition} eq 'other')) { + if (my $he_dimm = $self->get_he_module( + $si_dimm->{cartridge} - $offset, $si_dimm->{module})) { + # vielleicht hat he mehr ahnung + $si_dimm->{condition} = $he_dimm->{condition}; + if (($si_dimm->{condition} eq 'n/a') || + ($si_dimm->{condition} eq 'other')) { + # wenns immer noch kein brauchbares ergebnis gibt.... + if ($self->{he_overall_condition} && + $self->{he_overall_condition} eq 'ok') { + # wird schon stimmen... + $si_dimm->{condition} = 'ok'; + } else { + # ansonsten stellen wir uns dumm + $si_dimm->{status} = 'notPresent'; + } + } + } else { + # in dem fall zeigt si unbestueckte cartridges an + } + } + push(@dimms, + HP::Proliant::Component::MemorySubsystem::Dimm->new( + runtime => $si_dimm->{runtime}, + cartridge => $si_dimm->{cartridge}, + module => $si_dimm->{module}, + size => $si_dimm->{size}, + status => $si_dimm->{status}, + condition => $si_dimm->{condition}, + )); + } + return @dimms; +} + +sub update_he_with_he { + my $self = shift; + my @dimms = (); + foreach my $he_dimm (@{$self->{he_dimms}}) { + push(@dimms, + HP::Proliant::Component::MemorySubsystem::Dimm->new( + runtime => $he_dimm->{runtime}, + cartridge => $he_dimm->{cartridge}, + module => $he_dimm->{module}, + size => $he_dimm->{size}, + status => $he_dimm->{status}, + condition => $he_dimm->{condition}, + )); + } + return @dimms; +} + +sub update_si_with_h2 { + my $self = shift; + my @dimms = (); + my $first_si_cartridge = ($self->get_si_boards())[0]; + my $first_h2_cartridge = ($self->get_h2_boards())[0]; + my $offset = 0; + if (scalar(@{$self->{si_dimms}}) == scalar(@{$self->{h2_dimms}})) { + # aufpassen! sowas kann vorkommen: si cartridge 0...6, he cartridge 1...7 + if ($first_si_cartridge != $first_h2_cartridge) { + # README case 5 + $offset = $first_si_cartridge - $first_h2_cartridge; + } + } else { + # z.b. 4 si notpresent, 4 si present, 4 he + } + foreach my $si_dimm (@{$self->{si_dimms}}) { + if (($si_dimm->{condition} eq 'n/a') || + ($si_dimm->{condition} eq 'other')) { + if (my $h2_dimm = $self->get_h2_module( + $si_dimm->{cartridge} - $offset, $si_dimm->{module})) { + # vielleicht hat h2 mehr ahnung + $si_dimm->{condition} = $h2_dimm->{condition}; + if (1) { + # ist zwar da, aber irgendwie auskonfiguriert + $si_dimm->{status} = 'notPresent' if $h2_dimm->{status} eq 'other'; + } + } else { + # in dem fall zeigt si unbestueckte cartridges an + } + } + push(@dimms, + HP::Proliant::Component::MemorySubsystem::Dimm->new( + runtime => $si_dimm->{runtime}, + cartridge => $si_dimm->{cartridge}, + module => $si_dimm->{module}, + size => $si_dimm->{size}, + status => $si_dimm->{status}, + condition => $si_dimm->{condition}, + )); + } + return @dimms; +} + +sub update_he_with_h2 { + my $self = shift; + my @dimms = (); + my $first_he_cartridge = ($self->get_he_boards())[0]; + my $first_h2_cartridge = ($self->get_h2_boards())[0]; + my $offset = 0; + # auch hier koennte sowas u.u.vorkommen: he cartridge 0..6, h2 cartridge 1..7 + # ich habs zwar nie gesehen, aber wer weiss... + if ($first_h2_cartridge != $first_he_cartridge) { + $offset = $first_h2_cartridge - $first_he_cartridge; + } + foreach my $he_dimm (@{$self->{he_dimms}}) { + if (($he_dimm->{condition} eq 'n/a') || + ($he_dimm->{condition} eq 'other')) { + if (my $h2_dimm = $self->get_h2_module( + $he_dimm->{cartridge} + $offset, $he_dimm->{module})) { + # vielleicht hat h2 mehr ahnung + $he_dimm->{condition} = $h2_dimm->{condition}; + if (1) { + # ist zwar da, aber irgendwie auskonfiguriert + $he_dimm->{status} = 'notPresent' if $h2_dimm->{status} eq 'other'; + } + } else { + # in dem fall weiss he mehr als h2 + } + } + if ($he_dimm->{size} == 0) { + if (my $h2_dimm = $self->get_h2_module( + $he_dimm->{cartridge} + $offset, $he_dimm->{module})) { + $he_dimm->{size} = $h2_dimm->{size}; + # h2 beinhaltet eine size-oid + } + } + push(@dimms, + HP::Proliant::Component::MemorySubsystem::Dimm->new( + runtime => $he_dimm->{runtime}, + cartridge => $he_dimm->{cartridge}, + module => $he_dimm->{module}, + size => $he_dimm->{size}, + status => $he_dimm->{status}, + condition => $he_dimm->{condition}, + )); + } + return @dimms; +} + +sub update_h2_with_h2 { + my $self = shift; + my @dimms = (); + foreach my $h2_dimm (@{$self->{h2_dimms}}) { + push(@dimms, + HP::Proliant::Component::MemorySubsystem::Dimm->new( + runtime => $h2_dimm->{runtime}, + cartridge => $h2_dimm->{cartridge}, + module => $h2_dimm->{module}, + size => $h2_dimm->{size}, + status => $h2_dimm->{status}, + condition => $h2_dimm->{condition}, + )); + } + return @dimms; +} + +sub is_faulty { + my $self = shift; + if (scalar(@{$self->{si_dimms}}) > 0 && + scalar(@{$self->{he_dimms}}) > 0) { + return $self->si_is_faulty() || $self->he_is_faulty(); + } elsif (scalar(@{$self->{si_dimms}}) > 0 && + scalar(@{$self->{he_dimms}}) == 0) { + return $self->si_is_faulty(); + } elsif (scalar(@{$self->{si_dimms}}) == 0 && + scalar(@{$self->{he_dimms}}) > 0) { + return $self->he_is_faulty(); + } else { + return 0; + } +} + +sub si_is_faulty { + my $self = shift; + return ! defined $self->{si_overall_condition} ? 0 : + $self->{si_overall_condition} eq 'degraded' ? 1 : 0; +} + +sub si_is_ok { + my $self = shift; + return ! defined $self->{si_overall_condition} ? 1 : + $self->{si_overall_condition} eq 'ok' ? 1 : 0; +} + +sub he_is_faulty { + my $self = shift; + return ! defined $self->{he_overall_condition} ? 0 : + $self->{he_overall_condition} eq 'degraded' ? 1 : 0; +} + +sub he_is_ok { + my $self = shift; + return ! defined $self->{he_overall_condition} ? 1 : + $self->{he_overall_condition} eq 'ok' ? 1 : 0; +} + +sub get_si_boards { + my $self = shift; + my %found = (); + foreach (@{$self->{si_dimms}}) { + $found{$_->{cartridge}} = 1; + } + return sort { $a <=> $b } keys %found; +} + +sub get_si_modules { + my $self = shift; + my $board = shift; + my %found = (); + foreach (grep { $_->{cartridge} == $board } @{$self->{si_dimms}}) { + $found{$_->{module}} = 1; + } + return sort { $a <=> $b } keys %found; +} + +sub get_he_boards { + my $self = shift; + my %found = (); + foreach (@{$self->{he_dimms}}) { + $found{$_->{cartridge}} = 1; + } + return sort { $a <=> $b } keys %found; +} + +sub get_he_modules { + my $self = shift; + my $board = shift; + my %found = (); + foreach (grep { $_->{cartridge} == $board } @{$self->{he_dimms}}) { + $found{$_->{module}} = 1; + } + return sort { $a <=> $b } keys %found; +} + +sub get_he_module { + my $self = shift; + my $board = shift; + my $module = shift; + my $found = (grep { $_->{cartridge} == $board && $_->{module} == $module } + @{$self->{he_dimms}})[0]; + return $found; +} + +sub get_h2_boards { + my $self = shift; + my %found = (); + # + foreach (@{$self->{h2_dimms}}) { + $found{$_->{cartridge}} = 1; + } + return sort { $a <=> $b } keys %found; +} + +sub get_h2_modules { + my $self = shift; + my $board = shift; + my %found = (); + foreach (grep { $_->{cartridge} == $board } @{$self->{h2_dimms}}) { + $found{$_->{module}} = 1; + } + return sort { $a <=> $b } keys %found; +} + +sub get_h2_module { + my $self = shift; + my $board = shift; + my $module = shift; + my $found = (grep { $_->{cartridge} == $board && $_->{module} == $module } + @{$self->{h2_dimms}})[0]; + return $found; +} + + 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"; +} + + diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/NicSubsystem/SNMP.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/NicSubsystem/SNMP.pm new file mode 100755 index 0000000..85f1fd4 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/NicSubsystem/SNMP.pm @@ -0,0 +1,189 @@ +package HP::Proliant::Component::NicSubsystem::SNMP; +our @ISA = qw(HP::Proliant::Component::NicSubsystem + HP::Proliant::Component::SNMP); + +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}, + blacklisted => 0, + info => undef, + extendedinfo => undef, + logical_nics => [], + physical_nics => [], + }; + bless $self, $class; + $self->overall_init(%params); + $self->init(); + return $self; +} + +sub overall_init { + my $self = shift; + my %params = @_; + my $snmpwalk = $self->{rawdata}; + # overall + my $cpqNicIfLogMapOverallCondition = '1.3.6.1.4.1.232.18.2.2.2.0'; + my $cpqNicIfLogMapOverallConditionValue = { + 1 => 'other', + 2 => 'ok', + 3 => 'degraded', + 4 => 'failed', + }; + $self->{lognicstatus} = SNMP::Utils::get_object_value( + $snmpwalk, $cpqNicIfLogMapOverallCondition, + $cpqNicIfLogMapOverallConditionValue); +} + +sub init { + my $self = shift; + my $snmpwalk = $self->{rawdata}; + my $ifconnect = {}; + # CPQNIC-MIB + my $oids = { + cpqNicIfLogMapEntry => '1.3.6.1.4.1.232.18.2.2.1.1', + cpqNicIfLogMapIndex => '1.3.6.1.4.1.232.18.2.2.1.1.1', + cpqNicIfLogMapIfNumber => '1.3.6.1.4.1.232.18.2.2.1.1.2', + cpqNicIfLogMapDescription => '1.3.6.1.4.1.232.18.2.2.1.1.3', + cpqNicIfLogMapGroupType => '1.3.6.1.4.1.232.18.2.2.1.1.4', + cpqNicIfLogMapAdapterCount => '1.3.6.1.4.1.232.18.2.2.1.1.5', + cpqNicIfLogMapAdapterOKCount => '1.3.6.1.4.1.232.18.2.2.1.1.6', + cpqNicIfLogMapPhysicalAdapters => '1.3.6.1.4.1.232.18.2.2.1.1.7', + cpqNicIfLogMapMACAddress => '1.3.6.1.4.1.232.18.2.2.1.1.8', + cpqNicIfLogMapSwitchoverMode => '1.3.6.1.4.1.232.18.2.2.1.1.9', + cpqNicIfLogMapCondition => '1.3.6.1.4.1.232.18.2.2.1.1.10', + cpqNicIfLogMapStatus => '1.3.6.1.4.1.232.18.2.2.1.1.11', + cpqNicIfLogMapNumSwitchovers => '1.3.6.1.4.1.232.18.2.2.1.1.12', + cpqNicIfLogMapHwLocation => '1.3.6.1.4.1.232.18.2.2.1.1.13', + cpqNicIfLogMapSpeed => '1.3.6.1.4.1.232.18.2.2.1.1.14', + cpqNicIfLogMapVlanCount => '1.3.6.1.4.1.232.18.2.2.1.1.15', + cpqNicIfLogMapVlans => '1.3.6.1.4.1.232.18.2.2.1.1.16', + + cpqNicIfLogMapGroupTypeValue => { + 1 => "unknown", + 2 => "none", + 3 => "redundantPair", + 4 => "nft", + 5 => "alb", + 6 => "fec", + 7 => "gec", + 8 => "ad", + 9 => "slb", + 10 => "tlb", + 11 => "redundancySet", + }, + cpqNicIfLogMapConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + cpqNicIfLogMapStatusValue => { + 1 => "unknown", + 2 => "ok", + 3 => "primaryFailed", + 4 => "standbyFailed", + 5 => "groupFailed", + 6 => "redundancyReduced", + 7 => "redundancyLost", + }, + cpqNicIfLogMapSwitchoverModeValue => { + 1 => "unknown", + 2 => "none", + 3 => "manual", + 4 => "switchOnFail", + 5 => "preferredPrimary", + }, + }; + + # INDEX { cpqNicIfLogMapIndex } + foreach ($self->get_entries($oids, 'cpqNicIfLogMapEntry')) { + push(@{$self->{logical_nics}}, + HP::Proliant::Component::NicSubsystem::LogicalNic->new(%{$_}) + ); + } + + $oids = { + cpqNicIfPhysAdapterEntry => '1.3.6.1.4.1.232.18.2.3.1.1', + cpqNicIfPhysAdapterIndex => '1.3.6.1.4.1.232.18.2.3.1.1.1', + cpqNicIfPhysAdapterIfNumber => '1.3.6.1.4.1.232.18.2.3.1.1.2', + cpqNicIfPhysAdapterRole => '1.3.6.1.4.1.232.18.2.3.1.1.3', + cpqNicIfPhysAdapterMACAddress => '1.3.6.1.4.1.232.18.2.3.1.1.4', + cpqNicIfPhysAdapterSlot => '1.3.6.1.4.1.232.18.2.3.1.1.5', + cpqNicIfPhysAdapterIoAddr => '1.3.6.1.4.1.232.18.2.3.1.1.6', + cpqNicIfPhysAdapterIrq => '1.3.6.1.4.1.232.18.2.3.1.1.7', + cpqNicIfPhysAdapterDma => '1.3.6.1.4.1.232.18.2.3.1.1.8', + cpqNicIfPhysAdapterMemAddr => '1.3.6.1.4.1.232.18.2.3.1.1.9', + cpqNicIfPhysAdapterPort => '1.3.6.1.4.1.232.18.2.3.1.1.10', + cpqNicIfPhysAdapterDuplexState => '1.3.6.1.4.1.232.18.2.3.1.1.11', + cpqNicIfPhysAdapterCondition => '1.3.6.1.4.1.232.18.2.3.1.1.12', + cpqNicIfPhysAdapterState => '1.3.6.1.4.1.232.18.2.3.1.1.13', + cpqNicIfPhysAdapterStatus => '1.3.6.1.4.1.232.18.2.3.1.1.14', + cpqNicIfPhysAdapterStatsValid => '1.3.6.1.4.1.232.18.2.3.1.1.15', + cpqNicIfPhysAdapterGoodTransmits => '1.3.6.1.4.1.232.18.2.3.1.1.16', + cpqNicIfPhysAdapterGoodReceives => '1.3.6.1.4.1.232.18.2.3.1.1.17', + cpqNicIfPhysAdapterBadTransmits => '1.3.6.1.4.1.232.18.2.3.1.1.18', + cpqNicIfPhysAdapterBadReceives => '1.3.6.1.4.1.232.18.2.3.1.1.19', + cpqNicIfPhysAdapterAlignmentErrors => '1.3.6.1.4.1.232.18.2.3.1.1.20', + cpqNicIfPhysAdapterFCSErrors => '1.3.6.1.4.1.232.18.2.3.1.1.21', + cpqNicIfPhysAdapterSingleCollisionFrames => '1.3.6.1.4.1.232.18.2.3.1.1.22', + cpqNicIfPhysAdapterMultipleCollisionFrames => '1.3.6.1.4.1.232.18.2.3.1.1.23', + cpqNicIfPhysAdapterDeferredTransmissions => '1.3.6.1.4.1.232.18.2.3.1.1.24', + cpqNicIfPhysAdapterLateCollisions => '1.3.6.1.4.1.232.18.2.3.1.1.25', + cpqNicIfPhysAdapterExcessiveCollisions => '1.3.6.1.4.1.232.18.2.3.1.1.26', + cpqNicIfPhysAdapterInternalMacTransmitErrors => '1.3.6.1.4.1.232.18.2.3.1.1.27', + cpqNicIfPhysAdapterCarrierSenseErrors => '1.3.6.1.4.1.232.18.2.3.1.1.28', + cpqNicIfPhysAdapterFrameTooLongs => '1.3.6.1.4.1.232.18.2.3.1.1.29', + cpqNicIfPhysAdapterInternalMacReceiveErrors => '1.3.6.1.4.1.232.18.2.3.1.1.30', + cpqNicIfPhysAdapterHwLocation => '1.3.6.1.4.1.232.18.2.3.1.1.31', + cpqNicIfPhysAdapterPartNumber => '1.3.6.1.4.1.232.18.2.3.1.1.32', + cpqNicIfPhysAdapterRoleValue => { + 1 => "unknown", + 2 => "primary", + 3 => "secondary", + 4 => "member", + 5 => "txRx", + 6 => "tx", + 7 => "standby", + 8 => "none", + 255 => "notApplicable", + }, + cpqNicIfPhysAdapterDuplexStateValue => { + 1 => "unknown", + 2 => "half", + 3 => "full", + }, + cpqNicIfPhysAdapterConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + cpqNicIfPhysAdapterStateValue => { + 1 => "unknown", + 2 => "ok", + 3 => "standby", + 4 => "failed", + }, + cpqNicIfPhysAdapterStatusValue => { + 1 => "unknown", + 2 => "ok", + 3 => "generalFailure", + 4 => "linkFailure", + }, + + }; + # INDEX { cpqNicIfPhysAdapterIndex } + foreach ($self->get_entries($oids, 'cpqNicIfPhysAdapterEntry')) { + push(@{$self->{physical_nics}}, + HP::Proliant::Component::NicSubsystem::PhysicalNic->new(%{$_})); + } + +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/PowersupplySubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/PowersupplySubsystem.pm new file mode 100755 index 0000000..6abba29 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/PowersupplySubsystem.pm @@ -0,0 +1,214 @@ +package HP::Proliant::Component::PowersupplySubsystem; +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}, + powersupplies => [], + powerconverters => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + if ($self->{method} eq 'snmp') { + return HP::Proliant::Component::PowersupplySubsystem::SNMP->new(%params); + } elsif ($self->{method} eq 'cli') { + return HP::Proliant::Component::PowersupplySubsystem::CLI->new(%params); + } else { + die "unknown method"; + } + return $self; +} + +sub check { + my $self = shift; + my $errorfound = 0; + $self->add_info('checking power supplies'); + if (scalar (@{$self->{powersupplies}}) == 0) { + #$self->overall_check(); + } else { + foreach (@{$self->{powersupplies}}) { + $_->check(); + } + } +} + +sub dump { + my $self = shift; + foreach (@{$self->{powersupplies}}) { + $_->dump(); + } +} + + +package HP::Proliant::Component::PowersupplySubsystem::Powersupply; +our @ISA = qw(HP::Proliant::Component::PowersupplySubsystem); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + cpqHeFltTolPowerSupplyChassis => $params{cpqHeFltTolPowerSupplyChassis}, + cpqHeFltTolPowerSupplyBay => $params{cpqHeFltTolPowerSupplyBay}, + cpqHeFltTolPowerSupplyPresent => $params{cpqHeFltTolPowerSupplyPresent}, + cpqHeFltTolPowerSupplyCondition => $params{cpqHeFltTolPowerSupplyCondition}, + cpqHeFltTolPowerSupplyRedundant => $params{cpqHeFltTolPowerSupplyRedundant}, + cpqHeFltTolPowerSupplyCapacityUsed => $params{cpqHeFltTolPowerSupplyCapacityUsed} || 0, + cpqHeFltTolPowerSupplyCapacityMaximum => $params{cpqHeFltTolPowerSupplyCapacityMaximum} || 0, + blacklisted => 0, + info => undef, + extendexinfo => undef, + }; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('p', $self->{cpqHeFltTolPowerSupplyBay}); + if ($self->{cpqHeFltTolPowerSupplyPresent} eq "present") { + if ($self->{cpqHeFltTolPowerSupplyCondition} ne "ok") { + if ($self->{cpqHeFltTolPowerSupplyCondition} eq "other") { + $self->add_info(sprintf "powersupply %d is missing", + $self->{cpqHeFltTolPowerSupplyBay}); + } else { + $self->add_info(sprintf "powersupply %d needs attention (%s)", + $self->{cpqHeFltTolPowerSupplyBay}, + $self->{cpqHeFltTolPowerSupplyCondition}); + } + $self->add_message(CRITICAL, $self->{info}); + } else { + $self->add_info(sprintf "powersupply %d is %s", + $self->{cpqHeFltTolPowerSupplyBay}, + $self->{cpqHeFltTolPowerSupplyCondition}); + } + $self->add_extendedinfo(sprintf "ps_%s=%s", + $self->{cpqHeFltTolPowerSupplyBay}, + $self->{cpqHeFltTolPowerSupplyCondition}); + if ($self->{cpqHeFltTolPowerSupplyCapacityUsed} && + $self->{cpqHeFltTolPowerSupplyCapacityMaximum}) { + if ($self->{runtime}->{options}->{perfdata}) { + $self->{runtime}->{plugin}->add_perfdata( + label => sprintf("pc_%s", $self->{cpqHeFltTolPowerSupplyBay}), + value => $self->{cpqHeFltTolPowerSupplyCapacityUsed}, + warning => $self->{cpqHeFltTolPowerSupplyCapacityMaximum}, + critical => $self->{cpqHeFltTolPowerSupplyCapacityMaximum} + ); + } + } elsif ($self->{cpqHeFltTolPowerSupplyCapacityUsed}) { + if ($self->{runtime}->{options}->{perfdata}) { + $self->{runtime}->{plugin}->add_perfdata( + label => sprintf("pc_%s", $self->{cpqHeFltTolPowerSupplyBay}), + value => $self->{cpqHeFltTolPowerSupplyCapacityUsed} + ); + } + } + } else { + $self->add_info(sprintf "powersupply %d is %s", + $self->{cpqHeFltTolPowerSupplyBay}, + $self->{cpqHeFltTolPowerSupplyPresent}); + $self->add_extendedinfo(sprintf "ps_%s=%s", + $self->{cpqHeFltTolPowerSupplyBay}, + $self->{cpqHeFltTolPowerSupplyPresent}); + } +} + + +sub dump { + my $self = shift; + printf "[PS_%s]\n", $self->{cpqHeFltTolPowerSupplyBay}; + foreach (qw(cpqHeFltTolPowerSupplyBay cpqHeFltTolPowerSupplyChassis + cpqHeFltTolPowerSupplyPresent cpqHeFltTolPowerSupplyCondition + cpqHeFltTolPowerSupplyRedundant cpqHeFltTolPowerSupplyCapacityUsed + cpqHeFltTolPowerSupplyCapacityMaximum)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "info: %s\n\n", $self->{info}; +} + + +package HP::Proliant::Component::PowersupplySubsystem::Powerconverter; +our @ISA = qw(HP::Proliant::Component::PowersupplySubsystem); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + + cpqHePowerConvEntry => $params{cpqHePowerConvEntry}, + cpqHePowerConvChassis => $params{cpqHePowerConvChassis}, + cpqHePowerConvIndex => $params{cpqHePowerConvIndex}, + cpqHePowerConvPresent => $params{cpqHePowerConvPresent}, + cpqHePowerConvRedundant => $params{cpqHePowerConvRedundant}, + cpqHePowerConvCondition => $params{cpqHePowerConvCondition}, + cpqHePowerConvHwLocation => $params{cpqHePowerConvHwLocation}, + blacklisted => 0, + info => undef, + extendexinfo => undef, + }; + bless $self, $class; + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('pc', $self->{cpqHePowerConvIndex}); + if ($self->{cpqHePowerConvPresent} eq "present") { + if ($self->{cpqHePowerConvCondition} ne "ok") { + if ($self->{cpqHePowerConvCondition} eq "other") { + $self->add_info(sprintf "powerconverter %d is missing", + $self->{cpqHePowerConvIndex}); + } else { + $self->add_info(sprintf "powerconverter %d needs attention (%s)", + $self->{cpqHePowerConvIndex}, + $self->{cpqHePowerConvCondition}); + } + $self->add_message(CRITICAL, $self->{info}); + } else { + $self->add_info(sprintf "powerconverter %d is %s", + $self->{cpqHePowerConvIndex}, + $self->{cpqHePowerConvCondition}); + } + $self->add_extendedinfo(sprintf "pc_%s=%s", + $self->{cpqHePowerConvIndex}, + $self->{cpqHePowerConvCondition}); + } else { + $self->add_info(sprintf "powerconverter %d is %s", + $self->{cpqHePowerConvIndex}, + $self->{cpqHePowerConvPresent}); + $self->add_extendedinfo(sprintf "pc_%s=%s", + $self->{cpqHePowerConvIndex}, + $self->{cpqHePowerConvPresent}); + } +} + + +sub dump { + my $self = shift; + printf "[PS_%s]\n", ($self->{cpqHePowerConvChassis} ? $self->{cpqHePowerConvChassis}.":" : "").$self->{cpqHePowerConvIndex}; + foreach (qw(cpqHePowerConvIndex cpqHePowerConvPresent cpqHePowerConvRedundant cpqHePowerConvCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "info: %s\n\n", $self->{info}; +} + + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/PowersupplySubsystem/CLI.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/PowersupplySubsystem/CLI.pm new file mode 100755 index 0000000..c218975 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/PowersupplySubsystem/CLI.pm @@ -0,0 +1,81 @@ +package HP::Proliant::Component::PowersupplySubsystem::CLI; +our @ISA = qw(HP::Proliant::Component::PowersupplySubsystem); + +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}, + powersupplies => [], + powerconverters => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(%params); + return $self; +} + +sub init { + my $self = shift; + my %params = @_; + my %tmpps = ( + runtime => $self->{runtime}, + cpqHeFltTolPowerSupplyChassis => 1, + ); + my $inblock = 0; + foreach (grep(/^powersupply/, split(/\n/, $self->{rawdata}))) { + s/^powersupply\s*//g; + if (/^Power supply #(\d+)/) { + if ($inblock) { + $inblock = 0; + push(@{$self->{powersupplies}}, + HP::Proliant::Component::PowersupplySubsystem::Powersupply->new(%tmpps)); + %tmpps = ( + runtime => $self->{runtime}, + cpqHeFltTolPowerSupplyChassis => 1, + ); + } + $tmpps{cpqHeFltTolPowerSupplyBay} = $1; + $inblock = 1; + } elsif (/\s*Present\s+:\s+(\w+)/) { + $tmpps{cpqHeFltTolPowerSupplyPresent} = lc $1 eq 'yes' ? 'present' : + lc $1 eq 'no' ? 'absent': 'other'; + } elsif (/\s*Redundant\s*:\s+(\w+)/) { + $tmpps{cpqHeFltTolPowerSupplyRedundant} = lc $1 eq 'yes' ? 'redundant' : + lc $1 eq 'no' ? 'notRedundant' : 'other'; + } elsif (/\s*Condition\s*:\s+(\w+)/) { + $tmpps{cpqHeFltTolPowerSupplyCondition} = lc $1; + } elsif (/\s*Power\s*:\s+(\d+)/) { + $tmpps{cpqHeFltTolPowerSupplyCapacityUsed} = $1; + } elsif (/\s*Power Supply not present/) { + $tmpps{cpqHeFltTolPowerSupplyPresent} = "absent"; + $tmpps{cpqHeFltTolPowerSupplyCondition} = "other"; + $tmpps{cpqHeFltTolPowerSupplyRedundant} = "notRedundant"; + } elsif (/^\s*$/) { + if ($inblock) { + $inblock = 0; + push(@{$self->{powersupplies}}, + HP::Proliant::Component::PowersupplySubsystem::Powersupply->new(%tmpps)); + %tmpps = ( + runtime => $self->{runtime}, + cpqHeFltTolPowerSupplyChassis => 1, + ); + } + } + } + if ($inblock) { + push(@{$self->{powersupplies}}, + HP::Proliant::Component::PowersupplySubsystem::Powersupply->new(%tmpps)); + %tmpps = ( + runtime => $params{runtime}, + ); + } +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/PowersupplySubsystem/SNMP.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/PowersupplySubsystem/SNMP.pm new file mode 100755 index 0000000..3fa8599 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/PowersupplySubsystem/SNMP.pm @@ -0,0 +1,96 @@ +package HP::Proliant::Component::PowersupplySubsystem::SNMP; +our @ISA = qw(HP::Proliant::Component::PowersupplySubsystem + HP::Proliant::Component::SNMP); + +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}, + powersupplies => [], + powerconverters => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(%params); + return $self; +} + +sub init { + my $self = shift; + my %params = @_; + my $snmpwalk = $self->{rawdata}; + my $oids = { + cpqHeFltTolPowerSupplyEntry => "1.3.6.1.4.1.232.6.2.9.3.1", + cpqHeFltTolPowerSupplyChassis => "1.3.6.1.4.1.232.6.2.9.3.1.1", + cpqHeFltTolPowerSupplyBay => "1.3.6.1.4.1.232.6.2.9.3.1.2", + cpqHeFltTolPowerSupplyPresent => "1.3.6.1.4.1.232.6.2.9.3.1.3", + cpqHeFltTolPowerSupplyCondition => "1.3.6.1.4.1.232.6.2.9.3.1.4", + cpqHeFltTolPowerSupplyRedundant => "1.3.6.1.4.1.232.6.2.9.3.1.9", + cpqHeFltTolPowerSupplyPresentValue => { + 1 => "other", + 2 => "absent", + 3 => "present", + }, + cpqHeFltTolPowerSupplyConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + cpqHeFltTolPowerSupplyCapacityUsed => '1.3.6.1.4.1.232.6.2.9.3.1.7', + cpqHeFltTolPowerSupplyCapacityMaximum => '1.3.6.1.4.1.232.6.2.9.3.1.8', + cpqHeFltTolPowerSupplyRedundantValue => { + 1 => "other", + 2 => "notRedundant", + 3 => "redundant", + }, + }; + + # INDEX { cpqHeFltTolPowerSupplyChassis, cpqHeFltTolPowerSupplyBay } + foreach ($self->get_entries($oids, 'cpqHeFltTolPowerSupplyEntry')) { + push(@{$self->{powersupplies}}, + HP::Proliant::Component::PowersupplySubsystem::Powersupply->new(%{$_})); + } + + $oids = { + cpqHePowerConvEntry => "1.3.6.1.4.1.232.6.2.13.3.1", + cpqHePowerConvChassis => "1.3.6.1.4.1.232.6.2.13.3.1.1", + cpqHePowerConvIndex => "1.3.6.1.4.1.232.6.2.13.3.1.2", + cpqHePowerConvPresent => "1.3.6.1.4.1.232.6.2.13.3.1.3", + cpqHePowerConvRedundant => "1.3.6.1.4.1.232.6.2.13.3.1.6", + cpqHePowerConvCondition => "1.3.6.1.4.1.232.6.2.13.3.1.8", + cpqHePowerConvPresentValue => { + 1 => "other", + 2 => "absent", + 3 => "present", + }, + cpqHePowerConvRedundantValue => { + 1 => "other", + 2 => "notRedundant", + 3 => "redundant", + }, + cpqHePowerConvConditionValue => { + 1 => "other", + 2 => "ok", + 3 => "degraded", + 4 => "failed", + }, + cpqHePowerConvHwLocation => "1.3.6.1.4.1.232.6.2.13.3.1.9", + }; + + # INDEX { cpqHePowerConvChassis cpqHePowerConvIndex } + foreach ($self->get_entries($oids, 'cpqHePowerConvEntry')) { + push(@{$self->{powerconverters}}, + HP::Proliant::Component::PowersupplySubsystem::Powerconverter->new(%{$_})); + } + # keine ahnung, was man damit machen kann + +} + diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/SNMP.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/SNMP.pm new file mode 100755 index 0000000..708f7f6 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/SNMP.pm @@ -0,0 +1,67 @@ +package HP::Proliant::Component::SNMP; + +sub get_entries { + my $self = shift; + my $oids = shift; + my $entry = shift; + my $snmpwalk = $self->{rawdata}; + my @params = (); + my @indices = SNMP::Utils::get_indices($snmpwalk, $oids->{$entry}); + foreach (@indices) { + my @idx = @{$_}; + my %params = ( + runtime => $self->{runtime}, + ); + my $maxdimension = scalar(@idx) - 1; + foreach my $idxnr (1..scalar(@idx)) { + $params{'index'.$idxnr} = $_->[$idxnr - 1]; + } + foreach my $oid (keys %{$oids}) { + next if $oid =~ /Entry$/; + next if $oid =~ /Value$/; + if (exists $oids->{$oid.'Value'}) { + $params{$oid} = SNMP::Utils::get_object_value( + $snmpwalk, $oids->{$oid}, $oids->{$oid.'Value'}, @idx); + if (! defined $params{$oid}) { + my $numerical_value = SNMP::Utils::get_object( + $snmpwalk, $oids->{$oid}, @idx); + if (! defined $numerical_value) { + # maschine liefert schrott + $params{$oid} = 'value_unknown'; + } else { + $params{$oid} = 'value_'.SNMP::Utils::get_object( + $snmpwalk, $oids->{$oid}, @idx); + } + } + } else { + $params{$oid} = SNMP::Utils::get_object( + $snmpwalk, $oids->{$oid}, @idx); + } + } + push(@params, \%params); + } + return @params; +} + +sub mib { + my $self = shift; + my $mib = shift; + my $condition = { + 0 => 'other', + 1 => 'ok', + 2 => 'degraded', + 3 => 'failed', + }; + my $MibRevMajor = $mib.'.1.0'; + my $MibRevMinor = $mib.'.2.0'; + my $MibRevCondition = $mib.'.3.0'; + return ( + $self->SNMP::Utils::get_object($self->{rawdata}, + $MibRevMajor), + $self->SNMP::Utils::get_object($self->{rawdata}, + $MibRevMinor), + $self->SNMP::Utils::get_object_value($self->{rawdata}, + $MibRevCondition, $condition)); +}; + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/TemperatureSubsystem.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/TemperatureSubsystem.pm new file mode 100755 index 0000000..7c82a11 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/TemperatureSubsystem.pm @@ -0,0 +1,205 @@ +package HP::Proliant::Component::TemperatureSubsystem; +our @ISA = qw(HP::Proliant::Component); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; +################################## custom_thresholds + my %params = @_; + my $self = { + runtime => $params{runtime}, + rawdata => $params{rawdata}, + method => $params{method}, + condition => $params{condition}, + status => $params{status}, + temperatures => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + if ($params{runtime}->{options}->{customthresholds}) { + if (-f $params{runtime}->{options}->{customthresholds}) { + $params{runtime}->{options}->{customthresholds} = + do { local (@ARGV, $/) = + $params{runtime}->{options}->{customthresholds}; <> }; + } + foreach my $ct_items + (split(/\//, $params{runtime}->{options}->{customthresholds})) { + if ($ct_items =~ /^(\d+):(\d+)$/) { + $params{runtime}->{options}->{thresholds}->{$1} = $2; + } else { + die sprintf "invalid threshold %s", $ct_items; + } + } + } + if ($self->{method} eq 'snmp') { + return HP::Proliant::Component::TemperatureSubsystem::SNMP->new(%params); + } elsif ($self->{method} eq 'cli') { + return HP::Proliant::Component::TemperatureSubsystem::CLI->new(%params); + } else { + die "unknown method"; + } + return $self; +} + +sub check { + my $self = shift; + my $errorfound = 0; + $self->add_info('checking temperatures'); + if (scalar (@{$self->{temperatures}}) == 0) { + #$self->overall_check(); + $self->add_info('no temperatures found'); + } else { + foreach (sort { $a->{cpqHeTemperatureIndex} <=> $b->{cpqHeTemperatureIndex}} + @{$self->{temperatures}}) { + $_->check(); + } + } +} + +sub dump { + my $self = shift; + foreach (@{$self->{temperatures}}) { + $_->dump(); + } +} + + +package HP::Proliant::Component::TemperatureSubsystem::Temperature; +our @ISA = qw(HP::Proliant::Component::TemperatureSubsystem); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub new { + my $class = shift; + my %params = @_; + my $self = { + runtime => $params{runtime}, + cpqHeTemperatureChassis => $params{cpqHeTemperatureChassis}, + cpqHeTemperatureIndex => $params{cpqHeTemperatureIndex}, + cpqHeTemperatureLocale => $params{cpqHeTemperatureLocale}, + cpqHeTemperatureCelsius => $params{cpqHeTemperatureCelsius}, + cpqHeTemperatureThresholdCelsius => $params{cpqHeTemperatureThresholdCelsius}, + cpqHeTemperatureCondition => $params{cpqHeTemperatureCondition}, + cpqHeTemperatureThresholdType => $params{cpqHeTemperatureThresholdType} || "unknown", + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + if ($params{runtime}->{options}->{celsius}) { + $self->{cpqHeTemperatureUnits} = 'C'; + $self->{cpqHeTemperature} = $self->{cpqHeTemperatureCelsius}; + $self->{cpqHeTemperatureThreshold} = + $self->{cpqHeTemperatureThresholdCelsius}; + } else { + $self->{cpqHeTemperatureUnits} = 'F'; + $self->{cpqHeTemperature} = + (($self->{cpqHeTemperatureCelsius} * 9) / 5) + 32; + $self->{cpqHeTemperatureThreshold} = + (($self->{cpqHeTemperatureThresholdCelsius} * 9) / 5) + 32; + } + my $index = $self->{cpqHeTemperatureIndex}; + if (exists $params{runtime}->{options}->{thresholds}->{$index}) { + $self->{cpqHeTemperatureThreshold} = + $params{runtime}->{options}->{thresholds}->{$index}; + + } + if ($self->{cpqHeTemperatureThresholdCelsius} == -99) { + bless $self, 'HP::Proliant::Component::TemperatureSubsystem::SoSTemperature'; + } elsif ($self->{cpqHeTemperatureThresholdCelsius} == 0) { + # taucht auf, seit man gen8 ueber das ilo abfragen kann + bless $self, 'HP::Proliant::Component::TemperatureSubsystem::SoSTemperature'; + } + return $self; +} + +sub check { + my $self = shift; + $self->blacklist('t', $self->{cpqHeTemperatureIndex}); + if ($self->{cpqHeTemperature} > $self->{cpqHeTemperatureThreshold}) { + $self->add_info(sprintf "%d %s temperature too high (%d%s, %d max)", + $self->{cpqHeTemperatureIndex}, $self->{cpqHeTemperatureLocale}, + $self->{cpqHeTemperature}, $self->{cpqHeTemperatureUnits}, + $self->{cpqHeTemperatureThreshold}); + $self->add_message(CRITICAL, $self->{info}); + } elsif ($self->{cpqHeTemperature} < 0) { + # #21 SCSI_BACKPLANE_ZONE -1C/31F 60C/140F OK - can't be true + $self->add_info(sprintf "%d %s temperature too low (%d%s)", + $self->{cpqHeTemperatureIndex}, $self->{cpqHeTemperatureLocale}, + $self->{cpqHeTemperature}, $self->{cpqHeTemperatureUnits}); + $self->add_message(CRITICAL, $self->{info}); + } else { + $self->add_info(sprintf "%d %s temperature is %d%s (%d max)", + $self->{cpqHeTemperatureIndex}, $self->{cpqHeTemperatureLocale}, + $self->{cpqHeTemperature}, $self->{cpqHeTemperatureUnits}, + $self->{cpqHeTemperatureThreshold}); + } + if ($self->{runtime}->{options}->{perfdata} == 2) { + $self->{runtime}->{plugin}->add_perfdata( + label => sprintf('temp_%s', $self->{cpqHeTemperatureIndex}), + value => $self->{cpqHeTemperature}, + warning => $self->{cpqHeTemperatureThreshold}, + critical => $self->{cpqHeTemperatureThreshold} + ); + } elsif ($self->{runtime}->{options}->{perfdata} == 1) { + $self->{runtime}->{plugin}->add_perfdata( + label => sprintf('temp_%s_%s', $self->{cpqHeTemperatureIndex}, + $self->{cpqHeTemperatureLocale}), + value => $self->{cpqHeTemperature}, + warning => $self->{cpqHeTemperatureThreshold}, + critical => $self->{cpqHeTemperatureThreshold} + ); + } + $self->add_extendedinfo(sprintf "temp_%s=%d", + $self->{cpqHeTemperatureIndex}, + $self->{cpqHeTemperature}); +} + +sub dump { + my $self = shift; + printf "[TEMP_%s]\n", $self->{cpqHeTemperatureIndex}; + foreach (qw(cpqHeTemperatureChassis cpqHeTemperatureIndex + cpqHeTemperatureLocale cpqHeTemperatureCelsius cpqHeTemperatureThreshold + cpqHeTemperatureThresholdType cpqHeTemperatureCondition)) { + printf "%s: %s\n", $_, $self->{$_}; + } + printf "info: %s\n\n", $self->{info}; +} + + +package HP::Proliant::Component::TemperatureSubsystem::SoSTemperature; +our @ISA = qw(HP::Proliant::Component::TemperatureSubsystem::Temperature); + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; + +sub check { + my $self = shift; + $self->blacklist('t', $self->{cpqHeTemperatureIndex}); + $self->add_info(sprintf "%d %s temperature is %d%s (no thresh.)", + $self->{cpqHeTemperatureIndex}, $self->{cpqHeTemperatureLocale}, + $self->{cpqHeTemperature}, $self->{cpqHeTemperatureUnits}); + if ($self->{runtime}->{options}->{perfdata} == 2) { + $self->{runtime}->{plugin}->add_perfdata( + label => sprintf('temp_%s', $self->{cpqHeTemperatureIndex}), + value => $self->{cpqHeTemperature}, + ); + } elsif ($self->{runtime}->{options}->{perfdata} == 1) { + $self->{runtime}->{plugin}->add_perfdata( + label => sprintf('temp_%s_%s', $self->{cpqHeTemperatureIndex}, + $self->{cpqHeTemperatureLocale}), + value => $self->{cpqHeTemperature}, + ); + } + $self->add_extendedinfo(sprintf "temp_%s=%d", + $self->{cpqHeTemperatureIndex}, + $self->{cpqHeTemperature}); +} + +1; + diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/TemperatureSubsystem/CLI.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/TemperatureSubsystem/CLI.pm new file mode 100755 index 0000000..9e8e6be --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/TemperatureSubsystem/CLI.pm @@ -0,0 +1,56 @@ +package HP::Proliant::Component::TemperatureSubsystem::CLI; +our @ISA = qw(HP::Proliant::Component::TemperatureSubsystem); + +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}, + temperatures => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->init(%params); + return $self; +} + +sub init { + my $self = shift; + my %params = @_; + my $tempcnt = 1; + foreach (grep(/^temp/, split(/\n/, $params{rawdata}))) { + s/^temp\s*//g; + if (/^#(\d+)\s+([\w_\/\-#]+)\s+(-*\d+)C\/(\d+)F\s+(\d+)C\/(\d+)F/) { + my %params = (); + $params{runtime} = $self->{runtime}; + $params{cpqHeTemperatureChassis} = 1; + $params{cpqHeTemperatureIndex} = $1; + $params{cpqHeTemperatureLocale} = lc $2; + $params{cpqHeTemperatureCelsius} = $3; + $params{cpqHeTemperatureThresholdCelsius} = $5; + $params{cpqHeTemperatureCondition} = 'unknown'; + push(@{$self->{temperatures}}, + HP::Proliant::Component::TemperatureSubsystem::Temperature->new( + %params)); + } elsif (/^#(\d+)\s+([\w_\/\-#]+)\s+\-\s+(\d+)C\/(\d+)F/) { + # #3 CPU#2 - 0C/0F + $self->trace(2, sprintf "skipping temperature %s", $_); + } elsif (/^#(\d+)\s+([\w_\/\-#]+)\s+(\d+)C\/(\d+)F\s+\-/) { + # #3 CPU#2 0C/0F - + $self->trace(2, sprintf "skipping temperature %s", $_); + } elsif (/^#(\d+)\s+([\w_\/\-#]+)\s+\-\s+\-/) { + # #3 CPU#2 - - + $self->trace(2, sprintf "skipping temperature %s", $_); + } elsif (/^#(\d+)/) { + $self->trace(0, sprintf "send this to lausser: %s", $_); + } + } +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/TemperatureSubsystem/SNMP.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/TemperatureSubsystem/SNMP.pm new file mode 100755 index 0000000..de8e4cb --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Proliant/Component/TemperatureSubsystem/SNMP.pm @@ -0,0 +1,119 @@ +package HP::Proliant::Component::TemperatureSubsystem::SNMP; +our @ISA = qw(HP::Proliant::Component::TemperatureSubsystem + HP::Proliant::Component::SNMP); + +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}, + temperatures => [], + blacklisted => 0, + info => undef, + extendedinfo => undef, + }; + bless $self, $class; + $self->overall_init(%params); + $self->init(%params); + return $self; +} + +sub overall_init { + my $self = shift; + my %params = @_; + my $snmpwalk = $params{rawdata}; + # overall + my $cpqHeThermalTempStatus = '1.3.6.1.4.1.232.6.2.6.3.0'; + my $cpqHeThermalTempStatusValue = { + 1 => 'other', + 2 => 'ok', + 3 => 'degraded', + 4 => 'failed', + }; + $self->{tempstatus} = lc SNMP::Utils::get_object_value( + $snmpwalk, $cpqHeThermalTempStatus, + $cpqHeThermalTempStatusValue); + $self->{tempstatus} |= lc $self->{tempstatus}; +} + +sub init { + my $self = shift; + my %params = @_; + my $snmpwalk = $self->{rawdata}; + my $oids = { + cpqHeTemperatureEntry => "1.3.6.1.4.1.232.6.2.6.8.1", + cpqHeTemperatureChassis => "1.3.6.1.4.1.232.6.2.6.8.1.1", + cpqHeTemperatureIndex => "1.3.6.1.4.1.232.6.2.6.8.1.2", + cpqHeTemperatureLocale => "1.3.6.1.4.1.232.6.2.6.8.1.3", + cpqHeTemperatureCelsius => "1.3.6.1.4.1.232.6.2.6.8.1.4", + cpqHeTemperatureThresholdCelsius => "1.3.6.1.4.1.232.6.2.6.8.1.5", + cpqHeTemperatureCondition => "1.3.6.1.4.1.232.6.2.6.8.1.6", + cpqHeTemperatureThresholdType => "1.3.6.1.4.1.232.6.2.6.8.1.7", + cpqHeTemperatureLocaleValue => { + 1 => "other", + 2 => "unknown", + 3 => "system", + 4 => "systemBoard", + 5 => "ioBoard", + 6 => "cpu", + 7 => "memory", + 8 => "storage", + 9 => "removableMedia", + 10 => "powerSupply", + 11 => "ambient", + 12 => "chassis", + 13 => "bridgeCard", + }, + cpqHeTemperatureConditionValue => { + 1 => 'other', + 2 => 'ok', + 3 => 'degraded', + 4 => 'failed', + }, + cpqHeTemperatureThresholdTypeValue => { + 1 => 'other', + 5 => 'blowout', + 9 => 'caution', + 15 => 'critical', + }, + }; + # INDEX { cpqHeTemperatureChassis, cpqHeTemperatureIndex } + foreach ($self->get_entries($oids, 'cpqHeTemperatureEntry')) { + # sieht aus, als wurden die gar nicht existieren. + # im ilo4 werden sie als n/a angezeigt + next if $_->{cpqHeTemperatureThresholdType} eq "caution" && $_->{cpqHeTemperatureThresholdCelsius} == 0; + push(@{$self->{temperatures}}, + HP::Proliant::Component::TemperatureSubsystem::Temperature->new(%{$_})); + } +} + +sub overall_check { + my $self = shift; + my $result = 0; + $self->blacklist('ots', ''); + if ($self->{tempstatus}) { + if ($self->{tempstatus} eq "ok") { + $result = 0; + $self->add_info('all temp sensors are within normal operating range'); + } elsif ($self->{tempstatus} eq "degraded") { + $result = 1; + $self->add_info('a temp sensor is outside of normal operating range'); + } elsif ($self->{tempstatus} eq "failed") { + $result = 2; + $self->add_info('a temp sensor detects a condition that could permanently +damage the system'); + } elsif ($self->{tempstatus} eq "other") { + $result = 0; + $self->add_info('temp sensing is not supported by this system or driver'); + } + } else { + $result = 0; + $self->add_info('no global temp status found'); + } +} + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/SNMP/Utils.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/SNMP/Utils.pm new file mode 100755 index 0000000..f2d31a9 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/SNMP/Utils.pm @@ -0,0 +1,103 @@ +package SNMP::Utils; + +use strict; + +{ + sub get_indices { + my $oids = shift; + my $entry = shift; + my $numindices = shift; + # find all oids beginning with $entry + # then skip one field for the sequence + # then read the next numindices fields + my $entrypat = $entry; + $entrypat =~ s/\./\\\./g; + my @indices = map { + /^$entrypat\.\d+\.(.*)/ && $1; + } grep { + /^$entrypat/ + } keys %{$oids}; + my %seen = (); + my @o = map {[split /\./]} sort grep !$seen{$_}++, @indices; + return @o; + } + + sub get_size { + my $oids = shift; + my $entry = shift; + my $entrypat = $entry; + $entrypat =~ s/\./\\\./g; + my @entries = grep { + /^$entrypat/ + } keys %{$oids}; + return scalar(@entries); + } + + sub get_object { + my $oids = shift; + my $object = shift; + my @indices = @_; + #my $oid = $object.'.'.join('.', @indices); + my $oid = $object; + $oid .= '.'.join('.', @indices) if (@indices); + return $oids->{$oid}; + } + + sub get_object_value { + my $oids = shift; + my $object = shift; + my $values = shift; + my @indices = @_; + my $key = get_object($oids, $object, @indices); + if (defined $key) { + return $values->{$key}; + } else { + return undef; + } + } + + #SNMP::Utils::counter([$idxs1, $idxs2], $idx1, $idx2), + # this flattens a n-dimensional array and returns the absolute position + # of the element at position idx1,idx2,...,idxn + # element 1,2 in table 0,0 0,1 0,2 1,0 1,1 1,2 2,0 2,1 2,2 is at pos 6 + sub get_number { + my $indexlists = shift; #, zeiger auf array aus [1, 2] + my @element = @_; + my $dimensions = scalar(@{$indexlists->[0]}); + my @sorted = (); + my $number = 0; + if ($dimensions == 1) { + @sorted = + sort { $a->[0] <=> $b->[0] } @{$indexlists}; + } elsif ($dimensions == 2) { + @sorted = + sort { $a->[0] <=> $b->[0] || $a->[1] <=> $b->[1] } @{$indexlists}; + } elsif ($dimensions == 3) { + @sorted = + sort { $a->[0] <=> $b->[0] || + $a->[1] <=> $b->[1] || + $a->[2] <=> $b->[2] } @{$indexlists}; + } + foreach (@sorted) { + if ($dimensions == 1) { + if ($_->[0] == $element[0]) { + last; + } + } elsif ($dimensions == 2) { + if ($_->[0] == $element[0] && $_->[1] == $element[1]) { + last; + } + } elsif ($dimensions == 3) { + if ($_->[0] == $element[0] && + $_->[1] == $element[1] && + $_->[2] == $element[2]) { + last; + } + } + $number++; + } + return ++$number; + } + +} + 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; +} + diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Storage.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Storage.pm new file mode 100755 index 0000000..6fecca1 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/Storage.pm @@ -0,0 +1,308 @@ +package HP::Storage; + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; +use Data::Dumper; + +our @ISA = qw(HP::Server); + +sub init { + my $self = shift; + $self->{components} = { + powersupply_subsystem => undef, + fan_subsystem => undef, + temperature_subsystem => undef, + cpu_subsystem => undef, + memory_subsystem => undef, + disk_subsystem => undef, + sensor_subsystem => undef, + }; + $self->{serial} = 'unknown'; + $self->{product} = 'unknown'; + $self->{romversion} = 'unknown'; + $self->collect(); + if (! $self->{runtime}->{plugin}->check_messages()) { + $self->set_serial(); +# $self->check_for_buggy_firmware(); +# $self->analyze_cpus(); +# $self->analyze_powersupplies(); +# $self->analyze_fan_subsystem(); +# $self->analyze_temperatures(); +# $self->analyze_memory_subsystem(); + $self->analyze_disk_subsystem(); +## $self->analyze_sensor_subsystem(); +# $self->check_cpus(); +# $self->check_powersupplies(); +# $self->check_fan_subsystem(); +# $self->check_temperatures(); +# $self->check_memory_subsystem(); + $self->check_disk_subsystem(); +## $self->check_sensor_subsystem(); + } +} + +sub identify { + my $self = shift; + return sprintf "System: '%s', S/N: '%s', ROM: '%s'", + $self->{product}, $self->{serial}, $self->{romversion}; +} + +sub check_for_buggy_firmware { + my $self = shift; + my @buggyfirmwares = ( + "P24 12/11/2001", + "P24 11/15/2002", + "D13 06/03/2003", + "D13 09/15/2004", + "P20 12/17/2002" + ); + $self->{runtime}->{options}->{buggy_firmware} = + grep /^$self->{romversion}/, @buggyfirmwares; +} + +sub dump { + my $self = shift; + printf STDERR "serial %s\n", $self->{serial}; + printf STDERR "product %s\n", $self->{product}; + printf STDERR "romversion %s\n", $self->{romversion}; + printf STDERR "%s\n", Data::Dumper::Dumper($self->{components}); +} + +sub analyze_powersupplies { + my $self = shift; + $self->{components}->{powersupply_subsystem} = + HP::Storage::Component::PowersupplySubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_fan_subsystem { + my $self = shift; + $self->{components}->{fan_subsystem} = + HP::Storage::Component::FanSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_temperatures { + my $self = shift; + $self->{components}->{temperature_subsystem} = + HP::Storage::Component::TemperatureSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_cpus { + my $self = shift; + $self->{components}->{cpu_subsystem} = + HP::Storage::Component::CpuSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_memory_subsystem { + my $self = shift; + $self->{components}->{memory_subsystem} = + HP::Storage::Component::MemorySubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_disk_subsystem { + my $self = shift; + $self->{components}->{disk_subsystem} = + HP::Proliant::Component::DiskSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub analyze_sensor_subsystem { + my $self = shift; + $self->{components}->{sensor_subsystem} = + HP::FCMGMT::Component::SensorSubsystem->new( + rawdata => $self->{rawdata}, + method => $self->{method}, + runtime => $self->{runtime}, + ); +} + +sub check_cpus { + my $self = shift; + $self->{components}->{cpu_subsystem}->check(); + $self->{components}->{cpu_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; +} + +sub check_powersupplies { + my $self = shift; + $self->{components}->{powersupply_subsystem}->check(); + $self->{components}->{powersupply_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; +} + +sub check_fan_subsystem { + my $self = shift; + $self->{components}->{fan_subsystem}->check(); + $self->{components}->{fan_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; +} + +sub check_temperatures { + my $self = shift; + $self->{components}->{temperature_subsystem}->check(); + $self->{components}->{temperature_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; +} + +sub check_memory_subsystem { + my $self = shift; + $self->{components}->{memory_subsystem}->check(); + $self->{components}->{memory_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 2; +} + +sub check_disk_subsystem { + my $self = shift; + $self->{components}->{disk_subsystem}->check(); + $self->{components}->{disk_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 1; +} + +sub check_sensor_subsystem { + my $self = shift; + $self->{components}->{isensor_subsystem}->check(); + $self->{components}->{sensor_subsystem}->dump() + if $self->{runtime}->{options}->{verbose} >= 1; +} + + +sub collect { + my $self = shift; + if ($self->{runtime}->{plugin}->opts->snmpwalk) { + my $cpqSeMibCondition = '1.3.6.1.4.1.232.6.1.3.0'; + # rindsarsch! + $self->{rawdata}->{$cpqSeMibCondition} = 0; + if (! exists $self->{rawdata}->{$cpqSeMibCondition}) { + $self->add_message(CRITICAL, + 'snmpwalk returns no health data (cpqhlth-mib)'); + } + } else { + my $net_snmp_version = Net::SNMP->VERSION(); # 5.002000 or 6.000000 + #$params{'-translate'} = [ + # -all => 0x0 + #]; + my ($session, $error) = + Net::SNMP->session(%{$self->{runtime}->{snmpparams}}); + if (! defined $session) { + $self->{plugin}->add_message(CRITICAL, 'cannot create session object'); + $self->trace(1, Data::Dumper::Dumper($self->{runtime}->{snmpparams})); + } else { + # revMajor is often used for discovery of hp devices + my $cpqSeMibRev = '1.3.6.1.4.1.232.6.1'; + my $cpqSeMibRevMajor = '1.3.6.1.4.1.232.6.1.1.0'; + my $cpqSeMibCondition = '1.3.6.1.4.1.232.6.1.3.0'; + my $result = $session->get_request( + -varbindlist => [$cpqSeMibCondition] + ); + # rindsarsch! + $result->{$cpqSeMibCondition} = 0; + if (!defined($result) || + $result->{$cpqSeMibCondition} eq 'noSuchInstance' || + $result->{$cpqSeMibCondition} eq 'noSuchObject' || + $result->{$cpqSeMibCondition} eq 'endOfMibView') { + $self->add_message(CRITICAL, + 'snmpwalk returns no health data (cpqhlth-mib)'); + $session->close; + } else { + # this is not reliable. many agents return 4=failed + #if ($result->{$cpqSeMibCondition} != 2) { + # $obstacle = "cmapeerstart"; + #} + } + } + if (! $self->{runtime}->{plugin}->check_messages()) { + # snmp peer is alive + $self->trace(2, sprintf "Protocol is %s", + $self->{runtime}->{snmpparams}->{'-version'}); + my $cpqSsSys = "1.3.6.1.4.1.232.8"; + $session->translate; + my $response = {}; #break the walk up in smaller pieces + my $tic = time; my $tac = $tic; + my $response1 = $session->get_table( + -baseoid => $cpqSsSys); + $tac = time; + $self->trace(2, sprintf "%03d seconds for walk cpqSsSys (%d oids)", + $tac - $tic, scalar(keys %{$response1})); + $session->close; + map { $response->{$_} = $response1->{$_} } keys %{$response1}; + map { $response->{$_} =~ s/^\s+//; $response->{$_} =~ s/\s+$//; } + keys %$response; + $self->{rawdata} = $response; + } + } + return $self->{runtime}->{plugin}->check_messages(); +} + +sub set_serial { + my $self = shift; + my $snmpwalk = $self->{rawdata}; + my @serials = (); + my @models = (); + my @fws = (); + my $cpqSsBackplaneEntry = '1.3.6.1.4.1.232.8.2.2.6.1'; + my $cpqSsBackplaneFWRev = '1.3.6.1.4.1.232.8.2.2.6.1.3'; + my $cpqSsBackplaneModel = '1.3.6.1.4.1.232.8.2.2.6.1.9'; + my $cpqSsBackplaneSerialNumber = '1.3.6.1.4.1.232.8.2.2.6.1.13'; + # INDEX { cpqSsBackplaneChassisIndex, cpqSsBackplaneIndex } + my @indexes = SNMP::Utils::get_indices($snmpwalk, + $cpqSsBackplaneEntry); + foreach (@indexes) { + my($idx1, $idx2) = ($_->[0], $_->[1]); + my $fw = SNMP::Utils::get_object($snmpwalk, + $cpqSsBackplaneFWRev, $idx1, $idx2); + my $model = SNMP::Utils::get_object($snmpwalk, + $cpqSsBackplaneModel, $idx1, $idx2); + my $serial = SNMP::Utils::get_object($snmpwalk, + $cpqSsBackplaneSerialNumber, $idx1, $idx2); + push(@serials, $serial); + push(@models, $model); + push(@fws, $fw); + } + + $self->{serial} = join('/', @serials); + $self->{product} = join('/', @models); + $self->{romversion} = join('/', @fws); + $self->{runtime}->{product} = $self->{product}; +} + + + + + + + + + + + + + + + + + + + +1; diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/StorageWorks.pm b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/StorageWorks.pm new file mode 100755 index 0000000..5792961 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_hpasm/check_hpasm-4.8/plugins-scripts/HP/StorageWorks.pm @@ -0,0 +1,157 @@ +package HP::StorageWorks; + +use strict; +use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 }; +use Data::Dumper; + +our @ISA = qw(HP::Server); + +sub init { + my $self = shift; + $self->{serial} = 'unknown'; + $self->{product} = 'unknown'; + $self->{romversion} = 'unknown'; + $self->collect(); + if (! $self->{runtime}->{plugin}->check_messages()) { + $self->set_serial(); + $self->overall_init(); + $self->overall_check(); + } +} + +sub overall_init { + my $self = shift; + my %params = @_; + my $snmpwalk = $self->{rawdata}; + my $cpqHoMibStatusArray = '1.3.6.1.4.1.232.11.2.10.1.0'; + $self->{cpqHoMibStatusArray} = SNMP::Utils::get_object( + $snmpwalk, $cpqHoMibStatusArray); + if ($self->{cpqHoMibStatusArray} =~ /^(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/) { + $self->{cpqHoMibStatusArray} = 1 * $2; + } elsif ($self->{cpqHoMibStatusArray} =~ /^0x.*(\d\d)(\d\d)(\d\d)(\d\d)$/) { + $self->{cpqHoMibStatusArray} = 1 * $2; + } +} + +sub overall_check { + my $self = shift; + if ($self->{cpqHoMibStatusArray} == 4) { + $self->add_info('overall status is failed'); + $self->add_message(CRITICAL, 'overall status is failed'); + } elsif ($self->{cpqHoMibStatusArray} == 3) { + $self->add_info('overall status is degraded'); + $self->add_message(WARNING, 'overall status is degraded'); + } elsif ($self->{cpqHoMibStatusArray} == 2) { + $self->add_info('overall status is ok'); + $self->add_message(OK, 'overall status is ok'); + } elsif ($self->{cpqHoMibStatusArray} == 1) { + $self->add_info('overall status is other'); + $self->add_message(UNKNOWN, 'overall status is other'); + } +} + +sub identify { + my $self = shift; + return $self->{productname}; +} + +sub dump { + my $self = shift; + printf STDERR "serial %s\n", $self->{serial}; + printf STDERR "product %s\n", $self->{product}; + printf STDERR "romversion %s\n", $self->{romversion}; + printf STDERR "%s\n", Data::Dumper::Dumper($self->{components}); +} + +sub collect { + my $self = shift; + if ($self->{runtime}->{plugin}->opts->snmpwalk) { + my $cpqHoMibStatusArray = '1.3.6.1.4.1.232.11.2.10.1.0'; + if (! exists $self->{rawdata}->{$cpqHoMibStatusArray}) { + $self->add_message(CRITICAL, + 'snmpwalk returns no health data (cpqhost-mib)'); + } + } else { + my $net_snmp_version = Net::SNMP->VERSION(); # 5.002000 or 6.000000 + #$params{'-translate'} = [ + # -all => 0x0 + #]; + my ($session, $error) = + Net::SNMP->session(%{$self->{runtime}->{snmpparams}}); + if (! defined $session) { + $self->{plugin}->add_message(CRITICAL, 'cannot create session object'); + $self->trace(1, Data::Dumper::Dumper($self->{runtime}->{snmpparams})); + } + if (! $self->{runtime}->{plugin}->check_messages()) { + # snmp peer is alive + $self->trace(2, sprintf "Protocol is %s", + $self->{runtime}->{snmpparams}->{'-version'}); + my $cpqHoMibStatusArray = '1.3.6.1.4.1.232.11.2.10.1.0'; + $session->translate; + my $tic = time; + my $response = $session->get_request( + -varbindlist => [$cpqHoMibStatusArray] + ); + my $tac = time; + $self->trace(2, sprintf "%03d seconds for walk cpqHoMibStatusArray (%d oids)", + $tac - $tic, scalar(keys %{$response})); + $session->close; + map { $response->{$_} =~ s/^\s+//; $response->{$_} =~ s/\s+$//; } + keys %$response; + $self->{rawdata} = $response; + } + } + return $self->{runtime}->{plugin}->check_messages(); +} + +sub set_serial { + my $self = shift; + my $snmpwalk = $self->{rawdata}; + my @serials = (); + my @models = (); + my @fws = (); + my $cpqSsBackplaneEntry = '1.3.6.1.4.1.232.8.2.2.6.1'; + my $cpqSsBackplaneFWRev = '1.3.6.1.4.1.232.8.2.2.6.1.3'; + my $cpqSsBackplaneModel = '1.3.6.1.4.1.232.8.2.2.6.1.9'; + my $cpqSsBackplaneSerialNumber = '1.3.6.1.4.1.232.8.2.2.6.1.13'; + # INDEX { cpqSsBackplaneChassisIndex, cpqSsBackplaneIndex } + my @indexes = SNMP::Utils::get_indices($snmpwalk, + $cpqSsBackplaneEntry); + foreach (@indexes) { + my($idx1, $idx2) = ($_->[0], $_->[1]); + my $fw = SNMP::Utils::get_object($snmpwalk, + $cpqSsBackplaneFWRev, $idx1, $idx2); + my $model = SNMP::Utils::get_object($snmpwalk, + $cpqSsBackplaneModel, $idx1, $idx2); + my $serial = SNMP::Utils::get_object($snmpwalk, + $cpqSsBackplaneSerialNumber, $idx1, $idx2); + push(@serials, $serial); + push(@models, $model); + push(@fws, $fw); + } + + $self->{serial} = join('/', @serials); + $self->{product} = join('/', @models); + $self->{romversion} = join('/', @fws); + $self->{runtime}->{product} = $self->{product}; +} + + + + + + + + + + + + + + + + + + + +1; |