qgarnier
GitHub
commit
c97241d903
|
|
@ -0,0 +1,215 @@
|
|||
#
|
||||
# Copyright 2020 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package database::rrdtool::local::custom::cli;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use centreon::plugins::ssh;
|
||||
use centreon::plugins::misc;
|
||||
use JSON::XS;
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
my $self = {};
|
||||
bless $self, $class;
|
||||
|
||||
if (!defined($options{output})) {
|
||||
print "Class Custom: Need to specify 'output' argument.\n";
|
||||
exit 3;
|
||||
}
|
||||
if (!defined($options{options})) {
|
||||
$options{output}->add_option_msg(short_msg => "Class Custom: Need to specify 'options' argument.");
|
||||
$options{output}->option_exit();
|
||||
}
|
||||
|
||||
if (!defined($options{noptions})) {
|
||||
$options{options}->add_options(arguments => {
|
||||
'hostname:s' => { name => 'hostname' },
|
||||
'timeout:s' => { name => 'timeout' },
|
||||
'command:s' => { name => 'command' },
|
||||
'command-path:s' => { name => 'command_path' },
|
||||
'command-options:s' => { name => 'command_options' },
|
||||
'sudo:s' => { name => 'sudo' }
|
||||
});
|
||||
}
|
||||
|
||||
$options{options}->add_help(package => __PACKAGE__, sections => 'CLI OPTIONS', once => 1);
|
||||
|
||||
$self->{output} = $options{output};
|
||||
$self->{ssh} = centreon::plugins::ssh->new(%options);
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub set_options {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{option_results} = $options{option_results};
|
||||
}
|
||||
|
||||
sub set_defaults {}
|
||||
|
||||
sub check_options {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
if (defined($self->{option_results}->{timeout}) && $self->{option_results}->{timeout} =~ /(\d+)/) {
|
||||
$self->{timeout} = $1;
|
||||
}
|
||||
if (defined($self->{option_results}->{hostname}) && $self->{option_results}->{hostname} ne '') {
|
||||
$self->{ssh}->check_options(option_results => $self->{option_results});
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub get_identifier {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $id = defined($self->{option_results}->{hostname}) ? $self->{option_results}->{hostname} : 'me';
|
||||
if (defined($self->{option_results}->{hostname}) && $self->{option_results}->{hostname} ne '') {
|
||||
$id .= ':' . $self->{ssh}->get_port();
|
||||
}
|
||||
return $id;
|
||||
}
|
||||
|
||||
sub execute_command {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $timeout = $self->{timeout};
|
||||
if (!defined($timeout)) {
|
||||
$timeout = defined($options{timeout}) ? $options{timeout} : 45;
|
||||
}
|
||||
my $command_options = defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne '' ? $self->{option_results}->{command_options} : $options{command_options};
|
||||
|
||||
my ($stdout, $exit_code);
|
||||
if (defined($self->{option_results}->{hostname}) && $self->{option_results}->{hostname} ne '') {
|
||||
($stdout, $exit_code) = $self->{ssh}->execute(
|
||||
hostname => $self->{option_results}->{hostname},
|
||||
sudo => $self->{option_results}->{sudo},
|
||||
command => defined($self->{option_results}->{command}) && $self->{option_results}->{command} ne '' ? $self->{option_results}->{command} : $options{command},
|
||||
command_path => defined($self->{option_results}->{command_path}) && $self->{option_results}->{command_path} ne '' ? $self->{option_results}->{command_path} : $options{command_path},
|
||||
command_options => $command_options,
|
||||
timeout => $timeout,
|
||||
no_quit => $options{no_quit}
|
||||
);
|
||||
} else {
|
||||
($stdout, $exit_code) = centreon::plugins::misc::execute(
|
||||
output => $self->{output},
|
||||
sudo => $self->{option_results}->{sudo},
|
||||
options => { timeout => $timeout },
|
||||
command => defined($self->{option_results}->{command}) && $self->{option_results}->{command} ne '' ? $self->{option_results}->{command} : $options{command},
|
||||
command_path => defined($self->{option_results}->{command_path}) && $self->{option_results}->{command_path} ne '' ? $self->{option_results}->{command_path} : $options{command_path},
|
||||
command_options => $command_options,
|
||||
no_quit => $options{no_quit}
|
||||
);
|
||||
}
|
||||
|
||||
$self->{output}->output_add(long_msg => "command response: $stdout", debug => 1);
|
||||
|
||||
return ($stdout, $exit_code);
|
||||
}
|
||||
|
||||
sub query {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $command_options =
|
||||
'graph - --start=' . $options{start} .
|
||||
' --end=' . $options{end} .
|
||||
' --imgformat=JSON' .
|
||||
' DEF:v1="' . $options{rrd_file} . ':' . $options{ds_name} . ':AVERAGE"' .
|
||||
' LINE1:v1#00CC00:v1' .
|
||||
' VDEF:v1max=v1,MAXIMUM' .
|
||||
' VDEF:v1min=v1,MINIMUM' .
|
||||
' VDEF:v1avg=v1,AVERAGE' .
|
||||
' GPRINT:v1max:"MAX\:%6.2lf"' .
|
||||
' GPRINT:v1min:"MIN\:%6.2lf"' .
|
||||
' GPRINT:v1avg:"AVG\:%6.2lf"';
|
||||
my ($stdout) = $self->execute_command(
|
||||
command => 'rrdtool',
|
||||
command_options => $command_options
|
||||
);
|
||||
|
||||
my $decoded;
|
||||
eval {
|
||||
$decoded = JSON::XS->new->decode($stdout);
|
||||
};
|
||||
if ($@) {
|
||||
$self->{output}->add_option_msg(short_msg => "Cannot decode json response: $@");
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
|
||||
my $results = {};
|
||||
foreach (@{$decoded->{meta}->{gprints}}) {
|
||||
if (defined($_->{gprint}) && $_->{gprint} =~ /(MIN|MAX|AVG):\s*([0-9\.]+)/) {
|
||||
$results->{ lc($1) } = $2;
|
||||
}
|
||||
}
|
||||
|
||||
return $results;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 NAME
|
||||
|
||||
rrdtool command line.
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
rrdtool command line.
|
||||
|
||||
=head1 CLI OPTIONS
|
||||
|
||||
=over 8
|
||||
|
||||
=item B<--hostname>
|
||||
|
||||
Hostname to query.
|
||||
|
||||
=item B<--timeout>
|
||||
|
||||
Timeout in seconds for the command (Default: 45). Default value can be override by the mode.
|
||||
|
||||
=item B<--command>
|
||||
|
||||
Command to get information. Used it you have output in a file.
|
||||
|
||||
=item B<--command-path>
|
||||
|
||||
Command path.
|
||||
|
||||
=item B<--command-options>
|
||||
|
||||
Command options.
|
||||
|
||||
=item B<--sudo>
|
||||
|
||||
sudo command.
|
||||
|
||||
=back
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
B<custom>.
|
||||
|
||||
=cut
|
||||
|
|
@ -0,0 +1,122 @@
|
|||
#
|
||||
# Copyright 2020 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package database::rrdtool::local::custom::perlmod;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use RRDs;
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
my $self = {};
|
||||
bless $self, $class;
|
||||
|
||||
if (!defined($options{output})) {
|
||||
print "Class Custom: Need to specify 'output' argument.\n";
|
||||
exit 3;
|
||||
}
|
||||
if (!defined($options{options})) {
|
||||
$options{output}->add_option_msg(short_msg => "Class Custom: Need to specify 'options' argument.");
|
||||
$options{output}->option_exit();
|
||||
}
|
||||
|
||||
if (!defined($options{noptions})) {
|
||||
$options{options}->add_options(arguments => {
|
||||
});
|
||||
}
|
||||
|
||||
$options{options}->add_help(package => __PACKAGE__, sections => 'PERLMOD OPTIONS', once => 1);
|
||||
|
||||
$self->{output} = $options{output};
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub set_options {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{option_results} = $options{option_results};
|
||||
}
|
||||
|
||||
sub set_defaults {}
|
||||
|
||||
sub check_options { return 0; }
|
||||
|
||||
sub get_identifier {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
return 'none';
|
||||
}
|
||||
|
||||
sub query {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my ($prints) = RRDs::graph(
|
||||
'/dev/null',
|
||||
'--start=' . $options{start},
|
||||
'--end=' . $options{end},
|
||||
'--imgformat=JSON',
|
||||
'DEF:v1=' . $options{rrd_file} . ':' . $options{ds_name} . ':AVERAGE',
|
||||
'LINE1:v1#00CC00:v1',
|
||||
'VDEF:v1max=v1,MAXIMUM',
|
||||
'VDEF:v1min=v1,MINIMUM',
|
||||
'VDEF:v1avg=v1,AVERAGE',
|
||||
'PRINT:v1max:MAX\:%6.2lf',
|
||||
'PRINT:v1min:MIN\:%6.2lf',
|
||||
'PRINT:v1avg:AVG\:%6.2lf'
|
||||
);
|
||||
|
||||
if (RRDs::error()) {
|
||||
$self->{output}->add_option_msg(short_msg => "rrd graph error: " . RRDs::error());
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
|
||||
my $results = {};
|
||||
foreach (@$prints) {
|
||||
if (/(MIN|MAX|AVG):\s*([0-9\.]+)/) {
|
||||
$results->{ lc($1) } = $2;
|
||||
}
|
||||
}
|
||||
|
||||
return $results;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 NAME
|
||||
|
||||
perlmod rrds.
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
perlmod rrds.
|
||||
|
||||
=head1 PERLMOD OPTIONS
|
||||
|
||||
no options.
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
B<custom>.
|
||||
|
||||
=cut
|
||||
|
|
@ -0,0 +1,146 @@
|
|||
#
|
||||
# Copyright 2020 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package database::rrdtool::local::mode::query;
|
||||
|
||||
use base qw(centreon::plugins::templates::counter);
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
sub prefix_global_output {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
return "datasource '" . $options{instance_value}->{ds_name} . "': ";
|
||||
}
|
||||
|
||||
sub set_counters {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->{maps_counters_type} = [
|
||||
{ name => 'global', type => 0, cb_prefix_output => 'prefix_global_output', skipped_code => { -10 => 1 } }
|
||||
];
|
||||
|
||||
$self->{maps_counters}->{global} = [
|
||||
{ label => 'value-minimum', nlabel => 'datasource.value.minimum.count', set => {
|
||||
key_values => [ { name => 'min' }, { name => 'ds_name' } ],
|
||||
output_template => '%s (min)',
|
||||
perfdatas => [
|
||||
{ template => '%s', label_extra_instance => 1, instance_use => 'ds_name' }
|
||||
]
|
||||
}
|
||||
},
|
||||
{ label => 'value-average', nlabel => 'datasource.value.average.count', set => {
|
||||
key_values => [ { name => 'avg' }, { name => 'ds_name' } ],
|
||||
output_template => '%s (avg)',
|
||||
perfdatas => [
|
||||
{ template => '%s', label_extra_instance => 1, instance_use => 'ds_name' }
|
||||
]
|
||||
}
|
||||
},
|
||||
{ label => 'value-maximum', nlabel => 'datasource.value.maximum.count', set => {
|
||||
key_values => [ { name => 'max'}, { name => 'ds_name' } ],
|
||||
output_template => '%s (max)',
|
||||
perfdatas => [
|
||||
{ template => '%s', label_extra_instance => 1, instance_use => 'ds_name' }
|
||||
]
|
||||
}
|
||||
}
|
||||
];
|
||||
}
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
my $self = $class->SUPER::new(package => __PACKAGE__, %options, force_new_perfdata => 1);
|
||||
bless $self, $class;
|
||||
|
||||
$options{options}->add_options(arguments => {
|
||||
'rrd-file:s' => { name => 'rrd_file' },
|
||||
'ds-name:s' => { name => 'ds_name', default => 'value' },
|
||||
'timeframe:s' => { name => 'timeframe', default => 3600 }
|
||||
});
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub check_options {
|
||||
my ($self, %options) = @_;
|
||||
$self->SUPER::check_options(%options);
|
||||
|
||||
if (!defined($self->{option_results}->{rrd_file}) || $self->{option_results}->{rrd_file} eq '') {
|
||||
$self->{output}->add_option_msg(short_msg => 'Please set --rrd-file option.');
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
if (!defined($self->{option_results}->{timeframe}) || $self->{option_results}->{timeframe} eq '') {
|
||||
$self->{output}->add_option_msg(short_msg => 'Please set --timeframe option.');
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
if (!defined($self->{option_results}->{ds_name}) || $self->{option_results}->{ds_name} eq '') {
|
||||
$self->{output}->add_option_msg(short_msg => 'Please set --ds-name option.');
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
}
|
||||
|
||||
sub manage_selection {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $result = $options{custom}->query(
|
||||
rrd_file => $self->{option_results}->{rrd_file},
|
||||
ds_name => $self->{option_results}->{ds_name},
|
||||
start => time() - $self->{option_results}->{timeframe},
|
||||
end => time()
|
||||
);
|
||||
|
||||
$self->{global} = {
|
||||
ds_name => $self->{option_results}->{ds_name},
|
||||
%$result
|
||||
};
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 MODE
|
||||
|
||||
Query DS min/max/average on a timeframe.
|
||||
|
||||
=over 8
|
||||
|
||||
=item B<--rrd-file>
|
||||
|
||||
Set rrd file to query.
|
||||
|
||||
=item B<--ds-name>
|
||||
|
||||
Set DS name to query (default: 'value').
|
||||
|
||||
=item B<--timeframe>
|
||||
|
||||
Set timeframe in seconds (E.g '3600' to check last 60 minutes).
|
||||
|
||||
=item B<--warning-*> B<--critical-*>
|
||||
|
||||
Thresholds.
|
||||
Can be: 'value-minimum', 'value-average', 'value-maximum'.
|
||||
|
||||
=back
|
||||
|
||||
=cut
|
||||
|
|
@ -0,0 +1,51 @@
|
|||
#
|
||||
# Copyright 2020 Centreon (http://www.centreon.com/)
|
||||
#
|
||||
# Centreon is a full-fledged industry-strength solution that meets
|
||||
# the needs in IT infrastructure and application monitoring for
|
||||
# service performance.
|
||||
#
|
||||
# Licensed under the Apache License, Version 2.0 (the "License");
|
||||
# you may not use this file except in compliance with the License.
|
||||
# You may obtain a copy of the License at
|
||||
#
|
||||
# http://www.apache.org/licenses/LICENSE-2.0
|
||||
#
|
||||
# Unless required by applicable law or agreed to in writing, software
|
||||
# distributed under the License is distributed on an "AS IS" BASIS,
|
||||
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
||||
# See the License for the specific language governing permissions and
|
||||
# limitations under the License.
|
||||
#
|
||||
|
||||
package database::rrdtool::local::plugin;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use base qw(centreon::plugins::script_custom);
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
my $self = $class->SUPER::new(package => __PACKAGE__, %options);
|
||||
bless $self, $class;
|
||||
|
||||
$self->{version} = '0.1';
|
||||
$self->{modes} = {
|
||||
'query' => 'database::rrdtool::local::mode::query'
|
||||
};
|
||||
|
||||
$self->{custom_modes}->{cli} = 'database::rrdtool::local::custom::cli';
|
||||
$self->{custom_modes}->{perlmod} = 'database::rrdtool::local::custom::perlmod';
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 PLUGIN DESCRIPTION
|
||||
|
||||
Check rrdtool database.
|
||||
|
||||
=cut
|
||||
Loading…
Reference in New Issue