diff --git a/centreon-plugins/database/informix/mode/checkpoints.pm b/centreon-plugins/database/informix/mode/checkpoints.pm new file mode 100644 index 000000000..0d0681f57 --- /dev/null +++ b/centreon-plugins/database/informix/mode/checkpoints.pm @@ -0,0 +1,223 @@ +################################################################################ +# Copyright 2005-2013 MERETHIS +# Centreon is developped by : Julien Mathis and Romain Le Merlus under +# GPL Licence 2.0. +# +# This program is free software; you can redistribute it and/or modify it under +# the terms of the GNU General Public License as published by the Free Software +# Foundation ; either version 2 of the License. +# +# This program is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# this program; if not, see . +# +# Linking this program statically or dynamically with other modules is making a +# combined work based on this program. Thus, the terms and conditions of the GNU +# General Public License cover the whole combination. +# +# As a special exception, the copyright holders of this program give MERETHIS +# permission to link this program with independent modules to produce an executable, +# regardless of the license terms of these independent modules, and to copy and +# distribute the resulting executable under terms of MERETHIS choice, provided that +# MERETHIS also meet, for each linked independent module, the terms and conditions +# of the license of that module. An independent module is a module which is not +# derived from this program. If you modify this program, you may extend this +# exception to your version of the program, but you are not obliged to do so. If you +# do not wish to do so, delete this exception statement from your version. +# +# For more information : contact@centreon.com +# Authors : Quentin Garnier +# +#################################################################################### + +package database::informix::mode::checkpoints; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; +use centreon::plugins::misc; + +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 => + { + "warning-cp:s" => { name => 'warning_cp', }, + "critical-cp:s" => { name => 'critical_cp', }, + "warning-flush:s" => { name => 'warning_flush', }, + "critical-flush:s" => { name => 'critical_flush', }, + "warning-crit:s" => { name => 'warning_crit', }, + "critical-crit:s" => { name => 'critical_crit', }, + "warning-block:s" => { name => 'warning_block', }, + "critical-block:s" => { name => 'critical_block', }, + "filter-trigger:s" => { name => 'filter_trigger', }, + }); + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); + + if (($self->{perfdata}->threshold_validate(label => 'warning-cp', value => $self->{option_results}->{warning_cp})) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong warning-cp threshold '" . $self->{option_results}->{warning_cp} . "'."); + $self->{output}->option_exit(); + } + if (($self->{perfdata}->threshold_validate(label => 'critical-cp', value => $self->{option_results}->{critical_cp})) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong critical-cp threshold '" . $self->{option_results}->{critical_cp} . "'."); + $self->{output}->option_exit(); + } + if (($self->{perfdata}->threshold_validate(label => 'warning-flush', value => $self->{option_results}->{warning_flush})) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong warning-flush threshold '" . $self->{option_results}->{warning_flush} . "'."); + $self->{output}->option_exit(); + } + if (($self->{perfdata}->threshold_validate(label => 'critical-flush', value => $self->{option_results}->{critical_flush})) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong critical-flush threshold '" . $self->{option_results}->{critical_flush} . "'."); + $self->{output}->option_exit(); + } + if (($self->{perfdata}->threshold_validate(label => 'warning-crit', value => $self->{option_results}->{warning_crit})) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong warning-crit threshold '" . $self->{option_results}->{warning_crit} . "'."); + $self->{output}->option_exit(); + } + if (($self->{perfdata}->threshold_validate(label => 'critical-crit', value => $self->{option_results}->{critical_crit})) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong critical-crit threshold '" . $self->{option_results}->{critical_crit} . "'."); + $self->{output}->option_exit(); + } + if (($self->{perfdata}->threshold_validate(label => 'warning-block', value => $self->{option_results}->{warning_block})) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong warning-block threshold '" . $self->{option_results}->{warning_block} . "'."); + $self->{output}->option_exit(); + } + if (($self->{perfdata}->threshold_validate(label => 'critical-block', value => $self->{option_results}->{critical_block})) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong critical-block threshold '" . $self->{option_results}->{critical_block} . "'."); + $self->{output}->option_exit(); + } +} + +sub run { + my ($self, %options) = @_; + # $options{sql} = sqlmode object + $self->{sql} = $options{sql}; + + $self->{sql}->connect(); + + $self->{sql}->query(query => q{ + SELECT intvl, caller, cp_time, block_time, flush_time, crit_time FROM syscheckpoint +}); + $self->{output}->output_add(severity => 'OK', + short_msg => "All checkpoint times are ok."); + my $count = 0; + while ((my $row = $self->{sql}->fetchrow_hashref())) { + my $id = $row->{intvl}; + my $name = centreon::plugins::misc::trim($row->{caller}); + my ($cp_time, $block_time, $flush_time, $crit_time) = ($row->{cp_time}, $row->{block_time}, $row->{flush_time}, $row->{crit_time}); + + next if (defined($self->{option_results}->{filter_trigger}) && $name !~ /$self->{option_results}->{filter_trigger}/); + + $count++; + my $exit1 = $self->{perfdata}->threshold_check(value => $cp_time, threshold => [ { label => 'critical-cp', 'exit_litteral' => 'critical' }, { label => 'warning-cp', exit_litteral => 'warning' } ]); + my $exit2 = $self->{perfdata}->threshold_check(value => $block_time, threshold => [ { label => 'critical-block', 'exit_litteral' => 'critical' }, { label => 'warning-block', exit_litteral => 'warning' } ]); + my $exit3 = $self->{perfdata}->threshold_check(value => $flush_time, threshold => [ { label => 'critical-flush', 'exit_litteral' => 'critical' }, { label => 'warning-flush', exit_litteral => 'warning' } ]); + my $exit4 = $self->{perfdata}->threshold_check(value => $crit_time, threshold => [ { label => 'critical-crit', 'exit_litteral' => 'critical' }, { label => 'warning-crit', exit_litteral => 'warning' } ]); + my $exit = $self->{output}->get_most_critical(status => [ $exit1, $exit2, $exit3, $exit4 ]); + + $self->{output}->output_add(long_msg => sprintf("Checkpoint %s %s : Total Time %.4f, Block Time %.4f, Flush Time %.4f, Ckpt Time %.4f", + $name, $id, $cp_time, $block_time, $flush_time, $crit_time) + ); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Checkpoint %s %s : Total Time %.4f, Block Time %.4f, Flush Time %.4f, Ckpt Time %.4f", + $name, $id, $cp_time, $block_time, $flush_time, $crit_time) + ); + } + $self->{output}->perfdata_add(label => 'cp_' . $name . "_" . $id, + value => sprintf("%.4f", $cp_time), + warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning_cp'), + critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical_cp'), + min => 0); + $self->{output}->perfdata_add(label => 'block_' . $name . "_" . $id, + value => sprintf("%.4f", $block_time), + warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning_block'), + critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical_block'), + min => 0); + $self->{output}->perfdata_add(label => 'flush_' . $name . "_" . $id, + value => sprintf("%.4f", $flush_time), + warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning_flush'), + critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical_flush'), + min => 0); + $self->{output}->perfdata_add(label => 'crit_' . $name . "_" . $id, + value => sprintf("%.4f", $crit_time), + warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning_crit'), + critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical_crit'), + min => 0); + } + + if ($count == 0) { + $self->{output}->output_add(severity => 'UNKNOWN', + short_msg => "Cannot find checkpoints (maybe the --name filter option)."); + } + + $self->{output}->display(); + $self->{output}->exit(); +} + +1; + +__END__ + +=head1 MODE + +Check Informix Checkpoints. 4 values: +- cp_time: Total checkpoint duration from request time to checkpoint completion. +- flush_time: Time taken to flush all the bufferpools. +- crit_time: This is the amount of time it takes for all transactions to recognize a checkpoint has been requested. +- block_time: Transaction blocking time. + +=over 8 + +=item B<--warning-cp> + +Threshold warning 'cp_time' in seconds. + +=item B<--critical-cp> + +Threshold critical 'cp_time' in seconds. + +=item B<--warning-flush> + +Threshold warning 'flush_time' in seconds. + +=item B<--critical-flush> + +Threshold critical 'flush_time' in seconds. + +=item B<--warning-crit> + +Threshold warning 'crit_time' in seconds. + +=item B<--critical-crit> + +Threshold critical 'crit_time' in seconds. + +=item B<--warning-block> + +Threshold warning 'block_time' in seconds. + +=item B<--critical-block> + +Threshold critical 'block_time' in seconds. + +=item B<--filter-trigger> + +Filter events that can trigger a checkpoint with a regexp. + +=back + +=cut diff --git a/centreon-plugins/database/informix/mode/dbspacesusage.pm b/centreon-plugins/database/informix/mode/dbspacesusage.pm index e8a40acae..e44e10947 100644 --- a/centreon-plugins/database/informix/mode/dbspacesusage.pm +++ b/centreon-plugins/database/informix/mode/dbspacesusage.pm @@ -51,7 +51,8 @@ sub new { { "warning:s" => { name => 'warning', }, "critical:s" => { name => 'critical', }, - "filter:s" => { name => 'filter', }, + "name:s" => { name => 'name', }, + "regexp" => { name => 'use_regexp' }, }); return $self; @@ -90,14 +91,18 @@ ORDER BY dbspace $self->{sql}->query(query => $query); - $self->{output}->output_add(severity => 'OK', - short_msg => "All dbspaces usage are ok."); + if (!defined($self->{option_results}->{name}) || defined($self->{option_results}->{use_regexp})) { + $self->{output}->output_add(severity => 'OK', + short_msg => 'All dbspaces usage are ok'); + } + my $dbquery = {}; + my $count = 0; while ((my $row = $self->{sql}->fetchrow_hashref())) { my $name = centreon::plugins::misc::trim($row->{dbspace}); - if (defined($self->{option_results}->{filter}) && $name !~ /$self->{option_results}->{filter}/) { - next; - } + next if (defined($self->{option_results}->{name}) && !defined($self->{option_results}->{use_regexp}) && $name ne $self->{option_results}->{name}); + next if (defined($self->{option_results}->{name}) && defined($self->{option_results}->{use_regexp}) && $name !~ /$self->{option_results}->{name}/); + my $prct_used; if ($row->{pages_free} == 0) { $prct_used = 100; @@ -105,23 +110,32 @@ ORDER BY dbspace $prct_used = ($row->{pages_size} - $row->{pages_free}) * 100 / $row->{pages_size}; } + $count++; $self->{output}->output_add(long_msg => sprintf("Dbspace '%s': Used: %.2f%% Free: %.2f%%", $name, $prct_used, 100 - $prct_used)); my $exit_code = $self->{perfdata}->threshold_check(value => $prct_used, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]); - if (!$self->{output}->is_status(value => $exit_code, compare => 'ok', litteral => 1)) { + if (!$self->{output}->is_status(value => $exit_code, compare => 'ok', litteral => 1) || + (defined($self->{option_results}->{name}) && !defined($self->{option_results}->{use_regexp}))) { $self->{output}->output_add(severity => $exit_code, short_msg => sprintf("Dbspace '%s': Used: %.2f%% Free: %.2f%%", $name, $prct_used, 100 - $prct_used)); } - $self->{output}->perfdata_add(label => 'used_' . $name, unit => '%', + my $extra_label = ''; + $extra_label = '_' . $name if (!defined($self->{option_results}->{name}) || defined($self->{option_results}->{use_regexp})); + $self->{output}->perfdata_add(label => 'used' . $extra_label, unit => '%', value => sprintf("%.2f", $prct_used), warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'), critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'), min => 0, max => 100); } + if ($count == 0) { + $self->{output}->output_add(severity => 'UNKNOWN', + short_msg => "Cannot find a dbspace (maybe the filter)."); + } + $self->{output}->display(); $self->{output}->exit(); } @@ -144,9 +158,13 @@ Threshold warning in percent. Threshold critical in percent. -=item B<--filter> +=item B<--name> -Filter dbspaces. +Set the dbspace (empty means 'check all dbspaces'). + +=item B<--regexp> + +Allows to use regexp to filter dbspaces (with option --name). =back diff --git a/centreon-plugins/database/informix/plugin.pm b/centreon-plugins/database/informix/plugin.pm index a6753c242..15f3f1a63 100644 --- a/centreon-plugins/database/informix/plugin.pm +++ b/centreon-plugins/database/informix/plugin.pm @@ -49,6 +49,7 @@ sub new { $self->{version} = '0.1'; %{$self->{modes}} = ( + 'checkpoints' => 'database::informix::mode::checkpoints', 'connection-time' => 'database::informix::mode::connectiontime', 'global-cache' => 'database::informix::mode::globalcache', 'list-dbspaces' => 'database::informix::mode::listdbspaces',