diff --git a/network/efficientip/snmp/mode/dhcpusage.pm b/network/efficientip/snmp/mode/dhcpusage.pm new file mode 100644 index 000000000..d2d63813b --- /dev/null +++ b/network/efficientip/snmp/mode/dhcpusage.pm @@ -0,0 +1,170 @@ +# +# 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::efficientip::snmp::mode::dhcpusage; + +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 => 'global', type => 0 }, + ]; + + $self->{maps_counters}->{global} = [ + { label => 'ack', set => { + key_values => [ { name => 'ack', diff => 1 } ], + output_template => 'Ack : %s', + perfdatas => [ + { label => 'ack', value => 'ack_absolute', template => '%s', min => 0 }, + ], + } + }, + { label => 'nack', set => { + key_values => [ { name => 'nack', diff => 1 } ], + output_template => 'Nack : %s', + perfdatas => [ + { label => 'nack', value => 'nack_absolute', template => '%s', min => 0 }, + ], + } + }, + { label => 'offer', set => { + key_values => [ { name => 'offer', diff => 1 } ], + output_template => 'Offer : %s', + perfdatas => [ + { label => 'offer', value => 'offer_absolute', template => '%s', min => 0 }, + ], + } + }, + { label => 'inform', set => { + key_values => [ { name => 'inform', diff => 1 } ], + output_template => 'Inform : %s', + perfdatas => [ + { label => 'inform', value => 'inform_absolute', template => '%s', min => 0 }, + ], + } + }, + { label => 'decline', set => { + key_values => [ { name => 'decline', diff => 1 } ], + output_template => 'Decline : %s', + perfdatas => [ + { label => 'decline', value => 'decline_absolute', template => '%s', min => 0 }, + ], + } + }, + { label => 'release', set => { + key_values => [ { name => 'release', diff => 1 } ], + output_template => 'Release : %s', + perfdatas => [ + { label => 'release', value => 'release_absolute', template => '%s', min => 0 }, + ], + } + }, + { label => 'request', set => { + key_values => [ { name => 'request', diff => 1 } ], + output_template => 'Request : %s', + perfdatas => [ + { label => 'request', value => 'request_absolute', template => '%s', min => 0 }, + ], + } + }, + { label => 'discover', set => { + key_values => [ { name => 'discover', diff => 1 } ], + output_template => 'Discover : %s', + perfdatas => [ + { label => 'discover', value => 'discover_absolute', template => '%s', min => 0 }, + ], + } + }, + ]; +} + +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 => + { + }); + + return $self; +} + +my $mapping = { + eipDhcpStatName => { oid => '.1.3.6.1.4.1.2440.1.3.2.22.1.2' }, + eipDhcpStatValue => { oid => '.1.3.6.1.4.1.2440.1.3.2.22.1.3' }, +}; +my $oid_eipDhcpStatEntry = '.1.3.6.1.4.1.2440.1.3.2.22.1'; + +sub manage_selection { + my ($self, %options) = @_; + + $self->{cache_name} = "efficientip_" . $options{snmp}->get_hostname() . '_' . $options{snmp}->get_port() . '_' . $self->{mode} . '_' . + (defined($self->{option_results}->{filter_counters}) ? md5_hex($self->{option_results}->{filter_counters}) : md5_hex('all')); + + $self->{global} = {}; + + my $results = $options{snmp}->get_table(oid => $oid_eipDhcpStatEntry, + nothing_quit => 1); + foreach my $oid (keys %$results) { + next if ($oid !~ /^$mapping->{eipDhcpStatName}->{oid}\.(.*)/); + my $instance = $1; + my $result = $options{snmp}->map_instance(mapping => $mapping, results => $results, instance => $instance); + $self->{global}->{$result->{eipDhcpStatName}} = $result->{eipDhcpStatValue}; + } +} + +1; + +__END__ + +=head1 MODE + +Check dhcp usage. + +=over 8 + +=item B<--filter-counters> + +Only display some counters (regexp can be used). +Example: --filter-counters='^request$' + +=item B<--warning-*> + +Threshold warning. +Can be: 'ack', 'nack', 'offer', 'inform', 'decline', +'release', 'request', 'discover'. + +=item B<--critical-*> + +Threshold critical. +Can be: 'ack', 'nack', 'offer', 'inform', 'decline', +'release', 'request', 'discover'. + +=back + +=cut \ No newline at end of file diff --git a/network/efficientip/snmp/mode/dnsusage.pm b/network/efficientip/snmp/mode/dnsusage.pm new file mode 100644 index 000000000..b4759908d --- /dev/null +++ b/network/efficientip/snmp/mode/dnsusage.pm @@ -0,0 +1,132 @@ +# +# 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::efficientip::snmp::mode::dnsusage; + +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 => 'global', type => 0 }, + ]; + + my @map = ('udp', 'UDP Queries received : %s', 'tcp', 'TCP Queries received : %s', + 'requestv4', 'IPv4 Queries received : %s', 'requestv6', 'IPv6 Queries received : %s', + 'recursion', 'Queries requiring recursion : %s', 'response', 'Responses : %s', + 'recurserej', 'Recursive queries : %s', 'duplicate', 'Duplicate queries received : %s', + 'dropped', 'Queries Dropped : %s', 'res_queryv4', 'Queries sent to external IPv4 DNS servers : %s', + 'res_queryv6', 'Queries sent to external IPv6 DNS servers : %s', 'res_retry', 'Retried Queries to external DNS servers : %s', + 'res_responsev4', 'Responses from external IPv4 DNS servers : %s', 'res_responsev6', 'Responses from external IPv6 DNS servers : %s', + 'success', 'Sent NOERROR : %s', 'formerr', 'Sent FORMERR : %s', 'servfail', 'Sent SERVFAIL : %s', + 'nxdomain', 'Sent NXDOMAIN : %s', 'nxrrset', 'Sent nxrrset : %s', 'failure', 'Sent Other failure : %s', + 'xfrdone', 'Transfert Queries Completed : %s', 'xfrrej' , 'Transfert Queries Rejected : %s', + 'res-val', 'DNSSEC validation attempted : %s', 'res-valsuccess', 'DNSSEC validation succeeded : %s', + 'res-valnegsuccess', 'DNSSEC NX validation succeeded : %s', 'res-valfail', 'DNSSEC validation failed : %s'); + + $self->{maps_counters}->{global} = []; + for (my $i = 0; $i < scalar(@map); $i += 2) { + push @{$self->{maps_counters}->{global}}, { label => $map[$i], set => { + key_values => [ { name => $map[$i], diff => 1 } ], + output_template => $map[$i + 1], + perfdatas => [ + { label => $map[$i], value => $map[$i] . '_absolute', template => '%s', min => 0 }, + ], + } + }, + } +} + +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 => + { + }); + + return $self; +} + +my $mapping = { + eipDnsStatName => { oid => '.1.3.6.1.4.1.2440.1.4.2.3.1.2' }, + eipDnsStatValue => { oid => '.1.3.6.1.4.1.2440.1.4.2.3.1.3' }, +}; +my $oid_eipDnsStatEntry = '.1.3.6.1.4.1.2440.1.4.2.3.1'; + +sub manage_selection { + my ($self, %options) = @_; + + $self->{cache_name} = "efficientip_" . $options{snmp}->get_hostname() . '_' . $options{snmp}->get_port() . '_' . $self->{mode} . '_' . + (defined($self->{option_results}->{filter_counters}) ? md5_hex($self->{option_results}->{filter_counters}) : md5_hex('all')); + + $self->{global} = {}; + + my $results = $options{snmp}->get_table(oid => $oid_eipDnsStatEntry, + nothing_quit => 1); + foreach my $oid (keys %$results) { + next if ($oid !~ /^$mapping->{eipDnsStatName}->{oid}\.(.*)/); + my $instance = $1; + my $result = $options{snmp}->map_instance(mapping => $mapping, results => $results, instance => $instance); + $result->{eipDnsStatName} =~ s/_/-/g; + $self->{global}->{$result->{eipDnsStatName}} = $result->{eipDnsStatValue}; + } +} + +1; + +__END__ + +=head1 MODE + +Check dhcp usage. + +=over 8 + +=item B<--filter-counters> + +Only display some counters (regexp can be used). +Example: --filter-counters='^requestv4$' + +=item B<--warning-*> + +Threshold warning. + +=item B<--critical-*> + +Threshold critical. + +General name server statistics: 'udp', 'tcp', 'requestv4', 'requestv6', 'recursion', 'response', +'recurserej', 'duplicate', 'dropped', 'res-queryv4', 'res-queryv6', 'res-retry', +'res-responsev4', 'res-responsev6'. +DNS answers statistics: 'success', 'formerr', 'servfail', 'nxdomain', 'nxrrset', 'failure'. +DNS Transfer Requests Statistics: 'xfrdone', 'xfrrej'. +DNSSEC Validation Statistics: 'res-val', 'res-valsuccess', 'res-valnegsuccess', 'res-valfail'. + +=back + +=cut \ No newline at end of file diff --git a/network/efficientip/snmp/plugin.pm b/network/efficientip/snmp/plugin.pm new file mode 100644 index 000000000..572d09bff --- /dev/null +++ b/network/efficientip/snmp/plugin.pm @@ -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 network::efficientip::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}} = ( + 'dhcp-usage' => 'network::efficientip::snmp::mode::dhcpusage', + 'dns-usage' => 'network::efficientip::snmp::mode::dnsusage', + ); + + return $self; +} + +1; + +__END__ + +=head1 PLUGIN DESCRIPTION + +Check Efficient IP equipment in SNMP. +Please use plugin SNMP Linux for system checks ('cpu', 'memory', 'traffic',...). + +=cut