2013-12-13 16:14:12 +01:00
|
|
|
################################################################################
|
|
|
|
|
# Copyright 2005-2013 MERETHIS
|
|
|
|
|
# Centreon is developped by : Julien Mathis and Romain Le Merlus under
|
|
|
|
|
# GPL Licence 2.0.
|
|
|
|
|
#
|
|
|
|
|
# This program is free software; you can redistribute it and/or modify it under
|
|
|
|
|
# the terms of the GNU General Public License as published by the Free Software
|
|
|
|
|
# Foundation ; either version 2 of the License.
|
|
|
|
|
#
|
|
|
|
|
# This program is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
|
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
|
|
|
|
# PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
|
|
|
#
|
|
|
|
|
# You should have received a copy of the GNU General Public License along with
|
|
|
|
|
# this program; if not, see <http://www.gnu.org/licenses>.
|
|
|
|
|
#
|
|
|
|
|
# Linking this program statically or dynamically with other modules is making a
|
|
|
|
|
# combined work based on this program. Thus, the terms and conditions of the GNU
|
|
|
|
|
# General Public License cover the whole combination.
|
|
|
|
|
#
|
|
|
|
|
# As a special exception, the copyright holders of this program give MERETHIS
|
|
|
|
|
# permission to link this program with independent modules to produce an executable,
|
|
|
|
|
# regardless of the license terms of these independent modules, and to copy and
|
|
|
|
|
# distribute the resulting executable under terms of MERETHIS choice, provided that
|
|
|
|
|
# MERETHIS also meet, for each linked independent module, the terms and conditions
|
|
|
|
|
# of the license of that module. An independent module is a module which is not
|
|
|
|
|
# derived from this program. If you modify this program, you may extend this
|
|
|
|
|
# exception to your version of the program, but you are not obliged to do so. If you
|
|
|
|
|
# do not wish to do so, delete this exception statement from your version.
|
|
|
|
|
#
|
|
|
|
|
# For more information : contact@centreon.com
|
|
|
|
|
# Authors : Quentin Garnier <qgarnier@merethis.com>
|
|
|
|
|
#
|
|
|
|
|
####################################################################################
|
|
|
|
|
|
2014-01-31 09:48:08 +01:00
|
|
|
package storage::hp::lefthand::mode::hardware;
|
2013-12-13 16:14:12 +01:00
|
|
|
|
|
|
|
|
use base qw(centreon::plugins::mode);
|
|
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
use centreon::plugins::misc;
|
|
|
|
|
|
|
|
|
|
sub new {
|
|
|
|
|
my ($class, %options) = @_;
|
|
|
|
|
my $self = $class->SUPER::new(package => __PACKAGE__, %options);
|
|
|
|
|
bless $self, $class;
|
|
|
|
|
|
|
|
|
|
$self->{version} = '1.0';
|
|
|
|
|
$options{options}->add_options(arguments =>
|
|
|
|
|
{
|
2014-01-31 18:00:58 +01:00
|
|
|
"exclude:s" => { name => 'exclude' },
|
2013-12-13 16:14:12 +01:00
|
|
|
});
|
|
|
|
|
|
|
|
|
|
$self->{product_name} = undef;
|
|
|
|
|
$self->{serial} = undef;
|
|
|
|
|
$self->{romversion} = undef;
|
|
|
|
|
return $self;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub check_options {
|
|
|
|
|
my ($self, %options) = @_;
|
|
|
|
|
$self->SUPER::init(%options);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub run {
|
|
|
|
|
my ($self, %options) = @_;
|
|
|
|
|
# $options{snmp} = snmp object
|
|
|
|
|
$self->{snmp} = $options{snmp};
|
|
|
|
|
|
|
|
|
|
$self->{components_fan} = 0;
|
|
|
|
|
$self->{components_rcc} = 0;
|
|
|
|
|
$self->{components_temperature} = 0;
|
|
|
|
|
$self->{components_psu} = 0;
|
|
|
|
|
$self->{components_voltage} = 0;
|
|
|
|
|
$self->{components_device} = 0;
|
|
|
|
|
$self->{components_rc} = 0;
|
|
|
|
|
$self->{components_ro} = 0;
|
|
|
|
|
|
|
|
|
|
$self->get_global_information();
|
|
|
|
|
$self->check_fan();
|
|
|
|
|
$self->check_rcc();
|
|
|
|
|
$self->check_temperature();
|
|
|
|
|
$self->check_psu();
|
|
|
|
|
$self->check_voltage();
|
|
|
|
|
$self->check_device();
|
|
|
|
|
$self->check_rc();
|
|
|
|
|
$self->check_ro();
|
|
|
|
|
|
|
|
|
|
$self->{output}->output_add(severity => 'OK',
|
|
|
|
|
short_msg => sprintf("All %d components [%d fans, %d power supplies, %d temperatures, %d voltages, %d raid controller caches, %d devices, %d raid controllers, %d raid os] are ok.",
|
|
|
|
|
($self->{components_fan} + $self->{components_rcc} + $self->{components_temperature} + $self->{components_psu} + $self->{components_voltage} + $self->{components_device} + $self->{components_rc} + $self->{components_ro}),
|
|
|
|
|
$self->{components_fan}, $self->{components_psu}, $self->{components_temperature}, $self->{components_voltage}, $self->{components_rcc}, $self->{components_device}, $self->{components_rc}, $self->{components_ro}));
|
|
|
|
|
|
|
|
|
|
$self->{output}->display();
|
|
|
|
|
$self->{output}->exit();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub get_global_information {
|
|
|
|
|
my ($self) = @_;
|
|
|
|
|
|
|
|
|
|
$self->{global_information} = $self->{snmp}->get_leef(oids => [
|
|
|
|
|
'.1.3.6.1.4.1.9804.3.1.1.2.1.110.0', # fancount
|
|
|
|
|
'.1.3.6.1.4.1.9804.3.1.1.2.1.90.0', # raid controlle cache count
|
|
|
|
|
'.1.3.6.1.4.1.9804.3.1.1.2.1.120.0', # temperature sensor
|
|
|
|
|
'.1.3.6.1.4.1.9804.3.1.1.2.1.130.0', # powersupply
|
|
|
|
|
'.1.3.6.1.4.1.9804.3.1.1.2.1.140.0', # voltage sensor
|
|
|
|
|
'.1.3.6.1.4.1.9804.3.1.1.2.4.1.0', # storage device
|
|
|
|
|
'.1.3.6.1.4.1.9804.3.1.1.2.4.3.0', # raid controller
|
|
|
|
|
'.1.3.6.1.4.1.9804.3.1.1.2.4.50.0' # raid internal
|
|
|
|
|
], nothing_quit => 1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub check_fan {
|
|
|
|
|
my ($self) = @_;
|
|
|
|
|
|
|
|
|
|
$self->{output}->output_add(long_msg => "Checking fan");
|
|
|
|
|
return if ($self->check_exclude('fan'));
|
|
|
|
|
|
|
|
|
|
my $fan_count_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.110.0"; # 0 means 'none'
|
|
|
|
|
my $fan_name_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.111.1.2"; # begin .1
|
|
|
|
|
my $fan_speed_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.111.1.3"; # dont have
|
|
|
|
|
my $fan_min_speed_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.111.1.4"; # dont have
|
|
|
|
|
my $fan_state_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.111.1.90"; # string explained
|
|
|
|
|
my $fan_status_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.111.1.91";
|
|
|
|
|
return if ($self->{global_information}->{$fan_count_oid} == 0);
|
|
|
|
|
|
|
|
|
|
$self->{snmp}->load(oids => [$fan_name_oid, $fan_name_oid,
|
|
|
|
|
$fan_min_speed_oid, $fan_state_oid, $fan_status_oid],
|
|
|
|
|
begin => 1, end => $self->{global_information}->{$fan_count_oid});
|
|
|
|
|
my $result = $self->{snmp}->get_leef();
|
|
|
|
|
return if (scalar(keys %$result) <= 0);
|
|
|
|
|
|
|
|
|
|
my $number_fans = $self->{global_information}->{$fan_count_oid};
|
|
|
|
|
for (my $i = 1; $i <= $number_fans; $i++) {
|
|
|
|
|
my $fan_name = $result->{$fan_name_oid . "." . $i};
|
|
|
|
|
my $fan_speed = $result->{$fan_speed_oid . "." . $i};
|
|
|
|
|
my $fan_min_speed = $result->{$fan_min_speed_oid . "." . $i};
|
|
|
|
|
my $fan_status = $result->{$fan_status_oid . "." . $i};
|
|
|
|
|
my $fan_state = $result->{$fan_state_oid . "." . $i};
|
|
|
|
|
|
|
|
|
|
$self->{components_fan}++;
|
|
|
|
|
|
|
|
|
|
# Check Fan Speed
|
|
|
|
|
if (defined($fan_speed)) {
|
|
|
|
|
my $low_limit = '';
|
|
|
|
|
if (defined($fan_min_speed)) {
|
|
|
|
|
$low_limit = '@:' . $fan_min_speed;
|
|
|
|
|
if ($fan_speed <= $fan_min_speed) {
|
|
|
|
|
$self->{output}->output_add(severity => 'CRITICAL',
|
|
|
|
|
short_msg => "Fan '" . $fan_name . "' speed too low");
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
$self->{output}->output_add(long_msg => "Fan '" . $fan_name . "' speed = '" . $fan_speed . "' (<= $fan_min_speed)");
|
|
|
|
|
$self->{output}->perfdata_add(label => $fan_name, unit => 'rpm',
|
|
|
|
|
value => $fan_speed,
|
|
|
|
|
critical => $low_limit);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if ($fan_status != 1) {
|
|
|
|
|
$self->{output}->output_add(severity => 'CRITICAL',
|
|
|
|
|
short_msg => "Fan '" . $fan_name . "' problem '" . $fan_state . "'");
|
|
|
|
|
}
|
|
|
|
|
$self->{output}->output_add(long_msg => "Fan '" . $fan_name . "' status = '" . $fan_status . "', state = '" . $fan_state . "'");
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub check_rcc {
|
|
|
|
|
my ($self) = @_;
|
|
|
|
|
|
|
|
|
|
$self->{output}->output_add(long_msg => "Checking raid controller cache");
|
|
|
|
|
return if ($self->check_exclude('rcc'));
|
|
|
|
|
|
|
|
|
|
my $rcc_count_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.90.0";
|
|
|
|
|
my $rcc_name_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.91.1.2"; # begin .1
|
|
|
|
|
my $rcc_state_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.91.1.90";
|
|
|
|
|
my $rcc_status_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.91.1.91";
|
|
|
|
|
my $bbu_enabled_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.91.1.50"; # 1 mean 'enabled'
|
|
|
|
|
my $bbu_state_oid = '.1.3.6.1.4.1.9804.3.1.1.2.1.91.1.22';
|
|
|
|
|
my $bbu_status_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.91.1.23"; # 1 mean 'ok'
|
|
|
|
|
return if ($self->{global_information}->{$rcc_count_oid} == 0);
|
|
|
|
|
|
|
|
|
|
$self->{snmp}->load(oids => [$rcc_name_oid, $rcc_state_oid,
|
|
|
|
|
$rcc_status_oid, $bbu_enabled_oid, $bbu_state_oid, $bbu_status_oid],
|
|
|
|
|
begin => 1, end => $self->{global_information}->{$rcc_count_oid});
|
|
|
|
|
my $result = $self->{snmp}->get_leef();
|
|
|
|
|
return if (scalar(keys %$result) <= 0);
|
|
|
|
|
|
|
|
|
|
my $number_raid = $self->{global_information}->{$rcc_count_oid};
|
|
|
|
|
for (my $i = 1; $i <= $number_raid; $i++) {
|
|
|
|
|
my $raid_name = $result->{$rcc_name_oid . "." . $i};
|
|
|
|
|
my $raid_state = $result->{$rcc_state_oid . "." . $i};
|
|
|
|
|
my $raid_status = $result->{$rcc_status_oid . "." . $i};
|
|
|
|
|
my $bbu_enabled = $result->{$bbu_enabled_oid . "." . $i};
|
|
|
|
|
my $bbu_state = $result->{$bbu_state_oid . "." . $i};
|
|
|
|
|
my $bbu_status = $result->{$bbu_status_oid . "." . $i};
|
|
|
|
|
|
|
|
|
|
$self->{components_rcc}++;
|
|
|
|
|
|
|
|
|
|
if ($raid_status != 1) {
|
|
|
|
|
$self->{output}->output_add(severity => 'CRITICAL',
|
|
|
|
|
short_msg => "Raid Controller Caches '" . $raid_name . "' problem '" . $raid_state . "'");
|
|
|
|
|
}
|
|
|
|
|
$self->{output}->output_add(long_msg => "Raid Controller Caches '" . $raid_name . "' status = '" . $raid_status . "', state = '" . $raid_state . "'");
|
|
|
|
|
if ($bbu_enabled == 1) {
|
|
|
|
|
if ($bbu_status != 1) {
|
|
|
|
|
$self->{output}->output_add(severity => 'CRITICAL',
|
|
|
|
|
short_msg => "BBU '" . $raid_name . "' problem '" . $bbu_state . "'");
|
|
|
|
|
}
|
|
|
|
|
$self->{output}->output_add(long_msg => " BBU status = '" . $bbu_status . "', state = '" . $bbu_state . "'");
|
|
|
|
|
} else {
|
|
|
|
|
$self->{output}->output_add(long_msg => " BBU disabled");
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub check_temperature {
|
|
|
|
|
my ($self) = @_;
|
|
|
|
|
|
|
|
|
|
$self->{output}->output_add(long_msg => "Checking temperature sensors");
|
|
|
|
|
return if ($self->check_exclude('temperature'));
|
|
|
|
|
|
|
|
|
|
my $temperature_sensor_count_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.120.0";
|
|
|
|
|
my $temperature_sensor_name_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.121.1.2";
|
|
|
|
|
my $temperature_sensor_value_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.121.1.3";
|
|
|
|
|
my $temperature_sensor_critical_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.121.1.4";
|
|
|
|
|
my $temperature_sensor_limit_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.121.1.5"; # warning. lower than critical
|
|
|
|
|
my $temperature_sensor_state_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.121.1.90";
|
|
|
|
|
my $temperature_sensor_status_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.121.1.91";
|
|
|
|
|
return if ($self->{global_information}->{$temperature_sensor_count_oid} == 0);
|
|
|
|
|
|
|
|
|
|
$self->{snmp}->load(oids => [$temperature_sensor_name_oid, $temperature_sensor_value_oid,
|
|
|
|
|
$temperature_sensor_critical_oid, $temperature_sensor_limit_oid, $temperature_sensor_state_oid, $temperature_sensor_status_oid],
|
|
|
|
|
begin => 1, end => $self->{global_information}->{$temperature_sensor_count_oid});
|
|
|
|
|
my $result = $self->{snmp}->get_leef();
|
|
|
|
|
return if (scalar(keys %$result) <= 0);
|
|
|
|
|
|
|
|
|
|
my $number_temperature = $self->{global_information}->{$temperature_sensor_count_oid};
|
|
|
|
|
for (my $i = 1; $i <= $number_temperature; $i++) {
|
|
|
|
|
my $ts_name = $result->{$temperature_sensor_name_oid . "." . $i};
|
|
|
|
|
my $ts_value = $result->{$temperature_sensor_value_oid . "." . $i};
|
|
|
|
|
my $ts_critical = $result->{$temperature_sensor_critical_oid . "." . $i};
|
|
|
|
|
my $ts_limit = $result->{$temperature_sensor_limit_oid . "." . $i};
|
|
|
|
|
my $ts_state = $result->{$temperature_sensor_state_oid . "." . $i};
|
|
|
|
|
my $ts_status = $result->{$temperature_sensor_status_oid . "." . $i};
|
|
|
|
|
|
|
|
|
|
$self->{components_temperature}++;
|
|
|
|
|
|
|
|
|
|
if ($ts_value >= $ts_critical) {
|
|
|
|
|
$self->{output}->output_add(severity => 'CRITICAL',
|
|
|
|
|
short_msg => "Temperature sensor '" . $ts_name . "' too high");
|
|
|
|
|
} elsif ($ts_value >= $ts_limit) {
|
|
|
|
|
$self->{output}->output_add(severity => 'CRITICAL',
|
|
|
|
|
short_msg => "Temperature sensor '" . $ts_name . "' over the limit");
|
|
|
|
|
}
|
|
|
|
|
$self->{output}->output_add(long_msg => "Temperature sensor '" . $ts_name . "' value = '" . $ts_value . "' (limit >= $ts_limit, critical >= $ts_critical)");
|
|
|
|
|
$self->{output}->perfdata_add(label => $ts_name . "_temp",
|
|
|
|
|
value => $ts_value,
|
|
|
|
|
warning => $ts_limit, critical => $ts_critical);
|
|
|
|
|
|
|
|
|
|
if ($ts_status != 1) {
|
|
|
|
|
$self->{output}->output_add(severity => 'CRITICAL',
|
|
|
|
|
short_msg => "Temperature sensor '" . $ts_name . "' problem '" . $ts_state . "'");
|
|
|
|
|
}
|
|
|
|
|
$self->{output}->output_add(long_msg => "Temperature sensor '" . $ts_name . "' status = '" . $ts_status . "', state = '" . $ts_state . "'");
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub check_psu {
|
|
|
|
|
my ($self) = @_;
|
|
|
|
|
|
|
|
|
|
$self->{output}->output_add(long_msg => "Checking power supplies");
|
|
|
|
|
return if ($self->check_exclude('psu'));
|
|
|
|
|
|
|
|
|
|
my $power_supply_count_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.130.0";
|
|
|
|
|
my $power_supply_name_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.131.1.2";
|
|
|
|
|
my $power_supply_state_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.131.1.90";
|
|
|
|
|
my $power_supply_status_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.131.1.91";
|
|
|
|
|
return if ($self->{global_information}->{$power_supply_count_oid} == 0);
|
|
|
|
|
|
|
|
|
|
$self->{snmp}->load(oids => [$power_supply_name_oid, $power_supply_name_oid,
|
|
|
|
|
$power_supply_status_oid],
|
|
|
|
|
begin => 1, end => $self->{global_information}->{$power_supply_count_oid});
|
|
|
|
|
my $result = $self->{snmp}->get_leef();
|
|
|
|
|
return if (scalar(keys %$result) <= 0);
|
|
|
|
|
|
|
|
|
|
my $number_ps = $self->{global_information}->{$power_supply_count_oid};
|
|
|
|
|
for (my $i = 1; $i <= $number_ps; $i++) {
|
|
|
|
|
my $ps_name = $result->{$power_supply_name_oid . "." . $i};
|
|
|
|
|
my $ps_state = $result->{$power_supply_state_oid . "." . $i};
|
|
|
|
|
my $ps_status = $result->{$power_supply_status_oid . "." . $i};
|
|
|
|
|
|
|
|
|
|
$self->{components_psu}++;
|
|
|
|
|
|
|
|
|
|
if ($ps_status != 1) {
|
|
|
|
|
$self->{output}->output_add(severity => 'CRITICAL',
|
|
|
|
|
short_msg => "Power Supply '" . $ps_name . "' problem '" . $ps_state . "'");
|
|
|
|
|
}
|
|
|
|
|
$self->{output}->output_add(long_msg => "Power Supply '" . $ps_name . "' status = '" . $ps_status . "', state = '" . $ps_state . "'");
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub check_voltage {
|
|
|
|
|
my ($self) = @_;
|
|
|
|
|
|
|
|
|
|
$self->{output}->output_add(long_msg => "Checking voltage sensors");
|
|
|
|
|
return if ($self->check_exclude('voltage'));
|
|
|
|
|
|
|
|
|
|
my $vs_count_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.140.0";
|
|
|
|
|
my $vs_name_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.141.1.2";
|
|
|
|
|
my $vs_value_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.141.1.3";
|
|
|
|
|
my $vs_low_limit_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.141.1.4";
|
|
|
|
|
my $vs_high_limit_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.141.1.5";
|
|
|
|
|
my $vs_state_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.141.1.90";
|
|
|
|
|
my $vs_status_oid = ".1.3.6.1.4.1.9804.3.1.1.2.1.141.1.91";
|
|
|
|
|
return if ($self->{global_information}->{$vs_count_oid} == 0);
|
|
|
|
|
|
|
|
|
|
$self->{snmp}->load(oids => [$vs_name_oid, $vs_value_oid,
|
|
|
|
|
$vs_low_limit_oid, $vs_high_limit_oid,
|
|
|
|
|
$vs_state_oid, $vs_status_oid],
|
|
|
|
|
begin => 1, end => $self->{global_information}->{$vs_count_oid});
|
|
|
|
|
my $result = $self->{snmp}->get_leef();
|
|
|
|
|
return if (scalar(keys %$result) <= 0);
|
|
|
|
|
|
|
|
|
|
my $number_vs = $self->{global_information}->{$vs_count_oid};
|
|
|
|
|
for (my $i = 1; $i <= $number_vs; $i++) {
|
|
|
|
|
my $vs_name = $result->{$vs_name_oid . "." . $i};
|
|
|
|
|
my $vs_value = $result->{$vs_value_oid . "." . $i};
|
|
|
|
|
my $vs_low_limit = $result->{$vs_low_limit_oid . "." . $i};
|
|
|
|
|
my $vs_high_limit = $result->{$vs_high_limit_oid . "." . $i};
|
|
|
|
|
my $vs_state = $result->{$vs_state_oid . "." . $i};
|
|
|
|
|
my $vs_status = $result->{$vs_status_oid . "." . $i};
|
|
|
|
|
|
|
|
|
|
$self->{components_voltage}++;
|
|
|
|
|
|
|
|
|
|
# Check Voltage limit
|
|
|
|
|
if (defined($vs_low_limit) && defined($vs_high_limit)) {
|
|
|
|
|
if ($vs_value <= $vs_low_limit) {
|
|
|
|
|
$self->{output}->output_add(severity => 'CRITICAL',
|
|
|
|
|
short_msg => "Voltage sensor '" . $vs_name . "' too low");
|
|
|
|
|
} elsif ($vs_value >= $vs_high_limit) {
|
|
|
|
|
$self->{output}->output_add(severity => 'CRITICAL',
|
|
|
|
|
short_msg => "Voltage sensor '" . $vs_name . "' too high");
|
|
|
|
|
}
|
|
|
|
|
$self->{output}->output_add(long_msg => "Voltage sensor '" . $vs_name . "' value = '" . $vs_value . "' (<= $vs_low_limit, >= $vs_high_limit)");
|
|
|
|
|
$self->{output}->perfdata_add(label => $vs_name . "_volt",
|
|
|
|
|
value => $vs_value,
|
|
|
|
|
warning => '@:' . $vs_low_limit, critical => $vs_high_limit);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if ($vs_status != 1) {
|
|
|
|
|
$self->{output}->output_add(severity => 'CRITICAL',
|
|
|
|
|
short_msg => "Voltage sensor '" . $vs_name . "' problem '" . $vs_state . "'");
|
|
|
|
|
}
|
|
|
|
|
$self->{output}->output_add(long_msg => "Voltage sensor '" . $vs_name . "' status = '" . $vs_status . "', state = '" . $vs_state . "'");
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub check_device {
|
|
|
|
|
my ($self) = @_;
|
|
|
|
|
|
|
|
|
|
$self->{output}->output_add(long_msg => "Checking devices");
|
|
|
|
|
return if ($self->check_exclude('device'));
|
|
|
|
|
|
|
|
|
|
my $device_count_oid = ".1.3.6.1.4.1.9804.3.1.1.2.4.1.0";
|
|
|
|
|
my $device_name_oid = '.1.3.6.1.4.1.9804.3.1.1.2.4.2.1.14';
|
|
|
|
|
my $device_serie_oid = '.1.3.6.1.4.1.9804.3.1.1.2.4.2.1.7';
|
|
|
|
|
my $device_present_state_oid = '.1.3.6.1.4.1.9804.3.1.1.2.4.2.1.90';
|
|
|
|
|
my $device_present_status_oid = '.1.3.6.1.4.1.9804.3.1.1.2.4.2.1.91';
|
|
|
|
|
my $device_health_state_oid = '.1.3.6.1.4.1.9804.3.1.1.2.4.2.1.17'; # normal, marginal, faulty
|
|
|
|
|
my $device_health_status_oid = '.1.3.6.1.4.1.9804.3.1.1.2.4.2.1.18';
|
|
|
|
|
my $device_temperature_oid = '.1.3.6.1.4.1.9804.3.1.1.2.4.2.1.9';
|
|
|
|
|
my $device_temperature_critical_oid = '.1.3.6.1.4.1.9804.3.1.1.2.4.2.1.10';
|
|
|
|
|
my $device_temperature_limit_oid = '.1.3.6.1.4.1.9804.3.1.1.2.4.2.1.11';
|
|
|
|
|
my $device_temperature_status_oid = '.1.3.6.1.4.1.9804.3.1.1.2.4.2.1.12';
|
|
|
|
|
return if ($self->{global_information}->{$device_count_oid} == 0);
|
|
|
|
|
|
|
|
|
|
$self->{snmp}->load(oids => [$device_name_oid, $device_serie_oid,
|
|
|
|
|
$device_present_state_oid, $device_present_status_oid,
|
|
|
|
|
$device_health_state_oid, $device_health_status_oid,
|
|
|
|
|
$device_temperature_oid, $device_temperature_critical_oid,
|
|
|
|
|
$device_temperature_limit_oid, $device_temperature_status_oid],
|
|
|
|
|
begin => 1, end => $self->{global_information}->{$device_count_oid});
|
|
|
|
|
my $result = $self->{snmp}->get_leef();
|
|
|
|
|
return if (scalar(keys %$result) <= 0);
|
|
|
|
|
|
|
|
|
|
my $number_device = $self->{global_information}->{$device_count_oid};
|
|
|
|
|
for (my $i = 1; $i <= $number_device; $i++) {
|
|
|
|
|
my $device_name = $result->{$device_name_oid . "." . $i};
|
|
|
|
|
my $device_serie = $result->{$device_serie_oid . "." . $i};
|
|
|
|
|
my $device_present_state = $result->{$device_present_state_oid . "." . $i};
|
|
|
|
|
my $device_present_status = $result->{$device_present_status_oid . "." . $i};
|
|
|
|
|
my $device_health_state = $result->{$device_health_state_oid . "." . $i};
|
|
|
|
|
my $device_health_status = $result->{$device_health_status_oid . "." . $i};
|
|
|
|
|
my $device_temperature = $result->{$device_temperature_oid . "." . $i};
|
|
|
|
|
my $device_temperature_critical = $result->{$device_temperature_critical_oid . "." . $i};
|
|
|
|
|
my $device_temperature_limit = $result->{$device_temperature_limit_oid . "." . $i};
|
|
|
|
|
my $device_temperature_status = $result->{$device_temperature_status_oid . "." . $i};
|
|
|
|
|
|
|
|
|
|
$self->{components_device}++;
|
|
|
|
|
|
|
|
|
|
$self->{output}->output_add(long_msg => "Storage Device '$device_name' and Serial Number '$device_serie', state = '$device_present_state'");
|
|
|
|
|
# Check if present
|
|
|
|
|
if ($device_present_state =~ /off_and_secured|off_or_removed/i) {
|
|
|
|
|
next;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
# Check global health
|
|
|
|
|
if ($device_health_status != 1) {
|
|
|
|
|
$self->{output}->output_add(severity => 'CRITICAL',
|
|
|
|
|
short_msg => "Storage Device '" . $device_name . "' Smart Health problem '" . $device_health_state . "'");
|
|
|
|
|
}
|
|
|
|
|
$self->{output}->output_add(long_msg => " Smart Health status = '" . $device_health_status . "', Smart Health state = '" . $device_health_state . "'");
|
|
|
|
|
|
|
|
|
|
# Check temperature
|
|
|
|
|
if ($device_temperature >= $device_temperature_critical) {
|
|
|
|
|
$self->{output}->output_add(severity => 'CRITICAL',
|
|
|
|
|
short_msg => "Device Storage '" . $device_name . "' temperature too high");
|
|
|
|
|
} elsif ($device_temperature >= $device_temperature_limit) {
|
|
|
|
|
$self->{output}->output_add(severity => 'CRITICAL',
|
|
|
|
|
short_msg => "Device Storage '" . $device_name . "' over the limit");
|
|
|
|
|
}
|
|
|
|
|
$self->{output}->output_add(long_msg => " Temperature value = '" . $device_temperature . "' (limit >= $device_temperature_limit, critical >= $device_temperature_critical)");
|
|
|
|
|
$self->{output}->perfdata_add(label => $device_name . "_temp",
|
|
|
|
|
value => $device_temperature,
|
|
|
|
|
warning => $device_temperature_limit, critical => $device_temperature_critical);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub check_rc {
|
|
|
|
|
my ($self) = @_;
|
|
|
|
|
|
|
|
|
|
$self->{output}->output_add(long_msg => "Checking raid controllers");
|
|
|
|
|
return if ($self->check_exclude('rc'));
|
|
|
|
|
|
|
|
|
|
my $rc_count_oid = ".1.3.6.1.4.1.9804.3.1.1.2.4.3.0";
|
|
|
|
|
my $rc_name_oid = '.1.3.6.1.4.1.9804.3.1.1.2.4.4.1.2';
|
|
|
|
|
my $rc_state_oid = '.1.3.6.1.4.1.9804.3.1.1.2.4.4.1.90';
|
|
|
|
|
my $rc_status_oid = '.1.3.6.1.4.1.9804.3.1.1.2.4.4.1.91';
|
|
|
|
|
return if ($self->{global_information}->{$rc_count_oid} == 0);
|
|
|
|
|
|
|
|
|
|
$self->{snmp}->load(oids => [$rc_name_oid, $rc_state_oid,
|
|
|
|
|
$rc_status_oid],
|
|
|
|
|
begin => 1, end => $self->{global_information}->{$rc_count_oid});
|
|
|
|
|
my $result = $self->{snmp}->get_leef();
|
|
|
|
|
return if (scalar(keys %$result) <= 0);
|
|
|
|
|
|
|
|
|
|
my $number_rc = $self->{global_information}->{$rc_count_oid};
|
|
|
|
|
for (my $i = 1; $i <= $number_rc; $i++) {
|
|
|
|
|
my $rc_name = $result->{$rc_name_oid . "." . $i};
|
|
|
|
|
my $rc_state = $result->{$rc_state_oid . "." . $i};
|
|
|
|
|
my $rc_status = $result->{$rc_status_oid . "." . $i};
|
|
|
|
|
|
|
|
|
|
$self->{components_rc}++;
|
|
|
|
|
|
|
|
|
|
if ($rc_status != 1) {
|
|
|
|
|
$self->{output}->output_add(severity => 'CRITICAL',
|
|
|
|
|
short_msg => "Raid Device (Controller) '" . $rc_name . "' problem '" . $rc_state . "'");
|
|
|
|
|
}
|
|
|
|
|
$self->{output}->output_add(long_msg => "Raid Device (Controller) '" . $rc_name . "' status = '" . $rc_status . "', state = '" . $rc_state . "'");
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub check_ro {
|
|
|
|
|
my ($self) = @_;
|
|
|
|
|
|
|
|
|
|
$self->{output}->output_add(long_msg => "Checking raid os devices");
|
|
|
|
|
return if ($self->check_exclude('ro'));
|
|
|
|
|
|
|
|
|
|
my $raid_os_count_oid = ".1.3.6.1.4.1.9804.3.1.1.2.4.50.0";
|
|
|
|
|
my $raid_os_name_oid = '.1.3.6.1.4.1.9804.3.1.1.2.4.51.1.2';
|
|
|
|
|
my $raid_os_state_oid = '.1.3.6.1.4.1.9804.3.1.1.2.4.51.1.90'; # != 'normal'
|
|
|
|
|
return if ($self->{global_information}->{$raid_os_count_oid} == 0);
|
|
|
|
|
|
|
|
|
|
$self->{snmp}->load(oids => [$raid_os_name_oid, $raid_os_state_oid],
|
|
|
|
|
begin => 1, end => $self->{global_information}->{$raid_os_count_oid});
|
|
|
|
|
my $result = $self->{snmp}->get_leef();
|
|
|
|
|
return if (scalar(keys %$result) <= 0);
|
|
|
|
|
|
|
|
|
|
my $number_ro = $self->{global_information}->{$raid_os_count_oid};
|
|
|
|
|
for (my $i = 1; $i <= $number_ro; $i++) {
|
|
|
|
|
my $ro_name = $arg_result->{values}->{$raid_os_name_oid . "." . $i};
|
|
|
|
|
my $ro_state = $arg_result->{values}->{$raid_os_state_oid . "." . $i};
|
|
|
|
|
|
|
|
|
|
$self->{components_ro}++;
|
|
|
|
|
|
|
|
|
|
if ($ro_state !~ /normal/i) {
|
|
|
|
|
$self->{output}->output_add(severity => 'CRITICAL',
|
|
|
|
|
short_msg => "Raid OS Device '" . $ro_name . "' problem '" . $ro_state . "'");
|
|
|
|
|
}
|
|
|
|
|
$self->{output}->output_add(long_msg => "Raid OS Device '" . $ro_name . "' state = '" . $ro_state . "'");
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub check_exclude {
|
|
|
|
|
my ($self, $section) = @_;
|
|
|
|
|
|
|
|
|
|
if (defined($self->{option_results}->{exclude}) && $self->{option_results}->{exclude} =~ /(^|\s|,)$section(\s|,|$)/) {
|
|
|
|
|
$self->{output}->output_add(long_msg => sprintf("Skipping $section section."));
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
1;
|
|
|
|
|
|
|
|
|
|
__END__
|
|
|
|
|
|
|
|
|
|
=head1 MODE
|
|
|
|
|
|
|
|
|
|
Check Hardware (fans, power supplies, temperatures, voltages, raid controller caches, devices, raid controllers, raid os).
|
|
|
|
|
|
|
|
|
|
=over 8
|
|
|
|
|
|
|
|
|
|
=item B<--exclude>
|
|
|
|
|
|
|
|
|
|
Exclude some parts (comma seperated list) (Example: --exclude=psu,rcc).
|
|
|
|
|
|
|
|
|
|
=back
|
|
|
|
|
|
|
|
|
|
=cut
|
|
|
|
|
|
