This commit is contained in:
Simon Bomm 2015-02-06 17:11:26 +01:00
commit d33e95b24a
5 changed files with 195 additions and 163 deletions

View File

@ -1,5 +1,5 @@
###############################################################################
# Copyright 2005-2014 MERETHIS
# Copyright 2005-2014 CENTREON
# Centreon is developped by : Julien Mathis and Romain Le Merlus under
# GPL Licence 2.0.
#
@ -18,18 +18,18 @@
# 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
# As a special exception, the copyright holders of this program give CENTREON
# permission to link this program with independent modules to produce an timeelapsedutable,
# regardless of the license terms of these independent modules, and to copy and
# distribute the resulting timeelapsedutable under terms of MERETHIS choice, provided that
# MERETHIS also meet, for each linked independent module, the terms and conditions
# distribute the resulting timeelapsedutable under terms of CENTREON choice, provided that
# CENTREON 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
# Author : Mathieu Cinquin <mcinquin@merethis.com>
# Author : Mathieu Cinquin <mcinquin@centreon.com>
#
####################################################################################
@ -39,20 +39,24 @@ use base qw(centreon::plugins::mode);
use strict;
use warnings;
use centreon::plugins::influxdbapi;
use centreon::plugins::httplib;
use centreon::plugins::statefile;
use JSON;
use Data::Dumper;
sub new {
my ($class, %options) = @_;
my $self = $class->SUPER::new(package => __PACKAGE__, %options);
bless $self, $class;
$self->{version} = '1.0';
$self->{version} = '1.1';
$options{options}->add_options(arguments =>
{
"hostname:s" => { name => 'hostname' },
"port:s" => { name => 'port', },
"proto:s" => { name => 'proto', default => "http" },
"port:s" => { name => 'port', default => '8086'},
"proto:s" => { name => 'proto', default => 'http' },
"urlpath:s" => { name => 'url_path', default => "/db" },
"database:s" => { name => 'database' },
"username:s" => { name => 'username' },
"password:s" => { name => 'password' },
@ -97,7 +101,7 @@ sub check_options {
sub run {
my ($self, %options) = @_;
$self->{statefile_value}->read(statefile => 'bluemind_' . $self->{option_results}->{hostname} . '_' . centreon::plugins::influxdbapi::get_port($self) . '_' . $self->{mode});
$self->{statefile_value}->read(statefile => 'bluemind_' . $self->{option_results}->{hostname} . '_' . centreon::plugins::httplib::get_port($self) . '_' . $self->{mode});
my $old_timestamp = $self->{statefile_value}->get(name => 'last_timestamp');
my $new_datas = {};
@ -111,10 +115,24 @@ sub run {
$self->{output}->exit();
}
$self->{option_results}->{url_path} = $self->{option_results}->{url_path}."/".$self->{option_results}->{database}."/series";
$self->{option_results}->{query} = 'select sum("success") as "success_sum", sum("failure") as "failure_sum" from lmtpd.deliveries where time > '.$old_timestamp.'s and time < now()';
my $webcontent = centreon::plugins::influxdbapi::connect($self);
my $query_form_get = { q => $self->{option_results}->{query}, p => $self->{option_results}->{password}, u => $self->{option_results}->{username} };
my $jsoncontent = centreon::plugins::httplib::connect($self, query_form_get => $query_form_get);
my $json = JSON->new;
my $webcontent;
eval {
$webcontent = $json->decode($jsoncontent);
};
if ($@) {
$self->{output}->add_option_msg(short_msg => "Cannot decode json response");
$self->{output}->option_exit();
}
my $hwebcontent;
for my $ref (@{ $webcontent }) {
@ -176,7 +194,15 @@ IP Addr/FQDN of the Bluemind host
=item B<--port>
Port used by InfluxDB API
Port used by InfluxDB API (Default: '8086')
=item B<--proto>
Specify https if needed (Default: 'http')
=item B<--urlpath>
Set path to get influxdb information (Default: '/db')
=item B<--database>
@ -192,7 +218,7 @@ Specify password for API authentification
=item B<--timeout>
Threshold for HTTP timeout
Threshold for HTTP timeout (Default: 3)
=item B<--warning>

View File

@ -1,94 +0,0 @@
###############################################################################
# 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 timeelapsedutable,
# regardless of the license terms of these independent modules, and to copy and
# distribute the resulting timeelapsedutable 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
# Author : Mathieu Cinquin <mcinquin@merethis.com>
#
####################################################################################
package centreon::plugins::influxdbapi;
use strict;
use warnings;
use LWP::UserAgent;
use JSON;
use URI;
sub get_port {
my ($self, %options) = @_;
my $cache_port = '';
if (defined($self->{option_results}->{port}) && $self->{option_results}->{port} ne '') {
$cache_port = $self->{option_results}->{port};
} else {
$cache_port = 8086;
}
return $cache_port;
}
sub connect {
my ($self, %options) = @_;
my $ua = LWP::UserAgent->new( keep_alive => 1, protocols_allowed => ['http','https'], timeout => $self->{option_results}->{timeout});
my $connection_exit = defined($options{connection_exit}) ? $options{connection_exit} : 'unknown';
my ($response, $content);
my $req;
my $url = $self->{option_results}->{proto}.'://'.$self->{option_results}->{hostname}.':'.$self->{option_results}->{port};
$url .= '/db/'.$self->{option_results}->{database}."/series";
my $uri = URI->new($url);
$uri->query_form(q => $self->{option_results}->{query}, u => $self->{option_results}->{username}, p => $self->{option_results}->{password});
$req = HTTP::Request->new( GET => $uri);
$response = $ua->request($req);
if ($response->is_success) {
my $json = JSON->new;
eval {
$content = $json->decode($response->content);
};
if ($@) {
$self->{output}->add_option_msg(short_msg => "Cannot decode json response");
$self->{output}->option_exit();
}
return $content;
}
$self->{output}->output_add(severity => $connection_exit,
short_msg => $response->status_line);
$self->{output}->display();
$self->{output}->exit();
}
1;

View File

@ -82,12 +82,11 @@ sub run {
my $result = $self->{snmp}->get_table(oid => $oid_jnxOperatingDescr, nothing_quit => 1);
my $routing_engine_find = 0;
my $oid_routing_engine;
my @oids_routing_engine = ();
foreach my $oid (keys %$result) {
if ($result->{$oid} =~ /routing/i) {
$routing_engine_find = 1;
$oid_routing_engine = $oid;
last;
push @oids_routing_engine, $oid;
}
}
@ -95,37 +94,51 @@ sub run {
$self->{output}->add_option_msg(short_msg => "Cannot find operating with 'routing' in description.");
$self->{output}->option_exit();
}
my $multiple = 0;
if (scalar(@oids_routing_engine) > 1) {
$multiple = 1;
$self->{output}->output_add(severity => 'OK',
short_msg => sprintf("All CPU(s) average usages are ok"));
}
$self->{snmp}->load(oids => [$oid_jnxOperatingCPU, $oid_jnxOperating1MinLoadAvg, $oid_jnxOperating5MinLoadAvg, $oid_jnxOperating15MinLoadAvg],
instances => [$oid_routing_engine],
instances => \@oids_routing_engine,
instance_regexp => "^" . $oid_jnxOperatingDescr . '\.(.+)');
my $result2 = $self->{snmp}->get_leef();
$oid_routing_engine =~ /^$oid_jnxOperatingDescr\.(.+)/;
my $instance = $1;
my $cpu_usage = $result2->{$oid_jnxOperatingCPU . '.' . $instance};
my $cpu_load1 = $result2->{$oid_jnxOperating1MinLoadAvg . '.' . $instance};
my $cpu_load5 = $result2->{$oid_jnxOperating5MinLoadAvg . '.' . $instance};
my $cpu_load15 = $result2->{$oid_jnxOperating15MinLoadAvg . '.' . $instance};
my $exit_code = $self->{perfdata}->threshold_check(value => $cpu_usage,
threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
$self->{output}->output_add(severity => $exit_code,
short_msg => sprintf("CPU(s) average usage is: %s%%", $cpu_usage));
$self->{output}->perfdata_add(label => 'cpu', unit => '%',
value => $cpu_usage,
warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
min => 0, max => 100);
$self->{output}->perfdata_add(label => 'load1',
value => $cpu_load1,
min => 0);
$self->{output}->perfdata_add(label => 'load5',
value => $cpu_load5,
min => 0);
$self->{output}->perfdata_add(label => 'load15',
value => $cpu_load15,
min => 0);
foreach my $oid_routing_engine (@oids_routing_engine) {
$oid_routing_engine =~ /^$oid_jnxOperatingDescr\.(.+)/;
my $instance = $1;
my $description = $result->{$oid_jnxOperatingDescr . '.' . $instance};
my $cpu_usage = $result2->{$oid_jnxOperatingCPU . '.' . $instance};
my $cpu_load1 = $result2->{$oid_jnxOperating1MinLoadAvg . '.' . $instance};
my $cpu_load5 = $result2->{$oid_jnxOperating5MinLoadAvg . '.' . $instance};
my $cpu_load15 = $result2->{$oid_jnxOperating15MinLoadAvg . '.' . $instance};
my $exit_code = $self->{perfdata}->threshold_check(value => $cpu_usage,
threshold => [ { label => 'critical', exit_litteral => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
$self->{output}->output_add(long_msg => sprintf("CPU(s) '%s' average usage is: %s%%", $description, $cpu_usage));
if ($multiple == 0 || !$self->{output}->is_status(value => $exit_code, compare => 'ok', litteral => 1)) {
$self->{output}->output_add(severity => $exit_code,
short_msg => sprintf("CPU(s) '%s' average usage is: %s%%", $description, $cpu_usage));
}
my $extra_label = '';
$extra_label = '_' . $description if ($multiple == 1);
$self->{output}->perfdata_add(label => 'cpu' . $extra_label, unit => '%',
value => $cpu_usage,
warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
min => 0, max => 100);
$self->{output}->perfdata_add(label => 'load1' . $extra_label,
value => $cpu_load1,
min => 0);
$self->{output}->perfdata_add(label => 'load5' . $extra_label,
value => $cpu_load5,
min => 0);
$self->{output}->perfdata_add(label => 'load15' . $extra_label,
value => $cpu_load15,
min => 0);
}
$self->{output}->display();
$self->{output}->exit();

View File

@ -80,12 +80,11 @@ sub run {
my $result = $self->{snmp}->get_table(oid => $oid_jnxOperatingDescr, nothing_quit => 1);
my $routing_engine_find = 0;
my $oid_routing_engine;
my @oids_routing_engine = ();
foreach my $oid (keys %$result) {
if ($result->{$oid} =~ /routing/i) {
$routing_engine_find = 1;
$oid_routing_engine = $oid;
last;
push @oids_routing_engine, $oid;
}
}
@ -94,35 +93,53 @@ sub run {
$self->{output}->option_exit();
}
my $multiple = 0;
if (scalar(@oids_routing_engine) > 1) {
$multiple = 1;
$self->{output}->output_add(severity => 'OK',
short_msg => sprintf("All memory usages are ok"));
}
$self->{snmp}->load(oids => [$oid_jnxOperatingBuffer, $oid_jnxOperatingMemory],
instances => [$oid_routing_engine],
instances => \@oids_routing_engine,
instance_regexp => "^" . $oid_jnxOperatingDescr . '\.(.+)');
my $result2 = $self->{snmp}->get_leef();
$oid_routing_engine =~ /^$oid_jnxOperatingDescr\.(.+)/;
my $instance = $1;
my $total_size = $result2->{$oid_jnxOperatingMemory . '.' . $instance} * 1024 * 1024;
my $prct_used = $result2->{$oid_jnxOperatingBuffer . '.' . $instance};
my $prct_free = 100 - $prct_used;
my $memory_used = $total_size * $prct_used / 100;
my $memory_free = $total_size - $memory_used;
foreach my $oid_routing_engine (@oids_routing_engine) {
$oid_routing_engine =~ /^$oid_jnxOperatingDescr\.(.+)/;
my $instance = $1;
my $description = $result->{$oid_jnxOperatingDescr . '.' . $instance};
my $total_size = $result2->{$oid_jnxOperatingMemory . '.' . $instance} * 1024 * 1024;
my $prct_used = $result2->{$oid_jnxOperatingBuffer . '.' . $instance};
my $prct_free = 100 - $prct_used;
my $memory_used = $total_size * $prct_used / 100;
my $memory_free = $total_size - $memory_used;
my $exit = $self->{perfdata}->threshold_check(value => $prct_used, threshold => [ { label => 'critical', exit_litteral => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
my ($total_value, $total_unit) = $self->{perfdata}->change_bytes(value => $total_size);
my ($used_value, $used_unit) = $self->{perfdata}->change_bytes(value => $memory_used);
my ($free_value, $free_unit) = $self->{perfdata}->change_bytes(value => $memory_free);
my $exit = $self->{perfdata}->threshold_check(value => $prct_used, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
my ($total_value, $total_unit) = $self->{perfdata}->change_bytes(value => $total_size);
my ($used_value, $used_unit) = $self->{perfdata}->change_bytes(value => $memory_used);
my ($free_value, $free_unit) = $self->{perfdata}->change_bytes(value => $memory_free);
$self->{output}->output_add(severity => $exit,
short_msg => sprintf("Memory Total: %s Used: %s (%.2f%%) Free: %s (%.2f%%)",
$total_value . " " . $total_unit,
$used_value . " " . $used_unit, $prct_used,
$free_value . " " . $free_unit, $prct_free));
$self->{output}->perfdata_add(label => "used",
value => $memory_used,
warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning', total => $total_size),
critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical', total => $total_size),
min => 0, max => $total_size);
$self->{output}->output_add(long_msg => sprintf("Memory '%s' Total: %s Used: %s (%.2f%%) Free: %s (%.2f%%)",
$description, $total_value . " " . $total_unit,
$used_value . " " . $used_unit, $prct_used,
$free_value . " " . $free_unit, $prct_free));
if ($multiple == 0 || !$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
$self->{output}->output_add(severity => $exit,
short_msg => sprintf("Memory '%s' Total: %s Used: %s (%.2f%%) Free: %s (%.2f%%)",
$description, $total_value . " " . $total_unit,
$used_value . " " . $used_unit, $prct_used,
$free_value . " " . $free_unit, $prct_free));
}
my $extra_label = '';
$extra_label = '_' . $description if ($multiple == 1);
$self->{output}->perfdata_add(label => "used" . $extra_label,
value => $memory_used,
warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning', total => $total_size),
critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical', total => $total_size),
min => 0, max => $total_size);
}
$self->{output}->display();
$self->{output}->exit();

View File

@ -0,0 +1,70 @@
################################################################################
# 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 network::juniper::ex::plugin;
use strict;
use warnings;
use base qw(centreon::plugins::script_snmp);
sub new {
my ($class, %options) = @_;
my $self = $class->SUPER::new(package => __PACKAGE__, %options);
bless $self, $class;
# $options->{options} = options object
$self->{version} = '1.0';
%{$self->{modes}} = (
'hardware' => 'network::juniper::common::junos::mode::hardware',
'cpu-routing' => 'network::juniper::common::junos::mode::cpurouting', # routing engine
'memory-routing' => 'network::juniper::common::junos::mode::memoryrouting', # routing engine
'traffic' => 'snmp_standard::mode::traffic',
'list-interfaces' => 'snmp_standard::mode::listinterfaces',
'list-storages' => 'snmp_standard::mode::liststorages',
'storage' => 'snmp_standard::mode::storage',
);
return $self;
}
1;
__END__
=head1 PLUGIN DESCRIPTION
Check Juniper EX in SNMP.
=cut