From a99a1d16909a5691ea2de882f43e2de3ce653795 Mon Sep 17 00:00:00 2001 From: garnier-quentin Date: Fri, 8 Jul 2016 11:44:58 +0200 Subject: [PATCH] + enhance bluecoat --- network/bluecoat/snmp/mode/clientrequests.pm | 212 ++++++++----------- 1 file changed, 93 insertions(+), 119 deletions(-) diff --git a/network/bluecoat/snmp/mode/clientrequests.pm b/network/bluecoat/snmp/mode/clientrequests.pm index fb2e1b0cc..18c53c8fe 100644 --- a/network/bluecoat/snmp/mode/clientrequests.pm +++ b/network/bluecoat/snmp/mode/clientrequests.pm @@ -20,137 +20,112 @@ package network::bluecoat::snmp::mode::clientrequests; -use base qw(centreon::plugins::mode); +use base qw(centreon::plugins::templates::counter); use strict; use warnings; -use centreon::plugins::statefile; +use Digest::MD5 qw(md5_hex); + +sub set_counters { + my ($self, %options) = @_; + + $self->{maps_counters_type} = [ + { name => 'global', type => 0, cb_prefix_output => 'prefix_output' }, + ]; + $self->{maps_counters}->{global} = [ + { label => 'hits', set => { + key_values => [ { name => 'client_http_requests', diff => 1 }, { name => 'client_http_hits', diff => 1 } ], + closure_custom_calc => $self->can('custom_data_calc'), closure_custom_calc_extra_options => { label_ref => 'hits' }, + output_template => 'Hits = %.2f %%', output_use => 'hits_prct', + perfdatas => [ + { label => 'hits', value => 'hits_prct', template => '%.2f', min => 0, max => 100, unit => '%' }, + ], + } + }, + { label => 'partial-hits', set => { + key_values => [ { name => 'client_http_requests', diff => 1 }, { name => 'client_http_partial_hits', diff => 1 } ], + closure_custom_calc => $self->can('custom_data_calc'), closure_custom_calc_extra_options => { label_ref => 'partial_hits' }, + output_template => 'Partial Hits = %.2f %%', output_use => 'partial_hits_prct', + perfdatas => [ + { label => 'partial_hits', value => 'partial_hits_prct', template => '%.2f', min => 0, max => 100, unit => '%' }, + ], + } + }, + { label => 'misses', set => { + key_values => [ { name => 'client_http_requests', diff => 1 }, { name => 'client_http_misses', diff => 1 } ], + closure_custom_calc => $self->can('custom_data_calc'), closure_custom_calc_extra_options => { label_ref => 'misses' }, + output_template => 'Misses = %.2f %%', output_use => 'misses_prct', + perfdatas => [ + { label => 'misses', value => 'misses_prct', template => '%.2f', min => 0, max => 100, unit => '%' }, + ], + } + }, + { label => 'errors', set => { + key_values => [ { name => 'client_http_requests', diff => 1 }, { name => 'client_http_errors', diff => 1 } ], + closure_custom_calc => $self->can('custom_data_calc'), closure_custom_calc_extra_options => { label_ref => 'errors' }, + output_template => 'Errors = %.2f %%', output_use => 'errors_prct', + perfdatas => [ + { label => 'errors', value => 'errors_prct', template => '%.2f', min => 0, max => 100, unit => '%' }, + ], + } + }, + ]; +} + +sub prefix_output { + my ($self, %options) = @_; + + return "Client Requests: "; +} + +sub custom_data_calc { + my ($self, %options) = @_; + + my $label = $options{extra_options}->{label_ref}; + my $delta_value = $options{new_datas}->{$self->{instance} . '_client_http_' . $label} - $options{old_datas}->{$self->{instance} . '_client_http_' . $label}; + my $delta_total = $options{new_datas}->{$self->{instance} . '_client_http_requests'} - $options{old_datas}->{$self->{instance} . '_client_http_requests'}; + + $self->{result_values}->{$label . '_prct'} = 0; + if ($delta_total > 0) { + $self->{result_values}->{$label . '_prct'} = $delta_value * 100 / $delta_total; + } + return 0; +} sub new { my ($class, %options) = @_; - my $self = $class->SUPER::new(package => __PACKAGE__, %options); + my $self = $class->SUPER::new(package => __PACKAGE__, %options, statefile => 1); bless $self, $class; $self->{version} = '1.0'; $options{options}->add_options(arguments => { - "warning-errors:s" => { name => 'warning_errors' }, - "critical-errors:s" => { name => 'critical_errors' }, - "warning-misses:s" => { name => 'warning_misses' }, - "critical-misses:s" => { name => 'critical_misses' }, }); - $self->{statefile_value} = centreon::plugins::statefile->new(%options); - + return $self; } -sub check_options { +sub manage_selection { my ($self, %options) = @_; - $self->SUPER::init(%options); - - if (($self->{perfdata}->threshold_validate(label => 'warning_errors', value => $self->{option_results}->{warning_errors})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong warning 'errors' threshold '" . $self->{option_results}->{warning_errors} . "'."); - $self->{output}->option_exit(); - } - if (($self->{perfdata}->threshold_validate(label => 'critical_errors', value => $self->{option_results}->{critical_errors})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong critical 'errors' threshold '" . $self->{option_results}->{critical_errors} . "'."); - $self->{output}->option_exit(); - } - if (($self->{perfdata}->threshold_validate(label => 'warning_misses', value => $self->{option_results}->{warning_misses})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong warning 'misses' threshold '" . $self->{option_results}->{warning_misses} . "'."); - $self->{output}->option_exit(); - } - if (($self->{perfdata}->threshold_validate(label => 'critical_misses', value => $self->{option_results}->{critical_misses})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong critical 'misses' threshold '" . $self->{option_results}->{critical_misses} . "'."); - $self->{output}->option_exit(); - } - - $self->{statefile_value}->check_options(%options); -} -sub run { - my ($self, %options) = @_; - # $options{snmp} = snmp object - $self->{snmp} = $options{snmp}; - $self->{hostname} = $self->{snmp}->get_hostname(); - $self->{snmp_port} = $self->{snmp}->get_port(); - - if ($self->{snmp}->is_snmpv1()) { + if ($options{snmp}->is_snmpv1()) { $self->{output}->add_option_msg(short_msg => "Need to use SNMP v2c or v3."); $self->{output}->option_exit(); } + my $result = $options{snmp}->get_leef(oids => ['.1.3.6.1.4.1.3417.2.11.3.1.1.1.0', + '.1.3.6.1.4.1.3417.2.11.3.1.1.2.0', + '.1.3.6.1.4.1.3417.2.11.3.1.1.3.0', + '.1.3.6.1.4.1.3417.2.11.3.1.1.4.0', + '.1.3.6.1.4.1.3417.2.11.3.1.1.5.0'], nothing_quit => 1); - $self->{statefile_value}->read(statefile => 'bluecoat_' . $self->{hostname} . '_' . $self->{snmp_port} . '_' . $self->{mode}); - my $result = $self->{snmp}->get_leef(oids => ['.1.3.6.1.4.1.3417.2.11.3.1.1.1.0', - '.1.3.6.1.4.1.3417.2.11.3.1.1.2.0', - '.1.3.6.1.4.1.3417.2.11.3.1.1.3.0', - '.1.3.6.1.4.1.3417.2.11.3.1.1.4.0', - '.1.3.6.1.4.1.3417.2.11.3.1.1.5.0'], nothing_quit => 1); - - my $new_datas = {}; - my $old_timestamp = $self->{statefile_value}->get(name => 'last_timestamp'); - my $old_client_http_requests = $self->{statefile_value}->get(name => 'client_http_requests'); - my $old_client_http_hits = $self->{statefile_value}->get(name => 'client_http_hits'); - my $old_client_http_partial_hits = $self->{statefile_value}->get(name => 'client_http_partial_hits'); - my $old_client_http_misses = $self->{statefile_value}->get(name => 'client_http_misses'); - my $old_client_http_errors = $self->{statefile_value}->get(name => 'client_http_errors'); - - $new_datas->{last_timestamp} = time(); - $new_datas->{client_http_requests} = $result->{'.1.3.6.1.4.1.3417.2.11.3.1.1.1.0'}; - $new_datas->{client_http_hits} = $result->{'.1.3.6.1.4.1.3417.2.11.3.1.1.2.0'}; - $new_datas->{client_http_partial_hits} = $result->{'.1.3.6.1.4.1.3417.2.11.3.1.1.3.0'}; - $new_datas->{client_http_misses} = $result->{'.1.3.6.1.4.1.3417.2.11.3.1.1.4.0'}; - $new_datas->{client_http_errors} = $result->{'.1.3.6.1.4.1.3417.2.11.3.1.1.5.0'}; + $self->{cache_name} = "bluecoat_" . $options{snmp}->get_hostname() . '_' . $options{snmp}->get_port() . '_' . $self->{mode} . '_' . + (defined($self->{option_results}->{filter_counters}) ? md5_hex($self->{option_results}->{filter_counters}) : md5_hex('all')); - $self->{statefile_value}->write(data => $new_datas); - - if (!defined($old_timestamp) || !defined($old_client_http_misses)) { - $self->{output}->output_add(severity => 'OK', - short_msg => "Buffer creation..."); - $self->{output}->display(); - $self->{output}->exit(); - } - - if ($new_datas->{client_http_requests} < $old_client_http_requests) { - # We set 0. Has reboot. - $old_client_http_requests = 0; - $old_client_http_hits = 0; - $old_client_http_partial_hits = 0; - $old_client_http_misses = 0; - $old_client_http_errors = 0; - } - - my $delta_http_requests = $new_datas->{client_http_requests} - $old_client_http_requests; - my $prct_misses = sprintf("%.2f", ($new_datas->{client_http_misses} - $old_client_http_misses) * 100 / $delta_http_requests); - my $prct_hits = sprintf("%.2f", ($new_datas->{client_http_hits} - $old_client_http_hits) * 100 / $delta_http_requests); - my $prct_partial_hits = sprintf("%.2f", ($new_datas->{client_http_partial_hits} - $old_client_http_partial_hits) * 100 / $delta_http_requests); - my $prct_errors = sprintf("%.2f", ($new_datas->{client_http_errors} - $old_client_http_errors) * 100 / $delta_http_requests); - - my $exit1 = $self->{perfdata}->threshold_check(value => $prct_errors, threshold => [ { label => 'critical_errors', 'exit_litteral' => 'critical' }, { label => 'warning_errors', exit_litteral => 'warning' } ]); - my $exit2 = $self->{perfdata}->threshold_check(value => $prct_misses, threshold => [ { label => 'critical_misses', 'exit_litteral' => 'critical' }, { label => 'warning_misses', exit_litteral => 'warning' } ]); - my $exit = $self->{output}->get_most_critical(status => [ $exit1, $exit2 ]); - - $self->{output}->output_add(severity => $exit, - short_msg => "Client Requests: Hits = $prct_hits%, Partial Hits = $prct_partial_hits%, Misses = $prct_misses%, Errors = $prct_errors%"); - $self->{output}->perfdata_add(label => 'hits', unit => '%', - value => $prct_hits, - min => 0); - $self->{output}->perfdata_add(label => 'partial_hits', unit => '%', - value => $prct_partial_hits, - min => 0); - $self->{output}->perfdata_add(label => 'misses', unit => '%', - value => $prct_misses, - warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning_misses'), - critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical_misses'), - min => 0); - $self->{output}->perfdata_add(label => 'errors', unit => '%', - value => $prct_errors, - warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning_errors'), - critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical_errors'), - min => 0); - - $self->{output}->display(); - $self->{output}->exit(); + $self->{global} = { client_http_requests => $result->{'.1.3.6.1.4.1.3417.2.11.3.1.1.1.0'}, + client_http_hits => $result->{'.1.3.6.1.4.1.3417.2.11.3.1.1.2.0'}, + client_http_partial_hits => $result->{'.1.3.6.1.4.1.3417.2.11.3.1.1.3.0'}, + client_http_misses => $result->{'.1.3.6.1.4.1.3417.2.11.3.1.1.4.0'}, + client_http_errors => $result->{'.1.3.6.1.4.1.3417.2.11.3.1.1.5.0'} }; } 1; @@ -163,21 +138,20 @@ Check http client requests (in percent by type: hit, partial, misses, errors) =over 8 -=item B<--warning-errors> +=item B<--filter-counters> -Threshold warning of client http errors in percent. +Only display some counters (regexp can be used). +Example: --filter-counters='errors' -=item B<--critical-errors> +=item B<--warning-*> -Threshold critical of client http errors in percent. +Threshold warning. +Can be: errors (%), hits (%), partial-hits (%), misses (%). -=item B<--warning-misses> +=item B<--critical-*> -Threshold warning of client http misses in percent. - -=item B<--critical-misses> - -Threshold critial of client http misses in percent. +Threshold critical. +Can be: errors (%), hits (%), partial-hits (%), misses (%). =back