Adding missing __END__ et formatting
This commit is contained in:
BenPls
GitHub
parent
34e718399b
commit
afb7410ad8
|
|
@ -1,40 +1,40 @@
|
|||
#
|
||||
# Copyright 2019 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.
|
||||
#
|
||||
#
|
||||
# Copyright 2019 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 snmp_standard::mode::udpcon;
|
||||
package snmp_standard::mode::udpcon;
|
||||
|
||||
use base qw(centreon::plugins::mode);
|
||||
use base qw(centreon::plugins::mode);
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
my %map_addr_type = (
|
||||
my %map_addr_type = (
|
||||
0 => 'unknown',
|
||||
1 => 'ipv4',
|
||||
2 => 'ipv6',
|
||||
3 => 'ipv4z',
|
||||
4 => 'ipv6z',
|
||||
16 => 'dns',
|
||||
);
|
||||
);
|
||||
|
||||
sub new {
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
my $self = $class->SUPER::new(package => __PACKAGE__, %options);
|
||||
bless $self, $class;
|
||||
|
|
@ -51,9 +51,9 @@
|
|||
$self->{applications} = {};
|
||||
$self->{states} = { listen => 0 };
|
||||
return $self;
|
||||
}
|
||||
}
|
||||
|
||||
sub get_ipv6 {
|
||||
sub get_ipv6 {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $ipv6 = '';
|
||||
|
|
@ -68,9 +68,9 @@
|
|||
}
|
||||
|
||||
return $ipv6;
|
||||
}
|
||||
}
|
||||
|
||||
sub get_from_rfc4022 {
|
||||
sub get_from_rfc4022 {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $oid_udpListenerProcess = '.1.3.6.1.2.1.7.7.1.8';
|
||||
|
|
@ -98,9 +98,9 @@
|
|||
}
|
||||
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
|
||||
sub get_from_rfc1213 {
|
||||
sub get_from_rfc1213 {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $oid_udpLocalAddress = '.1.3.6.1.2.1.7.5.1.1';
|
||||
|
|
@ -112,17 +112,17 @@
|
|||
$self->{states}->{listen}++;
|
||||
push @{$self->{connections}}, "ipv4#$1#$2";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub build_connections {
|
||||
sub build_connections {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
if ($self->get_from_rfc4022() == 0) {
|
||||
$self->get_from_rfc1213();
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub check_services {
|
||||
sub check_services {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
foreach my $service (@{$self->{option_results}->{service}}) {
|
||||
|
|
@ -139,9 +139,9 @@
|
|||
|
||||
$self->{services}->{$tag} = { filter => ((defined($ipv) && $ipv ne '') ? $ipv : '.*?') . '#' .
|
||||
((defined($filter_ip) && $filter_ip ne '') ? $filter_ip : '.*?') . '#' .
|
||||
((defined($port) && $port ne '') ? $port : '.*?')
|
||||
,
|
||||
builtin => 0, number => 0 };
|
||||
((defined($port) && $port ne '') ? $port : '.*?'),
|
||||
builtin => 0,
|
||||
number => 0 };
|
||||
if (($self->{perfdata}->threshold_validate(label => 'warning-service-' . $tag, value => $warn)) == 0) {
|
||||
$self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $warn . "' for service '$tag'.");
|
||||
$self->{output}->option_exit();
|
||||
|
|
@ -151,9 +151,9 @@
|
|||
$self->{output}->option_exit();
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub check_applications {
|
||||
sub check_applications {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
foreach my $app (@{$self->{option_results}->{application}}) {
|
||||
|
|
@ -188,9 +188,9 @@
|
|||
$self->{output}->option_exit();
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub test_services {
|
||||
sub test_services {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
foreach my $tag (keys %{$self->{services}}) {
|
||||
|
|
@ -215,9 +215,9 @@
|
|||
critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-service-' . $tag),
|
||||
min => 0);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub test_applications {
|
||||
sub test_applications {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
foreach my $tag (keys %{$self->{applications}}) {
|
||||
|
|
@ -237,9 +237,9 @@
|
|||
critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-app-' . $tag),
|
||||
min => 0);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub check_options {
|
||||
sub check_options {
|
||||
my ($self, %options) = @_;
|
||||
$self->SUPER::init(%options);
|
||||
|
||||
|
|
@ -253,9 +253,9 @@
|
|||
}
|
||||
$self->check_services();
|
||||
$self->check_applications();
|
||||
}
|
||||
}
|
||||
|
||||
sub run {
|
||||
sub run {
|
||||
my ($self, %options) = @_;
|
||||
$self->{snmp} = $options{snmp};
|
||||
|
||||
|
|
@ -271,75 +271,77 @@
|
|||
|
||||
$self->{output}->display();
|
||||
$self->{output}->exit();
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 MODE
|
||||
=head1 MODE
|
||||
|
||||
Check udp connections.
|
||||
Check udp connections.
|
||||
|
||||
=over 8
|
||||
=over 8
|
||||
|
||||
=item B<--warning>
|
||||
=item B<--warning>
|
||||
|
||||
Threshold warning for total connections.
|
||||
Threshold warning for total connections.
|
||||
|
||||
=item B<--critical>
|
||||
=item B<--critical>
|
||||
|
||||
Threshold critical for total connections.
|
||||
Threshold critical for total connections.
|
||||
|
||||
=item B<--service>
|
||||
=item B<--service>
|
||||
|
||||
Check udp connections following rules:
|
||||
tag,[type],[port],[filter-ip],[threshold-warning],[threshold-critical]
|
||||
Check udp connections following rules:
|
||||
tag,[type],[port],[filter-ip],[threshold-warning],[threshold-critical]
|
||||
|
||||
Example to test NTP connections on the server: --service="ntp,,123,1,2"
|
||||
Example to test NTP connections on the server: --service="ntp,,123,1,2"
|
||||
|
||||
=over 16
|
||||
=over 16
|
||||
|
||||
=item <tag>
|
||||
=item <tag>
|
||||
|
||||
Name to identify service (must be unique and couldn't be 'total').
|
||||
Name to identify service (must be unique and couldn't be 'total').
|
||||
|
||||
=item <type>
|
||||
=item <type>
|
||||
|
||||
regexp - can use 'ipv4', 'ipv6'. Empty means all.
|
||||
regexp - can use 'ipv4', 'ipv6'. Empty means all.
|
||||
|
||||
=item <filter-ip>
|
||||
=item <filter-ip>
|
||||
|
||||
regexp - can use to exclude or include some IPs.
|
||||
regexp - can use to exclude or include some IPs.
|
||||
|
||||
=item <threshold-*>
|
||||
=item <threshold-*>
|
||||
|
||||
nagios-perfdata - number of connections.
|
||||
nagios-perfdata - number of connections.
|
||||
|
||||
=back
|
||||
=back
|
||||
|
||||
=item B<--application>
|
||||
=item B<--application>
|
||||
|
||||
Check udp connections of mutiple services:
|
||||
tag,[services],[threshold-warning],[threshold-critical]
|
||||
Check udp connections of mutiple services:
|
||||
tag,[services],[threshold-warning],[threshold-critical]
|
||||
|
||||
Example:
|
||||
--application="web,http|https,1,2"
|
||||
Example:
|
||||
--application="web,http|https,1,2"
|
||||
|
||||
=over 16
|
||||
=over 16
|
||||
|
||||
=item <tag>
|
||||
Name to identify application (must be unique).
|
||||
=item <tag>
|
||||
|
||||
=item <services>
|
||||
Name to identify application (must be unique).
|
||||
|
||||
List of services (used the tag name. Separated by '|').
|
||||
=item <services>
|
||||
|
||||
=item <threshold-*>
|
||||
List of services (used the tag name. Separated by '|').
|
||||
|
||||
nagios-perfdata - number of connections.
|
||||
=item <threshold-*>
|
||||
|
||||
=back
|
||||
nagios-perfdata - number of connections.
|
||||
|
||||
=back
|
||||
=back
|
||||
|
||||
=cut
|
||||
=back
|
||||
|
||||
=cut
|
||||
|
|
|
|||
Loading…
Reference in New Issue