diff --git a/apps/tomcat/web/mode/requestinfo.pm b/apps/tomcat/web/mode/requestinfo.pm
deleted file mode 100644
index abe1ec4de..000000000
--- a/apps/tomcat/web/mode/requestinfo.pm
+++ /dev/null
@@ -1,394 +0,0 @@
-#
-# 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 apps::tomcat::web::mode::requestinfo;
-
-use base qw(centreon::plugins::mode);
-use strict;
-use warnings;
-use centreon::plugins::http;
-use centreon::plugins::statefile;
-use Digest::MD5 qw(md5_hex);
-use XML::XPath;
-use URI::Escape;
-
-sub new {
- my ($class, %options) = @_;
- my $self = $class->SUPER::new(package => __PACKAGE__, %options);
- bless $self, $class;
-
- $options{options}->add_options(arguments => {
- 'hostname:s' => { name => 'hostname' },
- 'port:s' => { name => 'port', default => '8080' },
- 'proto:s' => { name => 'proto' },
- 'credentials' => { name => 'credentials' },
- 'basic' => { name => 'basic' },
- 'username:s' => { name => 'username' },
- 'password:s' => { name => 'password' },
- 'timeout:s' => { name => 'timeout' },
- 'urlpath:s' => { name => 'url_path', default => '/manager/status?XML=true' },
- 'filter-name:s' => { name => 'filter_name' },
- });
-
- $self->{http} = centreon::plugins::http->new(%options);
- return $self;
-}
-
-sub check_options {
- my ($self, %options) = @_;
- $self->SUPER::init(%options);
-
- #MaxTime
- if (($self->{perfdata}->threshold_validate(label => 'warning-maxtime', value => $self->{option_results}->{warning_maxtime})) == 0) {
- $self->{output}->add_option_msg(short_msg => "Wrong warning 'warning-maxtime' threshold '" . $self->{option_results}->{warning_maxtime} . "'.");
- $self->{output}->option_exit();
- }
- if (($self->{perfdata}->threshold_validate(label => 'critical-maxtime', value => $self->{option_results}->{critical_maxtime})) == 0) {
- $self->{output}->add_option_msg(short_msg => "Wrong critical 'critical-maxtime' threshold '" . $self->{option_results}->{critical_maxtime} . "'.");
- $self->{output}->option_exit();
- }
- #processingTime
- if (($self->{perfdata}->threshold_validate(label => 'warning-processingtime', value => $self->{option_results}->{warning_processingtime})) == 0) {
- $self->{output}->add_option_msg(short_msg => "Wrong warning 'warning-processingtime' threshold '" . $self->{option_results}->{warning_processingtime} . "'.");
- $self->{output}->option_exit();
- }
- if (($self->{perfdata}->threshold_validate(label => 'critical-processingtime', value => $self->{option_results}->{critical_processingtime})) == 0) {
- $self->{output}->add_option_msg(short_msg => "Wrong critical 'critical-processingtime' threshold '" . $self->{option_results}->{critical_processingtime} . "'.");
- $self->{output}->option_exit();
- }
- #requestCount
- if (($self->{perfdata}->threshold_validate(label => 'warning-requestcount', value => $self->{option_results}->{warning_requestcount})) == 0) {
- $self->{output}->add_option_msg(short_msg => "Wrong warning 'warning-requestcount' threshold '" . $self->{option_results}->{warning_requestcount} . "'.");
- $self->{output}->option_exit();
- }
- if (($self->{perfdata}->threshold_validate(label => 'critical-requestcount', value => $self->{option_results}->{critical_requestcount})) == 0) {
- $self->{output}->add_option_msg(short_msg => "Wrong critical 'critical-requestcount' threshold '" . $self->{option_results}->{critical_requestcount} . "'.");
- $self->{output}->option_exit();
- }
- #errorCount
- if (($self->{perfdata}->threshold_validate(label => 'warning-errorcount', value => $self->{option_results}->{warning_errorcount})) == 0) {
- $self->{output}->add_option_msg(short_msg => "Wrong warning 'warning-errorcount' threshold '" . $self->{option_results}->{warning_errorcount} . "'.");
- $self->{output}->option_exit();
- }
- if (($self->{perfdata}->threshold_validate(label => 'critical-errorcount', value => $self->{option_results}->{critical_errorcount})) == 0) {
- $self->{output}->add_option_msg(short_msg => "Wrong critical 'critical-errorcount' threshold '" . $self->{option_results}->{critical_errorcount} . "'.");
- $self->{output}->option_exit();
- }
-
- $self->{statefile_value}->check_options(%options);
- $self->{hostname} = $self->{option_results}->{hostname};
- if (!defined($self->{hostname})) {
- $self->{hostname} = 'me';
- }
-
- $self->{http}->set_options(%{$self->{option_results}});
-}
-
-
-
-sub manage_selection {
- my ($self, %options) = @_;
-
- my $webcontent = $self->{http}->request();
- my $port = $self->{option_results}->{port};
-
- #EXAMPLE 1:
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
-
- #EXAMPLE 2:
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
-
- #GET XML DATA
- my $xpath = XML::XPath->new( xml => $webcontent );
- my %xpath_check_results;
-
- foreach my $xpath_check ( keys %xpath_to_check ) {
- my $singlepath = $xpath_to_check{$xpath_check};
- $singlepath =~ s{\$port}{$port};
- my $nodeset = $xpath->find($singlepath);
-
- foreach my $node ($nodeset->get_nodelist) {
- my $connector_name = $node->getParentNode()->getParentNode()->getAttribute("name");
- $connector_name =~ s/^["'\s]+//;
- $connector_name =~ s/["'\s]+$//;
- $connector_name = uri_unescape($connector_name);
-
- next if (defined($self->{option_results}->{name}) && defined($self->{option_results}->{use_regexp}) && defined($self->{option_results}->{use_regexpi})
- && $connector_name !~ /$self->{option_results}->{name}/i);
- next if (defined($self->{option_results}->{name}) && defined($self->{option_results}->{use_regexp}) && !defined($self->{option_results}->{use_regexpi})
- && $connector_name !~ /$self->{option_results}->{name}/);
- next if (defined($self->{option_results}->{name}) && !defined($self->{option_results}->{use_regexp}) && !defined($self->{option_results}->{use_regexpi})
- && $connector_name ne $self->{option_results}->{name});
-
- my $value = $node->string_value();
- if ( $value =~ /^"?([0-9.]+)"?$/ ) {
- $self->{result}->{$connector_name}{$xpath_check} = $1;
- } else {
- $self->{result}->{$connector_name}{$xpath_check} = "not_numeric";
- };
- };
-
- if (scalar(keys %{$self->{result}}) <= 0) {
- if (defined($self->{option_results}->{name})) {
- $self->{output}->add_option_msg(short_msg => "No information found for name '" . $self->{option_results}->{name} . "'.");
- } else {
- $self->{output}->add_option_msg(short_msg => "No information found.");
- }
- $self->{output}->option_exit();
- };
- };
-};
-
-sub run {
- my ($self, %options) = @_;
-
- $self->manage_selection();
-
- my $new_datas = {};
- $self->{statefile_value}->read(statefile => 'cache_apps_tomcat_web_' . $self->{option_results}->{hostname} . '_' . $self->{http}->get_port() . '_' . $self->{mode} . '_' . (defined($self->{option_results}->{name}) ? md5_hex($self->{option_results}->{name}) : md5_hex('all')));
- $new_datas->{last_timestamp} = time();
- my $old_timestamp = $self->{statefile_value}->get(name => 'last_timestamp');
-
- if (!defined($self->{option_results}->{name}) || defined($self->{option_results}->{use_regexp})) {
- $self->{output}->output_add(severity => 'OK',
- short_msg => 'All requestInfo Data are ok.');
- }
-
- foreach my $name (sort(keys %{$self->{result}})) {
- $new_datas->{'requestInfo_processingTime_' . $name} = $self->{result}->{$name}->{requestInfo_processingTime};
- $new_datas->{'requestInfo_requestCount_' . $name} = $self->{result}->{$name}->{requestInfo_requestCount};
- $new_datas->{'requestInfo_errorCount_' . $name} = $self->{result}->{$name}->{requestInfo_errorCount};
-
- my $requestInfo_processingTime = $self->{statefile_value}->get(name => 'requestInfo_processingTime_' . $name);
- my $requestInfo_requestCount = $self->{statefile_value}->get(name => 'requestInfo_requestCount_' . $name);
- my $requestInfo_errorCount = $self->{statefile_value}->get(name => 'requestInfo_errorCount_' . $name);
-
- if (!defined($old_timestamp) || !defined($requestInfo_processingTime) || !defined($requestInfo_requestCount) || !defined($requestInfo_errorCount)) {
- next;
- }
- if ($new_datas->{'requestInfo_processingTime_' . $name} < $requestInfo_processingTime) {
- # We set 0. Has reboot.
- $requestInfo_processingTime = 0;
- }
- if ($new_datas->{'requestInfo_requestCount_' . $name} < $requestInfo_requestCount) {
- # We set 0. Has reboot.
- $requestInfo_requestCount = 0;
- }
- if ($new_datas->{'requestInfo_errorCount_' . $name} < $requestInfo_errorCount) {
- # We set 0. Has reboot.
- $requestInfo_errorCount = 0;
- }
-
- my $time_delta = $new_datas->{last_timestamp} - $old_timestamp;
- if ($time_delta <= 0) {
- # At least one second. two fast calls ;)
- $time_delta = 1;
- }
-
- my $requestInfo_maxTime = $self->{result}->{$name}->{requestInfo_maxTime};
-
- my $requestInfo_processingTime_absolute_per_sec = ($new_datas->{'requestInfo_processingTime_' . $name} - $requestInfo_processingTime) / $time_delta;
- my $requestInfo_requestCount_absolute_per_sec = ($new_datas->{'requestInfo_requestCount_' . $name} - $requestInfo_requestCount) / $time_delta;
- my $requestInfo_errorCount_absolute_per_sec = ($new_datas->{'requestInfo_errorCount_' . $name} - $requestInfo_errorCount) / $time_delta;
-
- my $exit1 = $self->{perfdata}->threshold_check(value => $requestInfo_maxTime, threshold => [ { label => 'critical-maxtime', 'exit_litteral' => 'critical' }, { label => 'warning-maxtime', exit_litteral => 'warning' } ]);
- my $exit2 = $self->{perfdata}->threshold_check(value => $requestInfo_processingTime_absolute_per_sec, threshold => [ { label => 'critical-processingtime', 'exit_litteral' => 'critical' }, { label => 'warning-processingtime', exit_litteral => 'warning' } ]);
- my $exit3 = $self->{perfdata}->threshold_check(value => $requestInfo_requestCount_absolute_per_sec, threshold => [ { label => 'critical-requestcount', 'exit_litteral' => 'critical' }, { label => 'warning-requestcount', exit_litteral => 'warning' } ]);
- my $exit4 = $self->{perfdata}->threshold_check(value => $requestInfo_errorCount_absolute_per_sec, threshold => [ { label => 'critical-errorcount', 'exit_litteral' => 'critical' }, { label => 'warning-errorcount', exit_litteral => 'warning' } ]);
- my $exit = $self->{output}->get_most_critical(status => [ $exit1, $exit2, $exit3, $exit4 ]);
-
- $self->{output}->output_add(long_msg => sprintf("Connector '%s' maxTime : %s, processingTime : %.3f, requestCount : %.2f, errorCount : %.2f", $name, $requestInfo_maxTime, $requestInfo_processingTime_absolute_per_sec, $requestInfo_requestCount_absolute_per_sec, $requestInfo_errorCount_absolute_per_sec));
- if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1) || (defined($self->{option_results}->{name}) && !defined($self->{option_results}->{use_regexp}))) {
- $self->{output}->output_add(severity => $exit,
- short_msg => sprintf("Connector '%s' maxTime : %s, processingTime : %.3f, requestCount : %.2f, errorCount : %.2f", $name,
- $requestInfo_maxTime,
- $requestInfo_processingTime_absolute_per_sec,
- $requestInfo_requestCount_absolute_per_sec,
- $requestInfo_errorCount_absolute_per_sec));
- }
-
- my $extra_label;
- $extra_label = '_' . $name if (!defined($self->{option_results}->{name}) || defined($self->{option_results}->{use_regexp}));
- $self->{output}->perfdata_add(
- label => 'maxTime',
- instances => $extra_label,
- value => sprintf("%.2f", $self->{result}->{$name}->{requestInfo_maxTime}),
- warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
- critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
- min => 0
- );
-
- $self->{output}->perfdata_add(
- label => 'processingTime',
- instances => $extra_label,
- value => sprintf("%.3f", $requestInfo_processingTime_absolute_per_sec),
- warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
- critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
- min => 0
- );
- $self->{output}->perfdata_add(
- label => 'requestCount',
- instances => $extra_label,
- value => sprintf("%.2f", $requestInfo_requestCount_absolute_per_sec),
- warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
- critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
- min => 0
- );
- $self->{output}->perfdata_add(
- label => 'errorCount',
- instances => $extra_label,
- value => sprintf("%.2f", $requestInfo_errorCount_absolute_per_sec),
- warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
- critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
- min => 0
- );
- };
-
- $self->{statefile_value}->write(data => $new_datas);
- if (!defined($old_timestamp)) {
- $self->{output}->output_add(severity => 'OK',
- short_msg => "Buffer creation...");
- }
-
- $self->{output}->display();
- $self->{output}->exit();
-};
-
-1;
-
-__END__
-
-=head1 MODE
-
-Check Tomcat Application Servers Requestinfo Threadsinformation for each Connector
-
-=over 8
-
-=item B<--hostname>
-
-IP Address or FQDN of the Tomcat Application Server
-
-=item B<--port>
-
-Port used by Tomcat
-
-=item B<--proto>
-
-Protocol used http or https
-
-=item B<--credentials>
-
-Specify this option if you access server-status page with authentication
-
-=item B<--username>
-
-Specify username for authentication (Mandatory if --credentials is specified)
-
-=item B<--password>
-
-Specify password for authentication (Mandatory if --credentials is specified)
-
-=item B<--basic>
-
-Specify this option if you access server-status page over basic authentication and don't want a '401 UNAUTHORIZED' error to be logged on your webserver.
-
-Specify this option if you access server-status page over hidden basic authentication or you'll get a '404 NOT FOUND' error.
-
-(Use with --credentials)
-
-=item B<--timeout>
-
-Threshold for HTTP timeout
-
-=item B<--urlpath>
-
-Path to the Tomcat Manager XML (Default: '/manager/status?XML=true')
-
-=item B<--filter-name>
-
-Filter the connector name (can be regexp)
-
-=item B<--warning-maxtime>
-
-Threshold warning for maxTime
-
-=item B<--critical-maxtime>
-
-Threshold critical for maxTime
-
-=item B<--warning-processingtime>
-
-Threshold warning for ProcessingTime
-
-=item B<--critical-processingtime>
-
-Threshold critical for ProcessingTime
-
-=item B<--warning-requestcount>
-
-Threshold warning for requestCount
-
-=item B<--critical-requestcount>
-
-Threshold critical for requestCount
-
-=item B<--warning-errorcount>
-
-Threshold warning for errorCount
-
-=item B<--critical-errorcount>
-
-Threshold critical for errorCount
-
-=back
-
-=cut