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

change again directory

This commit is contained in:
Shini31 2015-06-08 15:43:54 +02:00
parent ecd863c73f
commit 85bb16d311
5 changed files with 0 additions and 664 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

117
network/hirschmann/common/cpu.pm
View File

@ -1,117 +0,0 @@
################################################################################
# Copyright 2005-2015 CENTREON
# 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 CENTREON
# 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 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
# Authors : Mathieu Cinquin <mcinquin@merethis.com>
#
####################################################################################
package network::hirschmann::common::mode::cpu;
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' },
"critical:s" => { name => 'critical' },
});
return $self;
}
sub check_options {
my ($self, %options) = @_;
$self->SUPER::init(%options);
if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
$self->{output}->option_exit();
}
if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
$self->{output}->option_exit();
}
}
sub run {
my ($self, %options) = @_;
# $options{snmp} = snmp object
$self->{snmp} = $options{snmp};
my $oid_hmCpuUtilization = '.1.3.6.1.4.1.248.14.2.15.2.1'; # in %
my $result = $self->{snmp}->get_leef(oids => [$oid_hmCpuUtilization],
nothing_quit => 1);
my $cpu = $result->{$oid_hmCpuUtilization};
my $exit = $self->{perfdata}->threshold_check(value => $cpu, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
$self->{output}->output_add(severity => $exit,
short_msg => sprintf("CPU Usage is %d%%", $cpu));
$self->{output}->perfdata_add(label => "cpu", unit => '%',
value => $temp,
warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
min =>0, max => 100);
$self->{output}->display();
$self->{output}->exit();
}
1;
__END__
=head1 MODE
Check CPU usage.
=over 8
=item B<--warning>
Threshold warning in %.
=item B<--critical>
Threshold critical in %.
=back
=cut

182
network/hirschmann/common/environment.pm
View File

@ -1,182 +0,0 @@
################################################################################
# Copyright 2005-2015 CENTREON
# 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 CENTREON
# 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 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
# Authors : Quentin Garnier <qgarnier@merethis.com>
#
####################################################################################
package network::hirschmann::common::mode::environment;
use base qw(centreon::plugins::mode);
use strict;
use warnings;
my %fan_states = (
1 => ['ok', 'OK'],
2 => ['failed', 'CRITICAL'],
);
my %psu_states = (
1 => ['ok', 'OK'],
2 => ['failed', 'CRITICAL'],
3 => ['notInstalled', 'UNKNOWN'],
4 => ['unknown', 'UNKNOWN'],
)
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 =>
{
"exclude:s" => { name => 'exclude' },
});
return $self;
}
sub check_options {
my ($self, %options) = @_;
$self->SUPER::init(%options);
}
sub run {
my ($self, %options) = @_;
# $options{snmp} = snmp object
$self->{snmp} = $options{snmp};
$self->{components_fans} = 0;
$self->{components_psus} = 0;
$self->get_type();
$self->check_fans();
$self->check_psus();
$self->{output}->output_add(severity => 'OK',
short_msg => sprintf("All %d components [%d fans, %d power supplies] are ok",
($self->{components_fans} + $self->{components_psus}),
$self->{components_fans}, $self->{components_psus}));
$self->{output}->display();
$self->{output}->exit();
}
sub check_fans {
my ($self) = @_;
$self->{output}->output_add(long_msg => "Checking fans");
return if ($self->check_exclude('fans'));
my $oid_hmFanTable = '.1.3.6.1.4.1.248.14.1.3';
my $oid_hmFanState = '.1.3.6.1.4.1.248.14.1.3.1.3';
my $result = $self->{snmp}->get_table(oid => $oid_hmFanTable);
return if (scalar(keys %$result) <= 0);
foreach my $oid (keys %$result) {
next if ($oid !~ /^$oid_hmFanState/);
$oid =~ /\.([1-2]\.([0-8]))$/;
my $fan_id = $1;
my $instance = $2;
my $psu_state = $result->{ $oid_hmFanState. '.' . $fan_id};
$self->{components_fans}++;
$self->{output}->output_add(long_msg => sprintf("Fan '%s' state is %s.",
$instance, ${$fan_states{$fan_state}}[0]));
if (${$states{$fan_state}}[1] ne 'OK') {
$self->{output}->output_add(severity => ${$fan_states{$fan_state}}[1],
short_msg => sprintf("Fan '%s' state is %s.", $instance, ${$fan_states{$fan_state}}[0]));
}
}
}
sub check_psus {
my ($self) = @_;
$self->{output}->output_add(long_msg => "Checking power supplies");
return if ($self->check_exclude('psu'));
my $oid_hmPSTable = '.1.3.6.1.4.1.248.14.1.2';
my $oid_hmPSState = '.1.3.6.1.4.1.248.14.1.2.1.3';
my $result = $self->{snmp}->get_table(oid => $oid_hmPSTable);
return if (scalar(keys %$result) <= 0);
foreach my $oid (keys %$result) {
next if ($oid !~ /^$oid_hmPSState/);
$oid =~ /\.([1-2]\.([0-8]))$/;
my $psu_id = $1;
my $instance = $2;
my $psu_state = $result->{ $oid_hmPSState. '.' . $psu_id};
$self->{components_psus}++;
$self->{output}->output_add(long_msg => sprintf("Power Supply '%s' state is %s.",
$instance, ${$psu_states{$psu_state}}[0]));
if (${$psu_states{$psu_state}}[1] ne 'OK') {
$self->{output}->output_add(severity => ${$psu_states{$psu_state}}[1],
short_msg => sprintf("Power Supply '%s' state is %s.", $instance, ${$fan_states{$psu_state}}[0]));
}
}
}
sub check_exclude {
my ($self, $section) = @_;
if (defined($self->{option_results}->{exclude}) && $self->{option_results}->{exclude} =~ /(^|\s|,)$section(\s|,|$)/) {
$self->{output}->output_add(long_msg => sprintf("Skipping $section section."));
return 1;
}
return 0;
}
1;
__END__
=head1 MODE
Check Environment monitor (Fans, Power Supplies).
=over 8
=item B<--exclude>
Exclude some parts (comma seperated list) (Example: --exclude=psu).
=back
=cut

131
network/hirschmann/common/memory.pm
View File

@ -1,131 +0,0 @@
################################################################################
# Copyright 2005-2015 CENTREON
# 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 CENTREON
# 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 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
# Authors : Mathieu Cinquin <mcinquin@merethis.com>
#
####################################################################################
package network::hirschmann::common::mode::memory;
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' },
"critical:s" => { name => 'critical' },
});
return $self;
}
sub check_options {
my ($self, %options) = @_;
$self->SUPER::init(%options);
if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
$self->{output}->option_exit();
}
if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
$self->{output}->option_exit();
}
}
sub run {
my ($self, %options) = @_;
# $options{snmp} = snmp object
$self->{snmp} = $options{snmp};
my $oid_hmMemoryFree = '.1.3.6.1.4.1.248.14.2.15.3.2'; # in KBytes
my $oid_hmMemoryAllocated = '1.3.6.1.4.1.248.14.2.15.3.1' # in KBytes
my $oids = [$oid_hmMemoryFree, $oid_hmMemoryAllocated];
my $result = $self->{snmp}->get_leef(oids => [$oids],
nothing_quit => 1);
my $mem_free = $result->{$oid_hmMemoryFree};
my $mem_allocated = $result->{$oid_hmMemoryAllocated};
my $mem_total = $mem_allocated + $mem_free;
my $mem_percent_used = $mem_allocated / $mem_total * 100;
my $exit = $self->{perfdata}->threshold_check(value => $mem_percent_used, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
my ($mem_allocated_value, $mem_allocated_unit) = $self->{perfdata}->change_bytes(value => $mem_allocated);
$self->{output}->output_add(severity => $exit,
short_msg => sprintf("Memory used %s (%.2f%%)",
$mem_allocated_value . " " . $mem_allocated_unit, $mem_percent_used));
$self->{output}->perfdata_add(label => "used", unit => 'B',
value => $mem_allocated_value,
warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning', total => $mem_total, cast_int => 1),
critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical' total => $mem_total, cast_int => 1),
min => 0, max => $mem_total);
);
$self->{output}->display();
$self->{output}->exit();
}
1;
__END__
=head1 MODE
Check Memory usage.
=over 8
=item B<--warning>
Threshold warning in %.
=item B<--critical>
Threshold critical in %.
=back
=cut

117
network/hirschmann/common/processcount.pm
View File

@ -1,117 +0,0 @@
################################################################################
# Copyright 2005-2015 CENTREON
# 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 CENTREON
# 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 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
# Authors : Mathieu Cinquin <mcinquin@merethis.com>
#
####################################################################################
package network::hirschmann::common::mode::processcount;
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' },
"critical:s" => { name => 'critical' },
});
return $self;
}
sub check_options {
my ($self, %options) = @_;
$self->SUPER::init(%options);
if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
$self->{output}->option_exit();
}
if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
$self->{output}->option_exit();
}
}
sub run {
my ($self, %options) = @_;
# $options{snmp} = snmp object
$self->{snmp} = $options{snmp};
my $oid_hmCpuRunningProcesses = '.1.3.6.1.4.1.248.14.2.15.2.3';
my $result = $self->{snmp}->get_leef(oids => [$oid_hmCpuRunningProcesses],
nothing_quit => 1);
my $processcount = $result->{$oid_hmCpuRunningProcesses};
my $exit = $self->{perfdata}->threshold_check(value => $processcount, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
$self->{output}->output_add(severity => $exit,
short_msg => sprintf("Number of current processes running: %d", $processcount));
$self->{output}->perfdata_add(label => "nbproc",
value => $temp,
warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
min => 0);
$self->{output}->display();
$self->{output}->exit();
}
1;
__END__
=head1 MODE
Check number of processes.
=over 8
=item B<--warning>
Threshold warning (process count).
=item B<--critical>
Threshold critical (process count).
=back
=cut

117
network/hirschmann/common/temperature.pm
View File

@ -1,117 +0,0 @@
################################################################################
# Copyright 2005-2015 CENTREON
# 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 CENTREON
# 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 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
# Authors : Mathieu Cinquin <mcinquin@merethis.com>
#
####################################################################################
package network::hirschmann::mode::common::temperature;
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' },
"critical:s" => { name => 'critical' },
});
return $self;
}
sub check_options {
my ($self, %options) = @_;
$self->SUPER::init(%options);
if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
$self->{output}->option_exit();
}
if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
$self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
$self->{output}->option_exit();
}
}
sub run {
my ($self, %options) = @_;
# $options{snmp} = snmp object
$self->{snmp} = $options{snmp};
my $oid_hmTemperature = '.1.3.6.1.4.1.248.14.2.5.1'; # in Celsius
my $result = $self->{snmp}->get_leef(oids => [$oid_hmTemperature],
nothing_quit => 1);
my $temp = $result->{$oid_hmTemperature};
my $exit = $self->{perfdata}->threshold_check(value => $temp, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
$self->{output}->output_add(severity => $exit,
short_msg => sprintf("Temperature %s is degree centigrade", $temp));
$self->{output}->perfdata_add(label => "temp", unit => 'C',
value => $temp,
warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
min =>0);
$self->{output}->display();
$self->{output}->exit();
}
1;
__END__
=head1 MODE
Check CPU usage.
=over 8
=item B<--warning>
Threshold warning in %.
=item B<--critical>
Threshold critical in %.
=back
=cut