tyler.durden
/
centreon-plugins
mirror of https://github.com/centreon/centreon-plugins.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

+ add plugin for emerson liebert pdu

This commit is contained in:
garnier-quentin 2016-02-09 15:24:18 +01:00
parent 1e2fc5ad37
commit dc2c461076
4 changed files with 614 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

206
hardware/pdu/emerson/snmp/mode/globalstatus.pm Normal file
View File

@ -0,0 +1,206 @@
#
# 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::pdu::emerson::snmp::mode::globalstatus;
use base qw(centreon::plugins::templates::counter);
use strict;
use warnings;
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 is '" . $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 => 'pdu', type => 1, cb_prefix_output => 'prefix_pdu_output', message_multiple => 'All PDU status are ok' }
];
$self->{maps_counters}->{pdu} = [
{ 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'),
}
},
];
}
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' },
"warning-status:s" => { name => 'warning_status', default => '%{status} =~ /normalWithWarning/i' },
"critical-status:s" => { name => 'critical_status', default => '%{status} =~ /normalWithAlarm|abnormalOperation/i' },
});
return $self;
}
sub check_options {
my ($self, %options) = @_;
$self->SUPER::check_options(%options);
$instance_mode = $self;
$self->change_macros();
}
sub prefix_pdu_output {
my ($self, %options) = @_;
return "PDU '" . $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 %bitmap_status = (
1 => 'normalOperation',
2 => 'startUp',
8 => 'normalWithWarning',
16 => 'normalWithAlarm',
32 => 'abnormalOperation',
);
my $mapping = {
lgpPduEntryUsrLabel => { oid => '.1.3.6.1.4.1.476.1.42.3.8.20.1.10' },
lgpPduEntrySysStatus => { oid => '.1.3.6.1.4.1.476.1.42.3.8.20.1.25' },
};
my $oid_lgpPduEntry = '.1.3.6.1.4.1.476.1.42.3.8.20.1';
sub manage_selection {
my ($self, %options) = @_;
$self->{pdu} = {};
$self->{results} = $options{snmp}->get_table(oid => $oid_lgpPduEntry,
start => $mapping->{lgpPduEntryUsrLabel}->{oid},
end => $mapping->{lgpPduEntrySysStatus}->{oid},
nothing_quit => 1);
foreach my $oid (keys %{$self->{results}}) {
next if ($oid !~ /^$mapping->{lgpPduEntrySysStatus}->{oid}\.(.*)$/);
my $instance = $1;
my $result = $options{snmp}->map_instance(mapping => $mapping, results => $self->{results}, instance => $instance);
my $name = defined($result->{lgpPduEntryUsrLabel}) && $result->{lgpPduEntryUsrLabel} ne '' ?
$result->{lgpPduEntryUsrLabel} : $instance;
my $status = 'unknow';
foreach (keys %bitmap_status) {
if (($result->{lgpPduEntrySysStatus} & $_)) {
$status = $bitmap_status{$_};
last;
}
}
if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' &&
$name !~ /$self->{option_results}->{filter_name}/) {
$self->{output}->output_add(long_msg => "skipping '" . $name . "': no matching filter.", debug => 1);
next;
}
$self->{pdu}->{$instance} = { display => $name,
status => $status };
}
if (scalar(keys %{$self->{pdu}}) <= 0) {
$self->{output}->add_option_msg(short_msg => "Cannot found pdu.");
$self->{output}->option_exit();
}
}
1;
__END__
=head1 MODE
Check global status.
=over 8
=item B<--filter-name>
Filter PDU name (can be a regexp).
=item B<--warning-status>
Set warning threshold for status (Default: '%{status} =~ /normalWithWarning/i').
Can used special variables like: %{status}, %{display}.
=item B<--critical-status>
Set critical threshold for status (Default: '%{status} =~ /normalWithAlarm|abnormalOperation/i').
Can used special variables like: %{status}, %{display}
=back
=cut

167
hardware/pdu/emerson/snmp/mode/psusage.pm Normal file
View File

@ -0,0 +1,167 @@
#
# 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::pdu::emerson::snmp::mode::psusage;
use base qw(centreon::plugins::templates::counter);
use strict;
use warnings;
use Digest::MD5 qw(md5_hex);
sub set_counters {
my ($self, %options) = @_;
$self->{maps_counters_type} = [
{ name => 'ps', type => 1, cb_prefix_output => 'prefix_ps_output', message_multiple => 'All power sources are ok' },
];
$self->{maps_counters}->{ps} = [
{ label => 'power', set => {
key_values => [ { name => 'PwrTotal' }, { name => 'display' } ],
output_template => 'total input power : %s W', output_error_template => "total input power : %s",
perfdatas => [
{ label => 'power', value => 'PwrTotal_absolute', template => '%s',
unit => 'W', min => 0, label_extra_instance => 1, instance_use => 'display_absolute' },
],
}
},
{ label => 'energy', set => {
key_values => [ { name => 'EnergyAccum', diff => 1 }, { name => 'display' } ],
output_template => 'Total energy : %.3f kWh', output_error_template => "Total energy : %s",
perfdatas => [
{ label => 'energy', value => 'EnergyAccum_absolute', template => '%.3f',
unit => 'kWh', min => 0, label_extra_instance => 1, instance_use => 'display_absolute' },
],
}
},
{ label => 'current-neutral', set => {
key_values => [ { name => 'EcNeutral' }, { name => 'display' } ],
output_template => 'Current neutral : %s Amp AC RMS', output_error_template => "Current neutral : %s",
perfdatas => [
{ label => 'current_neutral', value => 'EcNeutral_absolute', template => '%s',
unit => 'AmpAcRMS', min => 0, label_extra_instance => 1, instance_use => 'display_absolute' },
],
}
},
];
}
sub prefix_ps_output {
my ($self, %options) = @_;
return "Power source '" . $options{instance_value}->{display} . "' ";
}
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' },
});
return $self;
}
my $mapping = {
lgpPduPsEntrySysAssignLabel => { oid => '.1.3.6.1.4.1.476.1.42.3.8.30.20.1.15' },
lgpPduPsEntryEnergyAccum => { oid => '.1.3.6.1.4.1.476.1.42.3.8.30.20.1.50' }, # 0.1 Kilowatt-Hour
lgpPduPsEntryPwrTotal => { oid => '.1.3.6.1.4.1.476.1.42.3.8.30.20.1.65' }, # Watt
lgpPduPsEntryEcNeutral => { oid => '.1.3.6.1.4.1.476.1.42.3.8.30.20.1.70' }, # 0.1 Amp-AC-RMS
};
my $oid_lgpPduEntryUsrLabel = '.1.3.6.1.4.1.476.1.42.3.8.20.1.10';
my $oid_lgpPduPsEntry = '.1.3.6.1.4.1.476.1.42.3.8.30.20.1';
sub manage_selection {
my ($self, %options) = @_;
$self->{cache_name} = "pdu_emerson_" . $options{snmp}->get_hostname() . '_' . $options{snmp}->get_port() . '_' . $self->{mode} . '_' .
(defined($self->{option_results}->{filter_name}) ? md5_hex($self->{option_results}->{filter_name}) : md5_hex('all')) . '_' .
(defined($self->{option_results}->{filter_counters}) ? md5_hex($self->{option_results}->{filter_counters}) : md5_hex('all'));
$self->{ps} = {};
$self->{results} = $options{snmp}->get_multiple_table(oids => [ { oid => $oid_lgpPduEntryUsrLabel },
{ oid => $oid_lgpPduPsEntry },
],
nothing_quit => 1);
foreach my $oid (keys %{$self->{results}->{$oid_lgpPduPsEntry}}) {
next if ($oid !~ /^$mapping->{lgpPduPsEntryPwrTotal}->{oid}\.(\d+)\.(\d+)/);
my ($pdu_index, $ps_index) = ($1, $2);
my $result = $options{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_lgpPduPsEntry}, instance => $pdu_index . '.' . $ps_index);
my $pdu_name = defined($self->{results}->{$oid_lgpPduEntryUsrLabel}->{$oid_lgpPduEntryUsrLabel . '.' . $pdu_index}) && $self->{results}->{$oid_lgpPduEntryUsrLabel}->{$oid_lgpPduEntryUsrLabel . '.' . $pdu_index} ne '' ?
$self->{results}->{$oid_lgpPduEntryUsrLabel}->{$oid_lgpPduEntryUsrLabel . '.' . $pdu_index} : $pdu_index;
my $ps_name = defined($result->{lgpPduPsEntrySysAssignLabel}) && $result->{lgpPduPsEntrySysAssignLabel} ne '' ?
$result->{lgpPduPsEntrySysAssignLabel} : $ps_index;
my $name = $pdu_name . '/' . $ps_name;
if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' &&
$name !~ /$self->{option_results}->{filter_name}/) {
$self->{output}->output_add(long_msg => "skipping '" . $name . "': no matching filter.", debug => 1);
next;
}
$self->{ps}->{$pdu_index . '.' . $ps_index} = { display => $name,
EnergyAccum => $result->{lgpPduPsEntryEnergyAccum} * 0.1,
PwrTotal => $result->{lgpPduPsEntryPwrTotal},
EcNeutral => $result->{lgpPduPsEntryEcNeutral} * 0.1};
}
if (scalar(keys %{$self->{ps}}) <= 0) {
$self->{output}->add_option_msg(short_msg => "Cannot found power sources.");
$self->{output}->option_exit();
}
}
1;
__END__
=head1 MODE
Check power source usage.
=over 8
=item B<--filter-name>
Filter power source name (can be a regexp).
=item B<--filter-counters>
Only display some counters (regexp can be used).
Example: --filter-counters='^(power|energy)$'
=item B<--warning-*>
Threshold warning.
Can be: 'power', 'energy', 'current-neutral'.
=item B<--critical-*>
Threshold critical.
Can be: 'power', 'energy', 'current-neutral'.
=back
=cut

191
hardware/pdu/emerson/snmp/mode/rbusage.pm Normal file
View File

@ -0,0 +1,191 @@
#
# 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::pdu::emerson::snmp::mode::rbusage;
use base qw(centreon::plugins::templates::counter);
use strict;
use warnings;
use Digest::MD5 qw(md5_hex);
sub set_counters {
my ($self, %options) = @_;
$self->{maps_counters_type} = [
{ name => 'rb', type => 1, cb_prefix_output => 'prefix_rb_output', message_multiple => 'All receptacle branches are ok' },
];
$self->{maps_counters}->{rb} = [
{ label => 'energy', set => {
key_values => [ { name => 'EnergyAccum', diff => 1 }, { name => 'display' } ],
output_template => 'total energy : %.3f kWh', output_error_template => "total energy : %s",
perfdatas => [
{ label => 'energy', value => 'EnergyAccum_absolute', template => '%.3f',
unit => 'kWh', min => 0, label_extra_instance => 1, instance_use => 'display_absolute' },
],
}
},
{ label => 'power-real-neutral', set => {
key_values => [ { name => 'Pwr' }, { name => 'display' } ],
output_template => 'line-to-neutral real power : %s W', output_error_template => "line-to-neutral real power : %s",
perfdatas => [
{ label => 'power_real_neutral', value => 'Pwr_absolute', template => '%s',
unit => 'W', min => 0, label_extra_instance => 1, instance_use => 'display_absolute' },
],
}
},
{ label => 'power-apparent-neutral', set => {
key_values => [ { name => 'Ap' }, { name => 'display' } ],
output_template => 'line-to-neutral apparent power : %s VA', output_error_template => "line-to-neutral apparent power : %s",
perfdatas => [
{ label => 'power_apparent_neutral', value => 'Ap_absolute', template => '%s',
unit => 'VA', min => 0, label_extra_instance => 1, instance_use => 'display_absolute' },
],
}
},
{ label => 'current-neutral', set => {
key_values => [ { name => 'EcHundredths' }, { name => 'display' } ],
output_template => 'line-to-neutral current : %s Amp AC RMS', output_error_template => "line-to-neutral current : %s",
perfdatas => [
{ label => 'current_neutral', value => 'EcHundredths_absolute', template => '%s',
unit => 'AmpAcRMS', min => 0, label_extra_instance => 1, instance_use => 'display_absolute' },
],
}
},
{ label => 'potential-neutral', set => {
key_values => [ { name => 'EpLNTenths' }, { name => 'display' } ],
output_template => 'line-to-neutral potential : %s VoltRMS', output_error_template => "line-to-neutral potential : %s",
perfdatas => [
{ label => 'potential_neutral', value => 'EpLNTenths_absolute', template => '%s',
unit => 'VoltRMS', min => 0, label_extra_instance => 1, instance_use => 'display_absolute' },
],
}
},
];
}
sub prefix_rb_output {
my ($self, %options) = @_;
return "Receptacle branch '" . $options{instance_value}->{display} . "' ";
}
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' },
});
return $self;
}
my $mapping = {
lgpPduRbEntryUsrLabel => { oid => '.1.3.6.1.4.1.476.1.42.3.8.40.20.1.8' },
lgpPduRbEntryEnergyAccum => { oid => '.1.3.6.1.4.1.476.1.42.3.8.40.20.1.85' }, # 0.1 Kilowatt-Hour
lgpPduRbEntryEpLNTenths => { oid => '.1.3.6.1.4.1.476.1.42.3.8.40.20.1.100' }, # 0.1 VoltRMS
lgpPduRbEntryPwr => { oid => '.1.3.6.1.4.1.476.1.42.3.8.40.20.1.115' }, # Watt
lgpPduRbEntryAp => { oid => '.1.3.6.1.4.1.476.1.42.3.8.40.20.1.120' }, # VoltAmp
lgpPduRbEntryEcHundredths => { oid => '.1.3.6.1.4.1.476.1.42.3.8.40.20.1.130' }, # 0.01 Amp-AC-RMS
};
my $oid_lgpPduEntryUsrLabel = '.1.3.6.1.4.1.476.1.42.3.8.20.1.10';
my $oid_lgpPduRbEntry = '.1.3.6.1.4.1.476.1.42.3.8.40.20.1';
sub manage_selection {
my ($self, %options) = @_;
$self->{cache_name} = "pdu_emerson_" . $options{snmp}->get_hostname() . '_' . $options{snmp}->get_port() . '_' . $self->{mode} . '_' .
(defined($self->{option_results}->{filter_name}) ? md5_hex($self->{option_results}->{filter_name}) : md5_hex('all')) . '_' .
(defined($self->{option_results}->{filter_counters}) ? md5_hex($self->{option_results}->{filter_counters}) : md5_hex('all'));
$self->{rb} = {};
$self->{results} = $options{snmp}->get_multiple_table(oids => [ { oid => $oid_lgpPduEntryUsrLabel },
{ oid => $oid_lgpPduRbEntry },
],
nothing_quit => 1);
foreach my $oid (keys %{$self->{results}->{$oid_lgpPduRbEntry}}) {
next if ($oid !~ /^$mapping->{lgpPduRbEntryPwr}->{oid}\.(\d+)\.(\d+)/);
my ($pdu_index, $rb_index) = ($1, $2);
my $result = $options{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_lgpPduRbEntry}, instance => $pdu_index . '.' . $rb_index);
my $pdu_name = defined($self->{results}->{$oid_lgpPduEntryUsrLabel}->{$oid_lgpPduEntryUsrLabel . '.' . $pdu_index}) && $self->{results}->{$oid_lgpPduEntryUsrLabel}->{$oid_lgpPduEntryUsrLabel . '.' . $pdu_index} ne '' ?
$self->{results}->{$oid_lgpPduEntryUsrLabel}->{$oid_lgpPduEntryUsrLabel . '.' . $pdu_index} : $pdu_index;
my $rb_name = defined($result->{lgpPduRbEntryUsrLabel}) && $result->{lgpPduRbEntryUsrLabel} ne '' ?
$result->{lgpPduRbEntryUsrLabel} : $rb_index;
my $name = $pdu_name . '/' . $rb_name;
if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' &&
$name !~ /$self->{option_results}->{filter_name}/) {
$self->{output}->output_add(long_msg => "skipping '" . $name . "': no matching filter.", debug => 1);
next;
}
$self->{rb}->{$pdu_index . '.' . $rb_index} = { display => $name,
EnergyAccum => $result->{lgpPduRbEntryEnergyAccum} * 0.1,
EpLNTenths => $result->{lgpPduRbEntryEpLNTenths} * 0.1,
Pwr => $result->{lgpPduRbEntryPwr},
Ap => $result->{lgpPduRbEntryAp},
EcHundredths => $result->{lgpPduRbEntryEcHundredths} * 0.01};
}
if (scalar(keys %{$self->{rb}}) <= 0) {
$self->{output}->add_option_msg(short_msg => "Cannot found receptacle branches.");
$self->{output}->option_exit();
}
}
1;
__END__
=head1 MODE
Check receptacle branch usage.
=over 8
=item B<--filter-name>
Filter receptacle branch name (can be a regexp).
=item B<--filter-counters>
Only display some counters (regexp can be used).
Example: --filter-counters='^(energy)$'
=item B<--warning-*>
Threshold warning.
Can be: 'energy', 'power-real-neutral', 'power-apparent-neutral',
'current-neutral', 'potential-neutral'.
=item B<--critical-*>
Threshold critical.
Can be: 'energy', 'power-real-neutral', 'power-apparent-neutral',
'current-neutral', 'potential-neutral'.
=back
=cut

50
hardware/pdu/emerson/snmp/plugin.pm Normal file
View File

@ -0,0 +1,50 @@
#
# 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::pdu::emerson::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}} = (
'global-status' => 'hardware::pdu::emerson::snmp::mode::globalstatus',
'ps-usage' => 'hardware::pdu::emerson::snmp::mode::psusage',
'rb-usage' => 'hardware::pdu::emerson::snmp::mode::rbusage',
);
return $self;
}
1;
__END__
=head1 PLUGIN DESCRIPTION
Check Emerson Liebert PDU in SNMP.
=cut