diff --git a/network/hirschmann/common/cpu.pm b/network/hirschmann/common/cpu.pm deleted file mode 100644 index f7245adf3..000000000 --- a/network/hirschmann/common/cpu.pm +++ /dev/null @@ -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 . -# -# 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 -# -#################################################################################### - -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 diff --git a/network/hirschmann/common/environment.pm b/network/hirschmann/common/environment.pm deleted file mode 100644 index bccdaade8..000000000 --- a/network/hirschmann/common/environment.pm +++ /dev/null @@ -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 . -# -# 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 -# -#################################################################################### - -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 - diff --git a/network/hirschmann/common/memory.pm b/network/hirschmann/common/memory.pm deleted file mode 100644 index eb3a98940..000000000 --- a/network/hirschmann/common/memory.pm +++ /dev/null @@ -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 . -# -# 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 -# -#################################################################################### - -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 diff --git a/network/hirschmann/common/processcount.pm b/network/hirschmann/common/processcount.pm deleted file mode 100644 index d4f9b0e4e..000000000 --- a/network/hirschmann/common/processcount.pm +++ /dev/null @@ -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 . -# -# 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 -# -#################################################################################### - -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 diff --git a/network/hirschmann/common/temperature.pm b/network/hirschmann/common/temperature.pm deleted file mode 100644 index 26f6de8b7..000000000 --- a/network/hirschmann/common/temperature.pm +++ /dev/null @@ -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 . -# -# 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 -# -#################################################################################### - -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