mirror of
https://github.com/centreon/centreon-plugins.git
synced 2025-07-27 23:54:18 +02:00
Sims24
commit
b0d3066b41
267
apps/backup/netbackup/local/mode/dedupstatus.pm
Normal file
267
apps/backup/netbackup/local/mode/dedupstatus.pm
Normal file
@ -0,0 +1,267 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package apps::backup::netbackup::local::mode::dedupstatus;
|
||||
|
||||
use base qw(centreon::plugins::templates::counter);
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use centreon::plugins::misc;
|
||||
|
||||
my $instance_mode;
|
||||
|
||||
sub custom_threshold_output {
|
||||
my ($self, %options) = @_;
|
||||
my $status = 'ok';
|
||||
my $message;
|
||||
|
||||
eval {
|
||||
local $SIG{__WARN__} = sub { $message = $_[0]; };
|
||||
local $SIG{__DIE__} = sub { $message = $_[0]; };
|
||||
|
||||
if (defined($instance_mode->{option_results}->{critical_status}) && $instance_mode->{option_results}->{critical_status} ne '' &&
|
||||
eval "$instance_mode->{option_results}->{critical_status}") {
|
||||
$status = 'critical';
|
||||
} elsif (defined($instance_mode->{option_results}->{warning_status}) && $instance_mode->{option_results}->{warning_status} ne '' &&
|
||||
eval "$instance_mode->{option_results}->{warning_status}") {
|
||||
$status = 'warning';
|
||||
}
|
||||
};
|
||||
if (defined($message)) {
|
||||
$self->{output}->output_add(long_msg => 'filter status issue: ' . $message);
|
||||
}
|
||||
|
||||
return $status;
|
||||
}
|
||||
|
||||
sub custom_status_output {
|
||||
my ($self, %options) = @_;
|
||||
my $msg = 'status : ' . $self->{result_values}->{status};
|
||||
|
||||
return $msg;
|
||||
}
|
||||
|
||||
sub custom_status_calc {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{result_values}->{status} = $options{new_datas}->{$self->{instance} . '_status'};
|
||||
$self->{result_values}->{display} = $options{new_datas}->{$self->{instance} . '_display'};
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub set_counters {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{maps_counters_type} = [
|
||||
{ name => 'pool', type => 1, cb_prefix_output => 'prefix_pool_output', message_multiple => 'All dedup status are ok' }
|
||||
];
|
||||
|
||||
$self->{maps_counters}->{pool} = [
|
||||
{ label => 'status', threshold => 0, set => {
|
||||
key_values => [ { name => 'status' }, { name => 'display' } ],
|
||||
closure_custom_calc => $self->can('custom_status_calc'),
|
||||
closure_custom_output => $self->can('custom_status_output'),
|
||||
closure_custom_perfdata => sub { return 0; },
|
||||
closure_custom_threshold_check => $self->can('custom_threshold_output'),
|
||||
}
|
||||
},
|
||||
{ label => 'usage', set => {
|
||||
key_values => [ { name => 'usage' }, { name => 'display' } ],
|
||||
output_template => 'Use: %s %%',
|
||||
perfdatas => [
|
||||
{ label => 'used', value => 'usage_absolute', template => '%s',
|
||||
unit => '%', min => 0, max => 100, label_extra_instance => 1, instance_use => 'display_absolute' },
|
||||
],
|
||||
}
|
||||
},
|
||||
];
|
||||
}
|
||||
|
||||
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 =>
|
||||
{
|
||||
"hostname:s" => { name => 'hostname' },
|
||||
"remote" => { name => 'remote' },
|
||||
"ssh-option:s@" => { name => 'ssh_option' },
|
||||
"ssh-path:s" => { name => 'ssh_path' },
|
||||
"ssh-command:s" => { name => 'ssh_command', default => 'ssh' },
|
||||
"timeout:s" => { name => 'timeout', default => 30 },
|
||||
"sudo" => { name => 'sudo' },
|
||||
"command:s" => { name => 'command', default => 'nbdevquery' },
|
||||
"command-path:s" => { name => 'command_path' },
|
||||
"command-options:s" => { name => 'command_options', default => '-listdv -U -stype PureDisk' },
|
||||
"filter-name:s" => { name => 'filter_name' },
|
||||
"warning-status:s" => { name => 'warning_status', default => '' },
|
||||
"critical-status:s" => { name => 'critical_status', default => '%{status} !~ /up/i' },
|
||||
});
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub check_options {
|
||||
my ($self, %options) = @_;
|
||||
$self->SUPER::check_options(%options);
|
||||
|
||||
$instance_mode = $self;
|
||||
$self->change_macros();
|
||||
}
|
||||
|
||||
sub prefix_pool_output {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
return "Disk pool name '" . $options{instance_value}->{display} . "' ";
|
||||
}
|
||||
|
||||
sub change_macros {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
foreach (('warning_status', 'critical_status')) {
|
||||
if (defined($self->{option_results}->{$_})) {
|
||||
$self->{option_results}->{$_} =~ s/%\{(.*?)\}/\$self->{result_values}->{$1}/g;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub manage_selection {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my ($stdout) = centreon::plugins::misc::execute(output => $self->{output},
|
||||
options => $self->{option_results},
|
||||
sudo => $self->{option_results}->{sudo},
|
||||
command => $self->{option_results}->{command},
|
||||
command_path => $self->{option_results}->{command_path},
|
||||
command_options => $self->{option_results}->{command_options});
|
||||
$self->{pool} = {};
|
||||
#Disk Pool Name : NBU-MASTER-DP
|
||||
#Disk Type : PureDisk
|
||||
#Disk Volume Name : PureDiskVolume
|
||||
#Disk Media ID : @aaaah
|
||||
#Total Capacity (GB) : 9777.56
|
||||
#Free Space (GB) : 837.72
|
||||
#Use% : 91
|
||||
#Status : UP
|
||||
#Flag : ReadOnWrite
|
||||
#Flag : AdminUp
|
||||
#Flag : InternalUp
|
||||
while ($stdout =~ /^(Disk Pool Name.*?)(?=Disk Pool Name|\z)/msig) {
|
||||
my $pool = $1;
|
||||
|
||||
my ($display, $usage, $status);
|
||||
$display = centreon::plugins::misc::trim($1) if ($pool =~ /^Disk Pool Name\s*:\s*(.*?)\n/msi);
|
||||
$status = $1 if ($pool =~ /^Status\s*:\s*(.*?)\n/msi);
|
||||
$usage = $1 if ($pool =~ /^Use%\s*:\s*(.*?)\n/msi);
|
||||
|
||||
if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' &&
|
||||
$display !~ /$self->{option_results}->{filter_name}/) {
|
||||
$self->{output}->output_add(long_msg => "skipping '" . $display . "': no matching filter.", debug => 1);
|
||||
next;
|
||||
}
|
||||
|
||||
$self->{pool}->{$display} = { display => $display, usage => $usage, status => $status };
|
||||
}
|
||||
|
||||
if (scalar(keys %{$self->{pool}}) <= 0) {
|
||||
$self->{output}->add_option_msg(short_msg => "No pool found.");
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 MODE
|
||||
|
||||
Check deduplication status.
|
||||
|
||||
=over 8
|
||||
|
||||
=item B<--remote>
|
||||
|
||||
Execute command remotely in 'ssh'.
|
||||
|
||||
=item B<--hostname>
|
||||
|
||||
Hostname to query (need --remote).
|
||||
|
||||
=item B<--ssh-option>
|
||||
|
||||
Specify multiple options like the user (example: --ssh-option='-l=centreon-engine' --ssh-option='-p=52').
|
||||
|
||||
=item B<--ssh-path>
|
||||
|
||||
Specify ssh command path (default: none)
|
||||
|
||||
=item B<--ssh-command>
|
||||
|
||||
Specify ssh command (default: 'ssh'). Useful to use 'plink'.
|
||||
|
||||
=item B<--timeout>
|
||||
|
||||
Timeout in seconds for the command (Default: 30).
|
||||
|
||||
=item B<--sudo>
|
||||
|
||||
Use 'sudo' to execute the command.
|
||||
|
||||
=item B<--command>
|
||||
|
||||
Command to get information (Default: 'nbdevquery').
|
||||
Can be changed if you have output in a file.
|
||||
|
||||
=item B<--command-path>
|
||||
|
||||
Command path (Default: none).
|
||||
|
||||
=item B<--command-options>
|
||||
|
||||
Command options (Default: '-listdv -U -stype PureDisk').
|
||||
|
||||
=item B<--filter-name>
|
||||
|
||||
Filter pool name (can be a regexp).
|
||||
|
||||
=item B<--warning-usage>
|
||||
|
||||
Set warning threshold in percent.
|
||||
|
||||
=item B<--critical-usage>
|
||||
|
||||
Set critical threshold in percent.
|
||||
|
||||
=item B<--warning-status>
|
||||
|
||||
Set warning threshold for status.
|
||||
Can used special variables like: %{display}, %{status}
|
||||
|
||||
=item B<--critical-status>
|
||||
|
||||
Set critical threshold for status (Default: '%{status} !~ /up/i').
|
||||
Can used special variables like: %{display}, %{status}
|
||||
|
||||
=back
|
||||
|
||||
=cut
|
||||
@ -63,7 +63,7 @@ sub new {
|
||||
"sudo" => { name => 'sudo' },
|
||||
"command:s" => { name => 'command', default => 'tpconfig' },
|
||||
"command-path:s" => { name => 'command_path' },
|
||||
"command-options:s" => { name => 'command_options', default => '-l 2>&1' },
|
||||
"command-options:s" => { name => 'command_options', default => '-l' },
|
||||
"filter-name:s" => { name => 'filter_name' },
|
||||
});
|
||||
|
||||
@ -73,12 +73,12 @@ sub new {
|
||||
sub manage_selection {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $stdout = centreon::plugins::misc::execute(output => $self->{output},
|
||||
options => $self->{option_results},
|
||||
sudo => $self->{option_results}->{sudo},
|
||||
command => $self->{option_results}->{command},
|
||||
command_path => $self->{option_results}->{command_path},
|
||||
command_options => $self->{option_results}->{command_options});
|
||||
my ($stdout) = centreon::plugins::misc::execute(output => $self->{output},
|
||||
options => $self->{option_results},
|
||||
sudo => $self->{option_results}->{sudo},
|
||||
command => $self->{option_results}->{command},
|
||||
command_path => $self->{option_results}->{command_path},
|
||||
command_options => $self->{option_results}->{command_options});
|
||||
$self->{drive} = { total => 0, num_cleaning => 0 };
|
||||
#Drive Name Type Mount Time Frequency Last Cleaned Comment
|
||||
#********** **** ********** ********* **************** *******
|
||||
@ -158,7 +158,7 @@ Command path (Default: none).
|
||||
|
||||
=item B<--command-options>
|
||||
|
||||
Command options (Default: '-l 2>&1').
|
||||
Command options (Default: '-l').
|
||||
|
||||
=item B<--filter-name>
|
||||
|
||||
|
||||
@ -103,7 +103,7 @@ sub new {
|
||||
"sudo" => { name => 'sudo' },
|
||||
"command:s" => { name => 'command', default => 'tpconfig' },
|
||||
"command-path:s" => { name => 'command_path' },
|
||||
"command-options:s" => { name => 'command_options', default => '-l 2>&1' },
|
||||
"command-options:s" => { name => 'command_options', default => '-l' },
|
||||
"filter-name:s" => { name => 'filter_name' },
|
||||
"warning-status:s" => { name => 'warning_status', default => '' },
|
||||
"critical-status:s" => { name => 'critical_status', default => '%{status} !~ /up/i' },
|
||||
@ -139,12 +139,12 @@ sub change_macros {
|
||||
sub manage_selection {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $stdout = centreon::plugins::misc::execute(output => $self->{output},
|
||||
options => $self->{option_results},
|
||||
sudo => $self->{option_results}->{sudo},
|
||||
command => $self->{option_results}->{command},
|
||||
command_path => $self->{option_results}->{command_path},
|
||||
command_options => $self->{option_results}->{command_options});
|
||||
my ($stdout) = centreon::plugins::misc::execute(output => $self->{output},
|
||||
options => $self->{option_results},
|
||||
sudo => $self->{option_results}->{sudo},
|
||||
command => $self->{option_results}->{command},
|
||||
command_path => $self->{option_results}->{command_path},
|
||||
command_options => $self->{option_results}->{command_options});
|
||||
$self->{drive} = {};
|
||||
#robot 0 - TLD - - - - {3,0,0,1}
|
||||
# drive - 0 hcart2 2 UP - IBM.ULT3580-HH5.000 {3,0,1,0}
|
||||
@ -218,7 +218,7 @@ Command path (Default: none).
|
||||
|
||||
=item B<--command-options>
|
||||
|
||||
Command options (Default: '-l 2>&1').
|
||||
Command options (Default: '-l').
|
||||
|
||||
=item B<--filter-name>
|
||||
|
||||
|
||||
421
apps/backup/netbackup/local/mode/jobstatus.pm
Normal file
421
apps/backup/netbackup/local/mode/jobstatus.pm
Normal file
@ -0,0 +1,421 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package apps::backup::netbackup::local::mode::jobstatus;
|
||||
|
||||
use base qw(centreon::plugins::templates::counter);
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use centreon::plugins::misc;
|
||||
use Digest::MD5 qw(md5_hex);
|
||||
|
||||
my $instance_mode;
|
||||
|
||||
sub custom_status_threshold {
|
||||
my ($self, %options) = @_;
|
||||
my $status = 'ok';
|
||||
my $message;
|
||||
|
||||
eval {
|
||||
local $SIG{__WARN__} = sub { $message = $_[0]; };
|
||||
local $SIG{__DIE__} = sub { $message = $_[0]; };
|
||||
|
||||
# To exclude some OK
|
||||
if (defined($instance_mode->{option_results}->{ok_status}) && $instance_mode->{option_results}->{ok_status} ne '' &&
|
||||
eval "$instance_mode->{option_results}->{ok_status}") {
|
||||
$status = 'ok';
|
||||
} elsif (defined($instance_mode->{option_results}->{critical_status}) && $instance_mode->{option_results}->{critical_status} ne '' &&
|
||||
eval "$instance_mode->{option_results}->{critical_status}") {
|
||||
$status = 'critical';
|
||||
} elsif (defined($instance_mode->{option_results}->{warning_status}) && $instance_mode->{option_results}->{warning_status} ne '' &&
|
||||
eval "$instance_mode->{option_results}->{warning_status}") {
|
||||
$status = 'warning';
|
||||
}
|
||||
};
|
||||
if (defined($message)) {
|
||||
$self->{output}->output_add(long_msg => 'filter status issue: ' . $message);
|
||||
}
|
||||
|
||||
return $status;
|
||||
}
|
||||
|
||||
sub custom_status_output {
|
||||
my ($self, %options) = @_;
|
||||
my $msg = 'status : ' . $self->{result_values}->{status};
|
||||
|
||||
return $msg;
|
||||
}
|
||||
|
||||
sub custom_status_calc {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{result_values}->{status} = $options{new_datas}->{$self->{instance} . '_status'};
|
||||
$self->{result_values}->{display} = $options{new_datas}->{$self->{instance} . '_display'};
|
||||
$self->{result_values}->{type} = $options{new_datas}->{$self->{instance} . '_type'};
|
||||
$self->{result_values}->{state} = $options{new_datas}->{$self->{instance} . '_state'};
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub custom_long_threshold {
|
||||
my ($self, %options) = @_;
|
||||
my $status = 'ok';
|
||||
my $message;
|
||||
|
||||
eval {
|
||||
local $SIG{__WARN__} = sub { $message = $_[0]; };
|
||||
local $SIG{__DIE__} = sub { $message = $_[0]; };
|
||||
|
||||
if (defined($instance_mode->{option_results}->{critical_long}) && $instance_mode->{option_results}->{critical_long} ne '' &&
|
||||
eval "$instance_mode->{option_results}->{critical_long}") {
|
||||
$status = 'critical';
|
||||
} elsif (defined($instance_mode->{option_results}->{warning_long}) && $instance_mode->{option_results}->{warning_long} ne '' &&
|
||||
eval "$instance_mode->{option_results}->{warning_long}") {
|
||||
$status = 'warning';
|
||||
}
|
||||
};
|
||||
if (defined($message)) {
|
||||
$self->{output}->output_add(long_msg => 'filter status issue: ' . $message);
|
||||
}
|
||||
|
||||
return $status;
|
||||
}
|
||||
|
||||
sub custom_long_output {
|
||||
my ($self, %options) = @_;
|
||||
my $msg = 'started since : ' . centreon::plugins::misc::change_seconds(value => $self->{result_values}->{elapsed});
|
||||
|
||||
return $msg;
|
||||
}
|
||||
|
||||
sub custom_long_calc {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{result_values}->{status} = $options{new_datas}->{$self->{instance} . '_status'};
|
||||
$self->{result_values}->{display} = $options{new_datas}->{$self->{instance} . '_display'};
|
||||
$self->{result_values}->{elapsed} = $options{new_datas}->{$self->{instance} . '_elapsed'};
|
||||
$self->{result_values}->{type} = $options{new_datas}->{$self->{instance} . '_type'};
|
||||
$self->{result_values}->{state} = $options{new_datas}->{$self->{instance} . '_state'};
|
||||
|
||||
return -11 if ($self->{result_values}->{state} !~ /queued|active/);
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
my $last_status_frozen;
|
||||
|
||||
sub custom_frozen_threshold {
|
||||
my ($self, %options) = @_;
|
||||
my $status = 'ok';
|
||||
my $message;
|
||||
|
||||
eval {
|
||||
local $SIG{__WARN__} = sub { $message = $_[0]; };
|
||||
local $SIG{__DIE__} = sub { $message = $_[0]; };
|
||||
|
||||
if (defined($instance_mode->{option_results}->{critical_frozen}) && $instance_mode->{option_results}->{critical_frozen} ne '' &&
|
||||
eval "$instance_mode->{option_results}->{critical_frozen}") {
|
||||
$status = 'critical';
|
||||
} elsif (defined($instance_mode->{option_results}->{warning_frozen}) && $instance_mode->{option_results}->{warning_frozen} ne '' &&
|
||||
eval "$instance_mode->{option_results}->{warning_frozen}") {
|
||||
$status = 'warning';
|
||||
}
|
||||
};
|
||||
if (defined($message)) {
|
||||
$self->{output}->output_add(long_msg => 'filter status issue: ' . $message);
|
||||
}
|
||||
|
||||
$last_status_frozen = $status;
|
||||
return $status;
|
||||
}
|
||||
|
||||
sub custom_frozen_output {
|
||||
my ($self, %options) = @_;
|
||||
my $msg = 'frozen : no';
|
||||
|
||||
if (!$self->{output}->is_status(value => $last_status_frozen, compare => 'ok', litteral => 1)) {
|
||||
$msg = 'frozen: yes';
|
||||
}
|
||||
return $msg;
|
||||
}
|
||||
|
||||
sub custom_frozen_calc {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{result_values}->{status} = $options{new_datas}->{$self->{instance} . '_status'};
|
||||
$self->{result_values}->{display} = $options{new_datas}->{$self->{instance} . '_display'};
|
||||
$self->{result_values}->{elapsed} = $options{new_datas}->{$self->{instance} . '_elapsed'};
|
||||
$self->{result_values}->{type} = $options{new_datas}->{$self->{instance} . '_type'};
|
||||
$self->{result_values}->{state} = $options{new_datas}->{$self->{instance} . '_state'};
|
||||
$self->{result_values}->{kb} = $options{new_datas}->{$self->{instance} . '_kb'} - $options{old_datas}->{$self->{instance} . '_kb'};
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub set_counters {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{maps_counters_type} = [
|
||||
{ name => 'job', type => 1, cb_prefix_output => 'prefix_job_output', message_multiple => 'All jobs are ok', skipped_code => { -11 => 1 } }
|
||||
];
|
||||
|
||||
$self->{maps_counters}->{job} = [
|
||||
{ label => 'status', threshold => 0, set => {
|
||||
key_values => [ { name => 'status' }, { name => 'display' }, { name => 'type' }, { name => 'state' } ],
|
||||
closure_custom_calc => $self->can('custom_status_calc'),
|
||||
closure_custom_output => $self->can('custom_status_output'),
|
||||
closure_custom_perfdata => sub { return 0; },
|
||||
closure_custom_threshold_check => $self->can('custom_status_threshold'),
|
||||
}
|
||||
},
|
||||
{ label => 'long', threshold => 0, set => {
|
||||
key_values => [ { name => 'status' }, { name => 'display' }, { name => 'elapsed' }, { name => 'type' }, { name => 'state' } ],
|
||||
closure_custom_calc => $self->can('custom_long_calc'),
|
||||
closure_custom_output => $self->can('custom_long_output'),
|
||||
closure_custom_perfdata => sub { return 0; },
|
||||
closure_custom_threshold_check => $self->can('custom_long_threshold'),
|
||||
}
|
||||
},
|
||||
{ label => 'frozen', threshold => 0, set => {
|
||||
key_values => [ { name => 'kb', diff => 1 }, { name => 'status' }, { name => 'display' }, { name => 'elapsed' }, { name => 'type' }, { name => 'state' } ],
|
||||
closure_custom_calc => $self->can('custom_frozen_calc'),
|
||||
closure_custom_output => $self->can('custom_frozen_output'),
|
||||
closure_custom_perfdata => sub { return 0; },
|
||||
closure_custom_threshold_check => $self->can('custom_frozen_threshold'),
|
||||
}
|
||||
},
|
||||
];
|
||||
}
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
my $self = $class->SUPER::new(package => __PACKAGE__, %options, statefile => 1);
|
||||
bless $self, $class;
|
||||
|
||||
$self->{version} = '1.0';
|
||||
$options{options}->add_options(arguments =>
|
||||
{
|
||||
"hostname:s" => { name => 'hostname' },
|
||||
"remote" => { name => 'remote' },
|
||||
"ssh-option:s@" => { name => 'ssh_option' },
|
||||
"ssh-path:s" => { name => 'ssh_path' },
|
||||
"ssh-command:s" => { name => 'ssh_command', default => 'ssh' },
|
||||
"timeout:s" => { name => 'timeout', default => 30 },
|
||||
"sudo" => { name => 'sudo' },
|
||||
"command:s" => { name => 'command', default => 'bpdbjobs' },
|
||||
"command-path:s" => { name => 'command_path' },
|
||||
"command-options:s" => { name => 'command_options', default => '-report -most_columns' },
|
||||
"filter-policy-name:s" => { name => 'filter_policy_name' },
|
||||
"filter-end-time:s" => { name => 'filter_end_time', default => 86400 },
|
||||
"ok-status:s" => { name => 'ok_status', default => '%{status} == 0' },
|
||||
"warning-status:s" => { name => 'warning_status', default => '%{status} == 1' },
|
||||
"critical-status:s" => { name => 'critical_status', default => '%{status} > 1' },
|
||||
"warning-long:s" => { name => 'warning_long' },
|
||||
"critical-long:s" => { name => 'critical_long' },
|
||||
"warning-frozen:s" => { name => 'warning_frozen' },
|
||||
"critical-frozen:s" => { name => 'critical_frozen', default => '%{state} =~ /active|queue/ && %{kb} == 0' },
|
||||
});
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub check_options {
|
||||
my ($self, %options) = @_;
|
||||
$self->SUPER::check_options(%options);
|
||||
|
||||
$instance_mode = $self;
|
||||
$self->change_macros();
|
||||
}
|
||||
|
||||
sub prefix_job_output {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
return "Job '" . $options{instance_value}->{display} . "' ";
|
||||
}
|
||||
|
||||
sub change_macros {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
foreach (('ok_status', 'warning_status', 'critical_status', 'warning_long', 'critical_long', 'warning_frozen', 'critical_frozen')) {
|
||||
if (defined($self->{option_results}->{$_})) {
|
||||
$self->{option_results}->{$_} =~ s/%\{(.*?)\}/\$self->{result_values}->{$1}/g;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
my %job_type = (
|
||||
0 => 'backup', 1 => 'archive', 2 => 'restore', 3 => 'verify', 4 => 'duplicate', 5 => 'phase 1 or phase 2 import',
|
||||
6 => 'catalog backup', 7 => 'vault duplicate', 8 => 'label tape', 9 => 'erase tape',
|
||||
10 => 'tape request', 11 => 'clean tape', 12 => 'format tape', 13 => 'physical inventory of robotic library',
|
||||
14 => 'qualification test of drive or robotic library', 15 => 'catalog recovery', 16 => 'media contents',
|
||||
17 => 'image cleanup', 18 => 'LiveUpdate', 20 => 'Replication (Auto Image Replication)', 21 => 'Import (Auto Image Replication)',
|
||||
22 => 'backup From Snapshot', 23 => 'Replication (snap)', 24 => 'Import (snap)', 25 => 'application state capture',
|
||||
26 => 'indexing', 27 => 'index cleanup', 28 => 'Snapshot',
|
||||
29 => 'SnapIndex', 30 => 'ActivateInstantRecovery', 31 => 'DeactivateInstantRecovery',
|
||||
32 => 'ReactivateInstantRecovery', 33 => 'StopInstantRecovery', 34 => 'InstantRecovery',
|
||||
);
|
||||
|
||||
my %job_state = (
|
||||
0 => 'queued and awaiting resources',
|
||||
1 => 'active',
|
||||
2 => 'requeued and awaiting resources',
|
||||
3 => 'done', 4 => 'suspended', 5 => 'incomplete',
|
||||
);
|
||||
|
||||
sub manage_selection {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{cache_name} = "netbackup_" . $self->{mode} . '_' . (defined($self->{option_results}->{hostname}) ? $self->{option_results}->{sudo} : 'me') . '_' .
|
||||
(defined($self->{option_results}->{filter_counters}) ? md5_hex($self->{option_results}->{filter_counters}) : md5_hex('all'));
|
||||
|
||||
my ($stdout) = centreon::plugins::misc::execute(output => $self->{output},
|
||||
options => $self->{option_results},
|
||||
sudo => $self->{option_results}->{sudo},
|
||||
command => $self->{option_results}->{command},
|
||||
command_path => $self->{option_results}->{command_path},
|
||||
command_options => $self->{option_results}->{command_options});
|
||||
$self->{job} = {};
|
||||
my $current_time = time();
|
||||
foreach my $line (split /\n/, $stdout) {
|
||||
my @values = split /,/, $line;
|
||||
my ($job_id, $job_type, $job_state, $job_status, $job_pname, $job_start_time, $job_end_time, $job_kb) =
|
||||
($values[0], $values[1], $values[2], $values[3], $values[4], $values[8], $values[10], $values[14]);
|
||||
|
||||
my $display = (defined($job_pname) ? $job_pname : '-') . '/' . $job_id;
|
||||
if (defined($self->{option_results}->{filter_policy_name}) && $self->{option_results}->{filter_policy_name} ne '' &&
|
||||
$job_pname !~ /$self->{option_results}->{filter_policy_name}/) {
|
||||
$self->{output}->output_add(long_msg => "skipping '" . $display . "': no matching filter.", debug => 1);
|
||||
next;
|
||||
}
|
||||
if (defined($self->{option_results}->{filter_end_time}) && $self->{option_results}->{filter_end_time} =~ /[0-9]+/ &&
|
||||
defined($job_end_time) && $job_end_time =~ /[0-9]+/ && $job_end_time < $current_time - $self->{option_results}->{filter_end_time}) {
|
||||
$self->{output}->output_add(long_msg => "skipping '" . $display . "': too old.", debug => 1);
|
||||
next;
|
||||
}
|
||||
|
||||
my $elapsed_time = $current_time - $job_start_time;
|
||||
$self->{job}->{$display} = { display => $display, elapsed => $elapsed_time,
|
||||
status => $job_status, state => $job_state{$job_state}, type => $job_type{$job_type},
|
||||
kb => defined($job_kb) && $job_kb =~ /[0-9]+/ ? $job_kb : undef };
|
||||
}
|
||||
|
||||
if (scalar(keys %{$self->{job}}) <= 0) {
|
||||
$self->{output}->add_option_msg(short_msg => "No job found.");
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 MODE
|
||||
|
||||
Check job status.
|
||||
|
||||
=over 8
|
||||
|
||||
=item B<--remote>
|
||||
|
||||
Execute command remotely in 'ssh'.
|
||||
|
||||
=item B<--hostname>
|
||||
|
||||
Hostname to query (need --remote).
|
||||
|
||||
=item B<--ssh-option>
|
||||
|
||||
Specify multiple options like the user (example: --ssh-option='-l=centreon-engine' --ssh-option='-p=52').
|
||||
|
||||
=item B<--ssh-path>
|
||||
|
||||
Specify ssh command path (default: none)
|
||||
|
||||
=item B<--ssh-command>
|
||||
|
||||
Specify ssh command (default: 'ssh'). Useful to use 'plink'.
|
||||
|
||||
=item B<--timeout>
|
||||
|
||||
Timeout in seconds for the command (Default: 30).
|
||||
|
||||
=item B<--sudo>
|
||||
|
||||
Use 'sudo' to execute the command.
|
||||
|
||||
=item B<--command>
|
||||
|
||||
Command to get information (Default: 'bpdbjobs').
|
||||
Can be changed if you have output in a file.
|
||||
|
||||
=item B<--command-path>
|
||||
|
||||
Command path (Default: none).
|
||||
|
||||
=item B<--command-options>
|
||||
|
||||
Command options (Default: '-report -most_columns').
|
||||
|
||||
=item B<--filter-policy-name>
|
||||
|
||||
Filter job policy name (can be a regexp).
|
||||
|
||||
=item B<--filter-end-time>
|
||||
|
||||
Filter job with end time greater than current time less value in seconds (Default: 86400).
|
||||
|
||||
=item B<--ok-status>
|
||||
|
||||
Set ok threshold for status (Default: '%{status} == 0')
|
||||
Can used special variables like: %{display}, %{status}
|
||||
|
||||
=item B<--warning-status>
|
||||
|
||||
Set warning threshold for status (Default: '%{status} == 1')
|
||||
Can used special variables like: %{display}, %{status}, %{type}
|
||||
|
||||
=item B<--critical-status>
|
||||
|
||||
Set critical threshold for status (Default: '%{status} > 1').
|
||||
Can used special variables like: %{display}, %{status}, %{type}
|
||||
|
||||
=item B<--warning-long>
|
||||
|
||||
Set warning threshold for long jobs (Default: none)
|
||||
Can used special variables like: %{display}, %{status}, %{elapsed}, %{type}
|
||||
|
||||
=item B<--critical-long>
|
||||
|
||||
Set critical threshold for long jobs (Default: none).
|
||||
Can used special variables like: %{display}, %{status}, %{elapsed}, %{type}
|
||||
|
||||
=item B<--warning-frozen>
|
||||
|
||||
Set warning threshold for frozen jobs (Default: none)
|
||||
Can used special variables like: %{display}, %{status}, %{elapsed}, %{type}, %{kb}
|
||||
|
||||
=item B<--critical-frozen>
|
||||
|
||||
Set critical threshold for frozen jobs (Default: '%{state} =~ /active|queue/ && %{kb} == 0').
|
||||
Can used special variables like: %{display}, %{status}, %{elapsed}, %{type}, %{kb}
|
||||
|
||||
=back
|
||||
|
||||
=cut
|
||||
189
apps/backup/netbackup/local/mode/listpolicies.pm
Normal file
189
apps/backup/netbackup/local/mode/listpolicies.pm
Normal file
@ -0,0 +1,189 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package apps::backup::netbackup::local::mode::listpolicies;
|
||||
|
||||
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 =>
|
||||
{
|
||||
"hostname:s" => { name => 'hostname' },
|
||||
"remote" => { name => 'remote' },
|
||||
"ssh-option:s@" => { name => 'ssh_option' },
|
||||
"ssh-path:s" => { name => 'ssh_path' },
|
||||
"ssh-command:s" => { name => 'ssh_command', default => 'ssh' },
|
||||
"timeout:s" => { name => 'timeout', default => 30 },
|
||||
"sudo" => { name => 'sudo' },
|
||||
"command:s" => { name => 'command', default => 'bppllist' },
|
||||
"command-path:s" => { name => 'command_path' },
|
||||
"command-options:s" => { name => 'command_options', default => '' },
|
||||
"command2:s" => { name => 'command2', default => 'bpplinfo %{policy_name} -L' },
|
||||
"filter-name:s" => { name => 'filter_name' },
|
||||
});
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub check_options {
|
||||
my ($self, %options) = @_;
|
||||
$self->SUPER::init(%options);
|
||||
}
|
||||
|
||||
sub run {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->manage_selection(%options);
|
||||
|
||||
foreach (sort keys %{$self->{policies}}) {
|
||||
if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' &&
|
||||
$_ !~ /$self->{option_results}->{filter_name}/i) {
|
||||
$self->{output}->output_add(long_msg => "skipping policy '" . $_ . "': no type or no matching filter type");
|
||||
next;
|
||||
}
|
||||
|
||||
$self->{output}->output_add(long_msg => "'" . $_ . "' [active = " . $self->{policies}->{$_}->{active} . "]");
|
||||
}
|
||||
|
||||
$self->{output}->output_add(severity => 'OK',
|
||||
short_msg => 'List policy:');
|
||||
$self->{output}->display(nolabel => 1, force_ignore_perfdata => 1, force_long_output => 1);
|
||||
$self->{output}->exit();
|
||||
}
|
||||
|
||||
sub disco_format {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{output}->add_disco_format(elements => ['name', 'active']);
|
||||
}
|
||||
|
||||
sub disco_show {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->manage_selection(%options);
|
||||
foreach (sort keys %{$self->{policies}}) {
|
||||
next if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' &&
|
||||
$_ !~ /$self->{option_results}->{filter_name}/i);
|
||||
|
||||
$self->{output}->add_disco_entry(name => $_,
|
||||
active => $self->{policies}->{$_}->{active}
|
||||
);
|
||||
}
|
||||
}
|
||||
|
||||
sub manage_selection {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my ($stdout) = centreon::plugins::misc::execute(output => $self->{output},
|
||||
options => $self->{option_results},
|
||||
sudo => $self->{option_results}->{sudo},
|
||||
command => $self->{option_results}->{command},
|
||||
command_path => $self->{option_results}->{command_path},
|
||||
command_options => $self->{option_results}->{command_options});
|
||||
$self->{policies} = {};
|
||||
my @lines = split /\n/, $stdout;
|
||||
foreach my $policy_name (@lines) {
|
||||
my $command2 = $self->{option_results}->{command2};
|
||||
$command2 =~ s/%{policy_name}/$policy_name/g;
|
||||
my ($stdout2) = centreon::plugins::misc::execute(output => $self->{output},
|
||||
options => $self->{option_results},
|
||||
sudo => $self->{option_results}->{sudo},
|
||||
command => $command2);
|
||||
|
||||
#Policy Type: NBU-Catalog (35)
|
||||
#Active: yes
|
||||
my $active = '';
|
||||
$active = $1 if ($stdout2 =~ /^Active\s*:\s+(\S+)/msi);
|
||||
$self->{policies}->{$policy_name} = { active => $active };
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 MODE
|
||||
|
||||
List policies.
|
||||
|
||||
=over 8
|
||||
|
||||
=item B<--remote>
|
||||
|
||||
Execute command remotely in 'ssh'.
|
||||
|
||||
=item B<--hostname>
|
||||
|
||||
Hostname to query (need --remote).
|
||||
|
||||
=item B<--ssh-option>
|
||||
|
||||
Specify multiple options like the user (example: --ssh-option='-l=centreon-engine' --ssh-option='-p=52').
|
||||
|
||||
=item B<--ssh-path>
|
||||
|
||||
Specify ssh command path (default: none)
|
||||
|
||||
=item B<--ssh-command>
|
||||
|
||||
Specify ssh command (default: 'ssh'). Useful to use 'plink'.
|
||||
|
||||
=item B<--timeout>
|
||||
|
||||
Timeout in seconds for the command (Default: 30).
|
||||
|
||||
=item B<--sudo>
|
||||
|
||||
Use 'sudo' to execute the command.
|
||||
|
||||
=item B<--command>
|
||||
|
||||
Command to get information (Default: 'bppllist').
|
||||
Can be changed if you have output in a file.
|
||||
|
||||
=item B<--command-path>
|
||||
|
||||
Command path (Default: none).
|
||||
|
||||
=item B<--command-options>
|
||||
|
||||
Command options (Default: none).
|
||||
|
||||
=item B<--command2>
|
||||
|
||||
Command to get active policy information (Default: 'bpplinfo %{policy_name} -L').
|
||||
Can be changed if you have output in a file.
|
||||
|
||||
=item B<--filter-name>
|
||||
|
||||
Filter policy name (can be a regexp).
|
||||
|
||||
=back
|
||||
|
||||
=cut
|
||||
@ -32,8 +32,11 @@ sub new {
|
||||
|
||||
$self->{version} = '0.1';
|
||||
%{$self->{modes}} = (
|
||||
'dedup-status' => 'apps::backup::netbackup::local::mode::dedupstatus',
|
||||
'drive-cleaning' => 'apps::backup::netbackup::local::mode::drivecleaning',
|
||||
'drive-status' => 'apps::backup::netbackup::local::mode::drivestatus',
|
||||
'job-status' => 'apps::backup::netbackup::local::mode::jobstatus',
|
||||
'list-policies' => 'apps::backup::netbackup::local::mode::listpolicies',
|
||||
);
|
||||
|
||||
return $self;
|
||||
|
||||
@ -258,10 +258,6 @@ perl centreon_plugins.pl --plugin=apps::protocols::jmx::plugin --custommode=jolo
|
||||
|
||||
=over 8
|
||||
|
||||
=item B<--oid>
|
||||
|
||||
OID value to check (numeric format only).
|
||||
|
||||
=item B<--lookup-path>
|
||||
|
||||
What to lookup (from internal Jmx4Perl). Use --lookup-jpath for complex matching.
|
||||
@ -279,9 +275,9 @@ Threshold warning.
|
||||
|
||||
Threshold critical.
|
||||
|
||||
=item B<--oid-type>
|
||||
=item B<--type>
|
||||
|
||||
Type of the OID (Default: 'gauge').
|
||||
Type (Default: 'gauge').
|
||||
Can be 'counter' also. 'counter' will use a retention file.
|
||||
|
||||
=item B<--counter-per-seconds>
|
||||
|
||||
64
centreon/plugins/alternative/FatPackerOptions.pm
Normal file
64
centreon/plugins/alternative/FatPackerOptions.pm
Normal file
@ -0,0 +1,64 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package centreon::plugins::alternative::FatPackerOptions;
|
||||
|
||||
use base qw(centreon::plugins::options);
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Pod::Usage;
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
my $self = $class->SUPER::new(package => __PACKAGE__, %options);
|
||||
bless $self, $class;
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub display_help {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $stdout;
|
||||
foreach (@{$self->{pod_package}}) {
|
||||
|
||||
{
|
||||
my $pp = $_->{package} . ".pm";
|
||||
$pp =~ s{::}{/}g;
|
||||
my $content_class = $INC{$pp}->{$pp};
|
||||
open my $str_fh, '<', \$content_class;
|
||||
|
||||
local *STDOUT;
|
||||
open STDOUT, '>', \$stdout;
|
||||
pod2usage(-exitval => 'NOEXIT', -input => $str_fh,
|
||||
-verbose => 99,
|
||||
-sections => $_->{sections});
|
||||
|
||||
close $str_fh;
|
||||
}
|
||||
|
||||
$self->{output}->add_option_msg(long_msg => $stdout) if (defined($stdout));
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
@ -24,6 +24,16 @@ use strict;
|
||||
use warnings;
|
||||
use utf8;
|
||||
|
||||
sub execute {
|
||||
my (%options) = @_;
|
||||
|
||||
if ($^O eq 'MSWin32') {
|
||||
return windows_execute(%options, timeout => $options{options}->{timeout});
|
||||
} else {
|
||||
return unix_execute(%options);
|
||||
}
|
||||
}
|
||||
|
||||
sub windows_execute {
|
||||
my (%options) = @_;
|
||||
my $result;
|
||||
@ -109,7 +119,7 @@ sub windows_execute {
|
||||
return ($stdout, $result->{$pid}->{exitcode});
|
||||
}
|
||||
|
||||
sub execute {
|
||||
sub unix_execute {
|
||||
my (%options) = @_;
|
||||
my $cmd = '';
|
||||
my $args = [];
|
||||
|
||||
@ -79,9 +79,10 @@ sub display_help {
|
||||
{
|
||||
local *STDOUT;
|
||||
open STDOUT, '>', \$stdout;
|
||||
pod2usage(-exitval => 'NOEXIT', -input => pod_where({-inc => 1}, $_->{package}),
|
||||
my $where = pod_where({-inc => 1}, $_->{package});
|
||||
pod2usage(-exitval => 'NOEXIT', -input => $where,
|
||||
-verbose => 99,
|
||||
-sections => $_->{sections});
|
||||
-sections => $_->{sections}) if (defined($where));
|
||||
}
|
||||
|
||||
$self->{output}->add_option_msg(long_msg => $stdout) if (defined($stdout));
|
||||
|
||||
@ -22,7 +22,6 @@ package centreon::plugins::script;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use centreon::plugins::options;
|
||||
use centreon::plugins::output;
|
||||
use centreon::plugins::misc;
|
||||
use FindBin;
|
||||
@ -31,7 +30,8 @@ use Pod::Find qw(pod_where);
|
||||
|
||||
my %handlers = (DIE => {});
|
||||
|
||||
my $global_version = 20160122;
|
||||
my $global_version = 20160220;
|
||||
my $alternative_fatpacker = 0;
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
@ -84,7 +84,13 @@ sub get_plugin {
|
||||
######
|
||||
# Need to load global 'Output' and 'Options'
|
||||
######
|
||||
$self->{options} = centreon::plugins::options->new();
|
||||
if ($alternative_fatpacker == 0) {
|
||||
require centreon::plugins::options;
|
||||
$self->{options} = centreon::plugins::options->new();
|
||||
} else {
|
||||
require centreon::plugins::alternative::FatPackerOptions;
|
||||
$self->{options} = centreon::plugins::alternative::FatPackerOptions->new();
|
||||
}
|
||||
$self->{output} = centreon::plugins::output->new(options => $self->{options});
|
||||
$self->{options}->set_output(output => $self->{output});
|
||||
|
||||
@ -122,7 +128,17 @@ sub display_local_help {
|
||||
if ($self->{help}) {
|
||||
local *STDOUT;
|
||||
open STDOUT, '>', \$stdout;
|
||||
pod2usage(-exitval => "NOEXIT", -input => pod_where({-inc => 1}, __PACKAGE__));
|
||||
|
||||
if ($alternative_fatpacker == 0) {
|
||||
pod2usage(-exitval => "NOEXIT", -input => pod_where({-inc => 1}, __PACKAGE__));
|
||||
} else {
|
||||
my $pp = __PACKAGE__ . ".pm";
|
||||
$pp =~ s{::}{/}g;
|
||||
my $content_class = $INC{$pp}->{$pp};
|
||||
open my $str_fh, '<', \$content_class;
|
||||
pod2usage(-exitval => "NOEXIT", -input => $str_fh);
|
||||
close $str_fh;
|
||||
}
|
||||
}
|
||||
|
||||
$self->{output}->add_option_msg(long_msg => $stdout) if (defined($stdout));
|
||||
|
||||
20
changelog
20
changelog
@ -1,3 +1,23 @@
|
||||
2016-02-20 Quentin Garnier <qgarnier@centreon.com>
|
||||
* Add a class for FatPacker system
|
||||
|
||||
2016-02-17 Quentin Garnier <qgarnier@centreon.com>
|
||||
* Plugin added: to check Kemp
|
||||
* Plugin added: to check Netbackup
|
||||
* Plugin added: to check Ucopia Wireless Controller
|
||||
* Plugin added: to check Emerson Liebert PDU
|
||||
* Plugin added: to check Microsoft Lync 2013
|
||||
* Plugin added: to check TemPERHum sensors
|
||||
* Mode added: [mysql] 'table-size'
|
||||
* Mode added: [centreon] 'count-services'
|
||||
* Mode added: [iDrac] 'hardware' (for iDrac 8)
|
||||
* Enhancement: [xtremio] hardened code
|
||||
* Enhancement: [cisco asa]{sessions} better metrics (#315)
|
||||
* Enhancement: [freebsd]{memory} More real values
|
||||
* Fix: [oracle]{tablespace-usage} Usage more than 100%
|
||||
* Fix: [clariion]{disks} Last disks was missing
|
||||
* Fix: [mssql]{failed-jobs} wrong thresholds
|
||||
|
||||
2016-01-22 Quentin Garnier <qgarnier@centreon.com>
|
||||
* Plugin added: Add a plugin to check Juniper Trapeze in SNMP
|
||||
* Plugin added: Add a plugin to check Dell ML6000 in SNMP
|
||||
|
||||
@ -191,7 +191,7 @@ $thresholds = {
|
||||
],
|
||||
onoff => [
|
||||
['unavailable', 'UNKNOWN'],
|
||||
['ok', 'OK'],
|
||||
['on', 'OK'],
|
||||
['off', 'OK'],
|
||||
],
|
||||
contact => [
|
||||
|
||||
106
hardware/sensors/akcp/snmp/mode/components/humidity.pm
Normal file
106
hardware/sensors/akcp/snmp/mode/components/humidity.pm
Normal file
@ -0,0 +1,106 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::sensors::akcp::snmp::mode::components::humidity;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::sensors::akcp::snmp::mode::components::resources qw(%map_default1_status %map_online);
|
||||
|
||||
my $mapping = {
|
||||
hhmsSensorArrayHumidityDescription => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.17.1.1' },
|
||||
hhmsSensorArrayHumidityPercent => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.17.1.3' },
|
||||
hhmsSensorArrayHumidityStatus => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.17.1.4', map => \%map_default1_status },
|
||||
hhmsSensorArrayHumidityOnline => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.17.1.5', map => \%map_online },
|
||||
hhmsSensorArrayHumidityHighWarning => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.17.1.7' },
|
||||
hhmsSensorArrayHumidityHighCritical => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.17.1.8' },
|
||||
hhmsSensorArrayHumidityLowWarning => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.17.1.9' },
|
||||
hhmsSensorArrayHumidityLowCritical => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.17.1.10' },
|
||||
};
|
||||
my $oid_hhmsSensorArrayHumidityEntry = '.1.3.6.1.4.1.3854.1.2.2.1.17.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_hhmsSensorArrayHumidityEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking humidities");
|
||||
$self->{components}->{humidity} = {name => 'humidities', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'humidity'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_hhmsSensorArrayHumidityEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{hhmsSensorArrayHumidityOnline}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_hhmsSensorArrayHumidityEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'humidity', instance => $instance));
|
||||
if ($result->{hhmsSensorArrayHumidityOnline} eq 'offline') {
|
||||
$self->{output}->output_add(long_msg => sprintf("skipping '%s': is offline", $result->{hhmsSensorArrayHumidityDescription}));
|
||||
next;
|
||||
}
|
||||
$self->{components}->{humidity}->{total}++;
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("humidity '%s' status is '%s' [instance = %s] [value = %s]",
|
||||
$result->{hhmsSensorArrayHumidityDescription}, $result->{hhmsSensorArrayHumidityStatus}, $instance,
|
||||
$result->{hhmsSensorArrayHumidityPercent}));
|
||||
|
||||
my $exit = $self->get_severity(label => 'default1', section => 'humidity', value => $result->{hhmsSensorArrayHumidityStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Humdity '%s' status is '%s'", $result->{hhmsSensorArrayHumidityDescription}, $result->{hhmsSensorArrayHumidityStatus}));
|
||||
next;
|
||||
}
|
||||
|
||||
my ($exit2, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'humidity', instance => $instance, value => $result->{hhmsSensorArrayHumidityPercent});
|
||||
if ($checked == 0) {
|
||||
$result->{hhmsSensorArrayHumidityLowWarning} = (defined($result->{hhmsSensorArrayHumidityLowWarning}) && $result->{hhmsSensorArrayHumidityLowWarning} =~ /[0-9]/) ?
|
||||
$result->{hhmsSensorArrayHumidityLowWarning} : '';
|
||||
$result->{hhmsSensorArrayHumidityLowCritical} = (defined($result->{hhmsSensorArrayHumidityLowCritical}) && $result->{hhmsSensorArrayHumidityLowCritical} =~ /[0-9]/) ?
|
||||
$result->{hhmsSensorArrayHumidityLowCritical} : '';
|
||||
$result->{hhmsSensorArrayHumidityHighWarning} = (defined($result->{hhmsSensorArrayHumidityHighWarning}) && $result->{hhmsSensorArrayHumidityHighWarning} =~ /[0-9]/) ?
|
||||
$result->{hhmsSensorArrayHumidityHighWarning} : '';
|
||||
$result->{hhmsSensorArrayHumidityHighCritical} = (defined($result->{hhmsSensorArrayHumidityHighCritical}) && $result->{hhmsSensorArrayHumidityHighCritical} =~ /[0-9]/) ?
|
||||
$result->{hhmsSensorArrayHumidityHighCritical} : '';
|
||||
my $warn_th = $result->{hhmsSensorArrayHumidityLowWarning} . ':' . $result->{hhmsSensorArrayHumidityHighWarning};
|
||||
my $crit_th = $result->{hhmsSensorArrayHumidityLowCritical} . ':' . $result->{hhmsSensorArrayHumidityHighCritical};
|
||||
$self->{perfdata}->threshold_validate(label => 'warning-humidity-instance-' . $instance, value => $warn_th);
|
||||
$self->{perfdata}->threshold_validate(label => 'critical-humidity-instance-' . $instance, value => $crit_th);
|
||||
|
||||
$warn = $self->{perfdata}->get_perfdata_for_output(label => 'warning-humidity-instance-' . $instance);
|
||||
$crit = $self->{perfdata}->get_perfdata_for_output(label => 'critical-humidity-instance-' . $instance);
|
||||
}
|
||||
|
||||
if (!$self->{output}->is_status(value => $exit2, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit2,
|
||||
short_msg => sprintf("Humdity '%s' is %s %%", $result->{hhmsSensorArrayHumidityDescription}, $result->{hhmsSensorArrayHumidityPercent}));
|
||||
}
|
||||
$self->{output}->perfdata_add(label => 'humidity_' . $result->{hhmsSensorArrayHumidityDescription}, unit => '%',
|
||||
value => $result->{hhmsSensorArrayHumidityPercent},
|
||||
warning => $warn,
|
||||
critical => $crit,
|
||||
min => 0, max => 100);
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
62
hardware/sensors/akcp/snmp/mode/components/resources.pm
Normal file
62
hardware/sensors/akcp/snmp/mode/components/resources.pm
Normal file
@ -0,0 +1,62 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::sensors::akcp::snmp::mode::components::resources;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Exporter;
|
||||
|
||||
our %map_default1_status;
|
||||
our %map_default2_status;
|
||||
our %map_online;
|
||||
our %map_degree_type;
|
||||
|
||||
our @ISA = qw(Exporter);
|
||||
our @EXPORT_OK = qw(%map_default1_status %map_default2_status %map_online %map_degree_type);
|
||||
|
||||
%map_default1_status = (
|
||||
1 => 'noStatus',
|
||||
2 => 'normal',
|
||||
3 => 'highWarning',
|
||||
4 => 'highCritical',
|
||||
5 => 'lowWarning',
|
||||
6 => 'lowCritical',
|
||||
7 => 'sensorError',
|
||||
);
|
||||
|
||||
%map_default2_status = (
|
||||
1 => 'noStatus',
|
||||
2 => 'normal',
|
||||
4 => 'critical',
|
||||
7 => 'sensorError',
|
||||
);
|
||||
|
||||
%map_online = (
|
||||
1 => 'online',
|
||||
2 => 'offline',
|
||||
);
|
||||
|
||||
%map_degree_type = (
|
||||
0 => 'F',
|
||||
1 => 'C',
|
||||
);
|
||||
|
||||
1;
|
||||
72
hardware/sensors/akcp/snmp/mode/components/serial.pm
Normal file
72
hardware/sensors/akcp/snmp/mode/components/serial.pm
Normal file
@ -0,0 +1,72 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::sensors::akcp::snmp::mode::components::serial;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::sensors::akcp::snmp::mode::components::resources qw(%map_default2_status %map_online);
|
||||
|
||||
my $mapping = {
|
||||
hhmsSensorArraySerialDescription => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.19.1.1' },
|
||||
hhmsSensorArraySerialStatus => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.19.1.3', map => \%map_default2_status },
|
||||
hhmsSensorArraySerialOnline => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.19.1.4', map => \%map_online },
|
||||
};
|
||||
my $oid_hhmsSensorArraySwitchEntry = '.1.3.6.1.4.1.3854.1.2.2.1.18.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_hhmsSensorArraySwitchEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking serials");
|
||||
$self->{components}->{serial} = {name => 'serials', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'serial'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_hhmsSensorArraySwitchEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{hhmsSensorArraySerialOnline}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_hhmsSensorArraySwitchEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'serial', instance => $instance));
|
||||
if ($result->{hhmsSensorArraySerialOnline} eq 'offline') {
|
||||
$self->{output}->output_add(long_msg => sprintf("skipping '%s': is offline", $result->{hhmsSensorArraySerialDescription}));
|
||||
next;
|
||||
}
|
||||
$self->{components}->{serial}->{total}++;
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("serial '%s' status is '%s' [instance = %s]",
|
||||
$result->{hhmsSensorArraySerialDescription}, $result->{hhmsSensorArraySerialStatus}, $instance,
|
||||
));
|
||||
|
||||
my $exit = $self->get_severity(label => 'default2', section => 'serial', value => $result->{hhmsSensorArraySerialStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Serial '%s' status is '%s'", $result->{hhmsSensorArraySerialDescription}, $result->{hhmsSensorArraySerialStatus}));
|
||||
next;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
72
hardware/sensors/akcp/snmp/mode/components/switch.pm
Normal file
72
hardware/sensors/akcp/snmp/mode/components/switch.pm
Normal file
@ -0,0 +1,72 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::sensors::akcp::snmp::mode::components::switch;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::sensors::akcp::snmp::mode::components::resources qw(%map_default2_status %map_online);
|
||||
|
||||
my $mapping = {
|
||||
hhmsSensorArraySwitchDescription => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.18.1.1' },
|
||||
hhmsSensorArraySwitchStatus => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.18.1.3', map => \%map_default2_status },
|
||||
hhmsSensorArraySwitchOnline => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.18.1.4', map => \%map_online },
|
||||
};
|
||||
my $oid_hhmsSensorArraySwitchEntry = '.1.3.6.1.4.1.3854.1.2.2.1.18.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_hhmsSensorArraySwitchEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking switches");
|
||||
$self->{components}->{switch} = {name => 'switches', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'switch'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_hhmsSensorArraySwitchEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{hhmsSensorArraySwitchOnline}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_hhmsSensorArraySwitchEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'switch', instance => $instance));
|
||||
if ($result->{hhmsSensorArraySwitchOnline} eq 'offline') {
|
||||
$self->{output}->output_add(long_msg => sprintf("skipping '%s': is offline", $result->{hhmsSensorArraySwitchDescription}));
|
||||
next;
|
||||
}
|
||||
$self->{components}->{switch}->{total}++;
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("switch '%s' status is '%s' [instance = %s]",
|
||||
$result->{hhmsSensorArraySwitchDescription}, $result->{hhmsSensorArraySwitchStatus}, $instance,
|
||||
));
|
||||
|
||||
my $exit = $self->get_severity(label => 'default2', section => 'switch', value => $result->{hhmsSensorArraySwitchStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Switch '%s' status is '%s'", $result->{hhmsSensorArraySwitchDescription}, $result->{hhmsSensorArraySwitchStatus}));
|
||||
next;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
107
hardware/sensors/akcp/snmp/mode/components/temperature.pm
Normal file
107
hardware/sensors/akcp/snmp/mode/components/temperature.pm
Normal file
@ -0,0 +1,107 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::sensors::akcp::snmp::mode::components::temperature;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::sensors::akcp::snmp::mode::components::resources qw(%map_default1_status %map_online %map_degree_type);
|
||||
|
||||
my $mapping = {
|
||||
hhmsSensorArrayTempDescription => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.16.1.1' },
|
||||
hhmsSensorArrayTempDegree => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.16.1.3' },
|
||||
hhmsSensorArrayTempStatus => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.16.1.4', map => \%map_default1_status },
|
||||
hhmsSensorArrayTempOnline => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.16.1.5', map => \%map_online },
|
||||
hhmsSensorArrayTempHighWarning => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.16.1.7' },
|
||||
hhmsSensorArrayTempHighCritical => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.16.1.8' },
|
||||
hhmsSensorArrayTempLowWarning => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.16.1.9' },
|
||||
hhmsSensorArrayTempLowCritical => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.16.1.10' },
|
||||
hhmsSensorArrayTempDegreeType => { oid => '.1.3.6.1.4.1.3854.1.2.2.1.16.1.12', map => \%map_degree_type },
|
||||
};
|
||||
my $oid_hhmsSensorArrayTempEntry = '.1.3.6.1.4.1.3854.1.2.2.1.16.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_hhmsSensorArrayTempEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking temperatures");
|
||||
$self->{components}->{temperature} = {name => 'temperatures', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'temperature'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_hhmsSensorArrayTempEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{hhmsSensorArrayTempOnline}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_hhmsSensorArrayTempEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'temperature', instance => $instance));
|
||||
if ($result->{hhmsSensorArrayTempOnline} eq 'offline') {
|
||||
$self->{output}->output_add(long_msg => sprintf("skipping '%s': is offline", $result->{hhmsSensorArrayTempDescription}));
|
||||
next;
|
||||
}
|
||||
$self->{components}->{temperature}->{total}++;
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("temperature '%s' status is '%s' [instance = %s] [value = %s]",
|
||||
$result->{hhmsSensorArrayTempDescription}, $result->{hhmsSensorArrayTempStatus}, $instance,
|
||||
$result->{hhmsSensorArrayTempDegree}));
|
||||
|
||||
my $exit = $self->get_severity(label => 'default1', section => 'temperature', value => $result->{hhmsSensorArrayTempStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Temperature '%s' status is '%s'", $result->{hhmsSensorArrayTempDescription}, $result->{hhmsSensorArrayTempStatus}));
|
||||
next;
|
||||
}
|
||||
|
||||
my ($exit2, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'temperature', instance => $instance, value => $result->{hhmsSensorArrayTempDegree});
|
||||
if ($checked == 0) {
|
||||
$result->{hhmsSensorArrayTempLowWarning} = (defined($result->{hhmsSensorArrayTempLowWarning}) && $result->{hhmsSensorArrayTempLowWarning} =~ /[0-9]/) ?
|
||||
$result->{hhmsSensorArrayTempLowWarning} : '';
|
||||
$result->{hhmsSensorArrayTempLowCritical} = (defined($result->{hhmsSensorArrayTempLowCritical}) && $result->{hhmsSensorArrayTempLowCritical} =~ /[0-9]/) ?
|
||||
$result->{hhmsSensorArrayTempLowCritical} : '';
|
||||
$result->{hhmsSensorArrayTempHighWarning} = (defined($result->{hhmsSensorArrayTempHighWarning}) && $result->{hhmsSensorArrayTempHighWarning} =~ /[0-9]/) ?
|
||||
$result->{hhmsSensorArrayTempHighWarning} : '';
|
||||
$result->{hhmsSensorArrayTempHighCritical} = (defined($result->{hhmsSensorArrayTempHighCritical}) && $result->{hhmsSensorArrayTempHighCritical} =~ /[0-9]/) ?
|
||||
$result->{hhmsSensorArrayTempHighCritical} : '';
|
||||
my $warn_th = $result->{hhmsSensorArrayTempLowWarning} . ':' . $result->{hhmsSensorArrayTempHighWarning};
|
||||
my $crit_th = $result->{hhmsSensorArrayTempLowCritical} . ':' . $result->{hhmsSensorArrayTempHighCritical};
|
||||
$self->{perfdata}->threshold_validate(label => 'warning-temperature-instance-' . $instance, value => $warn_th);
|
||||
$self->{perfdata}->threshold_validate(label => 'critical-temperature-instance-' . $instance, value => $crit_th);
|
||||
|
||||
$warn = $self->{perfdata}->get_perfdata_for_output(label => 'warning-temperature-instance-' . $instance);
|
||||
$crit = $self->{perfdata}->get_perfdata_for_output(label => 'critical-temperature-instance-' . $instance);
|
||||
}
|
||||
|
||||
if (!$self->{output}->is_status(value => $exit2, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit2,
|
||||
short_msg => sprintf("Temperature '%s' is %s %s", $result->{hhmsSensorArrayTempDescription}, $result->{hhmsSensorArrayTempDegree}, $result->{hhmsSensorArrayTempDegreeType}));
|
||||
}
|
||||
$self->{output}->perfdata_add(label => 'temperature_' . $result->{hhmsSensorArrayTempDescription}, unit => $result->{hhmsSensorArrayTempDegreeType},
|
||||
value => $result->{hhmsSensorArrayTempDegree},
|
||||
warning => $warn,
|
||||
critical => $crit,
|
||||
);
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
121
hardware/sensors/akcp/snmp/mode/sensors.pm
Normal file
121
hardware/sensors/akcp/snmp/mode/sensors.pm
Normal file
@ -0,0 +1,121 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::sensors::akcp::snmp::mode::sensors;
|
||||
|
||||
use base qw(centreon::plugins::templates::hardware);
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
sub set_system {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{regexp_threshold_overload_check_section_option} = '^(temperature|humidity|switch|serial)$';
|
||||
$self->{regexp_threshold_numeric_check_section_option} = '^(temperature|humidity)$';
|
||||
|
||||
$self->{cb_hook2} = 'snmp_execute';
|
||||
|
||||
$self->{thresholds} = {
|
||||
default1 => [
|
||||
['noStatus', 'OK'],
|
||||
['normal', 'OK'],
|
||||
['highWarning', 'WARNING'],
|
||||
['highCritical', 'CRITICAL'],
|
||||
['lowWarning', 'WARNING'],
|
||||
['lowCritical', 'CRITICAL'],
|
||||
['sensorError', 'CRITICAL'],
|
||||
],
|
||||
default2 => [
|
||||
['noStatus', 'OK'],
|
||||
['normal', 'OK'],
|
||||
['critical', 'CRITICAL'],
|
||||
['sensorError', 'CRITICAL'],
|
||||
],
|
||||
};
|
||||
|
||||
$self->{components_path} = 'hardware::sensors::akcp::snmp::mode::components';
|
||||
$self->{components_module} = ['temperature', 'humidity', 'switch', 'serial'];
|
||||
}
|
||||
|
||||
sub snmp_execute {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{snmp} = $options{snmp};
|
||||
$self->{results} = $self->{snmp}->get_multiple_table(oids => $self->{request});
|
||||
}
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
my $self = $class->SUPER::new(package => __PACKAGE__, %options, no_absent => 1);
|
||||
bless $self, $class;
|
||||
|
||||
$self->{version} = '1.0';
|
||||
$options{options}->add_options(arguments =>
|
||||
{
|
||||
});
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 MODE
|
||||
|
||||
Check sensors.
|
||||
|
||||
=over 8
|
||||
|
||||
=item B<--component>
|
||||
|
||||
Which component to check (Default: '.*').
|
||||
Can be: 'temperature', 'humidity', 'switch', 'serial'.
|
||||
|
||||
=item B<--filter>
|
||||
|
||||
Exclude some parts (comma seperated list) (Example: --filter=fan --filter=psu)
|
||||
Can also exclude specific instance: --filter=fan,101
|
||||
|
||||
=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='psu,CRITICAL,^(?!(presentOK)$)'
|
||||
|
||||
=item B<--warning>
|
||||
|
||||
Set warning threshold for 'temperature', 'humidity' (syntax: type,regexp,threshold)
|
||||
Example: --warning='temperature,1,30'
|
||||
|
||||
=item B<--critical>
|
||||
|
||||
Set critical threshold for 'temperature', 'humidity' (syntax: type,regexp,threshold)
|
||||
Example: --warning='temperature,1,50'
|
||||
|
||||
=back
|
||||
|
||||
=cut
|
||||
48
hardware/sensors/akcp/snmp/plugin.pm
Normal file
48
hardware/sensors/akcp/snmp/plugin.pm
Normal file
@ -0,0 +1,48 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::sensors::akcp::snmp::plugin;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use base qw(centreon::plugins::script_snmp);
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
my $self = $class->SUPER::new(package => __PACKAGE__, %options);
|
||||
bless $self, $class;
|
||||
|
||||
$self->{version} = '1.0';
|
||||
%{$self->{modes}} = (
|
||||
'sensors' => 'hardware::sensors::akcp::snmp::mode::sensors',
|
||||
);
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 PLUGIN DESCRIPTION
|
||||
|
||||
Check AKCP sensors in SNMP.
|
||||
|
||||
=cut
|
||||
122
hardware/server/dell/idrac/snmp/mode/components/amperage.pm
Normal file
122
hardware/server/dell/idrac/snmp/mode/components/amperage.pm
Normal file
@ -0,0 +1,122 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::components::amperage;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::server::dell::idrac::snmp::mode::components::resources qw(%map_probe_status %map_state %map_amperage_type);
|
||||
|
||||
my $mapping = {
|
||||
amperageProbeStateSettings => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.30.1.4', map => \%map_state },
|
||||
amperageProbeStatus => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.30.1.5', map => \%map_probe_status },
|
||||
amperageProbeReading => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.30.1.6' },
|
||||
amperageProbeType => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.30.1.7', map => \%map_amperage_type },
|
||||
amperageProbeLocationName => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.30.1.8' },
|
||||
amperageProbeUpperCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.30.1.10' },
|
||||
amperageProbeUpperNonCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.30.1.11' },
|
||||
amperageProbeLowerNonCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.30.1.12' },
|
||||
amperageProbeLowerCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.30.1.13' },
|
||||
};
|
||||
my $oid_amperageProbeTableEntry = '.1.3.6.1.4.1.674.10892.5.4.600.30.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_amperageProbeTableEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking amperages");
|
||||
$self->{components}->{amperage} = {name => 'amperages', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'amperage'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_amperageProbeTableEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{amperageProbeStatus}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_amperageProbeTableEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'amperage', instance => $instance));
|
||||
$self->{components}->{amperage}->{total}++;
|
||||
|
||||
my ($divisor, $unit) = (1000, 'A');
|
||||
if ($result->{amperageProbeType} =~ /amperageProbeTypeIsPowerSupplyAmps|amperageProbeTypeIsSystemAmps/) {
|
||||
$divisor = 10;
|
||||
} elsif ($result->{amperageProbeType} =~ /amperageProbeTypeIsPowerSupplyWatts|amperageProbeTypeIsSystemWatts/) {
|
||||
$unit = 'W';
|
||||
}
|
||||
$result->{amperageProbeReading} = (defined($result->{amperageProbeReading})) ? $result->{amperageProbeReading} / $divisor : 'unknown';
|
||||
$self->{output}->output_add(long_msg => sprintf("amperage '%s' status is '%s' [instance = %s] [state = %s] [value = %s]",
|
||||
$result->{amperageProbeLocationName}, $result->{amperageProbeStatus}, $instance,
|
||||
$result->{amperageProbeStateSettings}, $result->{amperageProbeReading}));
|
||||
|
||||
my $exit = $self->get_severity(label => 'default.state', section => 'amperage.state', value => $result->{amperageProbeStateSettings});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Amperage '%s' state is '%s'", $result->{amperageProbeLocationName}, $result->{amperageProbeStateSettings}));
|
||||
next;
|
||||
}
|
||||
|
||||
$exit = $self->get_severity(label => 'probe.status', section => 'amperage.status', value => $result->{amperageProbeStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Amperage '%s' status is '%s'", $result->{amperageProbeLocationName}, $result->{amperageProbeStatus}));
|
||||
}
|
||||
|
||||
next if ($result->{amperageProbeType} =~ /amperageProbeTypeIsDiscrete/);
|
||||
|
||||
if (defined($result->{amperageProbeReading}) && $result->{amperageProbeReading} =~ /[0-9]/) {
|
||||
my ($exit, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'amperage', instance => $instance, value => $result->{amperageProbeReading});
|
||||
if ($checked == 0) {
|
||||
$result->{amperageProbeLowerNonCriticalThreshold} = (defined($result->{amperageProbeLowerNonCriticalThreshold}) && $result->{amperageProbeLowerNonCriticalThreshold} =~ /[0-9]/) ?
|
||||
$result->{amperageProbeLowerNonCriticalThreshold} / $divisor : '';
|
||||
$result->{amperageProbeLowerCriticalThreshold} = (defined($result->{amperageProbeLowerCriticalThreshold}) && $result->{amperageProbeLowerCriticalThreshold} =~ /[0-9]/) ?
|
||||
$result->{amperageProbeLowerCriticalThreshold} / $divisor : '';
|
||||
$result->{amperageProbeUpperNonCriticalThreshold} = (defined($result->{amperageProbeUpperNonCriticalThreshold}) && $result->{amperageProbeUpperNonCriticalThreshold} =~ /[0-9]/) ?
|
||||
$result->{amperageProbeUpperNonCriticalThreshold} / $divisor : '';
|
||||
$result->{amperageProbeUpperCriticalThreshold} = (defined($result->{amperageProbeUpperCriticalThreshold}) && $result->{amperageProbeUpperCriticalThreshold} =~ /[0-9]/) ?
|
||||
$result->{amperageProbeUpperCriticalThreshold} / $divisor : '';
|
||||
my $warn_th = $result->{amperageProbeLowerNonCriticalThreshold} . ':' . $result->{amperageProbeUpperNonCriticalThreshold};
|
||||
my $crit_th = $result->{amperageProbeLowerCriticalThreshold} . ':' . $result->{amperageProbeUpperCriticalThreshold};
|
||||
$self->{perfdata}->threshold_validate(label => 'warning-amperage-instance-' . $instance, value => $warn_th);
|
||||
$self->{perfdata}->threshold_validate(label => 'critical-amperage-instance-' . $instance, value => $crit_th);
|
||||
|
||||
$exit = $self->{perfdata}->threshold_check(value => $result->{amperageProbeReading}, threshold => [ { label => 'critical-amperage-instance-' . $instance, exit_litteral => 'critical' },
|
||||
{ label => 'warning-amperage-instance-' . $instance, exit_litteral => 'warning' } ]);
|
||||
$warn = $self->{perfdata}->get_perfdata_for_output(label => 'warning-amperage-instance-' . $instance);
|
||||
$crit = $self->{perfdata}->get_perfdata_for_output(label => 'critical-amperage-instance-' . $instance);
|
||||
}
|
||||
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Amperage '%s' is %s %s", $result->{amperageProbeLocationName}, $result->{amperageProbeReading}, $unit));
|
||||
}
|
||||
$self->{output}->perfdata_add(label => 'amperage_' . $result->{amperageProbeLocationName}, unit => $unit,
|
||||
value => $result->{amperageProbeReading},
|
||||
warning => $warn,
|
||||
critical => $crit,
|
||||
);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
113
hardware/server/dell/idrac/snmp/mode/components/coolingdevice.pm
Normal file
113
hardware/server/dell/idrac/snmp/mode/components/coolingdevice.pm
Normal file
@ -0,0 +1,113 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::components::coolingdevice;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::server::dell::idrac::snmp::mode::components::resources qw(%map_probe_status %map_state);
|
||||
|
||||
my $mapping = {
|
||||
coolingDeviceStateSettings => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.12.1.4', map => \%map_state },
|
||||
coolingDeviceStatus => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.12.1.5', map => \%map_probe_status },
|
||||
coolingDeviceReading => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.12.1.6' },
|
||||
coolingDeviceLocationName => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.12.1.8' },
|
||||
coolingDeviceUpperCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.20.1.10' },
|
||||
coolingDeviceUpperNonCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.20.1.11' },
|
||||
coolingDeviceLowerNonCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.20.1.12' },
|
||||
coolingDeviceLowerCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.12.1.13' },
|
||||
};
|
||||
my $oid_coolingDeviceTableEntry = '.1.3.6.1.4.1.674.10892.5.4.700.12.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_coolingDeviceTableEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking cooling devices");
|
||||
$self->{components}->{coolingdevice} = {name => 'cooling devices', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'coolingdevice'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_coolingDeviceTableEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{coolingDeviceStatus}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_coolingDeviceTableEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'coolingdevice', instance => $instance));
|
||||
$self->{components}->{coolingdevice}->{total}++;
|
||||
|
||||
$result->{coolingDeviceReading} = (defined($result->{coolingDeviceReading})) ? $result->{coolingDeviceReading} : 'unknown';
|
||||
$self->{output}->output_add(long_msg => sprintf("cooling device '%s' status is '%s' [instance = %s] [state = %s] [value = %s]",
|
||||
$result->{coolingDeviceLocationName}, $result->{coolingDeviceStatus}, $instance,
|
||||
$result->{coolingDeviceStateSettings}, $result->{coolingDeviceReading}));
|
||||
|
||||
my $exit = $self->get_severity(label => 'default.state', section => 'coolingdevice.state', value => $result->{coolingDeviceStateSettings});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Cooling device '%s' state is '%s'", $result->{coolingDeviceLocationName}, $result->{coolingDeviceStateSettings}));
|
||||
next;
|
||||
}
|
||||
|
||||
$exit = $self->get_severity(label => 'probe.status', section => 'coolingdevice.status', value => $result->{coolingDeviceStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Cooling device '%s' status is '%s'", $result->{coolingDeviceLocationName}, $result->{coolingDeviceStatus}));
|
||||
}
|
||||
|
||||
if (defined($result->{coolingDeviceReading}) && $result->{coolingDeviceReading} =~ /[0-9]/) {
|
||||
my ($exit, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'coolingdevice', instance => $instance, value => $result->{coolingDeviceReading});
|
||||
if ($checked == 0) {
|
||||
$result->{coolingDeviceLowerNonCriticalThreshold} = (defined($result->{coolingDeviceLowerNonCriticalThreshold}) && $result->{coolingDeviceLowerNonCriticalThreshold} =~ /[0-9]/) ?
|
||||
$result->{coolingDeviceLowerNonCriticalThreshold} / 10 : '';
|
||||
$result->{coolingDeviceLowerCriticalThreshold} = (defined($result->{coolingDeviceLowerCriticalThreshold}) && $result->{coolingDeviceLowerCriticalThreshold} =~ /[0-9]/) ?
|
||||
$result->{coolingDeviceLowerCriticalThreshold} / 10 : '';
|
||||
$result->{coolingDeviceUpperNonCriticalThreshold} = (defined($result->{coolingDeviceUpperNonCriticalThreshold}) && $result->{coolingDeviceUpperNonCriticalThreshold} =~ /[0-9]/) ?
|
||||
$result->{coolingDeviceUpperNonCriticalThreshold} / 10 : '';
|
||||
$result->{coolingDeviceUpperCriticalThreshold} = (defined($result->{coolingDeviceUpperCriticalThreshold}) && $result->{coolingDeviceUpperCriticalThreshold} =~ /[0-9]/) ?
|
||||
$result->{coolingDeviceUpperCriticalThreshold} : '';
|
||||
my $warn_th = $result->{coolingDeviceLowerNonCriticalThreshold} . ':' . $result->{coolingDeviceUpperNonCriticalThreshold};
|
||||
my $crit_th = $result->{coolingDeviceLowerCriticalThreshold} . ':' . $result->{coolingDeviceUpperCriticalThreshold};
|
||||
$self->{perfdata}->threshold_validate(label => 'warning-coolingdevice-instance-' . $instance, value => $warn_th);
|
||||
$self->{perfdata}->threshold_validate(label => 'critical-coolingdevice-instance-' . $instance, value => $crit_th);
|
||||
|
||||
$exit = $self->{perfdata}->threshold_check(value => $result->{coolingDeviceReading}, threshold => [ { label => 'critical-coolingdevice-instance-' . $instance, exit_litteral => 'critical' },
|
||||
{ label => 'warning-coolingdevice-instance-' . $instance, exit_litteral => 'warning' } ]);
|
||||
$warn = $self->{perfdata}->get_perfdata_for_output(label => 'warning-coolingdevice-instance-' . $instance);
|
||||
$crit = $self->{perfdata}->get_perfdata_for_output(label => 'critical-coolingdevice-instance-' . $instance);
|
||||
}
|
||||
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Cooling device '%s' is %s rpm", $result->{coolingDeviceLocationName}, $result->{coolingDeviceReading}));
|
||||
}
|
||||
$self->{output}->perfdata_add(label => 'fan_' . $result->{coolingDeviceLocationName}, unit => 'rpm',
|
||||
value => $result->{coolingDeviceReading},
|
||||
warning => $warn,
|
||||
critical => $crit,
|
||||
);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
@ -0,0 +1,74 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::components::coolingunit;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::server::dell::idrac::snmp::mode::components::resources qw(%map_status %map_state);
|
||||
|
||||
my $mapping = {
|
||||
coolingUnitStateSettings => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.10.1.4', map => \%map_state },
|
||||
coolingUnitName => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.10.1.7' },
|
||||
coolingUnitStatus => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.10.1.8', map => \%map_status },
|
||||
};
|
||||
my $oid_coolingUnitTableEntry = '.1.3.6.1.4.1.674.10892.5.4.700.10.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_coolingUnitTableEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking cooling units");
|
||||
$self->{components}->{coolingunit} = {name => 'cooling units', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'coolingunit'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_coolingUnitTableEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{coolingUnitStatus}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_coolingUnitTableEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'coolingunit', instance => $instance));
|
||||
$self->{components}->{coolingunit}->{total}++;
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("cooling unit '%s' status is '%s' [instance = %s] [state = %s]",
|
||||
$result->{coolingUnitName}, $result->{coolingUnitStatus}, $instance,
|
||||
$result->{coolingUnitStateSettings}));
|
||||
|
||||
my $exit = $self->get_severity(label => 'default.state', section => 'coolingunit.state', value => $result->{coolingUnitStateSettings});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Cooling unit '%s' state is '%s'", $result->{coolingUnitName}, $result->{coolingUnitStateSettings}));
|
||||
next;
|
||||
}
|
||||
|
||||
$exit = $self->get_severity(label => 'default.status', section => 'coolingunit.status', value => $result->{coolingUnitStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Cooling unit '%s' status is '%s'", $result->{coolingUnitName}, $result->{coolingUnitStatus}));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
66
hardware/server/dell/idrac/snmp/mode/components/fru.pm
Normal file
66
hardware/server/dell/idrac/snmp/mode/components/fru.pm
Normal file
@ -0,0 +1,66 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::components::fru;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::server::dell::idrac::snmp::mode::components::resources qw(%map_status);
|
||||
|
||||
my $mapping = {
|
||||
fruInformationStatus => { oid => '.1.3.6.1.4.1.674.10892.5.4.2000.10.1.3', map => \%map_status },
|
||||
fruSerialNumberName => { oid => '.1.3.6.1.4.1.674.10892.5.4.2000.10.1.7' },
|
||||
};
|
||||
my $oid_fruTableEntry = '.1.3.6.1.4.1.674.10892.5.4.2000.10.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_fruTableEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking fru");
|
||||
$self->{components}->{fru} = {name => 'fru', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'fru'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_fruTableEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{fruInformationStatus}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_fruTableEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'fru', instance => $instance));
|
||||
$self->{components}->{fru}->{total}++;
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("fru '%s' status is '%s' [instance = %s]",
|
||||
$result->{fruSerialNumberName}, $result->{fruInformationStatus}, $instance,
|
||||
));
|
||||
|
||||
my $exit = $self->get_severity(label => 'default.status', section => 'fru.status', value => $result->{fruInformationStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Fru '%s' status is '%s'", $result->{fruSerialNumberName}, $result->{fruInformationStatus}));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
74
hardware/server/dell/idrac/snmp/mode/components/memory.pm
Normal file
74
hardware/server/dell/idrac/snmp/mode/components/memory.pm
Normal file
@ -0,0 +1,74 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::components::memory;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::server::dell::idrac::snmp::mode::components::resources qw(%map_status %map_state);
|
||||
|
||||
my $mapping = {
|
||||
memoryDeviceStateSettings => { oid => '.1.3.6.1.4.1.674.10892.5.4.1100.50.1.4', map => \%map_state },
|
||||
memoryDeviceStatus => { oid => '.1.3.6.1.4.1.674.10892.5.4.1100.50.1.5', map => \%map_status },
|
||||
memoryDeviceLocationName => { oid => '.1.3.6.1.4.1.674.10892.5.4.1100.50.1.8' },
|
||||
};
|
||||
my $oid_memoryDeviceTableEntry = '.1.3.6.1.4.1.674.10892.5.4.1100.50.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_memoryDeviceTableEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking memories");
|
||||
$self->{components}->{memory} = {name => 'memories', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'memory'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_memoryDeviceTableEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{memoryDeviceStatus}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_memoryDeviceTableEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'memory', instance => $instance));
|
||||
$self->{components}->{memory}->{total}++;
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("memory '%s' status is '%s' [instance = %s] [state = %s]",
|
||||
$result->{memoryDeviceLocationName}, $result->{memoryDeviceStatus}, $instance,
|
||||
$result->{memoryDeviceStateSettings}));
|
||||
|
||||
my $exit = $self->get_severity(label => 'default.state', section => 'memory.state', value => $result->{memoryDeviceStateSettings});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Memory '%s' state is '%s'", $result->{memoryDeviceLocationName}, $result->{memoryDeviceStateSettings}));
|
||||
next;
|
||||
}
|
||||
|
||||
$exit = $self->get_severity(label => 'default.status', section => 'memory.status', value => $result->{memoryDeviceStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Memory '%s' status is '%s'", $result->{memoryDeviceLocationName}, $result->{memoryDeviceStatus}));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
66
hardware/server/dell/idrac/snmp/mode/components/network.pm
Normal file
66
hardware/server/dell/idrac/snmp/mode/components/network.pm
Normal file
@ -0,0 +1,66 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::components::network;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::server::dell::idrac::snmp::mode::components::resources qw(%map_status);
|
||||
|
||||
my $mapping = {
|
||||
networkDeviceStatus => { oid => '.1.3.6.1.4.1.674.10892.5.4.1100.90.1.3', map => \%map_status },
|
||||
networkDeviceProductName => { oid => '.1.3.6.1.4.1.674.10892.5.4.1100.90.1.6' },
|
||||
};
|
||||
my $oid_networkDeviceTableEntry = '.1.3.6.1.4.1.674.10892.5.4.1100.90.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_networkDeviceTableEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking networks");
|
||||
$self->{components}->{network} = {name => 'networks', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'network'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_networkDeviceTableEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{networkDeviceStatus}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_networkDeviceTableEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'network', instance => $instance));
|
||||
$self->{components}->{network}->{total}++;
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("network '%s' status is '%s' [instance = %s]",
|
||||
$result->{networkDeviceProductName}, $result->{networkDeviceStatus}, $instance,
|
||||
));
|
||||
|
||||
my $exit = $self->get_severity(label => 'default.status', section => 'network.status', value => $result->{networkDeviceStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Network '%s' status is '%s'", $result->{networkDeviceProductName}, $result->{networkDeviceStatus}));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
74
hardware/server/dell/idrac/snmp/mode/components/pci.pm
Normal file
74
hardware/server/dell/idrac/snmp/mode/components/pci.pm
Normal file
@ -0,0 +1,74 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::components::pci;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::server::dell::idrac::snmp::mode::components::resources qw(%map_status %map_state);
|
||||
|
||||
my $mapping = {
|
||||
pCIDeviceStateSettings => { oid => '.1.3.6.1.4.1.674.10892.5.4.1100.80.1.4', map => \%map_state },
|
||||
pCIDeviceStatus => { oid => '.1.3.6.1.4.1.674.10892.5.4.1100.80.1.5', map => \%map_status },
|
||||
pCIDeviceDescriptionName => { oid => '.1.3.6.1.4.1.674.10892.5.4.1100.80.1.9' },
|
||||
};
|
||||
my $oid_pCIDeviceTableEntry = '.1.3.6.1.4.1.674.10892.5.4.1100.80.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_pCIDeviceTableEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking pci");
|
||||
$self->{components}->{pci} = {name => 'pci', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'pci'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_pCIDeviceTableEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{pCIDeviceStatus}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_pCIDeviceTableEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'pci', instance => $instance));
|
||||
$self->{components}->{pci}->{total}++;
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("pci '%s' status is '%s' [instance = %s] [state = %s]",
|
||||
$result->{pCIDeviceDescriptionName}, $result->{pCIDeviceStatus}, $instance,
|
||||
$result->{pCIDeviceStateSettings}));
|
||||
|
||||
my $exit = $self->get_severity(label => 'default.state', section => 'pci.state', value => $result->{pCIDeviceStateSettings});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("PCI '%s' state is '%s'", $result->{pCIDeviceDescriptionName}, $result->{pCIDeviceStateSettings}));
|
||||
next;
|
||||
}
|
||||
|
||||
$exit = $self->get_severity(label => 'default.status', section => 'pci.status', value => $result->{pCIDeviceStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("PCI '%s' status is '%s'", $result->{pCIDeviceDescriptionName}, $result->{pCIDeviceStatus}));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
74
hardware/server/dell/idrac/snmp/mode/components/pdisk.pm
Normal file
74
hardware/server/dell/idrac/snmp/mode/components/pdisk.pm
Normal file
@ -0,0 +1,74 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::components::pdisk;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::server::dell::idrac::snmp::mode::components::resources qw(%map_status %map_pdisk_state);
|
||||
|
||||
my $mapping = {
|
||||
physicalDiskState => { oid => '.1.3.6.1.4.1.674.10892.5.5.1.20.130.4.1.4', map => \%map_pdisk_state },
|
||||
physicalDiskComponentStatus => { oid => '.1.3.6.1.4.1.674.10892.5.5.1.20.130.4.1.24', map => \%map_status },
|
||||
physicalDiskFQDD => { oid => '.1.3.6.1.4.1.674.10892.5.5.1.20.130.4.1.54' },
|
||||
};
|
||||
my $oid_physicalDiskTableEntry = '.1.3.6.1.4.1.674.10892.5.5.1.20.130.4.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_physicalDiskTableEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking physical disks");
|
||||
$self->{components}->{pdisk} = {name => 'physical disks', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'pdisk'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_physicalDiskTableEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{physicalDiskComponentStatus}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_physicalDiskTableEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'pdisk', instance => $instance));
|
||||
$self->{components}->{pdisk}->{total}++;
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("power unit '%s' status is '%s' [instance = %s] [state = %s]",
|
||||
$result->{physicalDiskFQDD}, $result->{physicalDiskComponentStatus}, $instance,
|
||||
$result->{physicalDiskState}));
|
||||
|
||||
my $exit = $self->get_severity(section => 'pdisk.state', value => $result->{physicalDiskState});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Power unit '%s' state is '%s'", $result->{physicalDiskFQDD}, $result->{physicalDiskState}));
|
||||
next;
|
||||
}
|
||||
|
||||
$exit = $self->get_severity(label => 'default.status', section => 'pdisk.status', value => $result->{physicalDiskComponentStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Power unit '%s' status is '%s'", $result->{physicalDiskFQDD}, $result->{physicalDiskComponentStatus}));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
74
hardware/server/dell/idrac/snmp/mode/components/processor.pm
Normal file
74
hardware/server/dell/idrac/snmp/mode/components/processor.pm
Normal file
@ -0,0 +1,74 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::components::processor;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::server::dell::idrac::snmp::mode::components::resources qw(%map_status %map_state);
|
||||
|
||||
my $mapping = {
|
||||
processorDeviceStatusStateSettings => { oid => '.1.3.6.1.4.1.674.10892.5.4.1100.32.1.4', map => \%map_state },
|
||||
processorDeviceStatusStatus => { oid => '.1.3.6.1.4.1.674.10892.5.4.1100.32.1.5', map => \%map_status },
|
||||
processorDeviceStatusLocationName => { oid => '.1.3.6.1.4.1.674.10892.5.4.1100.32.1.7' },
|
||||
};
|
||||
my $oid_processorDeviceStatusTableEntry = '.1.3.6.1.4.1.674.10892.5.4.1100.32.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_processorDeviceStatusTableEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking processors");
|
||||
$self->{components}->{processor} = {name => 'processors', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'processor'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_processorDeviceStatusTableEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{processorDeviceStatusStatus}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_processorDeviceStatusTableEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'processor', instance => $instance));
|
||||
$self->{components}->{processor}->{total}++;
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("processor '%s' status is '%s' [instance = %s] [state = %s]",
|
||||
$result->{processorDeviceStatusLocationName}, $result->{processorDeviceStatusStatus}, $instance,
|
||||
$result->{processorDeviceStatusStateSettings}));
|
||||
|
||||
my $exit = $self->get_severity(label => 'default.state', section => 'processor.state', value => $result->{processorDeviceStatusStateSettings});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Processor '%s' state is '%s'", $result->{processorDeviceStatusLocationName}, $result->{processorDeviceStatusStateSettings}));
|
||||
next;
|
||||
}
|
||||
|
||||
$exit = $self->get_severity(label => 'default.status', section => 'processor.status', value => $result->{processorDeviceStatusStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Processor '%s' status is '%s'", $result->{processorDeviceStatusLocationName}, $result->{processorDeviceStatusStatus}));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
67
hardware/server/dell/idrac/snmp/mode/components/psu.pm
Normal file
67
hardware/server/dell/idrac/snmp/mode/components/psu.pm
Normal file
@ -0,0 +1,67 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::components::psu;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::server::dell::idrac::snmp::mode::components::resources qw(%map_status);
|
||||
|
||||
my $mapping = {
|
||||
powerSupplyStatus => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.12.1.5', map => \%map_status },
|
||||
powerSupplyLocationName => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.12.1.8' },
|
||||
};
|
||||
my $oid_powerSupplyTableEntry = '.1.3.6.1.4.1.674.10892.5.4.600.12.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_powerSupplyTableEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking power supplies");
|
||||
$self->{components}->{psu} = {name => 'power supplies', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'psu'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_powerSupplyTableEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{powerSupplyStatus}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_powerSupplyTableEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'psu', instance => $instance));
|
||||
$self->{components}->{psu}->{total}++;
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("power supply '%s' status is '%s' [instance = %s]",
|
||||
$result->{powerSupplyLocationName}, $result->{powerSupplyStatus}, $instance,
|
||||
));
|
||||
|
||||
|
||||
my $exit = $self->get_severity(label => 'default.status', section => 'psu.status', value => $result->{powerSupplyStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Power supply '%s' status is '%s'", $result->{powerSupplyLocationName}, $result->{powerSupplyStatus}));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
74
hardware/server/dell/idrac/snmp/mode/components/punit.pm
Normal file
74
hardware/server/dell/idrac/snmp/mode/components/punit.pm
Normal file
@ -0,0 +1,74 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::components::punit;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::server::dell::idrac::snmp::mode::components::resources qw(%map_status %map_state);
|
||||
|
||||
my $mapping = {
|
||||
powerUnitStateSettings => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.10.1.4', map => \%map_state },
|
||||
powerUnitName => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.10.1.7' },
|
||||
powerUnitStatus => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.10.1.8', map => \%map_status },
|
||||
};
|
||||
my $oid_powerUnitTableEntry = '.1.3.6.1.4.1.674.10892.5.4.600.10.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_powerUnitTableEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking power units");
|
||||
$self->{components}->{punit} = {name => 'power units', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'punit'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_powerUnitTableEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{powerUnitStatus}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_powerUnitTableEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'punit', instance => $instance));
|
||||
$self->{components}->{punit}->{total}++;
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("power unit '%s' status is '%s' [instance = %s] [state = %s]",
|
||||
$result->{powerUnitName}, $result->{powerUnitStatus}, $instance,
|
||||
$result->{powerUnitStateSettings}));
|
||||
|
||||
my $exit = $self->get_severity(label => 'default.state', section => 'punit.state', value => $result->{powerUnitStateSettings});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Power unit '%s' state is '%s'", $result->{powerUnitName}, $result->{powerUnitStateSettings}));
|
||||
next;
|
||||
}
|
||||
|
||||
$exit = $self->get_severity(label => 'default.status', section => 'punit.status', value => $result->{powerUnitStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Power unit '%s' status is '%s'", $result->{powerUnitName}, $result->{powerUnitStatus}));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
108
hardware/server/dell/idrac/snmp/mode/components/resources.pm
Normal file
108
hardware/server/dell/idrac/snmp/mode/components/resources.pm
Normal file
@ -0,0 +1,108 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::components::resources;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Exporter;
|
||||
|
||||
our %map_state;
|
||||
our %map_status;
|
||||
our %map_probe_status;
|
||||
our %map_amperage_type;
|
||||
our %map_pdisk_state;
|
||||
our %map_vdisk_state;
|
||||
|
||||
our @ISA = qw(Exporter);
|
||||
our @EXPORT_OK = qw(%map_probe_status %map_state %map_status %map_amperage_type %map_pdisk_state %map_vdisk_state);
|
||||
|
||||
%map_probe_status = (
|
||||
1 => 'other',
|
||||
2 => 'unknown',
|
||||
3 => 'ok',
|
||||
4 => 'nonCriticalUpper',
|
||||
5 => 'criticalUpper',
|
||||
6 => 'nonRecoverableUpper',
|
||||
7 => 'nonCriticalLower',
|
||||
8 => 'criticalLower',
|
||||
9 => 'nonRecoverableLower',
|
||||
10 => 'failed',
|
||||
);
|
||||
|
||||
%map_status = (
|
||||
1 => 'other',
|
||||
2 => 'unknown',
|
||||
3 => 'ok',
|
||||
4 => 'nonCritical',
|
||||
5 => 'critical',
|
||||
6 => 'nonRecoverable',
|
||||
);
|
||||
|
||||
%map_state = (
|
||||
1 => 'unknown',
|
||||
2 => 'enabled',
|
||||
4 => 'notReady',
|
||||
6 => 'enabledAndNotReady',
|
||||
);
|
||||
|
||||
%map_pdisk_state = (
|
||||
1 => 'unknown',
|
||||
2 => 'ready',
|
||||
3 => 'online',
|
||||
4 => 'foreign',
|
||||
5 => 'offline',
|
||||
6 => 'blocked',
|
||||
7 => 'failed',
|
||||
8 => 'non-raid',
|
||||
9 => 'removed',
|
||||
);
|
||||
|
||||
%map_vdisk_state = (
|
||||
1 => 'unknown',
|
||||
2 => 'online',
|
||||
3 => 'failed',
|
||||
4 => 'degraded',
|
||||
);
|
||||
|
||||
%map_amperage_type = (
|
||||
1 => 'amperageProbeTypeIsOther',
|
||||
2 => 'amperageProbeTypeIsUnknown',
|
||||
3 => 'amperageProbeTypeIs1Point5Volt',
|
||||
4 => 'amperageProbeTypeIs3Point3volt',
|
||||
5 => 'amperageProbeTypeIs5Volt',
|
||||
6 => 'amperageProbeTypeIsMinus5Volt',
|
||||
7 => 'amperageProbeTypeIs12Volt',
|
||||
8 => 'amperageProbeTypeIsMinus12Volt',
|
||||
9 => 'amperageProbeTypeIsIO',
|
||||
10 => 'amperageProbeTypeIsCore',
|
||||
11 => 'amperageProbeTypeIsFLEA',
|
||||
12 => 'amperageProbeTypeIsBattery',
|
||||
13 => 'amperageProbeTypeIsTerminator',
|
||||
14 => 'amperageProbeTypeIs2Point5Volt',
|
||||
15 => 'amperageProbeTypeIsGTL',
|
||||
16 => 'amperageProbeTypeIsDiscrete',
|
||||
23 => 'amperageProbeTypeIsPowerSupplyAmps',
|
||||
24 => 'amperageProbeTypeIsPowerSupplyWatts',
|
||||
25 => 'amperageProbeTypeIsSystemAmps',
|
||||
26 => 'amperageProbeTypeIsSystemWatts',
|
||||
);
|
||||
|
||||
1;
|
||||
66
hardware/server/dell/idrac/snmp/mode/components/slot.pm
Normal file
66
hardware/server/dell/idrac/snmp/mode/components/slot.pm
Normal file
@ -0,0 +1,66 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::components::slot;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::server::dell::idrac::snmp::mode::components::resources qw(%map_status);
|
||||
|
||||
my $mapping = {
|
||||
systemSlotStatus => { oid => '.1.3.6.1.4.1.674.10892.5.4.1200.10.1.5', map => \%map_status },
|
||||
systemSlotSlotExternalSlotName => { oid => '.1.3.6.1.4.1.674.10892.5.4.1200.10.1.8' },
|
||||
};
|
||||
my $oid_systemSlotTableEntry = '.1.3.6.1.4.1.674.10892.5.4.1200.10.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_systemSlotTableEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking slots");
|
||||
$self->{components}->{slot} = {name => 'slots', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'slot'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_systemSlotTableEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{systemSlotStatus}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_systemSlotTableEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'slot', instance => $instance));
|
||||
$self->{components}->{slot}->{total}++;
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("slot '%s' status is '%s' [instance = %s]",
|
||||
$result->{systemSlotSlotExternalSlotName}, $result->{systemSlotStatus}, $instance,
|
||||
));
|
||||
|
||||
my $exit = $self->get_severity(label => 'default.status', section => 'slot.status', value => $result->{systemSlotStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Slot '%s' status is '%s'", $result->{systemSlotSlotExternalSlotName}, $result->{systemSlotStatus}));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
@ -0,0 +1,66 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::components::storagebattery;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::server::dell::idrac::snmp::mode::components::resources qw(%map_status);
|
||||
|
||||
my $mapping = {
|
||||
batteryComponentStatus => { oid => '.1.3.6.1.4.1.674.10892.5.5.1.20.130.15.1.6', map => \%map_status },
|
||||
batteryFQDD => { oid => '.1.3.6.1.4.1.674.10892.5.5.1.20.130.15.1.20' },
|
||||
};
|
||||
my $oid_batteryTableEntry = '.1.3.6.1.4.1.674.10892.5.5.1.20.130.15.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_batteryTableEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking storage batteries");
|
||||
$self->{components}->{storagebattery} = {name => 'storage batteries', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'storagebattery'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_batteryTableEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{batteryComponentStatus}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_batteryTableEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'storagebattery', instance => $instance));
|
||||
$self->{components}->{storagebattery}->{total}++;
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("storage battery '%s' status is '%s' [instance = %s]",
|
||||
$result->{batteryFQDD}, $result->{batteryComponentStatus}, $instance,
|
||||
));
|
||||
|
||||
my $exit = $self->get_severity(label => 'default.status', section => 'storagebattery.status', value => $result->{batteryComponentStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Storage battery '%s' status is '%s'", $result->{batteryFQDD}, $result->{batteryComponentStatus}));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
@ -0,0 +1,66 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::components::storagectrl;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::server::dell::idrac::snmp::mode::components::resources qw(%map_status);
|
||||
|
||||
my $mapping = {
|
||||
controllerComponentStatus => { oid => '.1.3.6.1.4.1.674.10892.5.5.1.20.130.1.1.38', map => \%map_status },
|
||||
controllerFQDD => { oid => '.1.3.6.1.4.1.674.10892.5.5.1.20.130.1.1.78' },
|
||||
};
|
||||
my $oid_controllerTableEntry = '.1.3.6.1.4.1.674.10892.5.5.1.20.130.1.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_controllerTableEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking storage controllers");
|
||||
$self->{components}->{storagectrl} = {name => 'storage controllers', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'storagectrl'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_controllerTableEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{controllerComponentStatus}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_controllerTableEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'storagectrl', instance => $instance));
|
||||
$self->{components}->{storagectrl}->{total}++;
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("storage controller '%s' status is '%s' [instance = %s]",
|
||||
$result->{controllerFQDD}, $result->{controllerComponentStatus}, $instance,
|
||||
));
|
||||
|
||||
my $exit = $self->get_severity(label => 'default.status', section => 'storagectrl.status', value => $result->{controllerComponentStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Storage controllers '%s' status is '%s'", $result->{controllerFQDD}, $result->{controllerComponentStatus}));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
@ -0,0 +1,74 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::components::systembattery;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::server::dell::idrac::snmp::mode::components::resources qw(%map_status %map_state);
|
||||
|
||||
my $mapping = {
|
||||
systemBatteryStateSettings => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.50.1.4', map => \%map_state },
|
||||
systemBatteryStatus => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.50.1.5', map => \%map_status },
|
||||
systemBatteryLocationName => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.50.1.7' },
|
||||
};
|
||||
my $oid_systemBatteryTableEntry = '.1.3.6.1.4.1.674.10892.5.4.600.50.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_systemBatteryTableEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking system batteries");
|
||||
$self->{components}->{systembattery} = {name => 'system batteries', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'systembattery'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_systemBatteryTableEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{systemBatteryStatus}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_systemBatteryTableEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'systembattery', instance => $instance));
|
||||
$self->{components}->{systembattery}->{total}++;
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("system battery '%s' status is '%s' [instance = %s] [state = %s]",
|
||||
$result->{systemBatteryLocationName}, $result->{systemBatteryStatus}, $instance,
|
||||
$result->{systemBatteryStateSettings}));
|
||||
|
||||
my $exit = $self->get_severity(label => 'default.state', section => 'systembattery.state', value => $result->{systemBatteryStateSettings});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("System battery '%s' state is '%s'", $result->{systemBatteryLocationName}, $result->{systemBatteryStateSettings}));
|
||||
next;
|
||||
}
|
||||
|
||||
$exit = $self->get_severity(label => 'default.status', section => 'systembattery.status', value => $result->{systemBatteryStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("System battery '%s' status is '%s'", $result->{systemBatteryLocationName}, $result->{systemBatteryStatus}));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
@ -22,25 +22,8 @@ package hardware::server::dell::idrac::snmp::mode::components::temperature;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::server::dell::idrac::snmp::mode::components::resources qw(%map_probe_status %map_state);
|
||||
|
||||
my %map_temp_status = (
|
||||
1 => 'other',
|
||||
2 => 'unknown',
|
||||
3 => 'ok',
|
||||
4 => 'nonCriticalUpper',
|
||||
5 => 'criticalUpper',
|
||||
6 => 'nonRecoverableUpper',
|
||||
7 => 'nonCriticalLower',
|
||||
8 => 'criticalLower',
|
||||
9 => 'nonRecoverableLower',
|
||||
10 => 'failed',
|
||||
);
|
||||
my %map_temp_state = (
|
||||
1 => 'unknown',
|
||||
2 => 'enabled',
|
||||
4 => 'notReady',
|
||||
6 => 'enabledAndNotReady',
|
||||
);
|
||||
my %map_temp_type = (
|
||||
1 => 'temperatureProbeTypeIsOther',
|
||||
2 => 'temperatureProbeTypeIsUnknown',
|
||||
@ -49,22 +32,22 @@ my %map_temp_type = (
|
||||
);
|
||||
|
||||
my $mapping = {
|
||||
temperatureProbeStateSettings => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.20.1.4', map => \%map_temp_state },
|
||||
temperatureProbeStatus => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.20.1.5', map => \%map_temp_status },
|
||||
temperatureProbeStateSettings => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.20.1.4', map => \%map_state },
|
||||
temperatureProbeStatus => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.20.1.5', map => \%map_probe_status },
|
||||
temperatureProbeReading => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.20.1.6' },
|
||||
temperatureProbeType => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.20.1.7', map => \%map_temp_type },
|
||||
temperatureProbeLocationName => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.20.1.8' },
|
||||
temperatureProbeUpperCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.20.1.10' },
|
||||
temperatureProbeUpperNonCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.20.1.10' },
|
||||
temperatureProbeLowerNonCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.20.1.11' },
|
||||
temperatureProbeLowerCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.20.1.12' },
|
||||
temperatureProbeUpperNonCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.20.1.11' },
|
||||
temperatureProbeLowerNonCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.20.1.12' },
|
||||
temperatureProbeLowerCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.700.20.1.13' },
|
||||
};
|
||||
my $oid_temperatureProbeTableEntry = '.1.3.6.1.4.1.674.10892.5.4.700.20.1';
|
||||
|
||||
sub load {
|
||||
my (%options) = @_;
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$options{request}}, { oid => $oid_temperatureProbeTableEntry, begin => $mapping->{temperatureProbeStateSettings}->{oid}, end => $mapping->{temperatureProbeLowerCriticalThreshold}->{oid} };
|
||||
push @{$self->{request}}, { oid => $oid_temperatureProbeTableEntry, begin => $mapping->{temperatureProbeStateSettings}->{oid}, end => $mapping->{temperatureProbeLowerCriticalThreshold}->{oid} };
|
||||
}
|
||||
|
||||
sub check {
|
||||
@ -72,29 +55,29 @@ sub check {
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking temperatures");
|
||||
$self->{components}->{temperature} = {name => 'temperatures', total => 0, skip => 0};
|
||||
return if ($self->check_exclude(section => 'temperature'));
|
||||
return if ($self->check_filter(section => 'temperature'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_temperatureProbeTableEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{temperatureProbeStatus}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_temperatureProbeTableEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_exclude(section => 'temperature', instance => $instance));
|
||||
next if ($self->check_filter(section => 'temperature', instance => $instance));
|
||||
$self->{components}->{temperature}->{total}++;
|
||||
|
||||
$result->{temperatureProbeReading} = (defined($result->{temperatureProbeReading})) ? $result->{temperatureProbeReading} / 10 : 'unknown';
|
||||
$self->{output}->output_add(long_msg => sprintf("Temperature '%s' status is '%s' [instance = %s] [state = %s] [value = %s]",
|
||||
$self->{output}->output_add(long_msg => sprintf("temperature '%s' status is '%s' [instance = %s] [state = %s] [value = %s]",
|
||||
$result->{temperatureProbeLocationName}, $result->{temperatureProbeStatus}, $instance,
|
||||
$result->{temperatureProbeStateSettings}, $result->{temperatureProbeReading}));
|
||||
|
||||
my $exit = $self->get_severity(section => 'temperature-state', value => $result->{temperatureProbeStateSettings});
|
||||
my $exit = $self->get_severity(label => 'default.state', section => 'temperature.state', value => $result->{temperatureProbeStateSettings});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Temperature '%s' state is '%s'", $result->{temperatureProbeLocationName}, $result->{temperatureProbeStateSettings}));
|
||||
next;
|
||||
}
|
||||
|
||||
$exit = $self->get_severity(section => 'temperature-status', value => $result->{temperatureProbeStatus});
|
||||
$exit = $self->get_severity(label => 'probe.status', section => 'temperature.status', value => $result->{temperatureProbeStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Temperature '%s' status is '%s'", $result->{temperatureProbeLocationName}, $result->{temperatureProbeStatus}));
|
||||
@ -103,7 +86,15 @@ sub check {
|
||||
if (defined($result->{temperatureProbeReading}) && $result->{temperatureProbeReading} =~ /[0-9]/) {
|
||||
my ($exit, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'temperature', instance => $instance, value => $result->{temperatureProbeReading});
|
||||
if ($checked == 0) {
|
||||
my $warn_th = $result->{temperatureProbeLowerNonCriticalThreshold} . ':' . $result->{temperatureProbeUpperCriticalThreshold};
|
||||
$result->{temperatureProbeLowerNonCriticalThreshold} = (defined($result->{temperatureProbeLowerNonCriticalThreshold}) && $result->{temperatureProbeLowerNonCriticalThreshold} =~ /[0-9]/) ?
|
||||
$result->{temperatureProbeLowerNonCriticalThreshold} / 10 : '';
|
||||
$result->{temperatureProbeLowerCriticalThreshold} = (defined($result->{temperatureProbeLowerCriticalThreshold}) && $result->{temperatureProbeLowerCriticalThreshold} =~ /[0-9]/) ?
|
||||
$result->{temperatureProbeLowerCriticalThreshold} / 10 : '';
|
||||
$result->{temperatureProbeUpperNonCriticalThreshold} = (defined($result->{temperatureProbeUpperNonCriticalThreshold}) && $result->{temperatureProbeUpperNonCriticalThreshold} =~ /[0-9]/) ?
|
||||
$result->{temperatureProbeUpperNonCriticalThreshold} / 10 : '';
|
||||
$result->{temperatureProbeUpperCriticalThreshold} = (defined($result->{temperatureProbeUpperCriticalThreshold}) && $result->{temperatureProbeUpperCriticalThreshold} =~ /[0-9]/) ?
|
||||
$result->{temperatureProbeUpperCriticalThreshold} / 10 : '';
|
||||
my $warn_th = $result->{temperatureProbeLowerNonCriticalThreshold} . ':' . $result->{temperatureProbeUpperNonCriticalThreshold};
|
||||
my $crit_th = $result->{temperatureProbeLowerCriticalThreshold} . ':' . $result->{temperatureProbeUpperCriticalThreshold};
|
||||
$self->{perfdata}->threshold_validate(label => 'warning-temperature-instance-' . $instance, value => $warn_th);
|
||||
$self->{perfdata}->threshold_validate(label => 'critical-temperature-instance-' . $instance, value => $crit_th);
|
||||
@ -111,14 +102,14 @@ sub check {
|
||||
$exit = $self->{perfdata}->threshold_check(value => $result->{temperatureProbeReading}, threshold => [ { label => 'critical-temperature-instance-' . $instance, exit_litteral => 'critical' },
|
||||
{ label => 'warning-temperature-instance-' . $instance, exit_litteral => 'warning' } ]);
|
||||
$warn = $self->{perfdata}->get_perfdata_for_output(label => 'warning-temperature-instance-' . $instance);
|
||||
$crit = $self->{perfdata}->get_perfdata_for_output(label => 'critical-temperature-instance-' . $instance)
|
||||
$crit = $self->{perfdata}->get_perfdata_for_output(label => 'critical-temperature-instance-' . $instance);
|
||||
}
|
||||
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Temperature '%s' is %s degree centigrade", $result->{temperatureProbeLocationName}, $result->{temperatureProbeReading}));
|
||||
}
|
||||
$self->{output}->perfdata_add(label => 'temp_' . $instance, unit => 'C',
|
||||
$self->{output}->perfdata_add(label => 'temp_' . $result->{temperatureProbeLocationName}, unit => 'C',
|
||||
value => $result->{temperatureProbeReading},
|
||||
warning => $warn,
|
||||
critical => $crit,
|
||||
|
||||
67
hardware/server/dell/idrac/snmp/mode/components/vdisk.pm
Normal file
67
hardware/server/dell/idrac/snmp/mode/components/vdisk.pm
Normal file
@ -0,0 +1,67 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::components::vdisk;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::server::dell::idrac::snmp::mode::components::resources qw(%map_vdisk_state);
|
||||
|
||||
my $mapping = {
|
||||
virtualDiskState => { oid => '.1.3.6.1.4.1.674.10892.5.5.1.20.140.1.1.4', map => \%map_vdisk_state },
|
||||
virtualDiskFQDD => { oid => '.1.3.6.1.4.1.674.10892.5.5.1.20.140.1.1.35' },
|
||||
};
|
||||
my $oid_virtualDiskTableEntry = '.1.3.6.1.4.1.674.10892.5.5.1.20.140.1.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_virtualDiskTableEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking virtual disks");
|
||||
$self->{components}->{vdisk} = {name => 'virtual disks', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'vdisk'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_virtualDiskTableEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{virtualDiskState}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_virtualDiskTableEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'vdisk', instance => $instance));
|
||||
$self->{components}->{vdisk}->{total}++;
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("virtual disk '%s' state is '%s' [instance = %s]",
|
||||
$result->{virtualDiskFQDD}, $result->{virtualDiskState}, $instance,
|
||||
));
|
||||
|
||||
my $exit = $self->get_severity(section => 'vdisk.state', value => $result->{virtualDiskState});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Virtual disk '%s' state is '%s'", $result->{virtualDiskFQDD}, $result->{virtualDiskState}));
|
||||
next;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
113
hardware/server/dell/idrac/snmp/mode/components/voltage.pm
Normal file
113
hardware/server/dell/idrac/snmp/mode/components/voltage.pm
Normal file
@ -0,0 +1,113 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::components::voltage;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use hardware::server::dell::idrac::snmp::mode::components::resources qw(%map_probe_status %map_state);
|
||||
|
||||
my $mapping = {
|
||||
voltageProbeStateSettings => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.20.1.4', map => \%map_state },
|
||||
voltageProbeStatus => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.20.1.5', map => \%map_probe_status },
|
||||
voltageProbeReading => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.20.1.6' },
|
||||
voltageProbeLocationName => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.20.1.8' },
|
||||
voltageProbeUpperCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.20.1.10' },
|
||||
voltageProbeUpperNonCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.20.1.11' },
|
||||
voltageProbeLowerNonCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.20.1.12' },
|
||||
voltageProbeLowerCriticalThreshold => { oid => '.1.3.6.1.4.1.674.10892.5.4.600.20.1.13' },
|
||||
};
|
||||
my $oid_voltageProbeTableEntry = '.1.3.6.1.4.1.674.10892.5.4.600.20.1';
|
||||
|
||||
sub load {
|
||||
my ($self) = @_;
|
||||
|
||||
push @{$self->{request}}, { oid => $oid_voltageProbeTableEntry };
|
||||
}
|
||||
|
||||
sub check {
|
||||
my ($self) = @_;
|
||||
|
||||
$self->{output}->output_add(long_msg => "Checking voltages");
|
||||
$self->{components}->{voltage} = {name => 'voltages', total => 0, skip => 0};
|
||||
return if ($self->check_filter(section => 'voltage'));
|
||||
|
||||
foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_voltageProbeTableEntry}})) {
|
||||
next if ($oid !~ /^$mapping->{voltageProbeStatus}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_voltageProbeTableEntry}, instance => $instance);
|
||||
|
||||
next if ($self->check_filter(section => 'voltage', instance => $instance));
|
||||
$self->{components}->{voltage}->{total}++;
|
||||
|
||||
$result->{voltageProbeReading} = (defined($result->{voltageProbeReading})) ? $result->{voltageProbeReading} / 1000 : 'unknown';
|
||||
$self->{output}->output_add(long_msg => sprintf("voltage '%s' status is '%s' [instance = %s] [state = %s] [value = %s]",
|
||||
$result->{voltageProbeLocationName}, $result->{voltageProbeStatus}, $instance,
|
||||
$result->{voltageProbeStateSettings}, $result->{voltageProbeReading}));
|
||||
|
||||
my $exit = $self->get_severity(label => 'default.state', section => 'voltage.state', value => $result->{voltageProbeStateSettings});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Voltage '%s' state is '%s'", $result->{voltageProbeLocationName}, $result->{voltageProbeStateSettings}));
|
||||
next;
|
||||
}
|
||||
|
||||
$exit = $self->get_severity(label => 'probe.status', section => 'voltage.status', value => $result->{voltageProbeStatus});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Voltage '%s' status is '%s'", $result->{voltageProbeLocationName}, $result->{voltageProbeStatus}));
|
||||
}
|
||||
|
||||
if (defined($result->{voltageProbeReading}) && $result->{voltageProbeReading} =~ /[0-9]/) {
|
||||
my ($exit, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'voltage', instance => $instance, value => $result->{voltageProbeReading});
|
||||
if ($checked == 0) {
|
||||
$result->{voltageProbeLowerNonCriticalThreshold} = (defined($result->{voltageProbeLowerNonCriticalThreshold}) && $result->{voltageProbeLowerNonCriticalThreshold} =~ /[0-9]/) ?
|
||||
$result->{voltageProbeLowerNonCriticalThreshold} / 1000 : '';
|
||||
$result->{voltageProbeLowerCriticalThreshold} = (defined($result->{voltageProbeLowerCriticalThreshold}) && $result->{voltageProbeLowerCriticalThreshold} =~ /[0-9]/) ?
|
||||
$result->{voltageProbeLowerCriticalThreshold} / 1000 : '';
|
||||
$result->{voltageProbeUpperNonCriticalThreshold} = (defined($result->{voltageProbeUpperNonCriticalThreshold}) && $result->{voltageProbeUpperNonCriticalThreshold} =~ /[0-9]/) ?
|
||||
$result->{voltageProbeUpperNonCriticalThreshold} / 1000 : '';
|
||||
$result->{voltageProbeUpperCriticalThreshold} = (defined($result->{voltageProbeUpperCriticalThreshold}) && $result->{voltageProbeUpperCriticalThreshold} =~ /[0-9]/) ?
|
||||
$result->{voltageProbeUpperCriticalThreshold} / 1000 : '';
|
||||
my $warn_th = $result->{voltageProbeLowerNonCriticalThreshold} . ':' . $result->{voltageProbeUpperNonCriticalThreshold};
|
||||
my $crit_th = $result->{voltageProbeLowerCriticalThreshold} . ':' . $result->{voltageProbeUpperCriticalThreshold};
|
||||
$self->{perfdata}->threshold_validate(label => 'warning-voltage-instance-' . $instance, value => $warn_th);
|
||||
$self->{perfdata}->threshold_validate(label => 'critical-voltage-instance-' . $instance, value => $crit_th);
|
||||
|
||||
$exit = $self->{perfdata}->threshold_check(value => $result->{voltageProbeReading}, threshold => [ { label => 'critical-voltage-instance-' . $instance, exit_litteral => 'critical' },
|
||||
{ label => 'warning-voltage-instance-' . $instance, exit_litteral => 'warning' } ]);
|
||||
$warn = $self->{perfdata}->get_perfdata_for_output(label => 'warning-voltage-instance-' . $instance);
|
||||
$crit = $self->{perfdata}->get_perfdata_for_output(label => 'critical-voltage-instance-' . $instance);
|
||||
}
|
||||
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Voltage '%s' is %s V", $result->{voltageProbeLocationName}, $result->{voltageProbeReading}));
|
||||
}
|
||||
$self->{output}->perfdata_add(label => 'voltage_' . $result->{voltageProbeLocationName}, unit => 'V',
|
||||
value => $result->{voltageProbeReading},
|
||||
warning => $warn,
|
||||
critical => $crit,
|
||||
);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
@ -20,33 +20,78 @@
|
||||
|
||||
package hardware::server::dell::idrac::snmp::mode::hardware;
|
||||
|
||||
use base qw(centreon::plugins::mode);
|
||||
use base qw(centreon::plugins::templates::hardware);
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use centreon::plugins::misc;
|
||||
|
||||
my $thresholds = {
|
||||
'temperature-state' => [
|
||||
['unknown', 'UNKNOWN'],
|
||||
['enabled', 'OK'],
|
||||
['notReady', 'WARNING'],
|
||||
['enabledAndNotReady', 'WARNING'],
|
||||
['.*', 'UNKNOWN'],
|
||||
],
|
||||
'temperature-status' => [
|
||||
['other', 'UNKNOWN'],
|
||||
['unknown', 'UNKNOWN'],
|
||||
['ok', 'OK'],
|
||||
['nonCriticalUpper', 'WARNING'],
|
||||
['criticalUpper', 'CRITICAL'],
|
||||
['nonCriticalLower', 'WARNING'],
|
||||
['criticalLower', 'CRITICAL'],
|
||||
['nonRecoverableLower', 'CRITICAL'],
|
||||
['failed', 'CRITICAL'],
|
||||
['.*', 'UNKNOWN'],
|
||||
],
|
||||
};
|
||||
sub set_system {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{regexp_threshold_numeric_check_section_option} = '^(temperature|voltage|amperage|coolingdevice)$';
|
||||
|
||||
$self->{cb_hook2} = 'snmp_execute';
|
||||
|
||||
$self->{thresholds} = {
|
||||
'default.state' => [
|
||||
['unknown', 'UNKNOWN'],
|
||||
['enabled', 'OK'],
|
||||
['notReady', 'WARNING'],
|
||||
['enabledAndNotReady', 'WARNING'],
|
||||
],
|
||||
'default.status' => [
|
||||
['other', 'UNKNOWN'],
|
||||
['unknown', 'UNKNOWN'],
|
||||
['ok', 'OK'],
|
||||
['nonCritical', 'WARNING'],
|
||||
['critical', 'CRITICAL'],
|
||||
['nonRecoverable', 'CRITICAL'],
|
||||
],
|
||||
'probe.status' => [
|
||||
['other', 'UNKNOWN'],
|
||||
['unknown', 'UNKNOWN'],
|
||||
['ok', 'OK'],
|
||||
['nonCriticalUpper', 'WARNING'],
|
||||
['criticalUpper', 'CRITICAL'],
|
||||
['nonCriticalLower', 'WARNING'],
|
||||
['criticalLower', 'CRITICAL'],
|
||||
['nonRecoverableLower', 'CRITICAL'],
|
||||
['failed', 'CRITICAL'],
|
||||
],
|
||||
'pdisk.state' => [
|
||||
['unknown', 'UNKNOWN'],
|
||||
['ready', 'OK'],
|
||||
['online', 'OK'],
|
||||
['foreign', 'OK'],
|
||||
['offline', 'WARNING'],
|
||||
['blocked', 'WARNING'],
|
||||
['failed', 'CRITICAL'],
|
||||
['non-raid', 'OK'],
|
||||
['removed', 'OK'],
|
||||
],
|
||||
'vdisk.state' => [
|
||||
['unknown', 'UNKNOWN'],
|
||||
['online', 'OK'],
|
||||
['failed', 'CRITICAL'],
|
||||
['degraded', 'WARNING'],
|
||||
],
|
||||
};
|
||||
|
||||
$self->{components_path} = 'hardware::server::dell::idrac::snmp::mode::components';
|
||||
$self->{components_module} = ['psu', 'punit', 'temperature', 'voltage', 'amperage',
|
||||
'systembattery', 'coolingunit', 'coolingdevice', 'processor', 'memory', 'pci', 'network',
|
||||
'slot', 'fru', 'storagectrl', 'storagebattery', 'pdisk', 'vdisk'];
|
||||
|
||||
$self->{regexp_threshold_overload_check_section_option} =
|
||||
'^(' . join('|', @{$self->{components_module}}). ')$';
|
||||
}
|
||||
|
||||
sub snmp_execute {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{snmp} = $options{snmp};
|
||||
$self->{results} = $self->{snmp}->get_multiple_table(oids => $self->{request});
|
||||
}
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
@ -56,209 +101,32 @@ sub new {
|
||||
$self->{version} = '1.0';
|
||||
$options{options}->add_options(arguments =>
|
||||
{
|
||||
"exclude:s" => { name => 'exclude' },
|
||||
"component:s" => { name => 'component', default => '.*' },
|
||||
"no-component:s" => { name => 'no_component' },
|
||||
"threshold-overload:s@" => { name => 'threshold_overload' },
|
||||
"warning:s@" => { name => 'warning' },
|
||||
"critical:s@" => { name => 'critical' },
|
||||
});
|
||||
|
||||
$self->{components} = {};
|
||||
$self->{no_components} = undef;
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub check_options {
|
||||
my ($self, %options) = @_;
|
||||
$self->SUPER::init(%options);
|
||||
|
||||
if (defined($self->{option_results}->{no_component})) {
|
||||
if ($self->{option_results}->{no_component} ne '') {
|
||||
$self->{no_components} = $self->{option_results}->{no_component};
|
||||
} else {
|
||||
$self->{no_components} = 'critical';
|
||||
}
|
||||
}
|
||||
|
||||
$self->{overload_th} = {};
|
||||
foreach my $val (@{$self->{option_results}->{threshold_overload}}) {
|
||||
if ($val !~ /^(.*?),(.*?),(.*)$/) {
|
||||
$self->{output}->add_option_msg(short_msg => "Wrong threshold-overload option '" . $val . "'.");
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
my ($section, $status, $filter) = ($1, $2, $3);
|
||||
if ($self->{output}->is_litteral_status(status => $status) == 0) {
|
||||
$self->{output}->add_option_msg(short_msg => "Wrong threshold-overload status '" . $val . "'.");
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
$self->{overload_th}->{$section} = [] if (!defined($self->{overload_th}->{$section}));
|
||||
push @{$self->{overload_th}->{$section}}, {filter => $filter, status => $status};
|
||||
}
|
||||
|
||||
$self->{numeric_threshold} = {};
|
||||
foreach my $option (('warning', 'critical')) {
|
||||
foreach my $val (@{$self->{option_results}->{$option}}) {
|
||||
if ($val !~ /^(.*?),(.*?),(.*)$/) {
|
||||
$self->{output}->add_option_msg(short_msg => "Wrong $option option '" . $val . "'.");
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
my ($section, $regexp, $value) = ($1, $2, $3);
|
||||
if ($section !~ /(temperature)/) {
|
||||
$self->{output}->add_option_msg(short_msg => "Wrong $option option '" . $val . "' (type must be: temperature).");
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
my $position = 0;
|
||||
if (defined($self->{numeric_threshold}->{$section})) {
|
||||
$position = scalar(@{$self->{numeric_threshold}->{$section}});
|
||||
}
|
||||
if (($self->{perfdata}->threshold_validate(label => $option . '-' . $section . '-' . $position, value => $value)) == 0) {
|
||||
$self->{output}->add_option_msg(short_msg => "Wrong $option threshold '" . $value . "'.");
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
$self->{numeric_threshold}->{$section} = [] if (!defined($self->{numeric_threshold}->{$section}));
|
||||
push @{$self->{numeric_threshold}->{$section}}, { label => $option . '-' . $section . '-' . $position, threshold => $option, regexp => $regexp };
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub run {
|
||||
my ($self, %options) = @_;
|
||||
# $options{snmp} = snmp object
|
||||
$self->{snmp} = $options{snmp};
|
||||
|
||||
my $snmp_request = [];
|
||||
my @components = ('temperature');
|
||||
foreach (@components) {
|
||||
if (/$self->{option_results}->{component}/) {
|
||||
my $mod_name = "hardware::server::dell::idrac::snmp::mode::components::$_";
|
||||
centreon::plugins::misc::mymodule_load(output => $self->{output}, module => $mod_name,
|
||||
error_msg => "Cannot load module '$mod_name'.");
|
||||
my $func = $mod_name->can('load');
|
||||
$func->(request => $snmp_request);
|
||||
}
|
||||
}
|
||||
|
||||
if (scalar(@{$snmp_request}) == 0) {
|
||||
$self->{output}->add_option_msg(short_msg => "Wrong option. Cannot find component '" . $self->{option_results}->{component} . "'.");
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
$self->{results} = $self->{snmp}->get_multiple_table(oids => $snmp_request);
|
||||
|
||||
foreach (@components) {
|
||||
if (/$self->{option_results}->{component}/) {
|
||||
my $mod_name = "hardware::server::dell::idrac::snmp::mode::components::$_";
|
||||
my $func = $mod_name->can('check');
|
||||
$func->($self);
|
||||
}
|
||||
}
|
||||
|
||||
my $total_components = 0;
|
||||
my $display_by_component = '';
|
||||
my $display_by_component_append = '';
|
||||
foreach my $comp (sort(keys %{$self->{components}})) {
|
||||
# Skipping short msg when no components
|
||||
next if ($self->{components}->{$comp}->{total} == 0 && $self->{components}->{$comp}->{skip} == 0);
|
||||
$total_components += $self->{components}->{$comp}->{total} + $self->{components}->{$comp}->{skip};
|
||||
my $count_by_components = $self->{components}->{$comp}->{total} + $self->{components}->{$comp}->{skip};
|
||||
$display_by_component .= $display_by_component_append . $self->{components}->{$comp}->{total} . '/' . $count_by_components . ' ' . $self->{components}->{$comp}->{name};
|
||||
$display_by_component_append = ', ';
|
||||
}
|
||||
|
||||
$self->{output}->output_add(severity => 'OK',
|
||||
short_msg => sprintf("All %s components are ok [%s].",
|
||||
$total_components,
|
||||
$display_by_component)
|
||||
);
|
||||
|
||||
if (defined($self->{option_results}->{no_component}) && $total_components == 0) {
|
||||
$self->{output}->output_add(severity => $self->{no_components},
|
||||
short_msg => 'No components are checked.');
|
||||
}
|
||||
|
||||
$self->{output}->display();
|
||||
$self->{output}->exit();
|
||||
}
|
||||
|
||||
sub check_exclude {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
if (defined($options{instance})) {
|
||||
if (defined($self->{option_results}->{exclude}) && $self->{option_results}->{exclude} =~ /(^|\s|,)${options{section}}[^,]*#\Q$options{instance}\E#/) {
|
||||
$self->{components}->{$options{section}}->{skip}++;
|
||||
$self->{output}->output_add(long_msg => sprintf("Skipping $options{section} section $options{instance} instance."));
|
||||
return 1;
|
||||
}
|
||||
} elsif (defined($self->{option_results}->{exclude}) && $self->{option_results}->{exclude} =~ /(^|\s|,)$options{section}(\s|,|$)/) {
|
||||
$self->{output}->output_add(long_msg => sprintf("Skipping $options{section} section."));
|
||||
return 1;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub get_severity_numeric {
|
||||
my ($self, %options) = @_;
|
||||
my $status = 'OK'; # default
|
||||
my $thresholds = { warning => undef, critical => undef };
|
||||
my $checked = 0;
|
||||
|
||||
if (defined($self->{numeric_threshold}->{$options{section}})) {
|
||||
my $exits = [];
|
||||
foreach (@{$self->{numeric_threshold}->{$options{section}}}) {
|
||||
if ($options{instance} =~ /$_->{regexp}/) {
|
||||
push @{$exits}, $self->{perfdata}->threshold_check(value => $options{value}, threshold => [ { label => $_->{label}, exit_litteral => $_->{threshold} } ]);
|
||||
$thresholds->{$_->{threshold}} = $self->{perfdata}->get_perfdata_for_output(label => $_->{label});
|
||||
$checked = 1;
|
||||
}
|
||||
}
|
||||
$status = $self->{output}->get_most_critical(status => $exits) if (scalar(@{$exits}) > 0);
|
||||
}
|
||||
|
||||
return ($status, $thresholds->{warning}, $thresholds->{critical}, $checked);
|
||||
}
|
||||
|
||||
sub get_severity {
|
||||
my ($self, %options) = @_;
|
||||
my $status = 'UNKNOWN'; # default
|
||||
|
||||
if (defined($self->{overload_th}->{$options{section}})) {
|
||||
foreach (@{$self->{overload_th}->{$options{section}}}) {
|
||||
if ($options{value} =~ /$_->{filter}/i) {
|
||||
$status = $_->{status};
|
||||
return $status;
|
||||
}
|
||||
}
|
||||
}
|
||||
foreach (@{$thresholds->{$options{section}}}) {
|
||||
if ($options{value} =~ /$$_[0]/i) {
|
||||
$status = $$_[1];
|
||||
return $status;
|
||||
}
|
||||
}
|
||||
|
||||
return $status;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 MODE
|
||||
|
||||
Check hardware components (temperatures,...).
|
||||
Mode is in WIP.
|
||||
Check hardware components.
|
||||
|
||||
=over 8
|
||||
|
||||
=item B<--component>
|
||||
|
||||
Which component to check (Default: '.*').
|
||||
Can be: 'temperature',
|
||||
Can be: 'psu', 'punit', 'temperature', 'voltage', 'amperage',
|
||||
'systembattery', 'coolingunit', 'coolingdevice', 'processor', 'memory', 'pci', 'network',
|
||||
'slot', 'fru', 'storagectrl', 'storagebattery', 'pdisk', 'vdisk'.
|
||||
|
||||
=item B<--exclude>
|
||||
=item B<--filter>
|
||||
|
||||
Exclude some parts (comma seperated list) (Example: --exclude=psu)
|
||||
Can also exclude specific instance: --exclude='temperature#1.1#'
|
||||
Exclude some parts (comma seperated list) (Example: --filter=temperature --filter=psu)
|
||||
Can also exclude specific instance: --filter=temperature,1.1
|
||||
|
||||
=item B<--no-component>
|
||||
|
||||
@ -267,18 +135,18 @@ If total (with skipped) is 0. (Default: 'critical' returns).
|
||||
|
||||
=item B<--threshold-overload>
|
||||
|
||||
Set to overload default threshold values (syntax: section,status,regexp)
|
||||
Set to overload default threshold values (syntax: section,[instance,]status,regexp)
|
||||
It used before default thresholds (order stays).
|
||||
Example: --threshold-overload='temperature-state,CRITICAL,^(?!(enabled)$)'
|
||||
Example: --threshold-overload='temperature.state,CRITICAL,^(?!(enabled)$)'
|
||||
|
||||
=item B<--warning>
|
||||
|
||||
Set warning threshold for temperature (syntax: type,regexp,treshold)
|
||||
Set warning threshold (syntax: type,regexp,treshold)
|
||||
Example: --warning='temperature,.*,30'
|
||||
|
||||
=item B<--critical>
|
||||
|
||||
Set critical threshold for temperature (syntax: type,regexp,treshold)
|
||||
Set critical threshold (syntax: type,regexp,treshold)
|
||||
Example: --critical='temperature,.*,40'
|
||||
|
||||
=back
|
||||
|
||||
@ -82,20 +82,23 @@ sub check {
|
||||
next;
|
||||
}
|
||||
$self->{components}->{blade}->{total}++;
|
||||
$result->{bladeName} = defined($result->{bladeName}) ? $result->{bladeName} : '-';
|
||||
|
||||
if ($result->{bladePowerState} =~ /off/) {
|
||||
$self->{output}->output_add(long_msg => sprintf("Blade '%s' power state is %s",
|
||||
$result->{bladeId}, $result->{bladePowerState}));
|
||||
$self->{output}->output_add(long_msg => sprintf("Blade '%s/%s' power state is %s",
|
||||
$result->{bladeName}, $result->{bladeId}, $result->{bladePowerState},
|
||||
));
|
||||
next;
|
||||
}
|
||||
|
||||
$self->{output}->output_add(long_msg => sprintf("Blade '%s' state is %s [power state: %s]",
|
||||
$result->{bladeId}, $result->{bladeHealthState}, $result->{bladePowerState}));
|
||||
$self->{output}->output_add(long_msg => sprintf("Blade '%s/%s' state is %s [power state: %s]",
|
||||
$result->{bladeName}, $result->{bladeId}, $result->{bladeHealthState}, $result->{bladePowerState},
|
||||
));
|
||||
my $exit = $self->get_severity(section => 'blade', value => $result->{bladeHealthState});
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Blade '%s' state is %s",
|
||||
$result->{bladeId}, $result->{bladeHealthState}));
|
||||
short_msg => sprintf("Blade '%s/%s' state is %s",
|
||||
$result->{bladeName}, $result->{bladeId}, $result->{bladeHealthState}));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
@ -20,48 +20,63 @@
|
||||
|
||||
package hardware::ups::standard::rfc1628::snmp::mode::inputlines;
|
||||
|
||||
use base qw(centreon::plugins::mode);
|
||||
use base qw(centreon::plugins::templates::counter);
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
my %oids = (
|
||||
'.1.3.6.1.2.1.33.1.3.3.1.2' => { counter => 'frequence' }, # in dH upsInputFrequency
|
||||
'.1.3.6.1.2.1.33.1.3.3.1.3' => { counter => 'voltage' }, # in Volt upsInputVoltage
|
||||
'.1.3.6.1.2.1.33.1.3.3.1.4' => { counter => 'current' }, # in dA upsInputCurrent
|
||||
'.1.3.6.1.2.1.33.1.3.3.1.5' => { counter => 'power' }, # in Watt upsInputTruePower
|
||||
);
|
||||
sub set_counters {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{maps_counters_type} = [
|
||||
{ name => 'line', type => 1, cb_prefix_output => 'prefix_line_output', message_multiple => 'All input lines are ok', skipped_code => { -10 => 1 } }
|
||||
];
|
||||
|
||||
$self->{maps_counters}->{line} = [
|
||||
{ label => 'frequence', set => {
|
||||
key_values => [ { name => 'upsInputFrequency' }, { name => 'display' } ],
|
||||
output_template => 'Frequence : %.2f Hz',
|
||||
perfdatas => [
|
||||
{ label => 'frequence', value => 'upsInputFrequency_absolute', template => '%s',
|
||||
unit => 'Hz', label_extra_instance => 1, instance_use => 'display_absolute' },
|
||||
],
|
||||
}
|
||||
},
|
||||
{ label => 'voltage', set => {
|
||||
key_values => [ { name => 'upsInputVoltage' }, { name => 'display' } ],
|
||||
output_template => 'Voltage : %.2f V',
|
||||
perfdatas => [
|
||||
{ label => 'voltage', value => 'upsInputVoltage_absolute', template => '%s',
|
||||
unit => 'V', label_extra_instance => 1, instance_use => 'display_absolute' },
|
||||
],
|
||||
}
|
||||
},
|
||||
{ label => 'current', set => {
|
||||
key_values => [ { name => 'upsInputCurrent' }, { name => 'display' } ],
|
||||
output_template => 'Current : %.2f A',
|
||||
perfdatas => [
|
||||
{ label => 'current', value => 'upsInputCurrent_absolute', template => '%s',
|
||||
unit => 'A', label_extra_instance => 1, instance_use => 'display_absolute' },
|
||||
],
|
||||
}
|
||||
},
|
||||
{ label => 'power', set => {
|
||||
key_values => [ { name => 'upsInputTruePower' }, { name => 'display' } ],
|
||||
output_template => 'Power : %.2f W',
|
||||
perfdatas => [
|
||||
{ label => 'power', value => 'upsInputTruePower_absolute', template => '%s',
|
||||
unit => 'W', label_extra_instance => 1, instance_use => 'display_absolute' },
|
||||
],
|
||||
}
|
||||
},
|
||||
];
|
||||
}
|
||||
|
||||
my $maps_counters = {
|
||||
frequence => { thresholds => {
|
||||
warning_frequence => { label => 'warning-frequence', exit_value => 'warning' },
|
||||
critical_frequence => { label => 'critical-frequence', exit_value => 'critical' },
|
||||
},
|
||||
output_msg => 'Frequence : %.2f Hz',
|
||||
factor => 0.1, unit => 'Hz',
|
||||
},
|
||||
voltage => { thresholds => {
|
||||
warning_voltage => { label => 'warning-voltage', exit_value => 'warning' },
|
||||
critical_voltage => { label => 'critical-voltage', exit_value => 'critical' },
|
||||
},
|
||||
output_msg => 'Voltage : %.2f V',
|
||||
factor => 1, unit => 'V',
|
||||
},
|
||||
current => { thresholds => {
|
||||
warning_current => { label => 'warning-current', exit_value => 'warning' },
|
||||
critical_current => { label => 'critical-current', exit_value => 'critical' },
|
||||
},
|
||||
output_msg => 'Current : %.2f A',
|
||||
factor => 0.1, unit => 'A',
|
||||
},
|
||||
power => { thresholds => {
|
||||
warning_power => { label => 'warning-power', exit_value => 'warning' },
|
||||
critical_power => { label => 'critical-power', exit_value => 'critical' },
|
||||
},
|
||||
output_msg => 'Power : %.2f W',
|
||||
factor => 1, unit => 'W',
|
||||
},
|
||||
};
|
||||
sub prefix_line_output {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
return "Input Line '" . $options{instance_value}->{display} . "' ";
|
||||
}
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
@ -72,110 +87,33 @@ sub new {
|
||||
$options{options}->add_options(arguments =>
|
||||
{
|
||||
});
|
||||
foreach (keys %{$maps_counters}) {
|
||||
foreach my $name (keys %{$maps_counters->{$_}->{thresholds}}) {
|
||||
$options{options}->add_options(arguments => {
|
||||
$maps_counters->{$_}->{thresholds}->{$name}->{label} . ':s' => { name => $name },
|
||||
});
|
||||
}
|
||||
}
|
||||
|
||||
$self->{counters_value} = {};
|
||||
$self->{instances_done} = {};
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub check_options {
|
||||
my ($self, %options) = @_;
|
||||
$self->SUPER::init(%options);
|
||||
my $oids = {
|
||||
'.1.3.6.1.2.1.33.1.3.3.1.2' => { name => 'upsInputFrequency', factor => 0.1 }, # in dH
|
||||
'.1.3.6.1.2.1.33.1.3.3.1.3' => { name => 'upsInputVoltage', factor => 1 }, # in Volt
|
||||
'.1.3.6.1.2.1.33.1.3.3.1.4' => { name => 'upsInputCurrent', factor => 0.1 }, # in dA
|
||||
'.1.3.6.1.2.1.33.1.3.3.1.5' => { name => 'upsInputTruePower', factor => 1 }, # in Watt
|
||||
};
|
||||
|
||||
foreach (keys %{$maps_counters}) {
|
||||
foreach my $name (keys %{$maps_counters->{$_}->{thresholds}}) {
|
||||
if (($self->{perfdata}->threshold_validate(label => $maps_counters->{$_}->{thresholds}->{$name}->{label}, value => $self->{option_results}->{$name})) == 0) {
|
||||
$self->{output}->add_option_msg(short_msg => "Wrong " . $maps_counters->{$_}->{thresholds}->{$name}->{label} . " threshold '" . $self->{option_results}->{$name} . "'.");
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub build_values {
|
||||
sub manage_selection {
|
||||
my ($self, %options) = @_;
|
||||
my $counters_value = {};
|
||||
my $instance = undef;
|
||||
|
||||
foreach my $oid (keys %oids) {
|
||||
if ($options{current} =~ /^$oid\.(.*)/) {
|
||||
$instance = $1;
|
||||
last;
|
||||
}
|
||||
}
|
||||
|
||||
# Skip already done
|
||||
if (!defined($instance) || defined($self->{instances_done}->{$instance})) {
|
||||
return 0;
|
||||
}
|
||||
|
||||
$self->{instances_done}->{$instance} = 1;
|
||||
$self->{counters_value}->{$instance} = {};
|
||||
foreach my $oid (keys %oids) {
|
||||
$self->{counters_value}->{$instance}->{$oids{$oid}->{counter}} = defined($options{result}->{$oid . '.' . $instance}) ? $options{result}->{$oid . '.' . $instance} : 0;
|
||||
}
|
||||
}
|
||||
|
||||
sub run {
|
||||
my ($self, %options) = @_;
|
||||
# $options{snmp} = snmp object
|
||||
$self->{snmp} = $options{snmp};
|
||||
|
||||
my $oid_upsInputEntry = '.1.3.6.1.2.1.33.1.3.3.1';
|
||||
my $result = $self->{snmp}->get_table(oid => $oid_upsInputEntry, nothing_quit => 1);
|
||||
foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
|
||||
$self->build_values(current => $key, result => $result);
|
||||
}
|
||||
|
||||
my $num = scalar(keys %{$self->{instances_done}});
|
||||
foreach my $instance (keys %{$self->{instances_done}}) {
|
||||
my $instance_output = $instance;
|
||||
$instance_output =~ s/\./#/g;
|
||||
my $results = $options{snmp}->get_table(oid => $oid_upsInputEntry, nothing_quit => 1);
|
||||
|
||||
$self->{line} = {};
|
||||
foreach my $oid (keys %{$results}) {
|
||||
next if ($oid !~ /^(.*)\.(.*?)\.(.*?)$/);
|
||||
my ($base, $instance) = ($1 . '.' . $2, $3);
|
||||
next if (!defined($oids->{$base}));
|
||||
next if ($results->{$oid} !~ /\d/ || $results->{$oid} == 0);
|
||||
|
||||
my @exits;
|
||||
foreach (keys %{$maps_counters}) {
|
||||
foreach my $name (keys %{$maps_counters->{$_}->{thresholds}}) {
|
||||
if (defined($self->{counters_value}->{$instance}->{$_}) && $self->{counters_value}->{$instance}->{$_} =~ /\d/ && $self->{counters_value}->{$instance}->{$_} != 0) {
|
||||
push @exits, $self->{perfdata}->threshold_check(value => $self->{counters_value}->{$instance}->{$_} * $maps_counters->{$_}->{factor}, threshold => [ { label => $maps_counters->{$_}->{thresholds}->{$name}->{label}, 'exit_litteral' => $maps_counters->{$_}->{thresholds}->{$name}->{exit_value} }]);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
my $exit = $self->{output}->get_most_critical(status => [ @exits ]);
|
||||
my $extra_label = '';
|
||||
$extra_label = '_' . $instance_output if ($num > 1);
|
||||
|
||||
my $str_output = "Input Line '$instance_output' ";
|
||||
my $str_append = '';
|
||||
foreach (keys %{$maps_counters}) {
|
||||
next if (!defined($self->{counters_value}->{$instance}->{$_}) || $self->{counters_value}->{$instance}->{$_} !~ /\d/ || $self->{counters_value}->{$instance}->{$_} == 0);
|
||||
|
||||
$str_output .= $str_append . sprintf($maps_counters->{$_}->{output_msg}, $self->{counters_value}->{$instance}->{$_} * $maps_counters->{$_}->{factor});
|
||||
$str_append = ', ';
|
||||
my ($warning, $critical);
|
||||
foreach my $name (keys %{$maps_counters->{$_}->{thresholds}}) {
|
||||
$warning = $self->{perfdata}->get_perfdata_for_output(label => $maps_counters->{$_}->{thresholds}->{$name}->{label}) if ($maps_counters->{$_}->{thresholds}->{$name}->{exit_value} eq 'warning');
|
||||
$critical = $self->{perfdata}->get_perfdata_for_output(label => $maps_counters->{$_}->{thresholds}->{$name}->{label}) if ($maps_counters->{$_}->{thresholds}->{$name}->{exit_value} eq 'critical');
|
||||
}
|
||||
|
||||
$self->{output}->perfdata_add(label => $_ . $extra_label, unit => $maps_counters->{$_}->{unit},
|
||||
value => sprintf("%.2f", $self->{counters_value}->{$instance}->{$_} * $maps_counters->{$_}->{factor}),
|
||||
warning => $warning,
|
||||
critical => $critical);
|
||||
}
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => $str_output);
|
||||
$self->{line}->{$instance} = { display => $instance } if (!defined($self->{line}->{$instance}));
|
||||
$self->{line}->{$instance}->{$oids->{$base}->{name}} = $results->{$oid} * $oids->{$base}->{factor};
|
||||
}
|
||||
|
||||
$self->{output}->display();
|
||||
$self->{output}->exit();
|
||||
}
|
||||
|
||||
1;
|
||||
@ -188,6 +126,11 @@ Check Input lines metrics (frequence, voltage, current and true power).
|
||||
|
||||
=over 8
|
||||
|
||||
=item B<--filter-counters>
|
||||
|
||||
Only display some counters (regexp can be used).
|
||||
Example: --filter-counters='^power$'
|
||||
|
||||
=item B<--warning-*>
|
||||
|
||||
Threshold warning.
|
||||
|
||||
53
network/juniper/isg/plugin.pm
Normal file
53
network/juniper/isg/plugin.pm
Normal file
@ -0,0 +1,53 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package network::juniper::isg::plugin;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use base qw(centreon::plugins::script_snmp);
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
my $self = $class->SUPER::new(package => __PACKAGE__, %options);
|
||||
bless $self, $class;
|
||||
|
||||
$self->{version} = '1.0';
|
||||
%{$self->{modes}} = (
|
||||
'cpu' => 'network::juniper::common::screenos::mode::cpu',
|
||||
'memory' => 'network::juniper::common::screenos::mode::memory',
|
||||
'sessions' => 'network::juniper::common::screenos::mode::sessions',
|
||||
'hardware' => 'network::juniper::common::screenos::mode::hardware',
|
||||
'interfaces' => 'snmp_standard::mode::interfaces',
|
||||
'list-interfaces' => 'snmp_standard::mode::listinterfaces',
|
||||
);
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 PLUGIN DESCRIPTION
|
||||
|
||||
Check Juniper ISG series in SNMP.
|
||||
|
||||
=cut
|
||||
210
network/kemp/snmp/mode/hastatus.pm
Normal file
210
network/kemp/snmp/mode/hastatus.pm
Normal file
@ -0,0 +1,210 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package network::kemp::snmp::mode::hastatus;
|
||||
|
||||
use base qw(centreon::plugins::templates::counter);
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
my $instance_mode;
|
||||
|
||||
sub custom_status_threshold {
|
||||
my ($self, %options) = @_;
|
||||
my $status = 'ok';
|
||||
my $message;
|
||||
|
||||
eval {
|
||||
local $SIG{__WARN__} = sub { $message = $_[0]; };
|
||||
local $SIG{__DIE__} = sub { $message = $_[0]; };
|
||||
|
||||
if (defined($instance_mode->{option_results}->{'critical_' . $self->{result_values}->{label}}) && $instance_mode->{option_results}->{'critical_' . $self->{result_values}->{label}} ne '' &&
|
||||
eval "$instance_mode->{option_results}->{\"critical_\" . $self->{result_values}->{label}}") {
|
||||
$status = 'critical';
|
||||
} elsif (defined($instance_mode->{option_results}->{'warning_' . $self->{result_values}->{label}}) && $instance_mode->{option_results}->{'warning_' . $self->{result_values}->{label}} ne '' &&
|
||||
eval "$instance_mode->{option_results}->{\"warning_\" . $self->{result_values}->{label}}") {
|
||||
$status = 'warning';
|
||||
}
|
||||
};
|
||||
if (defined($message)) {
|
||||
$self->{output}->output_add(long_msg => 'filter status issue: ' . $message);
|
||||
}
|
||||
|
||||
return $status;
|
||||
}
|
||||
|
||||
sub custom_hastatus_output {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $msg = 'HA status : ' . $self->{result_values}->{status};
|
||||
return $msg;
|
||||
}
|
||||
|
||||
sub custom_syncstatus_output {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $msg = 'Synchronization l4 status : ' . $self->{result_values}->{status};
|
||||
return $msg;
|
||||
}
|
||||
|
||||
sub custom_hastatus_calc {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{result_values}->{status} = $options{new_datas}->{$self->{instance} . '_hAstate'};
|
||||
$self->{result_values}->{label} = 'ha_status';
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub custom_syncstatus_calc {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{result_values}->{status} = $options{new_datas}->{$self->{instance} . '_daemonState'};
|
||||
$self->{result_values}->{label} = 'sync_status';
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub set_counters {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{maps_counters_type} = [
|
||||
{ name => 'global', type => 0, message_separator => ' - ' }
|
||||
];
|
||||
|
||||
$self->{maps_counters}->{global} = [
|
||||
{ label => 'ha-status', threshold => 0, set => {
|
||||
key_values => [ { name => 'hAstate' } ],
|
||||
closure_custom_calc => $self->can('custom_hastatus_calc'),
|
||||
closure_custom_output => $self->can('custom_hastatus_output'),
|
||||
closure_custom_perfdata => sub { return 0; },
|
||||
closure_custom_threshold_check => $self->can('custom_status_threshold'),
|
||||
}
|
||||
},
|
||||
{ label => 'sync-status', threshold => 0, set => {
|
||||
key_values => [ { name => 'daemonState' } ],
|
||||
closure_custom_calc => $self->can('custom_syncstatus_calc'),
|
||||
closure_custom_output => $self->can('custom_syncstatus_output'),
|
||||
closure_custom_perfdata => sub { return 0; },
|
||||
closure_custom_threshold_check => $self->can('custom_status_threshold'),
|
||||
}
|
||||
},
|
||||
];
|
||||
}
|
||||
|
||||
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 =>
|
||||
{
|
||||
"warning-ha-status:s" => { name => 'warning_ha_status', default => '' },
|
||||
"critical-ha-status:s" => { name => 'critical_ha_status', default => '' },
|
||||
"warning-sync-status:s" => { name => 'warning_sync_status', default => '' },
|
||||
"critical-sync-status:s" => { name => 'critical_sync_status', default => '' },
|
||||
});
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub check_options {
|
||||
my ($self, %options) = @_;
|
||||
$self->SUPER::check_options(%options);
|
||||
|
||||
$instance_mode = $self;
|
||||
$self->change_macros();
|
||||
}
|
||||
|
||||
sub change_macros {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
foreach (('warning_ha_status', 'critical_ha_status', 'warning_sync_status', 'critical_sync_status')) {
|
||||
if (defined($self->{option_results}->{$_})) {
|
||||
$self->{option_results}->{$_} =~ s/%\{(.*?)\}/\$self->{result_values}->{$1}/g;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
my %map_daemon_state = (
|
||||
0 => 'none',
|
||||
1 => 'master',
|
||||
2 => 'backup',
|
||||
);
|
||||
my %map_ha_state = (
|
||||
0 => 'none',
|
||||
1 => 'master',
|
||||
2 => 'standby',
|
||||
3 => 'passive',
|
||||
);
|
||||
my $mapping = {
|
||||
daemonState => { oid => '.1.3.6.1.4.1.12196.13.0.7', map => \%map_daemon_state },
|
||||
hAstate => { oid => '.1.3.6.1.4.1.12196.13.0.9', map => \%map_ha_state },
|
||||
};
|
||||
|
||||
sub manage_selection {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{vs} = {};
|
||||
my $snmp_result = $options{snmp}->get_leef(oids => [ $mapping->{daemonState}->{oid} . '.0', $mapping->{hAstate}->{oid} . '.0' ],
|
||||
nothing_quit => 1);
|
||||
my $result = $options{snmp}->map_instance(mapping => $mapping, results => $snmp_result, instance => '0');
|
||||
|
||||
$self->{global} = { %$result };
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 MODE
|
||||
|
||||
Check ha status.
|
||||
|
||||
=over 8
|
||||
|
||||
=item B<--filter-counters>
|
||||
|
||||
Only display some counters (regexp can be used).
|
||||
Example: --filter-counters='^ha-status$'
|
||||
|
||||
=item B<--warning-ha-status>
|
||||
|
||||
Set warning threshold for status (Default: none).
|
||||
Can used special variables like: %{status}, %{display}
|
||||
|
||||
=item B<--critical-ha-status>
|
||||
|
||||
Set critical threshold for status (Default: none).
|
||||
Can used special variables like: %{status}, %{display}
|
||||
|
||||
=item B<--warning-sync-status>
|
||||
|
||||
Set warning threshold for status (Default: none).
|
||||
Can used special variables like: %{status}, %{display}
|
||||
|
||||
=item B<--critical-sync-status>
|
||||
|
||||
Set critical threshold for status (Default: none).
|
||||
Can used special variables like: %{status}, %{display}
|
||||
|
||||
=back
|
||||
|
||||
=cut
|
||||
133
network/kemp/snmp/mode/listvs.pm
Normal file
133
network/kemp/snmp/mode/listvs.pm
Normal file
@ -0,0 +1,133 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package network::kemp::snmp::mode::listvs;
|
||||
|
||||
use base qw(centreon::plugins::mode);
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
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 =>
|
||||
{
|
||||
"filter-name:s" => { name => 'filter_name' },
|
||||
});
|
||||
$self->{vs_id_selected} = [];
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub check_options {
|
||||
my ($self, %options) = @_;
|
||||
$self->SUPER::init(%options);
|
||||
}
|
||||
|
||||
my %map_state = (
|
||||
1 => 'inService',
|
||||
2 => 'outOfService',
|
||||
4 => 'disabled',
|
||||
5 => 'sorry',
|
||||
6 => 'redirect',
|
||||
7 => 'errormsg',
|
||||
);
|
||||
my $mapping = {
|
||||
vSname => { oid => '.1.3.6.1.4.1.12196.13.1.1.13' },
|
||||
vSstate => { oid => '.1.3.6.1.4.1.12196.13.1.1.14', map => \%map_state },
|
||||
};
|
||||
|
||||
sub manage_selection {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{results} = $self->{snmp}->get_multiple_table(oids => [ { oid => $mapping->{vSname}->{oid} }, { oid => $mapping->{vSstate}->{oid} } ],
|
||||
nothing_quit => 1, return_type => 1);
|
||||
foreach my $oid (keys %{$self->{results}}) {
|
||||
next if ($oid !~ /^$mapping->{vSname}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}, instance => $instance);
|
||||
|
||||
if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' &&
|
||||
$result->{vSname} !~ /$self->{option_results}->{filter_name}/) {
|
||||
$self->{output}->output_add(long_msg => "skipping '" . $result->{vSname} . "': no matching filter.", debug => 1);
|
||||
next;
|
||||
}
|
||||
|
||||
push @{$self->{vs_id_selected}}, $instance;
|
||||
}
|
||||
}
|
||||
|
||||
sub run {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{snmp} = $options{snmp};
|
||||
$self->manage_selection();
|
||||
foreach my $instance (sort @{$self->{vs_id_selected}}) {
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}, instance => $instance);
|
||||
|
||||
$self->{output}->output_add(long_msg => "'" . $result->{vSname} . "' [state = " . $result->{vSstate} . "]");
|
||||
}
|
||||
|
||||
$self->{output}->output_add(severity => 'OK',
|
||||
short_msg => 'List Virtual Servers:');
|
||||
$self->{output}->display(nolabel => 1, force_ignore_perfdata => 1, force_long_output => 1);
|
||||
$self->{output}->exit();
|
||||
}
|
||||
|
||||
sub disco_format {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{output}->add_disco_format(elements => ['name', 'state']);
|
||||
}
|
||||
|
||||
sub disco_show {
|
||||
my ($self, %options) = @_;
|
||||
$self->{snmp} = $options{snmp};
|
||||
|
||||
$self->manage_selection(disco => 1);
|
||||
foreach my $instance (sort @{$self->{vs_id_selected}}) {
|
||||
my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}, instance => $instance);
|
||||
|
||||
$self->{output}->add_disco_entry(name => $result->{vSname}, state => $result->{vSstate});
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 MODE
|
||||
|
||||
List virtual servers.
|
||||
|
||||
=over 8
|
||||
|
||||
=item B<--filter-name>
|
||||
|
||||
Set the virtual server name.
|
||||
|
||||
=back
|
||||
|
||||
=cut
|
||||
|
||||
254
network/kemp/snmp/mode/rsstatus.pm
Normal file
254
network/kemp/snmp/mode/rsstatus.pm
Normal file
@ -0,0 +1,254 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package network::kemp::snmp::mode::rsstatus;
|
||||
|
||||
use base qw(centreon::plugins::templates::counter);
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Digest::MD5 qw(md5_hex);
|
||||
|
||||
my $instance_mode;
|
||||
|
||||
sub custom_status_threshold {
|
||||
my ($self, %options) = @_;
|
||||
my $status = 'ok';
|
||||
my $message;
|
||||
|
||||
eval {
|
||||
local $SIG{__WARN__} = sub { $message = $_[0]; };
|
||||
local $SIG{__DIE__} = sub { $message = $_[0]; };
|
||||
|
||||
if (defined($instance_mode->{option_results}->{critical_status}) && $instance_mode->{option_results}->{critical_status} ne '' &&
|
||||
eval "$instance_mode->{option_results}->{critical_status}") {
|
||||
$status = 'critical';
|
||||
} elsif (defined($instance_mode->{option_results}->{warning_status}) && $instance_mode->{option_results}->{warning_status} ne '' &&
|
||||
eval "$instance_mode->{option_results}->{warning_status}") {
|
||||
$status = 'warning';
|
||||
}
|
||||
};
|
||||
if (defined($message)) {
|
||||
$self->{output}->output_add(long_msg => 'filter status issue: ' . $message);
|
||||
}
|
||||
|
||||
return $status;
|
||||
}
|
||||
|
||||
sub custom_status_output {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $msg = 'status : ' . $self->{result_values}->{status};
|
||||
return $msg;
|
||||
}
|
||||
|
||||
sub custom_status_calc {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{result_values}->{status} = $options{new_datas}->{$self->{instance} . '_status'};
|
||||
$self->{result_values}->{display} = $options{new_datas}->{$self->{instance} . '_display'};
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub set_counters {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{maps_counters_type} = [
|
||||
{ name => 'rs', type => 1, cb_prefix_output => 'prefix_rs_output', message_multiple => 'All real servers are ok' }
|
||||
];
|
||||
|
||||
$self->{maps_counters}->{rs} = [
|
||||
{ label => 'status', threshold => 0, set => {
|
||||
key_values => [ { name => 'status' }, { name => 'display' } ],
|
||||
closure_custom_calc => $self->can('custom_status_calc'),
|
||||
closure_custom_output => $self->can('custom_status_output'),
|
||||
closure_custom_perfdata => sub { return 0; },
|
||||
closure_custom_threshold_check => $self->can('custom_status_threshold'),
|
||||
}
|
||||
},
|
||||
{ label => 'active', set => {
|
||||
key_values => [ { name => 'rSActiveConns' }, { name => 'display' } ],
|
||||
output_template => 'Active connections : %s',
|
||||
perfdatas => [
|
||||
{ label => 'active', value => 'rSActiveConns_absolute', template => '%s',
|
||||
min => 0, label_extra_instance => 1, instance_use => 'display_absolute' },
|
||||
],
|
||||
}
|
||||
},
|
||||
{ label => 'in-traffic', set => {
|
||||
key_values => [ { name => 'rSInBytes', diff => 1 }, { name => 'display' } ],
|
||||
output_template => 'Traffic In : %s %s/s',
|
||||
per_second => 1, output_change_bytes => 2,
|
||||
perfdatas => [
|
||||
{ label => 'traffic_in', value => 'rSInBytes_per_second', template => '%.2f',
|
||||
min => 0, unit => 'b/s', label_extra_instance => 1, instance_use => 'display_absolute' },
|
||||
],
|
||||
}
|
||||
},
|
||||
{ label => 'out-traffic', set => {
|
||||
key_values => [ { name => 'rSOutBytes', diff => 1 }, { name => 'display' } ],
|
||||
output_template => 'Traffic Out : %s %s/s',
|
||||
per_second => 1, output_change_bytes => 2,
|
||||
perfdatas => [
|
||||
{ label => 'traffic_out', value => 'rSOutBytes_per_second', template => '%.2f',
|
||||
min => 0, unit => 'b/s', label_extra_instance => 1, instance_use => 'display_absolute' },
|
||||
],
|
||||
}
|
||||
},
|
||||
];
|
||||
}
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
my $self = $class->SUPER::new(package => __PACKAGE__, %options, statefile => 1);
|
||||
bless $self, $class;
|
||||
|
||||
$self->{version} = '1.0';
|
||||
$options{options}->add_options(arguments =>
|
||||
{
|
||||
"filter-name:s" => { name => 'filter_name' },
|
||||
"warning-status:s" => { name => 'warning_status', default => '' },
|
||||
"critical-status:s" => { name => 'critical_status', default => '%{status} !~ /inService|disabled/i' },
|
||||
});
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub check_options {
|
||||
my ($self, %options) = @_;
|
||||
$self->SUPER::check_options(%options);
|
||||
|
||||
$instance_mode = $self;
|
||||
$self->change_macros();
|
||||
}
|
||||
|
||||
sub prefix_rs_output {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
return "Real server '" . $options{instance_value}->{display} . "' ";
|
||||
}
|
||||
|
||||
sub change_macros {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
foreach (('warning_status', 'critical_status')) {
|
||||
if (defined($self->{option_results}->{$_})) {
|
||||
$self->{option_results}->{$_} =~ s/%\{(.*?)\}/\$self->{result_values}->{$1}/g;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
my %map_state = (
|
||||
1 => 'inService',
|
||||
2 => 'outOfService',
|
||||
4 => 'disabled',
|
||||
);
|
||||
my $mapping = {
|
||||
rSvsidx => { oid => '.1.3.6.1.4.1.12196.13.2.1.1' },
|
||||
rSip => { oid => '.1.3.6.1.4.1.12196.13.2.1.2' },
|
||||
rSport => { oid => '.1.3.6.1.4.1.12196.13.2.1.3' },
|
||||
rSstate => { oid => '.1.3.6.1.4.1.12196.13.2.1.8', map => \%map_state },
|
||||
rSInBytes => { oid => '.1.3.6.1.4.1.12196.13.2.1.15' },
|
||||
rSOutBytes => { oid => '.1.3.6.1.4.1.12196.13.2.1.16' },
|
||||
rSActiveConns => { oid => '.1.3.6.1.4.1.12196.13.2.1.17' },
|
||||
};
|
||||
|
||||
my $oid_rsEntry = '.1.3.6.1.4.1.12196.13.2.1';
|
||||
my $oid_vSname = '.1.3.6.1.4.1.12196.13.1.1.13';
|
||||
|
||||
sub manage_selection {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{rs} = {};
|
||||
my $snmp_result = $options{snmp}->get_multiple_table(oids => [ { oid => $oid_rsEntry }, { oid => $oid_vSname } ],
|
||||
nothing_quit => 1);
|
||||
|
||||
|
||||
foreach my $oid (keys %{$snmp_result->{$oid_rsEntry}}) {
|
||||
next if ($oid !~ /^$mapping->{rSstate}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $options{snmp}->map_instance(mapping => $mapping, results => $snmp_result->{$oid_rsEntry}, instance => $instance);
|
||||
my $vs_name = $snmp_result->{$oid_vSname}->{$oid_vSname . '.' . $result->{rSvsidx}};
|
||||
|
||||
my $display_name = $vs_name . '/' . $result->{rSip} . ':' . $result->{rSport};
|
||||
if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' &&
|
||||
$display_name !~ /$self->{option_results}->{filter_name}/) {
|
||||
$self->{output}->output_add(long_msg => "skipping '" . $display_name . "': no matching filter.", debug => 1);
|
||||
next;
|
||||
}
|
||||
|
||||
$self->{rs}->{$instance} = { display => $display_name,
|
||||
status => $result->{rSstate},
|
||||
rSInBytes => defined($result->{rSInBytes}) ? $result->{rSInBytes} * 8 : undef,
|
||||
rSOutBytes => defined($result->{rSOutBytes}) ? $result->{rSOutBytes} * 8 : undef,
|
||||
rSActiveConns => $result->{rSActiveConns} };
|
||||
}
|
||||
|
||||
if (scalar(keys %{$self->{rs}}) <= 0) {
|
||||
$self->{output}->add_option_msg(short_msg => "No real server found.");
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
|
||||
$self->{cache_name} = "kemp_" . $self->{mode} . '_' . $options{snmp}->get_hostname() . '_' . $options{snmp}->get_port() . '_' .
|
||||
(defined($self->{option_results}->{filter_counters}) ? md5_hex($self->{option_results}->{filter_counters}) : md5_hex('all'));
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 MODE
|
||||
|
||||
Check real server status.
|
||||
|
||||
=over 8
|
||||
|
||||
=item B<--filter-counters>
|
||||
|
||||
Only display some counters (regexp can be used).
|
||||
Example: --filter-counters='^status$'
|
||||
|
||||
=item B<--filter-name>
|
||||
|
||||
Filter real server name (can be a regexp).
|
||||
|
||||
=item B<--warning-status>
|
||||
|
||||
Set warning threshold for status.
|
||||
Can used special variables like: %{status}, %{display}
|
||||
|
||||
=item B<--critical-status>
|
||||
|
||||
Set critical threshold for status (Default: '%{status} !~ /inService|disabled/i').
|
||||
Can used special variables like: %{status}, %{display}
|
||||
|
||||
=item B<--warning-*>
|
||||
|
||||
Threshold warning.
|
||||
Can be: 'active', 'in-traffic' (b/s), 'out-traffic' (b/s).
|
||||
|
||||
=item B<--critical-*>
|
||||
|
||||
Threshold critical.
|
||||
Can be: 'active', 'in-traffic' (b/s), 'out-traffic' (b/s).
|
||||
|
||||
=back
|
||||
|
||||
=cut
|
||||
252
network/kemp/snmp/mode/vsstatus.pm
Normal file
252
network/kemp/snmp/mode/vsstatus.pm
Normal file
@ -0,0 +1,252 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package network::kemp::snmp::mode::vsstatus;
|
||||
|
||||
use base qw(centreon::plugins::templates::counter);
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Digest::MD5 qw(md5_hex);
|
||||
|
||||
my $instance_mode;
|
||||
|
||||
sub custom_status_threshold {
|
||||
my ($self, %options) = @_;
|
||||
my $status = 'ok';
|
||||
my $message;
|
||||
|
||||
eval {
|
||||
local $SIG{__WARN__} = sub { $message = $_[0]; };
|
||||
local $SIG{__DIE__} = sub { $message = $_[0]; };
|
||||
|
||||
if (defined($instance_mode->{option_results}->{critical_status}) && $instance_mode->{option_results}->{critical_status} ne '' &&
|
||||
eval "$instance_mode->{option_results}->{critical_status}") {
|
||||
$status = 'critical';
|
||||
} elsif (defined($instance_mode->{option_results}->{warning_status}) && $instance_mode->{option_results}->{warning_status} ne '' &&
|
||||
eval "$instance_mode->{option_results}->{warning_status}") {
|
||||
$status = 'warning';
|
||||
}
|
||||
};
|
||||
if (defined($message)) {
|
||||
$self->{output}->output_add(long_msg => 'filter status issue: ' . $message);
|
||||
}
|
||||
|
||||
return $status;
|
||||
}
|
||||
|
||||
sub custom_status_output {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $msg = 'status : ' . $self->{result_values}->{status};
|
||||
return $msg;
|
||||
}
|
||||
|
||||
sub custom_status_calc {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{result_values}->{status} = $options{new_datas}->{$self->{instance} . '_status'};
|
||||
$self->{result_values}->{display} = $options{new_datas}->{$self->{instance} . '_display'};
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub set_counters {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{maps_counters_type} = [
|
||||
{ name => 'vs', type => 1, cb_prefix_output => 'prefix_vs_output', message_multiple => 'All virtual servers are ok' }
|
||||
];
|
||||
|
||||
$self->{maps_counters}->{vs} = [
|
||||
{ label => 'status', threshold => 0, set => {
|
||||
key_values => [ { name => 'status' }, { name => 'display' } ],
|
||||
closure_custom_calc => $self->can('custom_status_calc'),
|
||||
closure_custom_output => $self->can('custom_status_output'),
|
||||
closure_custom_perfdata => sub { return 0; },
|
||||
closure_custom_threshold_check => $self->can('custom_status_threshold'),
|
||||
}
|
||||
},
|
||||
{ label => 'active', set => {
|
||||
key_values => [ { name => 'vSActivConns' }, { name => 'display' } ],
|
||||
output_template => 'Active connections : %s',
|
||||
perfdatas => [
|
||||
{ label => 'active', value => 'vSActivConns_absolute', template => '%s',
|
||||
min => 0, label_extra_instance => 1, instance_use => 'display_absolute' },
|
||||
],
|
||||
}
|
||||
},
|
||||
{ label => 'in-traffic', set => {
|
||||
key_values => [ { name => 'vSInBytes', diff => 1 }, { name => 'display' } ],
|
||||
output_template => 'Traffic In : %s %s/s',
|
||||
per_second => 1, output_change_bytes => 2,
|
||||
perfdatas => [
|
||||
{ label => 'traffic_in', value => 'vSInBytes_per_second', template => '%.2f',
|
||||
min => 0, unit => 'b/s', label_extra_instance => 1, instance_use => 'display_absolute' },
|
||||
],
|
||||
}
|
||||
},
|
||||
{ label => 'out-traffic', set => {
|
||||
key_values => [ { name => 'vSOutBytes', diff => 1 }, { name => 'display' } ],
|
||||
output_template => 'Traffic Out : %s %s/s',
|
||||
per_second => 1, output_change_bytes => 2,
|
||||
perfdatas => [
|
||||
{ label => 'traffic_out', value => 'vSOutBytes_per_second', template => '%.2f',
|
||||
min => 0, unit => 'b/s', label_extra_instance => 1, instance_use => 'display_absolute' },
|
||||
],
|
||||
}
|
||||
},
|
||||
];
|
||||
}
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
my $self = $class->SUPER::new(package => __PACKAGE__, %options, statefile => 1);
|
||||
bless $self, $class;
|
||||
|
||||
$self->{version} = '1.0';
|
||||
$options{options}->add_options(arguments =>
|
||||
{
|
||||
"filter-name:s" => { name => 'filter_name' },
|
||||
"warning-status:s" => { name => 'warning_status', default => '' },
|
||||
"critical-status:s" => { name => 'critical_status', default => '%{status} !~ /inService|disabled|redirect/i' },
|
||||
});
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub check_options {
|
||||
my ($self, %options) = @_;
|
||||
$self->SUPER::check_options(%options);
|
||||
|
||||
$instance_mode = $self;
|
||||
$self->change_macros();
|
||||
}
|
||||
|
||||
sub prefix_vs_output {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
return "Virtual server '" . $options{instance_value}->{display} . "' ";
|
||||
}
|
||||
|
||||
sub change_macros {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
foreach (('warning_status', 'critical_status')) {
|
||||
if (defined($self->{option_results}->{$_})) {
|
||||
$self->{option_results}->{$_} =~ s/%\{(.*?)\}/\$self->{result_values}->{$1}/g;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
my %map_state = (
|
||||
1 => 'inService',
|
||||
2 => 'outOfService',
|
||||
4 => 'disabled',
|
||||
5 => 'sorry',
|
||||
6 => 'redirect',
|
||||
7 => 'errormsg',
|
||||
);
|
||||
my $mapping = {
|
||||
vSname => { oid => '.1.3.6.1.4.1.12196.13.1.1.13' },
|
||||
vSstate => { oid => '.1.3.6.1.4.1.12196.13.1.1.14', map => \%map_state },
|
||||
vSInBytes => { oid => '.1.3.6.1.4.1.12196.13.1.1.19' },
|
||||
vSOutBytes => { oid => '.1.3.6.1.4.1.12196.13.1.1.20' },
|
||||
vSActivConns => { oid => '.1.3.6.1.4.1.12196.13.1.1.21' },
|
||||
};
|
||||
|
||||
my $oid_vsEntry = '.1.3.6.1.4.1.12196.13.1.1';
|
||||
|
||||
sub manage_selection {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{vs} = {};
|
||||
my $snmp_result = $options{snmp}->get_table(oid => $oid_vsEntry,
|
||||
nothing_quit => 1);
|
||||
|
||||
|
||||
foreach my $oid (keys %{$snmp_result}) {
|
||||
next if ($oid !~ /^$mapping->{vSstate}->{oid}\.(.*)$/);
|
||||
my $instance = $1;
|
||||
my $result = $options{snmp}->map_instance(mapping => $mapping, results => $snmp_result, instance => $instance);
|
||||
|
||||
if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' &&
|
||||
$result->{vSname} !~ /$self->{option_results}->{filter_name}/) {
|
||||
$self->{output}->output_add(long_msg => "skipping '" . $result->{vSname} . "': no matching filter.", debug => 1);
|
||||
next;
|
||||
}
|
||||
|
||||
$self->{vs}->{$instance} = { display => $result->{vSname},
|
||||
status => $result->{vSstate},
|
||||
vSInBytes => defined($result->{vSInBytes}) ? $result->{vSInBytes} * 8 : undef,
|
||||
vSOutBytes => defined($result->{vSOutBytes}) ? $result->{vSOutBytes} * 8 : undef,
|
||||
vSActivConns => $result->{vSActivConns} };
|
||||
}
|
||||
|
||||
if (scalar(keys %{$self->{vs}}) <= 0) {
|
||||
$self->{output}->add_option_msg(short_msg => "No virtual server found.");
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
|
||||
$self->{cache_name} = "kemp_" . $self->{mode} . '_' . $options{snmp}->get_hostname() . '_' . $options{snmp}->get_port() . '_' .
|
||||
(defined($self->{option_results}->{filter_counters}) ? md5_hex($self->{option_results}->{filter_counters}) : md5_hex('all'));
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 MODE
|
||||
|
||||
Check virtual server status.
|
||||
|
||||
=over 8
|
||||
|
||||
=item B<--filter-counters>
|
||||
|
||||
Only display some counters (regexp can be used).
|
||||
Example: --filter-counters='^status$'
|
||||
|
||||
=item B<--filter-name>
|
||||
|
||||
Filter virtual server name (can be a regexp).
|
||||
|
||||
=item B<--warning-status>
|
||||
|
||||
Set warning threshold for status.
|
||||
Can used special variables like: %{status}, %{display}
|
||||
|
||||
=item B<--critical-status>
|
||||
|
||||
Set critical threshold for status (Default: '%{status} !~ /inService|disabled|redirect/i').
|
||||
Can used special variables like: %{status}, %{display}
|
||||
|
||||
=item B<--warning-*>
|
||||
|
||||
Threshold warning.
|
||||
Can be: 'active', 'in-traffic' (b/s), 'out-traffic' (b/s).
|
||||
|
||||
=item B<--critical-*>
|
||||
|
||||
Threshold critical.
|
||||
Can be: 'active', 'in-traffic' (b/s), 'out-traffic' (b/s).
|
||||
|
||||
=back
|
||||
|
||||
=cut
|
||||
56
network/kemp/snmp/plugin.pm
Normal file
56
network/kemp/snmp/plugin.pm
Normal file
@ -0,0 +1,56 @@
|
||||
#
|
||||
# Copyright 2016 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package network::kemp::snmp::plugin;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use base qw(centreon::plugins::script_snmp);
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
my $self = $class->SUPER::new(package => __PACKAGE__, %options);
|
||||
bless $self, $class;
|
||||
|
||||
$self->{version} = '0.1';
|
||||
%{$self->{modes}} = (
|
||||
'cpu-detailed' => 'snmp_standard::mode::cpudetailed',
|
||||
'interfaces' => 'snmp_standard::mode::interfaces',
|
||||
'load' => 'snmp_standard::mode::loadaverage',
|
||||
'list-interfaces' => 'snmp_standard::mode::listinterfaces',
|
||||
'list-vs' => 'network::kemp::snmp::mode::listvs',
|
||||
'ha-status' => 'network::kemp::snmp::mode::hastatus',
|
||||
'memory' => 'snmp_standard::mode::memory',
|
||||
'rs-status' => 'network::kemp::snmp::mode::rsstatus',
|
||||
'vs-status' => 'network::kemp::snmp::mode::vsstatus',
|
||||
);
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 PLUGIN DESCRIPTION
|
||||
|
||||
Check Kemp equipments in SNMP.
|
||||
|
||||
=cut
|
||||
@ -35,15 +35,45 @@ sub new {
|
||||
$options{options}->add_options(arguments =>
|
||||
{
|
||||
"oid:s" => { name => 'oid' },
|
||||
"oid-leef:s" => { name => 'oid_leef' },
|
||||
"oid-table:s" => { name => 'oid_table' },
|
||||
"oid-instance:s" => { name => 'oid_instance' },
|
||||
"filter-table-value:s" => { name => 'filter_table_value' },
|
||||
"filter-table-instance:s" => { name => 'filter_table_instance' },
|
||||
|
||||
"warning-regexp:s" => { name => 'warning_regexp' },
|
||||
"critical-regexp:s" => { name => 'critical_regexp' },
|
||||
"unknown-regexp:s" => { name => 'unknown_regexp' },
|
||||
"format:s" => { name => 'format', default => 'current value is %s' },
|
||||
"map-values:s" => { name => 'map_values' },
|
||||
"map-values-separator:s" => { name => 'map_values_separator', default => ',' },
|
||||
"regexp-map-values" => { name => 'use_regexp_map_values' },
|
||||
"regexp-isensitive" => { name => 'use_iregexp' },
|
||||
|
||||
"warning-absent:s@" => { name => 'warning_absent' },
|
||||
"critical-absent:s@" => { name => 'critical_absent' },
|
||||
"unknown-absent:s@" => { name => 'unknown_absent' },
|
||||
"warning-present:s@" => { name => 'warning_present' },
|
||||
"critical-present:s@" => { name => 'critical_present' },
|
||||
"unknown-present:s@" => { name => 'unknown_present' },
|
||||
|
||||
"format-ok:s" => { name => 'format_ok', default => '%{filter_rows} value(s)' },
|
||||
"format-warning:s" => { name => 'format_warning', default => 'value(s): %{details_warning}' },
|
||||
"format-critical:s" => { name => 'format_critical', default => 'value(s): %{details_critical}' },
|
||||
"format-unknown:s" => { name => 'format_unknown', default => 'value(s): %{details_unknown}' },
|
||||
|
||||
"format-details-ok:s" => { name => 'format_details_ok', default => '%{value}' },
|
||||
"format-details-warning:s" => { name => 'format_details_warning', default => '%{value}' },
|
||||
"format-details-critical:s" => { name => 'format_details_critical', default => '%{value}' },
|
||||
"format-details-unknown:s" => { name => 'format_details_unknown', default => '%{value}' },
|
||||
|
||||
"format-details-separator-ok:s" => { name => 'format_details_separator_ok', default => ', ' },
|
||||
"format-details-separator-warning:s" => { name => 'format_details_separator_warning', default => ', ' },
|
||||
"format-details-separator-critical:s" => { name => 'format_details_separator_critical', default => ', ' },
|
||||
"format-details-separator-unknown:s" => { name => 'format_details_separator_unknown', default => ', ' },
|
||||
|
||||
"map-values:s" => { name => 'map_values' },
|
||||
"map-value-other:s" => { name => 'map_value_other' },
|
||||
"map-values-separator:s" => { name => 'map_values_separator', default => ',' },
|
||||
});
|
||||
|
||||
$self->{macros} = { ok => {}, warning => {}, critical => {}, unknown => {} };
|
||||
return $self;
|
||||
}
|
||||
|
||||
@ -51,12 +81,16 @@ sub check_options {
|
||||
my ($self, %options) = @_;
|
||||
$self->SUPER::init(%options);
|
||||
|
||||
if (!defined($self->{option_results}->{oid}) || $self->{option_results}->{oid} eq '') {
|
||||
$self->{output}->add_option_msg(short_msg => "Need to specify an OID.");
|
||||
$self->{option_results}->{oid_leef} = $self->{option_results}->{oid} if (defined($self->{option_results}->{oid}) && $self->{option_results}->{oid} ne '');
|
||||
if ((!defined($self->{option_results}->{oid_leef}) || $self->{option_results}->{oid_leef} eq '') &&
|
||||
(!defined($self->{option_results}->{oid_table}) || $self->{option_results}->{oid_table} eq '')) {
|
||||
$self->{output}->add_option_msg(short_msg => "Need to specify an OID with option --oid-leef or --oid-table.");
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
$self->{option_results}->{oid} = '.' . $self->{option_results}->{oid} if ($self->{option_results}->{oid} !~ /^\./);
|
||||
|
||||
foreach (('oid_leef', 'oid_table', 'oid_instance')) {
|
||||
$self->{option_results}->{$_} = '.' . $self->{option_results}->{$_} if (defined($self->{option_results}->{$_}) && $self->{option_results}->{$_} ne '' && $self->{option_results}->{$_} !~ /^\./);
|
||||
}
|
||||
|
||||
$self->{map_values} = {};
|
||||
if (defined($self->{option_results}->{map_values})) {
|
||||
foreach (split /$self->{option_results}->{map_values_separator}/, $self->{option_results}->{map_values}) {
|
||||
@ -66,47 +100,201 @@ sub check_options {
|
||||
}
|
||||
}
|
||||
|
||||
sub check_regexp {
|
||||
sub get_instance_value {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
if (!defined($self->{option_results}->{oid_instance}) || $self->{option_results}->{oid_instance} eq ''
|
||||
|| !defined($self->{results}->{$self->{option_results}->{oid_instance} . '.' . $options{instance}})) {
|
||||
return $options{instance};
|
||||
}
|
||||
|
||||
return $self->{results}->{$self->{option_results}->{oid_instance} . '.' . $options{instance}};
|
||||
}
|
||||
|
||||
sub get_map_value {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $value = $options{value};
|
||||
return '' if (!defined($options{value}));
|
||||
if (defined($self->{map_values}->{$options{value}})) {
|
||||
$value = $self->{map_values}->{$options{value}};
|
||||
} elsif (defined($self->{option_results}->{map_value_other}) && $self->{option_results}->{map_value_other} ne '') {
|
||||
$value = $self->{option_results}->{map_value_other};
|
||||
}
|
||||
|
||||
return $value;
|
||||
}
|
||||
|
||||
sub get_snmp_values {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{instances} = {};
|
||||
if (defined($self->{option_results}->{oid_leef}) && $self->{option_results}->{oid_leef} ne '') {
|
||||
$self->{results} = $self->{snmp}->get_leef(oids => [$self->{option_results}->{oid_leef}], nothing_quit => 1);
|
||||
$self->{macros}->{rows} = 1;
|
||||
$self->{macros}->{filter_rows} = 1;
|
||||
$self->{instances}->{0} = $self->get_map_value(value => $self->{results}->{$self->{option_results}->{oid_leef}});
|
||||
return 0;
|
||||
}
|
||||
|
||||
my $tables = [ { oid => $self->{option_results}->{oid_table}} ];
|
||||
push @$tables, { oid => $self->{option_results}->{oid_instance} } if (defined($self->{option_results}->{oid_instance}) && $self->{option_results}->{oid_instance} ne '');
|
||||
$self->{results} = $self->{snmp}->get_multiple_table(oids => $tables, nothing_quit => 1, return_type => 1);
|
||||
my ($row, $filter_row) = (0, 0);
|
||||
foreach (keys %{$self->{results}}) {
|
||||
next if ($_ !~ /^$self->{option_results}->{oid_table}\.(.*)$/);
|
||||
|
||||
$row++;
|
||||
my $instance = $self->get_instance_value(instance => $1);
|
||||
my $value = $self->get_map_value(value => $self->{results}->{$_});
|
||||
$self->{output}->output_add(long_msg => sprintf("[instance: %s][value: %s]", $_, $value), debug => 1);
|
||||
if (defined($self->{option_results}->{filter_table_value}) && $self->{option_results}->{filter_table_value} ne '' &&
|
||||
$value !~ /$self->{option_results}->{filter_table_value}/) {
|
||||
$self->{output}->output_add(long_msg => sprintf("skipping oid '%s' value '%s': not matching the filter", $_, $value), debug => 1);
|
||||
next;
|
||||
}
|
||||
if (defined($self->{option_results}->{filter_table_instance}) && $self->{option_results}->{filter_table_instance} ne '' &&
|
||||
$instance !~ /$self->{option_results}->{filter_table_instance}/) {
|
||||
$self->{output}->output_add(long_msg => sprintf("skipping oid '%s' instance '%s': not matching the filter", $_, $instance), debug => 1);
|
||||
next;
|
||||
}
|
||||
|
||||
$self->{instances}->{$instance} = $value;
|
||||
$filter_row++;
|
||||
}
|
||||
$self->{macros}->{rows} = $row;
|
||||
$self->{macros}->{filter_rows} = $filter_row;
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub checking_regexp {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
return 0 if (!defined($self->{option_results}->{$options{severity} . '_regexp'}));
|
||||
my $regexp = $self->{option_results}->{$options{severity} . '_regexp'};
|
||||
|
||||
if (defined($self->{option_results}->{use_iregexp}) && $options{value} =~ /$regexp/i) {
|
||||
$self->{exit_code} = $options{severity};
|
||||
$self->{instances}->{$options{severity}}->{$options{instance}} = $options{value};
|
||||
return 1;
|
||||
} elsif (!defined($self->{option_results}->{use_iregexp}) && $options{value} =~ /$regexp/) {
|
||||
$self->{exit_code} = $options{severity};
|
||||
$self->{instances}->{$options{severity}}->{$options{instance}} = $options{value};
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub run {
|
||||
sub store_ok {
|
||||
my ($self, %options) = @_;
|
||||
# $options{snmp} = snmp object
|
||||
$self->{snmp} = $options{snmp};
|
||||
|
||||
my $result = $self->{snmp}->get_leef(oids => [$self->{option_results}->{oid}], nothing_quit => 1);
|
||||
my $value_check = $result->{$self->{option_results}->{oid}};
|
||||
my $value_display = $value_check;
|
||||
|
||||
if (defined($self->{option_results}->{map_values})) {
|
||||
# If we don't find it. We keep the original value
|
||||
$value_display = defined($self->{map_values}->{$value_check}) ? $self->{map_values}->{$value_check} : $value_check;
|
||||
if (defined($self->{option_results}->{use_regexp_map_values})) {
|
||||
$value_check = $value_display;
|
||||
foreach my $severity (('critical', 'warning', 'unknown')) {
|
||||
foreach my $type (('absent', 'present')) {
|
||||
if (defined($self->{option_results}->{$severity . '_' . $type}) && scalar(@{$self->{option_results}->{$severity . '_' . $type}}) > 0) {
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
$self->{exit_code} = 'ok';
|
||||
$self->check_regexp(severity => 'critical', value => $value_check) ||
|
||||
$self->check_regexp(severity => 'warning', value => $value_check) ||
|
||||
$self->check_regexp(severity => 'unknown', value => $value_check);
|
||||
|
||||
$self->{output}->output_add(severity => $self->{exit_code},
|
||||
short_msg => sprintf($self->{option_results}->{format}, $value_display));
|
||||
$self->{instances}->{ok}->{$options{instance}} = $options{value};
|
||||
}
|
||||
|
||||
sub checking_exist {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
foreach my $severity (('critical', 'warning', 'unknown')) {
|
||||
foreach my $absent (@{$self->{option_results}->{$severity . '_absent'}}) {
|
||||
my $match = 0;
|
||||
foreach (keys %{$self->{instances}}) {
|
||||
if ($self->{instances}->{$_} eq $absent) {
|
||||
$match = 1;
|
||||
last;
|
||||
}
|
||||
}
|
||||
|
||||
if ($match == 0) {
|
||||
$self->{instances}->{$severity}->{$absent} = $absent;
|
||||
}
|
||||
}
|
||||
|
||||
foreach my $present (@{$self->{option_results}->{$severity . '_present'}}) {
|
||||
my $match = 0;
|
||||
foreach (keys %{$self->{instances}}) {
|
||||
if ($self->{instances}->{$_} eq $present) {
|
||||
$self->{instances}->{$severity}->{$_} = $self->{instances}->{$_};
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub change_macros {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $value = $self->{option_results}->{'format_' . $options{severity}};
|
||||
while ($value =~ /%\{(.*?)\}/g) {
|
||||
$value =~ s/%\{($1)\}/\$self->{macros}->{$1}/g;
|
||||
}
|
||||
|
||||
return $value;
|
||||
}
|
||||
|
||||
sub build_format_details {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
foreach my $severity (('ok', 'critical', 'warning', 'unknown')) {
|
||||
$self->{macros}->{'details_' . $severity} = '';
|
||||
my $append = '';
|
||||
foreach my $instance (sort keys %{$self->{instances}->{$severity}}) {
|
||||
my $details = $self->{option_results}->{'format_details_' . $severity};
|
||||
$details =~ s/%{rows}/$self->{macros}->{rows}/g;
|
||||
$details =~ s/%{filter_rows}/$self->{macros}->{filter_rows}/g;
|
||||
$details =~ s/%{instance}/$instance/g;
|
||||
$details =~ s/%{value}/$self->{instances}->{$severity}->{$instance}/g;
|
||||
|
||||
$self->{macros}->{'details_' . $severity} .= $append . $details;
|
||||
$append = $self->{option_results}->{'format_details_separator_' . $severity};
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub display_severity {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
if (!(defined($options{force}) && $options{force} == 1) && scalar(keys %{$self->{instances}->{$options{severity}}}) == 0) {
|
||||
return 0;
|
||||
}
|
||||
|
||||
my $display = $self->change_macros(severity => $options{severity});
|
||||
eval "\$display = \"$display\"";
|
||||
$self->{output}->output_add(severity => $options{severity},
|
||||
short_msg => $display);
|
||||
}
|
||||
|
||||
sub display_result {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->build_format_details();
|
||||
$self->display_severity(severity => 'ok', force => 1);
|
||||
foreach my $severity (('critical', 'warning', 'unknown')) {
|
||||
$self->display_severity(severity => $severity);
|
||||
}
|
||||
}
|
||||
|
||||
sub run {
|
||||
my ($self, %options) = @_;
|
||||
$self->{snmp} = $options{snmp};
|
||||
|
||||
$self->get_snmp_values();
|
||||
|
||||
foreach (keys %{$self->{instances}}) {
|
||||
$self->checking_regexp(severity => 'critical', instance => $_, value => $self->{instances}->{$_}) ||
|
||||
$self->checking_regexp(severity => 'warning', instance => $_, value => $self->{instances}->{$_}) ||
|
||||
$self->checking_regexp(severity => 'unknown', instance => $_, value => $self->{instances}->{$_}) ||
|
||||
$self->store_ok(instance => $_, value => $self->{instances}->{$_});
|
||||
}
|
||||
$self->checking_exist();
|
||||
$self->display_result();
|
||||
|
||||
$self->{output}->display();
|
||||
$self->{output}->exit();
|
||||
@ -118,47 +306,78 @@ __END__
|
||||
|
||||
=head1 MODE
|
||||
|
||||
Check an SNMP string value (can be a String or an Integer).
|
||||
Check SNMP string values (can be a String or an Integer).
|
||||
|
||||
Check values absent:
|
||||
centreon_plugins.pl --plugin=snmp_standard::plugin --mode=string-value --hostname=127.0.0.1 --snmp-version=2c --snmp-community=public
|
||||
--oid-table='.1.3.6.1.2.1.25.4.2.1.2' --format-ok='%{filter_rows} processes' --format-critical='processes are absent: %{details_critical}' --critical-absent='centengine' --critical-absent='crond' --filter-table-value='centengine|crond'
|
||||
|
||||
Check table status:
|
||||
centreon_plugins.pl --plugin=snmp_standard::plugin --mode=string-value --hostname=127.0.0.1 --snmp-version=2c --snmp-community=akcp
|
||||
--oid-table='.1.3.6.1.4.1.3854.1.2.2.1.16.1.4' --oid-instance='.1.3.6.1.4.1.3854.1.2.2.1.16.1.1' --map-values='1=>noStatus,2=>normal,3=>highWarning,4=>highCritical,5=>lowWarning,6=>lowCritical,7=>sensorError' --map-value-other='unknown' --format-ok='All %{rows} entries [%{filter_rows}/%{rows} Temperatures] are ok.' --format-critical='%{details_critical}' --format-details-critical='%{instance} status is %{value}' --critical-regexp='highCritical|lowCritical|sensorError'
|
||||
|
||||
Check like the old plugin:
|
||||
centreon_plugins.pl --plugin=snmp_standard::plugin --mode=string-value --hostname=127.0.0.1 --snmp-version=2c --snmp-community=public
|
||||
--oid='.1.3.6.1.2.1.1.1.0' --format-ok='current value is: %{details_ok}' --format-details-warning='current value is: %{details_warning}' --format-details-critical='current value is: %{details_critical}'
|
||||
|
||||
=over 8
|
||||
|
||||
=item B<--oid>
|
||||
=item B<--oid> or <--oid-leef>
|
||||
|
||||
OID value to check (numeric format only).
|
||||
|
||||
=item B<--oid-table>
|
||||
|
||||
OID table value to check (numeric format only).
|
||||
|
||||
=item B<--oid-instance>
|
||||
|
||||
OID table value for the instance (numeric format only).
|
||||
Can be used to have human readable instance name.
|
||||
|
||||
=item B<--filter-table-value>
|
||||
|
||||
Filter value from --oid-table option (can be a regexp).
|
||||
|
||||
=item B<--filter-table-instance>
|
||||
|
||||
Filter instance from --oid-table option (can be a regexp).
|
||||
|
||||
=item B<--warning-regexp>
|
||||
|
||||
Return Warning if the oid value match the regexp.
|
||||
Return Warning if an oid value match the regexp.
|
||||
|
||||
=item B<--critical-regexp>
|
||||
|
||||
Return Critical if the oid value match the regexp.
|
||||
Return Critical if an oid value match the regexp.
|
||||
|
||||
=item B<--unknown-regexp>
|
||||
=item B<--regexp-isensitive>
|
||||
|
||||
Return Unknown if the oid value match the regexp.
|
||||
Allows to use regexp non case-sensitive.
|
||||
|
||||
=item B<--format>
|
||||
=item B<--format-*>
|
||||
|
||||
Output format (Default: 'current value is %s').
|
||||
Output format according the threshold.
|
||||
Can be:
|
||||
'ok' (default: '%{filter_rows} value(s)'),
|
||||
'warning' (default: 'value(s): %{details_warning}'),
|
||||
'critical' (default: 'value(s): %{details_critical}'),
|
||||
'unknown' (default: 'value(s): %{details_unknown}').
|
||||
Can used: %{rows}, %{filter_rows}, %{details_warning}, %{details_ok}, %{details_critical}, %{details_unknown}
|
||||
|
||||
=item B<--map-values>
|
||||
|
||||
Use to transform an integer value in most common case.
|
||||
Example: --map-values='1=>ok,10=>fan failed,11=>psu recovery'
|
||||
|
||||
=item B<--map-value-other>
|
||||
|
||||
Use to transform an integer value not defined in --map-values option.
|
||||
|
||||
=item B<--map-values-separator>
|
||||
|
||||
Separator uses between values (default: coma).
|
||||
|
||||
=item B<--regexp-map-values>
|
||||
|
||||
Use the 'map values' to match in regexp (need --map-values option).
|
||||
|
||||
=item B<--regexp-isensitive>
|
||||
|
||||
Allows to use regexp non case-sensitive.
|
||||
|
||||
=back
|
||||
|
||||
=cut
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user