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

+ Fix #334

This commit is contained in:
garnier-quentin 2016-02-28 16:22:57 +01:00
parent 1cdd63c3cb
commit 904ca70714
1 changed files with 75 additions and 132 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

207
hardware/ups/standard/rfc1628/snmp/mode/inputlines.pm
View File

@ -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.