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 pull request #69 from Shini31/Hirschmann 

Hirschmann
This commit is contained in:
qgarnier 2015-06-18 11:17:24 +02:00
parent e04fe5aec5 ada53ec409
commit 35e1b5101c
7 changed files with 953 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
network/hirschmann/plugin.pm Normal file
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::hirschmann::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' => 'network::hirschmann::snmp::mode::cpu',
'environment' => 'network::hirschmann::snmp::mode::environment',
'led' => 'network::hirschmann::snmp::mode::led',
'memory' => 'network::hirschmann::snmp::mode::memory',
'processcount' => 'network::hirschmann::snmp::mode::processcount',
'temperature' => 'network::hirschmann::snmp::mode::temperature',
'traffic' => 'snmp_standard::mode::traffic',
);
return $self;
}
1;
__END__
=head1 PLUGIN DESCRIPTION
Check Hirschmann in SNMP (HMPRIV-MGMT-SNMP-MIB).
=cut

118
network/hirschmann/snmp/mode/cpu.pm Normal file
View File

@ -0,0 +1,118 @@
################################################################################
# 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::snmp::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.0'; # 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 => $cpu,
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.
hmEnableMeasurement must be activated (value = 1).
=over 8
=item B<--warning>
Threshold warning in %.
=item B<--critical>
Threshold critical in %.
=back
=cut

204
network/hirschmann/snmp/mode/environment.pm Normal file
View File

@ -0,0 +1,204 @@
################################################################################
# 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::snmp::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' },
});
$self->{components} = {};
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}->{fan} = {name => 'fans', total => 0, skip => 0};
$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}->{psu}->{total} + $self->{components}->{fan}->{total}),
$self->{components}->{fan}->{total}, $self->{components}->{psu}->{total}));
$self->{output}->display();
$self->{output}->exit();
}
sub check_fans {
my ($self) = @_;
$self->{output}->output_add(long_msg => "Checking fans");
return if ($self->check_exclude(section => 'fan'));
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 $fan_state = $result->{ $oid_hmFanState. '.' . $fan_id};
next if ($self->check_exclude(section => 'fan', instance => $instance));
$self->{components}->{fan}->{total}++;
$self->{output}->output_add(long_msg => sprintf("Fan '%s' state is %s.",
$instance, ${$fan_states{$fan_state}}[0]));
if (${$fan_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(section => '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};
next if ($self->check_exclude(section => 'psu', instance => $instance));
$self->{components}->{psu}->{total}++;
$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;
#}
sub check_exclude {
my ($self, %options) = @_;
if (defined($options{instance})) {
if (defined($self->{option_results}->{exclude}) && $self->{option_results}->{exclude} =~ /(^|\s|,)${options{section}}[^,]*#\Q$options{instance}\E#/) {
$self->{components}->{$options{section}}->{skip}++;
$self->{output}->output_add(long_msg => sprintf("Skipping $options{section} section $options{instance} instance."));
return 1;
}
} elsif (defined($self->{option_results}->{exclude}) && $self->{option_results}->{exclude} =~ /(^|\s|,)$options{section}(\s|,|$)/) {
$self->{output}->output_add(long_msg => sprintf("Skipping $options{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)
Can also exclude specific instance: --exclude='psu#3.3#'
=back
=cut

196
network/hirschmann/snmp/mode/led.pm Normal file
View File

@ -0,0 +1,196 @@
################################################################################
# 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::snmp::mode::led;
use base qw(centreon::plugins::mode);
use strict;
use warnings;
my %states = (
1 => ['off', 'UNKNOWN'],
2 => ['green', 'OK'],
3 => ['yellow', 'WARNING'],
4 => ['red', 'CRITICAL'],
);
my $oid_hmLEDRSPowerSupply = '.1.3.6.1.4.1.248.14.1.1.35.1.1.0';
my $oid_hmLEDRStandby = '.1.3.6.1.4.1.248.14.1.1.35.1.2.0';
my $oid_hmLEDRSRedundancyManager = '.1.3.6.1.4.1.248.14.1.1.35.1.3.0';
my $oid_hmLEDRSFault = '.1.3.6.1.4.1.248.14.1.1.35.1.4.0';
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->{results} = $self->{snmp}->get_leef(oids => [$oid_hmLEDRSPowerSupply, $oid_hmLEDRStandby, $oid_hmLEDRSRedundancyManager, $oid_hmLEDRSFault],
nothing_quit => 1);
$self->{led_psu} = 0;
$self->{led_standby} = 0;
$self->{led_redundancy} = 0;
$self->{led_fault} = 0;
$self->check_led_psu();
$self->check_led_standby();
$self->check_led_redundancy();
$self->check_led_fault();
$self->{output}->output_add(severity => 'OK',
short_msg => sprintf("All %d leds [PSU led, Standby led, Redundancy led, Fault led] are ok",
($self->{led_psu} + $self->{led_standby} + $self->{led_redundancy} + $self->{led_fault})));
$self->{output}->display();
$self->{output}->exit();
}
sub check_led_psu {
my ($self) = @_;
$self->{output}->output_add(long_msg => "Checking PSU led");
return if ($self->check_exclude('led_psu'));
my $led_psu_state = $self->{results}->{ $oid_hmLEDRSPowerSupply };
$self->{led_psu}++;
$self->{output}->output_add(long_msg => sprintf("PSU led state is %s.",
${$states{$led_psu_state}}[0]));
if (${$states{$led_psu_state}}[1] ne 'OK') {
$self->{output}->output_add(severity => ${$states{$led_psu_state}}[1],
short_msg => sprintf("PSU led state is %s.", ${$states{$led_psu_state}}[0]));
}
}
sub check_led_standby {
my ($self) = @_;
$self->{output}->output_add(long_msg => "Checking Standby led");
return if ($self->check_exclude('led_standby'));
my $led_standby_state = $self->{results}->{ $oid_hmLEDRStandby };
$self->{led_standby}++;
$self->{output}->output_add(long_msg => sprintf("Standby led state is %s.",
${$states{$led_standby_state}}[0]));
if (${$states{$led_standby_state}}[1] ne 'OK') {
$self->{output}->output_add(severity => ${$states{$led_standby_state}}[1],
short_msg => sprintf("Standby led state is %s.", ${$states{$led_standby_state}}[0]));
}
}
sub check_led_redundancy {
my ($self) = @_;
$self->{output}->output_add(long_msg => "Checking Redundancy led");
return if ($self->check_exclude('led_redundancy'));
my $led_redundancy_state = $self->{results}->{ $oid_hmLEDRSRedundancyManager };
$self->{led_redundancy}++;
$self->{output}->output_add(long_msg => sprintf("Redundancy led state is %s.",
${$states{$led_redundancy_state}}[0]));
if (${$states{$led_redundancy_state}}[1] ne 'OK') {
$self->{output}->output_add(severity => ${$states{$led_redundancy_state}}[1],
short_msg => sprintf("Redundancy led state is %s.", ${$states{$led_redundancy_state}}[0]));
}
}
sub check_led_fault {
my ($self) = @_;
$self->{output}->output_add(long_msg => "Checking Fault led");
return if ($self->check_exclude('led_fault'));
my $led_fault_state = $self->{results}->{ $oid_hmLEDRSFault };
$self->{led_fault}++;
$self->{output}->output_add(long_msg => sprintf("Fault led state is %s.",
${$states{$led_fault_state}}[0]));
if (${$states{$led_fault_state}}[1] ne 'OK') {
$self->{output}->output_add(severity => ${$states{$led_fault_state}}[1],
short_msg => sprintf("Fault led state is %s.", ${$states{$led_fault_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 led monitor (Power Supplies, Standby, Redundancy, Fault).
=over 8
=item B<--exclude>
Exclude some parts (comma seperated list) (Example: --exclude=led_fault,led_psu).
=back
=cut

130
network/hirschmann/snmp/mode/memory.pm Normal file
View File

@ -0,0 +1,130 @@
################################################################################
# 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::snmp::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.0'; # in KBytes
my $oid_hmMemoryAllocated = '.1.3.6.1.4.1.248.14.2.15.3.1.0'; # 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} * 1024;
my $mem_allocated = $result->{$oid_hmMemoryAllocated} * 1024;
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,
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.
hmEnableMeasurement must be activated (value = 1).
=over 8
=item B<--warning>
Threshold warning in %.
=item B<--critical>
Threshold critical in %.
=back
=cut

118
network/hirschmann/snmp/mode/processcount.pm Normal file
View File

@ -0,0 +1,118 @@
################################################################################
# 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::snmp::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.0';
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 => $processcount,
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.
hmEnableMeasurement must be activated (value = 1).
=over 8
=item B<--warning>
Threshold warning (process count).
=item B<--critical>
Threshold critical (process count).
=back
=cut

117
network/hirschmann/snmp/mode/temperature.pm Normal file
View File

@ -0,0 +1,117 @@
################################################################################
# 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::snmp::mode::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.0'; # 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