From 7a72a4231c8d4beb81389716c549e63be9af42c4 Mon Sep 17 00:00:00 2001
From: Quentin Garnier <qgarnier@merethis.com>
Date: Wed, 15 Jan 2014 14:04:42 +0100
Subject: [PATCH] + Add mode for informix
---
database/informix/mode/checkpoints.pm | 223 ++++++++++++++++++++++++
database/informix/mode/dbspacesusage.pm | 38 ++--
database/informix/plugin.pm | 1 +
3 files changed, 252 insertions(+), 10 deletions(-)
create mode 100644 database/informix/mode/checkpoints.pm
diff --git a/database/informix/mode/checkpoints.pm b/database/informix/mode/checkpoints.pm
new file mode 100644
index 000000000..0d0681f57
--- /dev/null
+++ b/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 <http://www.gnu.org/licenses>.
+#
+# 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 <qgarnier@merethis.com>
+#
+####################################################################################
+
+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/database/informix/mode/dbspacesusage.pm b/database/informix/mode/dbspacesusage.pm
index e8a40acae..e44e10947 100644
--- a/database/informix/mode/dbspacesusage.pm
+++ b/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/database/informix/plugin.pm b/database/informix/plugin.pm
index a6753c242..15f3f1a63 100644
--- a/database/informix/plugin.pm
+++ b/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',