tyler.durden
/
centreon-plugins
mirror of https://github.com/centreon/centreon-plugins.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'master' of http://git.centreon.com/centreon-plugins

This commit is contained in:
Quentin Garnier 2015-02-06 15:25:31 +01:00
parent ced09222ec b9bfd19a19
commit 9b5aa9227b
7 changed files with 636 additions and 100 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
apps/bluemind/mode/incoming.pm
View File

@ -39,20 +39,24 @@ use base qw(centreon::plugins::mode);
use strict; use strict;
use warnings; use warnings;
use centreon::plugins::influxdbapi; use centreon::plugins::httplib;
use centreon::plugins::statefile; use centreon::plugins::statefile;
use JSON;
use Data::Dumper;
sub new { sub new {
my ($class, %options) = @_; my ($class, %options) = @_;
my $self = $class->SUPER::new(package => __PACKAGE__, %options); my $self = $class->SUPER::new(package => __PACKAGE__, %options);
bless $self, $class; bless $self, $class;
$self->{version} = '1.0'; $self->{version} = '1.1';
$options{options}->add_options(arguments => $options{options}->add_options(arguments =>
{ {
"hostname:s" => { name => 'hostname' }, "hostname:s" => { name => 'hostname' },
"port:s" => { name => 'port', }, "port:s" => { name => 'port', default => '8086'},
"proto:s" => { name => 'proto', default => "http" }, "proto:s" => { name => 'proto', default => 'http' },
"urlpath:s" => { name => 'url_path', default => "/db" },
"database:s" => { name => 'database' }, "database:s" => { name => 'database' },
"username:s" => { name => 'username' }, "username:s" => { name => 'username' },
"password:s" => { name => 'password' }, "password:s" => { name => 'password' },
@ -97,7 +101,7 @@ sub check_options {
sub run { sub run {
my ($self, %options) = @_; 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 $old_timestamp = $self->{statefile_value}->get(name => 'last_timestamp');
my $new_datas = {}; my $new_datas = {};
@ -111,10 +115,24 @@ sub run {
$self->{output}->exit(); $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()'; $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; my $hwebcontent;
for my $ref (@{ $webcontent }) { for my $ref (@{ $webcontent }) {

136
apps/voip/cisco/meetingplace/mode/audiolicenses.pm Normal file
View File

@ -0,0 +1,136 @@
################################################################################
# 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 : Simon Bomm <sbomm@merethis.com>
#
####################################################################################
package apps::voip::cisco::meetingplace::mode::audiolicenses;
use base qw(centreon::plugins::mode);
use strict;
use warnings;
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:s" => { name => 'warning', default => '60' },
"critical:s" => { name => 'critical', default => '70' },
});
return $self;
}
sub check_options {
my ($self, %options) = @_;
$self->SUPER::init(%options);
$self->{warning} = $self->{option_results}->{warning};
$self->{critical} = $self->{option_results}->{critical};
if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{warning})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warning} . "'.");
$self->{output}->option_exit();
}
if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{critical})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong critical threshold'" . $self->{critical} . "'.");
$self->{output}->option_exit();
}
}
sub run {
my ($self, %options) = @_;
# $options{snmp} = snmp object
$self->{snmp} = $options{snmp};
# Nombre de ports audio utilise
my $oid_cmpAudioLicense = '.1.3.6.1.4.1.9.9.733.1.3.1.0';
# Nombre maximum de ports audio disponibles
my $oid_cmpMaxAudioLicense = '.1.3.6.1.4.1.9.9.733.1.3.2.0';
my $result = $self->{snmp}->get_leef(oids => [$oid_cmpAudioLicense, $oid_cmpMaxAudioLicense], nothing_quit => 1);
my $prct;
if ($result->{$oid_cmpAudioLicense} > 0) {
$prct = $result->{$oid_cmpAudioLicense} / $result->{$oid_cmpMaxAudioLicense} * 100;
} else {
$prct = 0;
}
my $abs_warning = $self->{option_results}->{warning} / 100 * $result->{$oid_cmpMaxAudioLicense};
my $abs_critical = $self->{option_results}->{critical} / 100 * $result->{$oid_cmpMaxAudioLicense};
my $exit = $self->{perfdata}->threshold_check(value => $prct,
threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]
);
$self->{output}->output_add(severity => $exit,
short_msg => sprintf("%.2f%% of audio licenses are in use. (%d max)",
$prct, $result->{$oid_cmpMaxAudioLicense}));
$self->{output}->perfdata_add(label => "audio-licenses", unit => 'licenses',
value => $result->{$oid_cmpAudioLicense},
warning => $abs_warning,
critical => $abs_critical,
min => 0,
max => $result->{$oid_cmpMaxAudioLicense});
$self->{output}->display();
$self->{output}->exit();
}
1;
__END__
=head1 MODE
Check the percentage of audio licenses used on this cisco meeting place platform.
=over 8
=item B<--warning>
Threshold warning: Percentage value of audio licenses usage resulting in a warning state
=item B<--critical>
Threshold critical: Percentage value of audio licenses usage resulting in a critical state
=back
==cut

136
apps/voip/cisco/meetingplace/mode/audioports.pm Normal file
View File

@ -0,0 +1,136 @@
################################################################################
# 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 : Simon Bomm <sbomm@merethis.com> & Quentin Garnier <qgarnier@merethis.com>
#
####################################################################################
package apps::voip::cisco::meetingplace::mode::audioports;
use base qw(centreon::plugins::mode);
use strict;
use warnings;
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:s" => { name => 'warning', default => '60' },
"critical:s" => { name => 'critical', default => '70' },
});
return $self;
}
sub check_options {
my ($self, %options) = @_;
$self->SUPER::init(%options);
$self->{warning} = $self->{option_results}->{warning};
$self->{critical} = $self->{option_results}->{critical};
if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{warning})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warning} . "'.");
$self->{output}->option_exit();
}
if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{critical})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong critical threshold'" . $self->{critical} . "'.");
$self->{output}->option_exit();
}
}
sub run {
my ($self, %options) = @_;
# $options{snmp} = snmp object
$self->{snmp} = $options{snmp};
# Nombre de ports audio utilise
my $oid_cmpAudioPortsUsage = '.1.3.6.1.4.1.9.9.733.1.4.3.0';
# Nombre maximum de ports audio disponibles
my $oid_cmpMaxAudioPortsAvailable = '.1.3.6.1.4.1.9.9.733.1.4.4.0';
my $result = $self->{snmp}->get_leef(oids => [$oid_cmpAudioPortsUsage, $oid_cmpMaxAudioPortsAvailable], nothing_quit => 1);
my $prct;
if ($result->{$oid_cmpAudioPortsUsage} > 0) {
$prct = $result->{$oid_cmpAudioPortsUsage} / $result->{$oid_cmpMaxAudioPortsAvailable} * 100;
} else {
$prct = 0;
}
my $abs_warning = $self->{option_results}->{warning} / 100 * $result->{$oid_cmpMaxAudioPortsAvailable};
my $abs_critical = $self->{option_results}->{critical} / 100 * $result->{$oid_cmpMaxAudioPortsAvailable};
my $exit = $self->{perfdata}->threshold_check(value => $prct,
threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]
);
$self->{output}->output_add(severity => $exit,
short_msg => sprintf("%.2f%% of audio ports are in use. (%d max)",
$prct, $result->{$oid_cmpMaxAudioPortsAvailable}));
$self->{output}->perfdata_add(label => "audio-ports", unit => 'ports',
value => $result->{$oid_cmpAudioPortsUsage},
warning => $abs_warning,
critical => $abs_critical,
min => 0,
max => $result->{$oid_cmpMaxAudioPortsAvailable});
$self->{output}->display();
$self->{output}->exit();
}
1;
__END__
=head1 MODE
Check the percentage of audio ports used on this cisco meeting place platform.
=over 8
=item B<--warning>
Threshold warning: Percentage value of audio ports usage resulting in a warning state
=item B<--critical>
Threshold critical: Percentage value of audio ports usage resulting in a critical state
=back
==cut

136
apps/voip/cisco/meetingplace/mode/videolicenses.pm Normal file
View File

@ -0,0 +1,136 @@
################################################################################
# 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 : Simon Bomm <sbomm@merethis.com>
#
####################################################################################
package apps::voip::cisco::meetingplace::mode::videolicenses;
use base qw(centreon::plugins::mode);
use strict;
use warnings;
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:s" => { name => 'warning', default => '60' },
"critical:s" => { name => 'critical', default => '70' },
});
return $self;
}
sub check_options {
my ($self, %options) = @_;
$self->SUPER::init(%options);
$self->{warning} = $self->{option_results}->{warning};
$self->{critical} = $self->{option_results}->{critical};
if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{warning})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warning} . "'.");
$self->{output}->option_exit();
}
if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{critical})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong critical threshold'" . $self->{critical} . "'.");
$self->{output}->option_exit();
}
}
sub run {
my ($self, %options) = @_;
# $options{snmp} = snmp object
$self->{snmp} = $options{snmp};
# Nombre de ports audio utilise
my $oid_cmpVideoLicense = '.1.3.6.1.4.1.9.9.733.1.3.3.0';
# Nombre maximum de ports audio disponibles
my $oid_cmpMaxVideoLicense = '.1.3.6.1.4.1.9.9.733.1.3.4.0';
my $result = $self->{snmp}->get_leef(oids => [$oid_cmpVideoLicense, $oid_cmpMaxVideoLicense], nothing_quit => 1);
my $prct;
if ($result->{$oid_cmpVideoLicense} > 0) {
$prct = $result->{$oid_cmpVideoLicense} / $result->{$oid_cmpMaxVideoLicense} * 100;
} else {
$prct = 0;
}
my $abs_warning = $self->{option_results}->{warning} / 100 * $result->{$oid_cmpMaxVideoLicense};
my $abs_critical = $self->{option_results}->{critical} / 100 * $result->{$oid_cmpMaxVideoLicense};
my $exit = $self->{perfdata}->threshold_check(value => $prct,
threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]
);
$self->{output}->output_add(severity => $exit,
short_msg => sprintf("%.2f%% of video licenses are in use. (%d max)",
$prct, $result->{$oid_cmpMaxVideoLicense}));
$self->{output}->perfdata_add(label => "video-licenses", unit => 'licenses',
value => $result->{$oid_cmpVideoLicense},
warning => $abs_warning,
critical => $abs_critical,
min => 0,
max => $result->{$oid_cmpMaxVideoLicense});
$self->{output}->display();
$self->{output}->exit();
}
1;
__END__
=head1 MODE
Check the percentage of video licenses used on this cisco meeting place platform.
=over 8
=item B<--warning>
Threshold warning: Percentage value of video licenses usage resulting in a warning state
=item B<--critical>
Threshold critical: Percentage value of video licenses usage resulting in a critical state
=back
==cut

132
apps/voip/cisco/meetingplace/mode/videoports.pm Normal file
View File

@ -0,0 +1,132 @@
################################################################################
# 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 : Simon Bomm <sbomm@merethis.com>
#
####################################################################################
package apps::voip::cisco::meetingplace::mode::videoports;
use base qw(centreon::plugins::mode);
use strict;
use warnings;
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:s" => { name => 'warning', default => '60' },
"critical:s" => { name => 'critical', default => '70' },
});
return $self;
}
sub check_options {
my ($self, %options) = @_;
$self->SUPER::init(%options);
$self->{warning} = $self->{option_results}->{warning};
$self->{critical} = $self->{option_results}->{critical};
if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{warning})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{warning} . "'.");
$self->{output}->option_exit();
}
if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{critical})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong critical threshold'" . $self->{critical} . "'.");
$self->{output}->option_exit();
}
}
sub run {
my ($self, %options) = @_;
# $options{snmp} = snmp object
$self->{snmp} = $options{snmp};
# Nombre de ports video utilise
my $oid_cmpVideoPortsUsage = '.1.3.6.1.4.1.9.9.733.1.4.1.0';
# Nombre maximum de ports video disponibles
my $oid_cmpMaxVideoPortsAvailable = '.1.3.6.1.4.1.9.9.733.1.4.2.0';
my $result = $self->{snmp}->get_leef(oids => [$oid_cmpVideoPortsUsage, $oid_cmpMaxVideoPortsAvailable], nothing_quit => 1);
my $prct = $result->{$oid_cmpVideoPortsUsage} / $result->{$oid_cmpMaxVideoPortsAvailable} * 100;
my $abs_warning = $self->{option_results}->{warning} / 100 * $result->{$oid_cmpMaxVideoPortsAvailable};
my $abs_critical = $self->{option_results}->{critical} / 100 * $result->{$oid_cmpMaxVideoPortsAvailable};
my $exit = $self->{perfdata}->threshold_check(value => $prct,
threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]
);
$self->{output}->output_add(severity => $exit,
short_msg => sprintf("%.2f%% of video ports are in use. (%d max)",
$prct, $result->{$oid_cmpMaxVideoPortsAvailable}));
$self->{output}->perfdata_add(label => "video-ports", unit => 'ports',
value => $result->{$oid_cmpVideoPortsUsage},
warning => $abs_warning,
critical => $abs_critical,
min => 0,
max => $result->{$oid_cmpMaxVideoPortsAvailable});
$self->{output}->display();
$self->{output}->exit();
}
1;
__END__
=head1 MODE
Check the percentage of video ports used on this cisco meeting place platform.
=over 8
=item B<--warning>
Threshold warning: Percentage value of video ports usage resulting in a warning state
=item B<--critical>
Threshold critical: Percentage value of video ports usage resulting in a critical state
=back
==cut

72
apps/voip/cisco/meetingplace/plugin.pm Normal file
View File

@ -0,0 +1,72 @@
################################################################################
# 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 apps::voip::cisco::meetingplace::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}} = (
'cpu' => 'snmp_standard::mode::cpu',
'memory' => 'os::windows::snmp::mode::memory',
'storage' => 'snmp_standard::mode::storage',
'audio-ports' => 'apps::voip::cisco::meetingplace::mode::audioports',
'video-ports' => 'apps::voip::cisco::meetingplace::mode::videoports',
'audio-licenses' => 'apps::voip::cisco::meetingplace::mode::audiolicenses',
'video-licenses' => 'apps::voip::cisco::meetingplace::mode::videolicenses',
'packet-errors' => 'snmp_standard::mode::packeterrors',
'traffic' => 'snmp_standard::mode::traffic',
);
return $self;
}
1;
__END__
=head1 PLUGIN DESCRIPTION
Check Cisco Meeting place in SNMP.
=cut

94
centreon/plugins/influxdbapi.pm
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;