From 3e2f40aaaf6b19054250b71251f580a394b1a351 Mon Sep 17 00:00:00 2001 From: tcharles Date: Wed, 11 Jul 2018 16:48:01 +0200 Subject: [PATCH] starting peplink loadbalancer monitoring (#1015) * Create memory.pm * Create cpu.pm * Create plugin.pm --- network/peplink/balance/snmp/mode/cpu.pm | 100 +++++++++++++++++ network/peplink/balance/snmp/mode/memory.pm | 115 ++++++++++++++++++++ network/peplink/balance/snmp/plugin.pm | 51 +++++++++ 3 files changed, 266 insertions(+) create mode 100644 network/peplink/balance/snmp/mode/cpu.pm create mode 100644 network/peplink/balance/snmp/mode/memory.pm create mode 100644 network/peplink/balance/snmp/plugin.pm diff --git a/network/peplink/balance/snmp/mode/cpu.pm b/network/peplink/balance/snmp/mode/cpu.pm new file mode 100644 index 000000000..da22587af --- /dev/null +++ b/network/peplink/balance/snmp/mode/cpu.pm @@ -0,0 +1,100 @@ +# +# Copyright 2018 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::peplink::balance::snmp::mode::cpu; + +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} = '0.1'; + $options{options}->add_options(arguments => + { + "warning:s" => { name => 'warning' }, + "critical:s" => { name => 'critical' }, + }); + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); + + if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'."); + $self->{output}->option_exit(); + } + if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'."); + $self->{output}->option_exit(); + } +} + +sub run { + my ($self, %options) = @_; + $self->{snmp} = $options{snmp}; + + my $oid_deviceCpuLoad = '.1.3.6.1.4.1.23695.200.1.1.1.3.1.0'; + my $result = $self->{snmp}->get_leef(oids => [$oid_deviceCpuLoad], nothing_quit => 1); + + my $exit = $self->{perfdata}->threshold_check(value => $result->{$oid_deviceCpuLoad}, + threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]); + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("CPU Usage: %.2f%%", $result->{$oid_deviceCpuLoad}) + ); + $self->{output}->perfdata_add(label => "cpu_usage", unit => '%', + value => $result->{$oid_deviceCpuLoad}, + warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'), + critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'), + min => 0, max => 100); + + $self->{output}->display(); + $self->{output}->exit(); +} + +1; + +__END__ + +=head1 MODE + +Check cpu usage (DEVICE.mib). + +=over 8 + +=item B<--warning> + +Threshold warning in percent. + +=item B<--critical> + +Threshold critical in percent. + +=back + +=cut + diff --git a/network/peplink/balance/snmp/mode/memory.pm b/network/peplink/balance/snmp/mode/memory.pm new file mode 100644 index 000000000..a2e624d26 --- /dev/null +++ b/network/peplink/balance/snmp/mode/memory.pm @@ -0,0 +1,115 @@ +# +# Copyright 2018 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::peplink::balance::snmp::mode::memory; + +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} = '0.1'; + $options{options}->add_options(arguments => + { + "warning:s" => { name => 'warning', }, + "critical:s" => { name => 'critical', }, + }); + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); + + if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'."); + $self->{output}->option_exit(); + } + if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'."); + $self->{output}->option_exit(); + } +} + +sub run { + my ($self, %options) = @_; + $self->{snmp} = $options{snmp}; + + my $oid_deviceTotalMemory = '.1.3.6.1.4.1.23695.200.1.1.1.3.2.0'; + my $oid_deviceMemoryUsage = '.1.3.6.1.4.1.23695.200.1.1.1.3.3.0'; + + my $result = $self->{snmp}->get_leef(oids => [$oid_deviceTotalMemory, $oid_deviceMemoryUsage], nothing_quit => 1); + my $total = $result->{$oid_deviceTotalMemory}; + my $used = $result->{$oid_deviceMemoryUsage}; + my $free = $total - $used; + my $prct_used = $total / $used ; + my $prct_free = 100 - $prct_used; + + my ($total_size_value, $total_size_unit) = $self->{perfdata}->change_bytes(value => $total); + my ($total_used_value, $total_used_unit) = $self->{perfdata}->change_bytes(value => $used); + my ($total_free_value, $total_free_unit) = $self->{perfdata}->change_bytes(value => $free); + + my $exit = $self->{perfdata}->threshold_check(value => $prct_used, + threshold => [ { label => 'critical', exit_litteral => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]); + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Total: %s Used: %s (%.2f%%) Free: %s (%.2f%%)", + $total_size_value . " " . $total_size_unit, + $total_used_value . " " . $total_used_unit, $prct_used, + $total_free_value . " " . $total_free_unit, $prct_free)); + + $self->{output}->perfdata_add(label => "used", unit => 'B', + value => sprintf("%d", $used), + warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning', total => $total, cast_int => 1), + critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical', total => $total, cast_int => 1), + min => 0, max => $total + ); + + $self->{output}->display(); + $self->{output}->exit(); +} + +1; + +__END__ + +=head1 MODE + +Check memory usage (Device.mib). + +=over 8 + +=item B<--warning> + +Threshold warning in percent. + +=item B<--critical> + +Threshold critical in percent. + +=back + +=cut + diff --git a/network/peplink/balance/snmp/plugin.pm b/network/peplink/balance/snmp/plugin.pm new file mode 100644 index 000000000..ad8537c6d --- /dev/null +++ b/network/peplink/balance/snmp/plugin.pm @@ -0,0 +1,51 @@ +# +# Copyright 2018 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::peplink::balance::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' => 'network::peplink::balance::snmp::mode::cpu', + 'memory' => 'network::peplink::balance::snmp::mode::memory', + 'interfaces' => 'snmp_standard::mode::interfaces', + 'list-interfaces' => 'snmp_standard::mode::listinterfaces', + ); + + return $self; +} + +1; + +__END__ + +=head1 PLUGIN DESCRIPTION + +Check Peplink loadbalancer in SNMP. + +=cut