diff --git a/apps/checkmyws/mode/status.pm b/apps/checkmyws/mode/status.pm index 5befc7f19..ca0c7bf6b 100644 --- a/apps/checkmyws/mode/status.pm +++ b/apps/checkmyws/mode/status.pm @@ -40,10 +40,17 @@ use base qw(centreon::plugins::mode); use strict; use warnings; use centreon::plugins::httplib; -use centreon::plugins::statefile; - use JSON; +my $thresholds = { + ws => [ + ['^0$', 'OK'], + ['^1$', 'WARNING'], + ['^2$', 'CRITICAL'], + ['.*', 'UNKNOWN'], + ], +}; + sub new { my ($class, %options) = @_; my $self = $class->SUPER::new(package => __PACKAGE__, %options); @@ -52,17 +59,16 @@ sub new { $self->{version} = '1.0'; $options{options}->add_options(arguments => { - "hostname:s" => { name => 'hostname', default => 'api.checkmy.ws'}, - "port:s" => { name => 'port', }, - "proto:s" => { name => 'proto', default => "https" }, - "urlpath:s" => { name => 'url_path', default => "/api/status" }, - "proxyurl:s" => { name => 'proxyurl' }, - "uid:s" => { name => 'uid' }, - "timeout:s" => { name => 'timeout', default => '3' }, + "hostname:s" => { name => 'hostname', default => 'api.checkmy.ws'}, + "port:s" => { name => 'port', }, + "proto:s" => { name => 'proto', default => "https" }, + "urlpath:s" => { name => 'url_path', default => "/api/status" }, + "proxyurl:s" => { name => 'proxyurl' }, + "uid:s" => { name => 'uid' }, + "timeout:s" => { name => 'timeout', default => '3' }, + "threshold-overload:s@" => { name => 'threshold_overload' }, }); - $self->{statefile_value} = centreon::plugins::statefile->new(%options); - return $self; } @@ -82,27 +88,26 @@ sub check_options { $self->{output}->add_option_msg(short_msg => "You need to set uid option"); $self->{output}->option_exit(); } - - $self->{statefile_value}->check_options(%options); + + $self->{overload_th} = {}; + foreach my $val (@{$self->{option_results}->{threshold_overload}}) { + if ($val !~ /^(.*?),(.*)$/) { + $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload option '" . $val . "'."); + $self->{output}->option_exit(); + } + my ($section, $status, $filter) = ('ws', $1, $2); + if ($self->{output}->is_litteral_status(status => $status) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload status '" . $val . "'."); + $self->{output}->option_exit(); + } + $self->{overload_th}->{$section} = [] if (!defined($self->{overload_th}->{$section})); + push @{$self->{overload_th}->{$section}}, {filter => $filter, status => $status}; + } } sub run { my ($self, %options) = @_; - $self->{statefile_value}->read(statefile => 'checkmyws_' . $self->{option_results}->{uid} . '_' . centreon::plugins::httplib::get_port($self) . '_' . $self->{mode}); - my $old_timestamp = $self->{statefile_value}->get(name => 'last_timestamp'); - - my $new_datas = {}; - $new_datas->{last_timestamp} = time(); - $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(); - } - $self->{option_results}->{url_path} = $self->{option_results}->{url_path}."/".$self->{option_results}->{uid}; my $jsoncontent = centreon::plugins::httplib::connect($self); @@ -120,18 +125,68 @@ sub run { $self->{output}->option_exit(); } - my $state = $webcontent->{state_code}; - if ($state eq '200') { - $self->{output}->output_add(severity => 'OK', - short_msg => sprintf("Status %d received", $state)); - } else { - $self->{output}->output_add(severity => 'CRITICAL', - short_msg => sprintf("Status %d received", $state)); + my %map_output = ( + -3 => 'Disable', + -2 => 'Not scheduled', + -1 => 'Pending...', + ); + my $state = $webcontent->{state}; + my $output = defined($map_output{$state}) ? $map_output{$state} : $webcontent->{state_code_str}; + + my $exit = $self->get_severity(section => 'ws', value => $state); + $self->{output}->output_add(severity => $exit, + short_msg => $output); + + if (defined($webcontent->{lastvalues}->{httptime})) { + my $perfdata = $webcontent->{lastvalues}->{httptime}; + + my $mean_time = 0; + foreach my $location (keys %$perfdata) { + $mean_time += $perfdata->{$location}; + $self->{output}->perfdata_add(label => $location, unit => 'ms', + value => $perfdata->{$location}, + min => 0 + ); + } + + $self->{output}->perfdata_add(label => 'mean_time', unit => 'ms', + value => $mean_time / scalar(keys %$perfdata), + min => 0 + ) if (scalar(keys %$perfdata) > 0); + $self->{output}->perfdata_add(label => 'yslow_page_load_time', unit => 'ms', + value => $webcontent->{metas}->{yslow_page_load_time}, + min => 0 + ) if (defined($webcontent->{metas}->{yslow_page_load_time})); + $self->{output}->perfdata_add(label => 'yslow_score', + value => $webcontent->{metas}->{yslow_score}, + min => 0, max => 100 + ) if (defined($webcontent->{metas}->{yslow_score})); } $self->{output}->display(); $self->{output}->exit(); +} +sub get_severity { + my ($self, %options) = @_; + my $status = 'UNKNOWN'; # default + + if (defined($self->{overload_th}->{$options{section}})) { + foreach (@{$self->{overload_th}->{$options{section}}}) { + if ($options{value} =~ /$_->{filter}/i) { + $status = $_->{status}; + return $status; + } + } + } + foreach (@{$thresholds->{$options{section}}}) { + if ($options{value} =~ /$$_[0]/i) { + $status = $$_[1]; + return $status; + } + } + + return $status; } 1; @@ -176,6 +231,12 @@ ID for checkmyws API Threshold for HTTP timeout (Default: '3') +=item B<--threshold-overload> + +Set to overload default threshold values (syntax: status,regexp) +It used before default thresholds (order stays). +Example: --threshold-overload='CRITICAL,^(?!(0)$)' + =back =cut