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 mode for informix

This commit is contained in:
Quentin Garnier 2014-01-15 14:04:42 +01:00
parent c78d1bba20
commit d29b2b2c7f
3 changed files with 252 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

223
centreon-plugins/database/informix/mode/checkpoints.pm Normal file
View File

@ -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

38
centreon-plugins/database/informix/mode/dbspacesusage.pm
View File

@ -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

1
centreon-plugins/database/informix/plugin.pm
View File

@ -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',