From 4c7191d015d73ebf23305c1c44c833855d6953fd Mon Sep 17 00:00:00 2001 From: garnier-quentin Date: Wed, 17 Jul 2019 15:32:49 +0200 Subject: [PATCH] Fix #1586 --- .../fortinet/fortigate/mode/hardware.pm | 229 ++++++++++++------ 1 file changed, 158 insertions(+), 71 deletions(-) diff --git a/centreon/common/fortinet/fortigate/mode/hardware.pm b/centreon/common/fortinet/fortigate/mode/hardware.pm index 02c8c7e7e..8a1946526 100644 --- a/centreon/common/fortinet/fortigate/mode/hardware.pm +++ b/centreon/common/fortinet/fortigate/mode/hardware.pm @@ -20,92 +20,179 @@ package centreon::common::fortinet::fortigate::mode::hardware; -use base qw(centreon::plugins::mode); +use base qw(centreon::plugins::templates::hardware); + +use strict; +use warnings; + +sub set_system { + my ($self, %options) = @_; + + $self->{regexp_threshold_overload_check_section_option} = '^sensors$'; + $self->{regexp_threshold_numeric_check_section_option} = '^sensors$'; + + $self->{cb_hook1} = 'get_system_information'; + $self->{cb_hook2} = 'snmp_execute'; + + $self->{thresholds} = { + sensors => [ + ['on', 'CRITICAL'], + ['off', 'OK'], + ], + }; + + $self->{components_path} = 'centreon::common::fortinet::fortigate::mode::components'; + $self->{components_module} = ['sensors']; +} + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options, + no_absent => 1, no_load_components => 1, force_new_perfdata => 1); + bless $self, $class; + + $options{options}->add_options(arguments => {}); + + return $self; +} + +sub get_system_information { + my ($self, %options) = @_; + + my $oid_sysDescr = '.1.3.6.1.2.1.1.1.0'; + my $oid_fgSysVersion = '.1.3.6.1.4.1.12356.101.4.1.1.0'; + + my $result = $options{snmp}->get_leef(oids => [$oid_sysDescr, $oid_fgSysVersion]);#, nothing_quit => 1); + $self->{output}->output_add( + long_msg => sprintf( + '[System: %s] [Firmware: %s]', + $result->{$oid_sysDescr}, + defined($result->{$oid_fgSysVersion}) ? $result->{$oid_fgSysVersion} : 'unknown' + ) + ); +} + +sub snmp_execute { + my ($self, %options) = @_; + + $self->{snmp} = $options{snmp}; + $self->{results} = $self->{snmp}->get_multiple_table(oids => $self->{request}); +} + +1; + +=head1 MODE + +Check hardware. +It's deprecated. Work only for 'FortiGate-5000 Series Chassis'. + +=over 8 + +=item B<--component> + +Which component to check (Default: '.*'). +Can be: 'sensors'. + +=item B<--add-name-instance> + +Add literal description for instance value (used in filter, and threshold options). + +=item B<--filter> + +Exclude some parts (comma seperated list) +Can also exclude specific instance: --filter=sensors,1 + +=item B<--no-component> + +Return an error if no compenents are checked. +If total (with skipped) is 0. (Default: 'critical' returns). + +=item B<--threshold-overload> + +Set to overload default threshold values (syntax: section,[instance,]status,regexp) +It used before default thresholds (order stays). +Example: --threshold-overload='sensors,WARNING,off' + +=item B<--warning> + +Set warning threshold for 'sensors' (syntax: type,regexp,threshold) +Example: --warning='sensors,.*,30' + +=item B<--critical> + +Set critical threshold for 'sensors' (syntax: type,regexp,threshold) +Example: --critical='sensors,.*,50' + + +=back + +=cut + +package centreon::common::fortinet::fortigate::mode::components::sensors; use strict; use warnings; -use centreon::plugins::misc; my %alarm_map = ( 0 => 'off', 1 => 'on', ); +my $mapping = { + fgHwSensorEntName => { oid => '.1.3.6.1.4.1.12356.101.4.3.2.1.2' }, + fgHwSensorEntValue => { oid => '.1.3.6.1.4.1.12356.101.4.3.2.1.3' }, + fgHwSensorEntAlarmStatus => { oid => '.1.3.6.1.4.1.12356.101.4.3.2.1.4', map => \%alarm_map }, +}; +my $oid_fgHwSensorEntry = '.1.3.6.1.4.1.12356.101.4.3.2.1'; -sub new { - my ($class, %options) = @_; - my $self = $class->SUPER::new(package => __PACKAGE__, %options); - bless $self, $class; - - $options{options}->add_options(arguments => - { - }); +sub load { + my ($self) = @_; - return $self; + push @{$self->{request}}, { oid => $oid_fgHwSensorEntry }; } -sub check_options { - my ($self, %options) = @_; - $self->SUPER::init(%options); -} +sub check { + my ($self) = @_; -sub run { - my ($self, %options) = @_; - $self->{snmp} = $options{snmp}; - - my $oid_sysDescr = '.1.3.6.1.2.1.1.1.0'; - my $oid_fgSysVersion = '.1.3.6.1.4.1.12356.101.4.1.1.0'; - my $oid_fgHwSensorCount = '.1.3.6.1.4.1.12356.101.4.3.1.0'; - my $result = $self->{snmp}->get_leef(oids => [$oid_sysDescr, $oid_fgSysVersion, $oid_fgHwSensorCount], nothing_quit => 1); - - $self->{output}->output_add(long_msg => sprintf("[System: %s] [Firmware: %s]", $result->{$oid_sysDescr}, - defined($result->{$oid_fgSysVersion}) ? $result->{$oid_fgSysVersion} : 'unknown')); - if (!defined($result->{$oid_fgHwSensorCount}) || $result->{$oid_fgHwSensorCount} == 0) { - $self->{output}->output_add(severity => 'UNKNOWN', - short_msg => "No hardware sensors available."); - $self->{output}->display(); - $self->{output}->exit(); - } - - $self->{output}->output_add(severity => 'OK', - short_msg => "All sensors are ok."); - - my $oid_fgHwSensorEntry = '.1.3.6.1.4.1.12356.101.4.3.2.1'; - my $oid_fgHwSensorEntAlarmStatus = '.1.3.6.1.4.1.12356.101.4.3.2.1.4'; - my $oid_fgHwSensorEntName = '.1.3.6.1.4.1.12356.101.4.3.2.1.2'; - my $oid_fgHwSensorEntValue = '.1.3.6.1.4.1.12356.101.4.3.2.1.3'; - $result = $self->{snmp}->get_table(oid => $oid_fgHwSensorEntry); - - foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) { - next if ($key !~ /^$oid_fgHwSensorEntName\.(\d+)/); - my $index = $1; - my $name = centreon::plugins::misc::trim($result->{$oid_fgHwSensorEntName . '.' . $index}); - my $value = $result->{$oid_fgHwSensorEntValue . '.' . $index}; - my $alarm_status = centreon::plugins::misc::trim($result->{$oid_fgHwSensorEntAlarmStatus . '.' . $index}); - - $self->{output}->output_add(long_msg => sprintf("Sensor %s alarm status is %s [value: %s]", - $name, $alarm_map{$alarm_status}, $value)); - if ($alarm_map{$alarm_status} eq 'on') { - $self->{output}->output_add(severity => 'CRITICAL', - short_msg => sprintf("Sensor %s alarm status is %s [value: %s]", - $name, $alarm_map{$alarm_status}, $value)); + $self->{output}->output_add(long_msg => "Checking sensors"); + $self->{components}->{sensors} = {name => 'sensors', total => 0, skip => 0}; + return if ($self->check_filter(section => 'sensors')); + + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_fgHwSensorEntry}})) { + next if ($oid !~ /^$mapping->{fgHwSensorEntAlarmStatus}->{oid}\.(.*)$/); + my $instance = $1; + my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_fgHwSensorEntry}, instance => $instance); + my $name = centreon::plugins::misc::trim($result->{fgHwSensorEntName}); + + next if ($self->check_filter(section => 'sensors', instance => $instance, name => $name)); + + $self->{components}->{sensors}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("sensor '%s' status is '%s' [instance = %s] [value = %s]", + $name, $result->{fgHwSensorEntAlarmStatus}, $instance, + defined($result->{fgHwSensorEntValue}) ? $result->{fgHwSensorEntValue} : '-')); + + my $exit = $self->get_severity(section => 'sensors', name => $name, value => $result->{fgHwSensorEntAlarmStatus}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Sensor '%s' status is '%s'", $name, $result->{fgHwSensorEntAlarmStatus})); } + + next if (!defined($result->{fgHwSensorEntValue})); + + my ($exit2, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'sensors', instance => $instance, name => $name, value => $result->{fgHwSensorEntValue}); + + if (!$self->{output}->is_status(value => $exit2, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit2, + short_msg => sprintf("Sensor '%s' measure is %s", $name, $result->{fgHwSensorEntValue})); + } + $self->{output}->perfdata_add( + nlabel => 'hardware.sensors.measure', + instances => $name, + value => $result->{fgHwSensorEntValue}, + warning => $warn, + critical => $crit, + ); } - - $self->{output}->display(); - $self->{output}->exit(); } 1; - -__END__ - -=head1 MODE - -Check fortigate hardware sensors (FORTINET-FORTIGATE-MIB). -It's deprecated. Work only for 'FortiGate-5000 Series Chassis'. - -=over 8 - -=back - -=cut \ No newline at end of file