Fix #11
This commit is contained in:
garnier-quentin
parent
0da40f5bc2
commit
0377002c81
|
|
@ -25,28 +25,207 @@ use base qw(centreon::plugins::mode);
|
|||
use strict;
|
||||
use warnings;
|
||||
use centreon::plugins::http;
|
||||
use centreon::plugins::values;
|
||||
|
||||
my $instance_mode;
|
||||
|
||||
my $maps_counters = {
|
||||
global => {
|
||||
'000_busy' => { set => {
|
||||
key_values => [ { name => 'busy' }, { name => 'total' } ],
|
||||
closure_custom_calc => \&custom_value_calc, closure_custom_calc_extra_options => { label_ref => 'busy' },
|
||||
closure_custom_output => \&custom_value_output,
|
||||
closure_custom_threshold_check => \&custom_value_threshold,
|
||||
closure_custom_perfdata => \&custom_value_perfdata,
|
||||
}
|
||||
},
|
||||
'001_free' => { set => {
|
||||
key_values => [ { name => 'free' }, { name => 'total' } ],
|
||||
closure_custom_calc => \&custom_value_calc, closure_custom_calc_extra_options => { label_ref => 'free' },
|
||||
closure_custom_output => \&custom_value_output,
|
||||
closure_custom_threshold_check => \&custom_value_threshold,
|
||||
closure_custom_perfdata => \&custom_value_perfdata,
|
||||
}
|
||||
},
|
||||
'002_waiting' => { set => {
|
||||
key_values => [ { name => 'waiting' }, { name => 'total' } ],
|
||||
closure_custom_calc => \&custom_value_calc, closure_custom_calc_extra_options => { label_ref => 'waiting' },
|
||||
closure_custom_output => \&custom_value_output,
|
||||
closure_custom_threshold_check => \&custom_value_threshold,
|
||||
closure_custom_perfdata => \&custom_value_perfdata,
|
||||
}
|
||||
},
|
||||
'003_starting' => { set => {
|
||||
key_values => [ { name => 'starting' }, { name => 'total' } ],
|
||||
closure_custom_calc => \&custom_value_calc, closure_custom_calc_extra_options => { label_ref => 'starting' },
|
||||
closure_custom_output => \&custom_value_output,
|
||||
closure_custom_threshold_check => \&custom_value_threshold,
|
||||
closure_custom_perfdata => \&custom_value_perfdata,
|
||||
}
|
||||
},
|
||||
'004_reading' => { set => {
|
||||
key_values => [ { name => 'reading' }, { name => 'total' } ],
|
||||
closure_custom_calc => \&custom_value_calc, closure_custom_calc_extra_options => { label_ref => 'reading' },
|
||||
closure_custom_output => \&custom_value_output,
|
||||
closure_custom_threshold_check => \&custom_value_threshold,
|
||||
closure_custom_perfdata => \&custom_value_perfdata,
|
||||
}
|
||||
},
|
||||
'005_sending' => { set => {
|
||||
key_values => [ { name => 'sending' }, { name => 'total' } ],
|
||||
closure_custom_calc => \&custom_value_calc, closure_custom_calc_extra_options => { label_ref => 'sending' },
|
||||
closure_custom_output => \&custom_value_output,
|
||||
closure_custom_threshold_check => \&custom_value_threshold,
|
||||
closure_custom_perfdata => \&custom_value_perfdata,
|
||||
}
|
||||
},
|
||||
'006_keepalive' => { set => {
|
||||
key_values => [ { name => 'keepalive' }, { name => 'total' } ],
|
||||
closure_custom_calc => \&custom_value_calc, closure_custom_calc_extra_options => { label_ref => 'keepalive' },
|
||||
closure_custom_output => \&custom_value_output,
|
||||
closure_custom_threshold_check => \&custom_value_threshold,
|
||||
closure_custom_perfdata => \&custom_value_perfdata,
|
||||
}
|
||||
},
|
||||
'007_dns-lookup' => { set => {
|
||||
key_values => [ { name => 'dns_lookup' }, { name => 'total' } ],
|
||||
closure_custom_calc => \&custom_value_calc, closure_custom_calc_extra_options => { label_ref => 'dns_lookup' },
|
||||
closure_custom_output => \&custom_value_output,
|
||||
closure_custom_threshold_check => \&custom_value_threshold,
|
||||
closure_custom_perfdata => \&custom_value_perfdata,
|
||||
}
|
||||
},
|
||||
'008_closing' => { set => {
|
||||
key_values => [ { name => 'closing' }, { name => 'total' } ],
|
||||
closure_custom_calc => \&custom_value_calc, closure_custom_calc_extra_options => { label_ref => 'closing' },
|
||||
closure_custom_output => \&custom_value_output,
|
||||
closure_custom_threshold_check => \&custom_value_threshold,
|
||||
closure_custom_perfdata => \&custom_value_perfdata,
|
||||
}
|
||||
},
|
||||
'009_logging' => { set => {
|
||||
key_values => [ { name => 'logging' }, { name => 'total' } ],
|
||||
closure_custom_calc => \&custom_value_calc, closure_custom_calc_extra_options => { label_ref => 'logging' },
|
||||
closure_custom_output => \&custom_value_output,
|
||||
closure_custom_threshold_check => \&custom_value_threshold,
|
||||
closure_custom_perfdata => \&custom_value_perfdata,
|
||||
}
|
||||
},
|
||||
'007_gracefuly-finished' => { set => {
|
||||
key_values => [ { name => 'gracefuly_finished' }, { name => 'total' } ],
|
||||
closure_custom_calc => \&custom_value_calc, closure_custom_calc_extra_options => { label_ref => 'gracefuly_finished' },
|
||||
closure_custom_output => \&custom_value_output,
|
||||
closure_custom_threshold_check => \&custom_value_threshold,
|
||||
closure_custom_perfdata => \&custom_value_perfdata,
|
||||
}
|
||||
},
|
||||
'007_idle-cleanup-worker' => { set => {
|
||||
key_values => [ { name => 'idle_cleanup_worker' }, { name => 'total' } ],
|
||||
closure_custom_calc => \&custom_value_calc, closure_custom_calc_extra_options => { label_ref => 'idle_cleanup_worker' },
|
||||
closure_custom_output => \&custom_value_output,
|
||||
closure_custom_threshold_check => \&custom_value_threshold,
|
||||
closure_custom_perfdata => \&custom_value_perfdata,
|
||||
}
|
||||
},
|
||||
},
|
||||
};
|
||||
|
||||
sub custom_value_threshold {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $exit = 'ok';
|
||||
if ($instance_mode->{option_results}->{units} eq '%') {
|
||||
$exit = $self->{perfdata}->threshold_check(value => $self->{result_values}->{prct}, threshold => [ { label => 'critical-' . $self->{label}, exit_litteral => 'critical' }, { label => 'warning-' . $self->{label}, exit_litteral => 'warning' } ]);
|
||||
} else {
|
||||
$exit = $self->{perfdata}->threshold_check(value => $self->{result_values}->{used}, threshold => [ { label => 'critical-' . $self->{label}, exit_litteral => 'critical' }, { label => 'warning-' . $self->{label}, exit_litteral => 'warning' } ]);
|
||||
}
|
||||
return $exit;
|
||||
}
|
||||
|
||||
sub custom_value_perfdata {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my ($warning, $critical);
|
||||
if ($instance_mode->{option_results}->{units} eq '%') {
|
||||
$warning = $self->{perfdata}->get_perfdata_for_output(label => 'warning-' . $self->{label}, total => $self->{result_values}->{total}, cast_int => 1);
|
||||
$critical = $self->{perfdata}->get_perfdata_for_output(label => 'critical-' . $self->{label}, total => $self->{result_values}->{total}, cast_int => 1);
|
||||
} else {
|
||||
$warning = $self->{perfdata}->get_perfdata_for_output(label => 'warning-' . $self->{label});
|
||||
$critical = $self->{perfdata}->get_perfdata_for_output(label => 'critical-' . $self->{label});
|
||||
}
|
||||
|
||||
$self->{output}->perfdata_add(label => $self->{result_values}->{label},
|
||||
value => $self->{result_values}->{used},
|
||||
warning => $warning,
|
||||
critical => $critical,
|
||||
min => 0, max => $self->{result_values}->{total});
|
||||
}
|
||||
|
||||
sub custom_value_output {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $label = $self->{result_values}->{label};
|
||||
$label =~ s/_/ /g;
|
||||
$label =~ s/(\w+)/\u$1/g;
|
||||
my $msg = sprintf("%s : %s (%.2f %%)",
|
||||
ucfirst($label),
|
||||
$self->{result_values}->{used}, $self->{result_values}->{prct});
|
||||
return $msg;
|
||||
}
|
||||
|
||||
sub custom_value_calc {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{result_values}->{total} = $options{new_datas}->{$self->{instance} . '_total'};
|
||||
if ($self->{result_values}->{total} == 0) {
|
||||
$self->{error_msg} = "skipped";
|
||||
return -2;
|
||||
}
|
||||
$self->{result_values}->{used} = $options{new_datas}->{$self->{instance} . '_' . $options{extra_options}->{label_ref}};
|
||||
$self->{result_values}->{prct} = $self->{result_values}->{used} * 100 / $self->{result_values}->{total};
|
||||
$self->{result_values}->{label} = $options{extra_options}->{label_ref};
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
my $self = $class->SUPER::new(package => __PACKAGE__, %options);
|
||||
bless $self, $class;
|
||||
|
||||
|
||||
$self->{version} = '1.0';
|
||||
$options{options}->add_options(arguments =>
|
||||
{
|
||||
"hostname:s" => { name => 'hostname' },
|
||||
"port:s" => { name => 'port', },
|
||||
"proto:s" => { name => 'proto' },
|
||||
"urlpath:s" => { name => 'url_path', default => "/server-status/?auto" },
|
||||
"credentials" => { name => 'credentials' },
|
||||
"username:s" => { name => 'username' },
|
||||
"password:s" => { name => 'password' },
|
||||
"proxyurl:s" => { name => 'proxyurl' },
|
||||
"warning:s" => { name => 'warning' },
|
||||
"critical:s" => { name => 'critical' },
|
||||
"timeout:s" => { name => 'timeout' },
|
||||
});
|
||||
{
|
||||
"hostname:s" => { name => 'hostname' },
|
||||
"port:s" => { name => 'port', },
|
||||
"proto:s" => { name => 'proto' },
|
||||
"urlpath:s" => { name => 'url_path', default => "/server-status/?auto" },
|
||||
"credentials" => { name => 'credentials' },
|
||||
"username:s" => { name => 'username' },
|
||||
"password:s" => { name => 'password' },
|
||||
"proxyurl:s" => { name => 'proxyurl' },
|
||||
"timeout:s" => { name => 'timeout' },
|
||||
"units:s" => { name => 'units', default => '%' },
|
||||
});
|
||||
|
||||
$self->{http} = centreon::plugins::http->new(output => $self->{output});
|
||||
|
||||
foreach my $key (('global')) {
|
||||
foreach (keys %{$maps_counters->{$key}}) {
|
||||
my ($id, $name) = split /_/;
|
||||
if (!defined($maps_counters->{$key}->{$_}->{threshold}) || $maps_counters->{$key}->{$_}->{threshold} != 0) {
|
||||
$options{options}->add_options(arguments => {
|
||||
'warning-' . $name . ':s' => { name => 'warning-' . $name },
|
||||
'critical-' . $name . ':s' => { name => 'critical-' . $name },
|
||||
});
|
||||
}
|
||||
$maps_counters->{$key}->{$_}->{obj} = centreon::plugins::values->new(output => $self->{output},
|
||||
perfdata => $self->{perfdata},
|
||||
label => $name);
|
||||
$maps_counters->{$key}->{$_}->{obj}->set(%{$maps_counters->{$key}->{$_}->{set}});
|
||||
}
|
||||
}
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
|
|
@ -54,64 +233,81 @@ 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();
|
||||
foreach my $key (('global')) {
|
||||
foreach (keys %{$maps_counters->{$key}}) {
|
||||
$maps_counters->{$key}->{$_}->{obj}->init(option_results => $self->{option_results});
|
||||
}
|
||||
}
|
||||
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();
|
||||
}
|
||||
|
||||
|
||||
$instance_mode = $self;
|
||||
$self->{http}->set_options(%{$self->{option_results}});
|
||||
}
|
||||
|
||||
sub run {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->manage_selection();
|
||||
|
||||
my ($short_msg, $short_msg_append, $long_msg, $long_msg_append) = ('', '', '', '');
|
||||
my @exits;
|
||||
|
||||
foreach (sort keys %{$maps_counters->{global}}) {
|
||||
my $obj = $maps_counters->{global}->{$_}->{obj};
|
||||
|
||||
$obj->set(instance => 'global');
|
||||
|
||||
my ($value_check) = $obj->execute(values => $self->{global});
|
||||
|
||||
if ($value_check != 0) {
|
||||
$long_msg .= $long_msg_append . $obj->output_error();
|
||||
$long_msg_append = ', ';
|
||||
next;
|
||||
}
|
||||
my $exit2 = $obj->threshold_check();
|
||||
push @exits, $exit2;
|
||||
|
||||
my $output = $obj->output();
|
||||
$long_msg .= $long_msg_append . $output;
|
||||
$long_msg_append = ', ';
|
||||
|
||||
if (!$self->{output}->is_status(litteral => 1, value => $exit2, compare => 'ok')) {
|
||||
$short_msg .= $short_msg_append . $output;
|
||||
$short_msg_append = ', ';
|
||||
}
|
||||
|
||||
$obj->perfdata();
|
||||
}
|
||||
|
||||
my $exit = $self->{output}->get_most_critical(status => [ @exits ]);
|
||||
if (!$self->{output}->is_status(litteral => 1, value => $exit, compare => 'ok')) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => "Slots $short_msg"
|
||||
);
|
||||
} else {
|
||||
$self->{output}->output_add(short_msg => "Slots $long_msg");
|
||||
}
|
||||
|
||||
$self->{output}->display();
|
||||
$self->{output}->exit();
|
||||
}
|
||||
|
||||
sub manage_selection {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $webcontent = $self->{http}->request();
|
||||
my $ScoreBoard = "";
|
||||
if ($webcontent =~ /^Scoreboard:\s+([^\s]+)/mi) {
|
||||
$ScoreBoard = $1;
|
||||
}
|
||||
|
||||
my $srvLimit = length($ScoreBoard);
|
||||
my $CountOpenSlots = ($ScoreBoard =~ tr/\.//);
|
||||
|
||||
my $exit = $self->{perfdata}->threshold_check(value => $CountOpenSlots,
|
||||
threshold => [ { label => 'critical', exit_litteral => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
|
||||
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => sprintf("Free slots: %d", $CountOpenSlots));
|
||||
$self->{output}->perfdata_add(label => "freeSlots",
|
||||
value => $CountOpenSlots,
|
||||
warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
|
||||
critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
|
||||
min => 0,
|
||||
max => $srvLimit);
|
||||
$self->{output}->perfdata_add(label => "waiting",
|
||||
value => ($ScoreBoard =~ tr/\_//));
|
||||
$self->{output}->perfdata_add(label => "starting",
|
||||
value => ($ScoreBoard =~ tr/S//));
|
||||
$self->{output}->perfdata_add(label => "reading",
|
||||
value => ($ScoreBoard =~ tr/R//));
|
||||
$self->{output}->perfdata_add(label => "sending",
|
||||
value => ($ScoreBoard =~ tr/W//));
|
||||
$self->{output}->perfdata_add(label => "keepalive",
|
||||
value => ($ScoreBoard =~ tr/K//));
|
||||
$self->{output}->perfdata_add(label => "dns_lookup",
|
||||
value => ($ScoreBoard =~ tr/D//));
|
||||
$self->{output}->perfdata_add(label => "closing",
|
||||
value => ($ScoreBoard =~ tr/C//));
|
||||
$self->{output}->perfdata_add(label => "logging",
|
||||
value => ($ScoreBoard =~ tr/L//));
|
||||
$self->{output}->perfdata_add(label => "gracefuly_finished",
|
||||
value => ($ScoreBoard =~ tr/G//));
|
||||
$self->{output}->perfdata_add(label => "idle_cleanup_worker",
|
||||
value => ($ScoreBoard =~ tr/I//));
|
||||
|
||||
$self->{output}->display();
|
||||
$self->{output}->exit();
|
||||
|
||||
$self->{global} = { total => length($ScoreBoard),
|
||||
free => ($ScoreBoard =~ tr/\.//),
|
||||
busy => length($ScoreBoard) - ($ScoreBoard =~ tr/\.//),
|
||||
waiting => ($ScoreBoard =~ tr/\_//), starting => ($ScoreBoard =~ tr/S//),
|
||||
reading => ($ScoreBoard =~ tr/R//), sending => ($ScoreBoard =~ tr/W//),
|
||||
keepalive => ($ScoreBoard =~ tr/K//), dns_lookup => ($ScoreBoard =~ tr/D//),
|
||||
closing => ($ScoreBoard =~ tr/C//), logging => ($ScoreBoard =~ tr/L//),
|
||||
gracefuly_finished => ($ScoreBoard =~ tr/G//), idle_cleanup_worker => ($ScoreBoard =~ tr/I//)};
|
||||
}
|
||||
|
||||
1;
|
||||
|
|
@ -160,13 +356,25 @@ Specify password for basic authentification (Mandatory if --credentials is speci
|
|||
|
||||
Threshold for HTTP timeout
|
||||
|
||||
=item B<--units>
|
||||
|
||||
Threshold unit (Default: '%'. Can be: '%' or 'absolute')
|
||||
|
||||
=item B<--warning>
|
||||
|
||||
Warning Threshold on remaining free slot
|
||||
Warning threshold.
|
||||
Can be: 'busy', 'free', 'waiting', 'starting', 'reading',
|
||||
'sending', 'keepalive', 'dns-lookup', 'closing',
|
||||
'logging', 'gracefuly-finished', 'idle-cleanup-worker'.
|
||||
|
||||
=item B<--critical>
|
||||
|
||||
Critical Threshold on remaining free slot
|
||||
Critical threshold.
|
||||
Can be: 'busy', 'free', 'waiting', 'starting', 'reading',
|
||||
'sending', 'keepalive', 'dns-lookup', 'closing',
|
||||
'logging', 'gracefuly-finished', 'idle-cleanup-worker'.
|
||||
|
||||
=over 8)
|
||||
|
||||
=back
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue