tyler.durden
/
centreon-plugins
mirror of https://github.com/centreon/centreon-plugins.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

+ Add some string thresholds also for soap and rest webservices

This commit is contained in:
Quentin Garnier 2015-02-19 16:11:15 +01:00
parent 7fc35f304e
commit d6119a9e12
2 changed files with 81 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
apps/protocols/http/mode/jsoncontent.pm
View File

@ -68,8 +68,10 @@ sub new {
"header:s@" => { name => 'header' }, "header:s@" => { name => 'header' },
"timeout:s" => { name => 'timeout', default => 10 }, "timeout:s" => { name => 'timeout', default => 10 },
"warning:s" => { name => 'warning' }, "warning-numeric:s" => { name => 'warning_numeric' },
"critical:s" => { name => 'critical' }, "critical-numeric:s" => { name => 'critical_numeric' },
"warning-string:s" => { name => 'warning_string' },
"critical-string:s" => { name => 'critical_string' },
"warning-time:s" => { name => 'warning_time' }, "warning-time:s" => { name => 'warning_time' },
"critical-time:s" => { name => 'critical_time' }, "critical-time:s" => { name => 'critical_time' },
"threshold-value:s" => { name => 'threshold_value', default => 'count' }, "threshold-value:s" => { name => 'threshold_value', default => 'count' },
@ -85,6 +87,9 @@ sub new {
$self->{values_ok} = []; $self->{values_ok} = [];
$self->{values_warning} = []; $self->{values_warning} = [];
$self->{values_critical} = []; $self->{values_critical} = [];
$self->{values_string_ok} = [];
$self->{values_string_warning} = [];
$self->{values_string_critical} = [];
return $self; return $self;
} }
@ -95,20 +100,20 @@ sub check_options {
if (!defined($self->{option_results}->{threshold_value}) || $self->{option_results}->{threshold_value} !~ /^(count|values)$/) { if (!defined($self->{option_results}->{threshold_value}) || $self->{option_results}->{threshold_value} !~ /^(count|values)$/) {
$self->{option_results}->{threshold_value} = 'count'; $self->{option_results}->{threshold_value} = 'count';
} }
if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) { if (($self->{perfdata}->threshold_validate(label => 'warning-numeric', value => $self->{option_results}->{warning_numeric})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'."); $self->{output}->add_option_msg(short_msg => "Wrong warning-numeric threshold '" . $self->{option_results}->{warning_numeric} . "'.");
$self->{output}->option_exit(); $self->{output}->option_exit();
} }
if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) { if (($self->{perfdata}->threshold_validate(label => 'critical-numeric', value => $self->{option_results}->{critical_numeric})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'."); $self->{output}->add_option_msg(short_msg => "Wrong critical-numeric threshold '" . $self->{option_results}->{critical_numeric} . "'.");
$self->{output}->option_exit(); $self->{output}->option_exit();
} }
if (($self->{perfdata}->threshold_validate(label => 'warning-time', value => $self->{option_results}->{warning_time})) == 0) { if (($self->{perfdata}->threshold_validate(label => 'warning-time', value => $self->{option_results}->{warning_time})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning_time} . "'."); $self->{output}->add_option_msg(short_msg => "Wrong warning-time threshold '" . $self->{option_results}->{warning_time} . "'.");
$self->{output}->option_exit(); $self->{output}->option_exit();
} }
if (($self->{perfdata}->threshold_validate(label => 'critical-time', value => $self->{option_results}->{critical_time})) == 0) { if (($self->{perfdata}->threshold_validate(label => 'critical-time', value => $self->{option_results}->{critical_time})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical_time} . "'."); $self->{output}->add_option_msg(short_msg => "Wrong critical-time threshold '" . $self->{option_results}->{critical_time} . "'.");
$self->{output}->option_exit(); $self->{output}->option_exit();
} }
if (!defined($self->{option_results}->{hostname})) { if (!defined($self->{option_results}->{hostname})) {
@ -155,7 +160,7 @@ sub display_output {
my ($self, %options) = @_; my ($self, %options) = @_;
foreach my $severity (('ok', 'warning', 'critical')) { foreach my $severity (('ok', 'warning', 'critical')) {
next if (scalar(@{$self->{'values_' . $severity}}) == 0); next if (scalar(@{$self->{'values_' . $severity}}) == 0 && scalar(@{$self->{'values_string_' . $severity}}) == 0);
my $format = $self->{option_results}->{'format_' . $severity}; my $format = $self->{option_results}->{'format_' . $severity};
while ($format =~ /%{(.*?)}/g) { while ($format =~ /%{(.*?)}/g) {
my $replace = ''; my $replace = '';
@ -205,15 +210,15 @@ sub lookup {
if ($self->{option_results}->{threshold_value} eq 'count') { if ($self->{option_results}->{threshold_value} eq 'count') {
my $exit = lc($self->{perfdata}->threshold_check(value => $self->{count}, my $exit = lc($self->{perfdata}->threshold_check(value => $self->{count},
threshold => [ { label => 'critical', exit_litteral => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ])); threshold => [ { label => 'critical-numeric', exit_litteral => 'critical' }, { label => 'warning-numeric', exit_litteral => 'warning' } ]));
push @{$self->{'values_' . $exit}}, $self->{count}; push @{$self->{'values_' . $exit}}, $self->{count};
$self->{'count_' . $exit}++; $self->{'count_' . $exit}++;
} }
$self->{output}->perfdata_add(label => 'count', $self->{output}->perfdata_add(label => 'count',
value => $self->{count}, value => $self->{count},
warning => $self->{option_results}->{threshold_value} eq 'count' ? $self->{perfdata}->get_perfdata_for_output(label => 'warning') : undef, warning => $self->{option_results}->{threshold_value} eq 'count' ? $self->{perfdata}->get_perfdata_for_output(label => 'warning-numeric') : undef,
critical => $self->{option_results}->{threshold_value} eq 'count' ? $self->{perfdata}->get_perfdata_for_output(label => 'critical') : undef, critical => $self->{option_results}->{threshold_value} eq 'count' ? $self->{perfdata}->get_perfdata_for_output(label => 'critical-numeric') : undef,
min => 0); min => 0);
my $count = 0; my $count = 0;
@ -222,14 +227,24 @@ sub lookup {
if ($value =~ /^[0-9.]+$/) { if ($value =~ /^[0-9.]+$/) {
if ($self->{option_results}->{threshold_value} eq 'values') { if ($self->{option_results}->{threshold_value} eq 'values') {
my $exit = lc($self->{perfdata}->threshold_check(value => $value, my $exit = lc($self->{perfdata}->threshold_check(value => $value,
threshold => [ { label => 'critical', exit_litteral => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ])); threshold => [ { label => 'critical-numeric', exit_litteral => 'critical' }, { label => 'warning-numeric', exit_litteral => 'warning' } ]));
push @{$self->{'values_' . $exit}}, $value; push @{$self->{'values_' . $exit}}, $value;
$self->{'count_' . $exit}++ $self->{'count_' . $exit}++
} }
$self->{output}->perfdata_add(label => 'element_' . $count, $self->{output}->perfdata_add(label => 'element_' . $count,
value => $value, value => $value,
warning => $self->{option_results}->{threshold_value} eq 'values' ? $self->{perfdata}->get_perfdata_for_output(label => 'warning') : undef, warning => $self->{option_results}->{threshold_value} eq 'values' ? $self->{perfdata}->get_perfdata_for_output(label => 'warning-numeric') : undef,
critical => $self->{option_results}->{threshold_value} eq 'values' ? $self->{perfdata}->get_perfdata_for_output(label => 'critical') : undef); critical => $self->{option_results}->{threshold_value} eq 'values' ? $self->{perfdata}->get_perfdata_for_output(label => 'critical-numeric') : undef);
} else {
if (defined($self->{option_results}->{critical_string}) && $self->{option_results}->{critical_string} ne '' &&
$value =~ /$self->{option_results}->{critical_string}/) {
push @{$self->{values_string_critical}}, $value;
} elsif (defined($self->{option_results}->{warning_string}) && $self->{option_results}->{warning_string} ne '' &&
$value =~ /$self->{option_results}->{warning_string}/) {
push @{$self->{values_string_warning}}, $value;
} else {
push @{$self->{values_string_ok}}, $value;
}
} }
} }
@ -329,11 +344,11 @@ THRESHOLD OPTIONS:
=over 8 =over 8
=item B<--warning> =item B<--warning-numeric>
Threshold warning (Default: on total matching elements) Threshold warning (Default: on total matching elements)
=item B<--critical> =item B<--critical-numeric>
Threshold critical (Default: on total matching elements) Threshold critical (Default: on total matching elements)
@ -342,6 +357,14 @@ Threshold critical (Default: on total matching elements)
Which value to use (Default: 'count') Which value to use (Default: 'count')
Can be: 'values' (only check numeric values) Can be: 'values' (only check numeric values)
=item B<--warning-string>
Threshold warning if the string match
=item B<--critical-numeric>
Threshold critical if the string match
=item B<--warning-time> =item B<--warning-time>
Threshold warning in ms of webservice response time Threshold warning in ms of webservice response time

57
apps/protocols/http/mode/soapcontent.pm
View File

@ -68,8 +68,10 @@ sub new {
"header:s@" => { name => 'header' }, "header:s@" => { name => 'header' },
"timeout:s" => { name => 'timeout', default => 10 }, "timeout:s" => { name => 'timeout', default => 10 },
"warning:s" => { name => 'warning' }, "warning-numeric:s" => { name => 'warning_numeric' },
"critical:s" => { name => 'critical' }, "critical-numeric:s" => { name => 'critical_numeric' },
"warning-string:s" => { name => 'warning_string' },
"critical-string:s" => { name => 'critical_string' },
"warning-time:s" => { name => 'warning_time' }, "warning-time:s" => { name => 'warning_time' },
"critical-time:s" => { name => 'critical_time' }, "critical-time:s" => { name => 'critical_time' },
"threshold-value:s" => { name => 'threshold_value', default => 'count' }, "threshold-value:s" => { name => 'threshold_value', default => 'count' },
@ -85,6 +87,9 @@ sub new {
$self->{values_ok} = []; $self->{values_ok} = [];
$self->{values_warning} = []; $self->{values_warning} = [];
$self->{values_critical} = []; $self->{values_critical} = [];
$self->{values_string_ok} = [];
$self->{values_string_warning} = [];
$self->{values_string_critical} = [];
return $self; return $self;
} }
@ -95,20 +100,20 @@ sub check_options {
if (!defined($self->{option_results}->{threshold_value}) || $self->{option_results}->{threshold_value} !~ /^(count|values)$/) { if (!defined($self->{option_results}->{threshold_value}) || $self->{option_results}->{threshold_value} !~ /^(count|values)$/) {
$self->{option_results}->{threshold_value} = 'count'; $self->{option_results}->{threshold_value} = 'count';
} }
if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) { if (($self->{perfdata}->threshold_validate(label => 'warning-numeric', value => $self->{option_results}->{warning_numeric})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'."); $self->{output}->add_option_msg(short_msg => "Wrong warning-numeric threshold '" . $self->{option_results}->{warning_numeric} . "'.");
$self->{output}->option_exit(); $self->{output}->option_exit();
} }
if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) { if (($self->{perfdata}->threshold_validate(label => 'critical-numeric', value => $self->{option_results}->{critical_numeric})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'."); $self->{output}->add_option_msg(short_msg => "Wrong critical-numeric threshold '" . $self->{option_results}->{critical_numeric} . "'.");
$self->{output}->option_exit(); $self->{output}->option_exit();
} }
if (($self->{perfdata}->threshold_validate(label => 'warning-time', value => $self->{option_results}->{warning_time})) == 0) { if (($self->{perfdata}->threshold_validate(label => 'warning-time', value => $self->{option_results}->{warning_time})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning_time} . "'."); $self->{output}->add_option_msg(short_msg => "Wrong warning-time threshold '" . $self->{option_results}->{warning_time} . "'.");
$self->{output}->option_exit(); $self->{output}->option_exit();
} }
if (($self->{perfdata}->threshold_validate(label => 'critical-time', value => $self->{option_results}->{critical_time})) == 0) { if (($self->{perfdata}->threshold_validate(label => 'critical-time', value => $self->{option_results}->{critical_time})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical_time} . "'."); $self->{output}->add_option_msg(short_msg => "Wrong critical-time threshold '" . $self->{option_results}->{critical_time} . "'.");
$self->{output}->option_exit(); $self->{output}->option_exit();
} }
if (!defined($self->{option_results}->{service_soap})) { if (!defined($self->{option_results}->{service_soap})) {
@ -159,7 +164,7 @@ sub display_output {
my ($self, %options) = @_; my ($self, %options) = @_;
foreach my $severity (('ok', 'warning', 'critical')) { foreach my $severity (('ok', 'warning', 'critical')) {
next if (scalar(@{$self->{'values_' . $severity}}) == 0); next if (scalar(@{$self->{'values_' . $severity}}) == 0 && scalar(@{$self->{'values_string_' . $severity}}) == 0);
my $format = $self->{option_results}->{'format_' . $severity}; my $format = $self->{option_results}->{'format_' . $severity};
while ($format =~ /%{(.*?)}/g) { while ($format =~ /%{(.*?)}/g) {
my $replace = ''; my $replace = '';
@ -214,15 +219,15 @@ sub lookup {
if ($self->{option_results}->{threshold_value} eq 'count') { if ($self->{option_results}->{threshold_value} eq 'count') {
my $exit = lc($self->{perfdata}->threshold_check(value => $self->{count}, my $exit = lc($self->{perfdata}->threshold_check(value => $self->{count},
threshold => [ { label => 'critical', exit_litteral => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ])); threshold => [ { label => 'critical-numeric', exit_litteral => 'critical' }, { label => 'warning-numeric', exit_litteral => 'warning' } ]));
push @{$self->{'values_' . $exit}}, $self->{count}; push @{$self->{'values_' . $exit}}, $self->{count};
$self->{'count_' . $exit}++; $self->{'count_' . $exit}++;
} }
$self->{output}->perfdata_add(label => 'count', $self->{output}->perfdata_add(label => 'count',
value => $self->{count}, value => $self->{count},
warning => $self->{option_results}->{threshold_value} eq 'count' ? $self->{perfdata}->get_perfdata_for_output(label => 'warning') : undef, warning => $self->{option_results}->{threshold_value} eq 'count' ? $self->{perfdata}->get_perfdata_for_output(label => 'warning-numeric') : undef,
critical => $self->{option_results}->{threshold_value} eq 'count' ? $self->{perfdata}->get_perfdata_for_output(label => 'critical') : undef, critical => $self->{option_results}->{threshold_value} eq 'count' ? $self->{perfdata}->get_perfdata_for_output(label => 'critical-numeric') : undef,
min => 0); min => 0);
my $count = 0; my $count = 0;
@ -231,14 +236,24 @@ sub lookup {
if ($value =~ /^[0-9.]+$/) { if ($value =~ /^[0-9.]+$/) {
if ($self->{option_results}->{threshold_value} eq 'values') { if ($self->{option_results}->{threshold_value} eq 'values') {
my $exit = lc($self->{perfdata}->threshold_check(value => $value, my $exit = lc($self->{perfdata}->threshold_check(value => $value,
threshold => [ { label => 'critical', exit_litteral => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ])); threshold => [ { label => 'critical-numeric', exit_litteral => 'critical' }, { label => 'warning-numeric', exit_litteral => 'warning' } ]));
push @{$self->{'values_' . $exit}}, $value; push @{$self->{'values_' . $exit}}, $value;
$self->{'count_' . $exit}++ $self->{'count_' . $exit}++
} }
$self->{output}->perfdata_add(label => 'element_' . $count, $self->{output}->perfdata_add(label => 'element_' . $count,
value => $value, value => $value,
warning => $self->{option_results}->{threshold_value} eq 'values' ? $self->{perfdata}->get_perfdata_for_output(label => 'warning') : undef, warning => $self->{option_results}->{threshold_value} eq 'values' ? $self->{perfdata}->get_perfdata_for_output(label => 'warning-numeric') : undef,
critical => $self->{option_results}->{threshold_value} eq 'values' ? $self->{perfdata}->get_perfdata_for_output(label => 'critical') : undef); critical => $self->{option_results}->{threshold_value} eq 'values' ? $self->{perfdata}->get_perfdata_for_output(label => 'critical-numeric') : undef);
} else {
if (defined($self->{option_results}->{critical_string}) && $self->{option_results}->{critical_string} ne '' &&
$value =~ /$self->{option_results}->{critical_string}/) {
push @{$self->{values_string_critical}}, $value;
} elsif (defined($self->{option_results}->{warning_string}) && $self->{option_results}->{warning_string} ne '' &&
$value =~ /$self->{option_results}->{warning_string}/) {
push @{$self->{values_string_warning}}, $value;
} else {
push @{$self->{values_string_ok}}, $value;
}
} }
} }
@ -342,11 +357,11 @@ THRESHOLD OPTIONS:
=over 8 =over 8
=item B<--warning> =item B<--warning-numeric>
Threshold warning (Default: on total matching elements) Threshold warning (Default: on total matching elements)
=item B<--critical> =item B<--critical-numeric>
Threshold critical (Default: on total matching elements) Threshold critical (Default: on total matching elements)
@ -355,6 +370,14 @@ Threshold critical (Default: on total matching elements)
Which value to use (Default: 'count') Which value to use (Default: 'count')
Can be: 'values' (only check numeric values) Can be: 'values' (only check numeric values)
=item B<--warning-string>
Threshold warning if the string match
=item B<--critical-numeric>
Threshold critical if the string match
=item B<--warning-time> =item B<--warning-time>
Threshold warning in ms of webservice response time Threshold warning in ms of webservice response time