diff --git a/centreon-plugins/README.md b/centreon-plugins/README.md index 579643861..f9ca13ec2 100644 --- a/centreon-plugins/README.md +++ b/centreon-plugins/README.md @@ -1,4 +1,5 @@ # centreon-plugins + “centreon-plugins” is a free and open source project to monitor systems. The project can be used with Centreon and all monitoring softwares compatible with Nagios plugins. You can monitor many systems: @@ -8,7 +9,7 @@ You can monitor many systems: * hardware: printers (rfc3805), UPS (Powerware, Mge, Standard), Sun Hardware, Cisco UCS, SensorIP, HP Proliant, HP Bladechassis, Dell Openmanage, Dell CMC, Raritan,... * network: Aruba, Brocade, Bluecoat, Brocade, Checkpoint, Cisco AP/IronPort/ASA/Standard, Extreme, Fortigate, H3C, Hirschmann, HP Procurve, F5 BIG-IP, Juniper, PaloAlto, Redback, Riverbed, Ruggedcom, Stonesoft,... * os: Linux (SNMP, NRPE), Freebsd (SNMP), AIX (SNMP), Solaris (SNMP)... -* storage: EMC Clariion, Netapp, HP MSA p2000, Dell EqualLogic, Qnap, Panzura, Synology... +* storage: EMC Clariion, Netapp, Nimble, HP MSA p2000, Dell EqualLogic, Qnap, Panzura, Synology... ## Basic Usage diff --git a/centreon-plugins/apps/elasticsearch/mode/cluster.pm b/centreon-plugins/apps/elasticsearch/mode/cluster.pm index a72dedd5f..b11d9b85e 100644 --- a/centreon-plugins/apps/elasticsearch/mode/cluster.pm +++ b/centreon-plugins/apps/elasticsearch/mode/cluster.pm @@ -44,9 +44,9 @@ sub new { $options{options}->add_options(arguments => { "hostname:s" => { name => 'hostname' }, - "port:s" => { name => 'port', default => '9200'}, + "port:s" => { name => 'port', default => 9200 }, "proto:s" => { name => 'proto' }, - "urlpath:s" => { name => 'url_path' }, + "urlpath:s" => { name => 'url_path', default => '/_cluster/health' }, "credentials" => { name => 'credentials' }, "username:s" => { name => 'username' }, "password:s" => { name => 'password' }, @@ -77,7 +77,6 @@ sub check_options { push @{$self->{overload_th}->{$section}}, {filter => $filter, status => $status}; } - $self->{option_results}->{url_path} = $self->{option_results}->{url_path} . "_cluster/health/"; $self->{http}->set_options(%{$self->{option_results}}); } @@ -176,7 +175,7 @@ Specify https if needed (Default: 'http') =item B<--urlpath> -Set path to get Elasticsearch information (Default: '/') +Set path to get Elasticsearch information (Default: '/_cluster/health') =item B<--credentials> diff --git a/centreon-plugins/apps/elasticsearch/mode/indices.pm b/centreon-plugins/apps/elasticsearch/mode/indices.pm index 42c4e5b63..0d510a2a1 100644 --- a/centreon-plugins/apps/elasticsearch/mode/indices.pm +++ b/centreon-plugins/apps/elasticsearch/mode/indices.pm @@ -51,9 +51,9 @@ sub new { $options{options}->add_options(arguments => { "hostname:s" => { name => 'hostname' }, - "port:s" => { name => 'port', default => '9200'}, + "port:s" => { name => 'port', default => 9200 }, "proto:s" => { name => 'proto' }, - "urlpath:s" => { name => 'url_path' }, + "urlpath:s" => { name => 'url_path', default => '/_cluster/health' }, "credentials" => { name => 'credentials' }, "username:s" => { name => 'username' }, "password:s" => { name => 'password' }, @@ -84,8 +84,7 @@ sub check_options { push @{$self->{overload_th}->{$section}}, {filter => $filter, status => $status}; } - $self->{option_results}->{url_path} = $self->{option_results}->{url_path} . "_cluster/health"; - $self->{option_results}->{get_param} = ['level=indices']; + $self->{option_results}->{get_param} = [ 'level=indices' ]; $self->{http}->set_options(%{$self->{option_results}}); } @@ -172,7 +171,7 @@ Specify https if needed (Default: 'http') =item B<--urlpath> -Set path to get Elasticsearch information (Default: '/') +Set path to get Elasticsearch information (Default: '/_cluster/health') =item B<--credentials> diff --git a/centreon-plugins/apps/elasticsearch/mode/nodescount.pm b/centreon-plugins/apps/elasticsearch/mode/nodescount.pm index d55e25f3c..1babb409a 100644 --- a/centreon-plugins/apps/elasticsearch/mode/nodescount.pm +++ b/centreon-plugins/apps/elasticsearch/mode/nodescount.pm @@ -36,9 +36,9 @@ sub new { $options{options}->add_options(arguments => { "hostname:s" => { name => 'hostname' }, - "port:s" => { name => 'port', default => '9200'}, + "port:s" => { name => 'port', default => 9200 }, "proto:s" => { name => 'proto' }, - "urlpath:s" => { name => 'url_path' }, + "urlpath:s" => { name => 'url_path', default => '/_cluster/stats' }, "credentials" => { name => 'credentials' }, "username:s" => { name => 'username' }, "password:s" => { name => 'password' }, @@ -64,7 +64,6 @@ sub check_options { $self->{output}->option_exit(); } - $self->{option_results}->{url_path} = $self->{option_results}->{url_path} . "_cluster/stats/"; $self->{http}->set_options(%{$self->{option_results}}); } @@ -141,7 +140,7 @@ Specify https if needed (Default: 'http') =item B<--urlpath> -Set path to get Elasticsearch information (Default: '/') +Set path to get Elasticsearch information (Default: '_cluster/stats') =item B<--credentials> diff --git a/centreon-plugins/apps/kayako/api/mode/ticketcount.pm b/centreon-plugins/apps/kayako/api/mode/ticketcount.pm index 36770e3de..15ba28222 100644 --- a/centreon-plugins/apps/kayako/api/mode/ticketcount.pm +++ b/centreon-plugins/apps/kayako/api/mode/ticketcount.pm @@ -140,7 +140,7 @@ sub reload_cache { my $salt = ''; $salt .= int(rand(10)) for 1..10; my $digest = hmac_sha256_base64 ($salt, $self->{option_results}->{kayako_secret_key}); - my $webcontent = $self->{http}->request(url_path => $url_original_path . "/Base/Department&apikey=" . $self->{option_results}->{kayako_api_key} . "&salt=" . $salt . "&signature=" . $digest . "=";); + my $webcontent = $self->{http}->request(url_path => $url_original_path . "/Base/Department&apikey=" . $self->{option_results}->{kayako_api_key} . "&salt=" . $salt . "&signature=" . $digest . "="); my $xp = XML::XPath->new($webcontent); my $nodes = $xp->find('departments/department'); diff --git a/centreon-plugins/apps/protocols/http/mode/jsoncontent.pm b/centreon-plugins/apps/protocols/http/mode/jsoncontent.pm index 0987fa4ed..372082276 100644 --- a/centreon-plugins/apps/protocols/http/mode/jsoncontent.pm +++ b/centreon-plugins/apps/protocols/http/mode/jsoncontent.pm @@ -343,11 +343,11 @@ Threshold critical if the string match =item B<--warning-time> -Threshold warning in ms of webservice response time +Threshold warning in seconds of webservice response time =item B<--critical-time> -Threshold critical in ms of webservice response time +Threshold critical in seconds of webservice response time =back diff --git a/centreon-plugins/apps/protocols/http/mode/soapcontent.pm b/centreon-plugins/apps/protocols/http/mode/soapcontent.pm index 2b02b790e..068c2b216 100644 --- a/centreon-plugins/apps/protocols/http/mode/soapcontent.pm +++ b/centreon-plugins/apps/protocols/http/mode/soapcontent.pm @@ -356,11 +356,11 @@ Threshold critical if the string match =item B<--warning-time> -Threshold warning in ms of webservice response time +Threshold warning in seconds of webservice response time =item B<--critical-time> -Threshold critical in ms of webservice response time +Threshold critical in seconds of webservice response time =back diff --git a/centreon-plugins/apps/protocols/x509/mode/validity.pm b/centreon-plugins/apps/protocols/x509/mode/validity.pm index 754aa220e..e04750d08 100644 --- a/centreon-plugins/apps/protocols/x509/mode/validity.pm +++ b/centreon-plugins/apps/protocols/x509/mode/validity.pm @@ -37,7 +37,7 @@ sub new { $options{options}->add_options(arguments => { "hostname:s" => { name => 'hostname' }, - "port:s" => { name => 'port' }, + "port:s" => { name => 'port', default => 443 }, "validity-mode:s" => { name => 'validity_mode' }, "warning-date:s" => { name => 'warning' }, "critical-date:s" => { name => 'critical' }, diff --git a/centreon-plugins/apps/selenium/mode/scenario.pm b/centreon-plugins/apps/selenium/mode/scenario.pm index 409bceba6..dd41cc2cd 100644 --- a/centreon-plugins/apps/selenium/mode/scenario.pm +++ b/centreon-plugins/apps/selenium/mode/scenario.pm @@ -94,7 +94,6 @@ sub check_options { $self->{output}->add_option_msg(short_msg => "Please specify a scenario name" . $self->{option_results}->{scenario} . "."); $self->{output}->option_exit(); } - } sub run { diff --git a/centreon-plugins/apps/vmware/connector/mode/servicehost.pm b/centreon-plugins/apps/vmware/connector/mode/servicehost.pm new file mode 100644 index 000000000..6e9ee4a86 --- /dev/null +++ b/centreon-plugins/apps/vmware/connector/mode/servicehost.pm @@ -0,0 +1,102 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package apps::vmware::connector::mode::servicehost; + +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 => + { + "esx-hostname:s" => { name => 'esx_hostname' }, + "filter" => { name => 'filter' }, + "scope-datacenter:s" => { name => 'scope_datacenter' }, + "scope-cluster:s" => { name => 'scope_cluster' }, + "disconnect-status:s" => { name => 'disconnect_status', default => 'unknown' }, + "filter-services:s" => { name => 'filter_services' }, + }); + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); + + if ($self->{output}->is_litteral_status(status => $self->{option_results}->{disconnect_status}) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong disconnect-status status option '" . $self->{option_results}->{disconnect_status} . "'."); + $self->{output}->option_exit(); + } +} + +sub run { + my ($self, %options) = @_; + $self->{connector} = $options{custom}; + + $self->{connector}->add_params(params => $self->{option_results}, + command => 'servicehost'); + $self->{connector}->run(); +} + +1; + +__END__ + +=head1 MODE + +Check ESX services. + +=over 8 + +=item B<--esx-hostname> + +ESX hostname to check. +If not set, we check all ESX. + +=item B<--filter> + +ESX hostname is a regexp. + +=item B<--scope-datacenter> + +Search in following datacenter(s) (can be a regexp). + +=item B<--scope-cluster> + +Search in following cluster(s) (can be a regexp). + +=item B<--disconnect-status> + +Status if ESX host disconnected (default: 'unknown'). + +=item B<--filter-services> + +Filter services you want to check (can be a regexp). + +=back + +=cut diff --git a/centreon-plugins/apps/vmware/connector/plugin.pm b/centreon-plugins/apps/vmware/connector/plugin.pm index a05921c45..f7196b9fc 100644 --- a/centreon-plugins/apps/vmware/connector/plugin.pm +++ b/centreon-plugins/apps/vmware/connector/plugin.pm @@ -54,6 +54,7 @@ sub new { 'memory-host' => 'apps::vmware::connector::mode::memoryhost', 'memory-vm' => 'apps::vmware::connector::mode::memoryvm', 'net-host' => 'apps::vmware::connector::mode::nethost', + 'service-host' => 'apps::vmware::connector::mode::servicehost', 'snapshot-vm' => 'apps::vmware::connector::mode::snapshotvm', 'stat-connectors' => 'apps::vmware::connector::mode::statconnectors', 'status-host' => 'apps::vmware::connector::mode::statushost', diff --git a/centreon-plugins/apps/vmware/wsman/mode/components/cim_card.pm b/centreon-plugins/apps/vmware/wsman/mode/components/cim_card.pm new file mode 100644 index 000000000..de4df27ca --- /dev/null +++ b/centreon-plugins/apps/vmware/wsman/mode/components/cim_card.pm @@ -0,0 +1,60 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package apps::vmware::wsman::mode::components::cim_card; + +use strict; +use warnings; + +sub check { + my ($self) = @_; + + my $result = $self->{wsman}->request(uri => 'http://schemas.dmtf.org/wbem/wscim/1/cim-schema/2/CIM_Card'); + + $self->{output}->output_add(long_msg => "Checking cim cards"); + $self->{components}->{cim_card} = {name => 'cards', total => 0, skip => 0}; + return if ($self->check_filter(section => 'cim_card')); + + foreach (@{$result}) { + my $instance = defined($_->{Name}) && $_->{Name} ne '' ? $_->{Name} : $_->{ElementName}; + + next if ($self->check_filter(section => 'cim_card', instance => $instance)); + my $status = $self->get_status(entry => $_); + if (!defined($status)) { + $self->{output}->output_add(long_msg => sprintf("skipping card '%s' : no status", $_->{ElementName}), debug => 1); + next; + } + + $self->{components}->{cim_card}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("Card '%s' status is '%s' [instance: %s].", + $_->{ElementName}, $status, + $instance + )); + my $exit = $self->get_severity(section => 'cim_card', label => 'default', value => $status); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Card '%s' status is '%s'", + $_->{ElementName}, $status)); + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/apps/vmware/wsman/mode/components/cim_computersystem.pm b/centreon-plugins/apps/vmware/wsman/mode/components/cim_computersystem.pm new file mode 100644 index 000000000..8b02cfbc5 --- /dev/null +++ b/centreon-plugins/apps/vmware/wsman/mode/components/cim_computersystem.pm @@ -0,0 +1,60 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package apps::vmware::wsman::mode::components::cim_computersystem; + +use strict; +use warnings; + +sub check { + my ($self) = @_; + + my $result = $self->{wsman}->request(uri => 'http://schemas.dmtf.org/wbem/wscim/1/cim-schema/2/CIM_ComputerSystem'); + + $self->{output}->output_add(long_msg => "Checking cim computer systems"); + $self->{components}->{cim_computersystem} = {name => 'computer systems', total => 0, skip => 0}; + return if ($self->check_filter(section => 'cim_computersystem')); + + foreach (@{$result}) { + my $instance = defined($_->{Name}) && $_->{Name} ne '' ? $_->{Name} : $_->{ElementName}; + + next if ($self->check_filter(section => 'cim_computersystem', instance => $instance)); + my $status = $self->get_status(entry => $_); + if (!defined($status)) { + $self->{output}->output_add(long_msg => sprintf("skipping computer system '%s' : no status", $_->{ElementName}), debug => 1); + next; + } + + $self->{components}->{cim_computersystem}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("Computer system '%s' status is '%s' [instance: %s].", + $_->{ElementName}, $status, + $instance + )); + my $exit = $self->get_severity(section => 'cim_computersystem', label => 'default', value => $status); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Computer system '%s' status is '%s'", + $_->{ElementName}, $status)); + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/apps/vmware/wsman/mode/components/cim_memory.pm b/centreon-plugins/apps/vmware/wsman/mode/components/cim_memory.pm new file mode 100644 index 000000000..9994b2a21 --- /dev/null +++ b/centreon-plugins/apps/vmware/wsman/mode/components/cim_memory.pm @@ -0,0 +1,60 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package apps::vmware::wsman::mode::components::cim_memory; + +use strict; +use warnings; + +sub check { + my ($self) = @_; + + my $result = $self->{wsman}->request(uri => 'http://schemas.dmtf.org/wbem/wscim/1/cim-schema/2/CIM_Memory'); + + $self->{output}->output_add(long_msg => "Checking cim memories"); + $self->{components}->{cim_memory} = {name => 'memories', total => 0, skip => 0}; + return if ($self->check_filter(section => 'cim_memory')); + + foreach (@{$result}) { + my $instance = defined($_->{Name}) && $_->{Name} ne '' ? $_->{Name} : $_->{ElementName}; + + next if ($self->check_filter(section => 'cim_memory', instance => $instance)); + my $status = $self->get_status(entry => $_); + if (!defined($status)) { + $self->{output}->output_add(long_msg => sprintf("skipping memory '%s' : no status", $_->{ElementName}), debug => 1); + next; + } + + $self->{components}->{cim_memory}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("Memory '%s' status is '%s' [instance: %s].", + $_->{ElementName}, $status, + $instance + )); + my $exit = $self->get_severity(section => 'cim_memory', label => 'default', value => $status); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Memory '%s' status is '%s'", + $_->{ElementName}, $status)); + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/apps/vmware/wsman/mode/components/cim_numericsensor.pm b/centreon-plugins/apps/vmware/wsman/mode/components/cim_numericsensor.pm new file mode 100644 index 000000000..c0f8d0325 --- /dev/null +++ b/centreon-plugins/apps/vmware/wsman/mode/components/cim_numericsensor.pm @@ -0,0 +1,111 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package apps::vmware::wsman::mode::components::cim_numericsensor; + +use strict; +use warnings; +use apps::vmware::wsman::mode::components::resources qw($mapping_units $mapping_sensortype); + +sub check { + my ($self) = @_; + + my $result = $self->{wsman}->request(uri => 'http://schemas.dmtf.org/wbem/wscim/1/cim-schema/2/CIM_NumericSensor'); + + $self->{output}->output_add(long_msg => "Checking cim numeric sensors"); + $self->{components}->{cim_numericsensor} = {name => 'numeric sensors', total => 0, skip => 0}; + return if ($self->check_filter(section => 'cim_numericsensor')); + + foreach (@{$result}) { + my $sensor_type = defined($mapping_sensortype->{$_->{SensorType}}) ? $mapping_sensortype->{$_->{SensorType}} : 'unknown'; + my $name = defined($_->{Name}) && $_->{Name} ne '' ? $_->{Name} : $_->{ElementName}; + my $instance = $sensor_type . '_' . $name; + + next if ($self->check_filter(section => 'cim_numericsensor', instance => $instance)); + my $status = $self->get_status(entry => $_); + if (!defined($status)) { + $self->{output}->output_add(long_msg => sprintf("skipping numeric sensor '%s' : no status", $_->{ElementName}), debug => 1); + next; + } + + $self->{components}->{cim_numericsensor}->{total}++; + my $value = $_->{CurrentReading}; + + $value = $value * 10 ** int($_->{UnitModifier}) if (defined($value) && $value =~ /\d/); + + $self->{output}->output_add(long_msg => sprintf("Numeric sensor '%s' status is '%s' [instance: %s, current value: %s].", + $_->{ElementName}, $status, + $instance, defined($value) ? $value : '-' + )); + my $exit = $self->get_severity(section => 'cim_numericsensor', label => 'default', value => $status); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Numeric sensor '%s' status is '%s'", + $_->{ElementName}, $status)); + } + + + next if (!defined($value) || $value !~ /\d/); + + my ($exit2, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'cim_numericsensor', instance => $instance, value => $value); + if ($checked == 0) { + my ($warn_th, $crit_th); + + $warn_th = $_->{LowerThresholdNonCritical} * 10 ** int($_->{UnitModifier}) . ':' if (defined($_->{LowerThresholdNonCritical}) && + $_->{LowerThresholdNonCritical} =~ /\d/); + if (defined($warn_th)) { + $warn_th .= ($_->{UpperThresholdNonCritical} * 10 ** int($_->{UnitModifier})) if (defined($_->{UpperThresholdNonCritical}) && + $_->{UpperThresholdNonCritical} =~ /\d/); + } else { + $warn_th = '~:' . ($_->{UpperThresholdNonCritical} * 10 ** int($_->{UnitModifier})) if (defined($_->{UpperThresholdNonCritical}) && + $_->{UpperThresholdNonCritical} =~ /\d/); + } + $crit_th = $_->{LowerThresholdCritical} * 10 ** int($_->{UnitModifier}) . ':' if (defined($_->{LowerThresholdCritical}) && + $_->{LowerThresholdCritical} =~ /\d/); + if (defined($crit_th)) { + $crit_th .= ($_->{UpperThresholdCritical} * 10 ** int($_->{UnitModifier})) if (defined($_->{UpperThresholdCritical}) && + $_->{UpperThresholdCritical} =~ /\d/); + } else { + $crit_th = '~:' . ($_->{UpperThresholdCritical} * 10 ** int($_->{UnitModifier})) if (defined($_->{UpperThresholdCritical}) && + $_->{UpperThresholdCritical} =~ /\d/); + } + $self->{perfdata}->threshold_validate(label => 'warning-cim_numericsensor-instance-' . $instance, value => $warn_th); + $self->{perfdata}->threshold_validate(label => 'critical-cim_numericsensor-instance-' . $instance, value => $crit_th); + $warn = $self->{perfdata}->get_perfdata_for_output(label => 'warning-cim_numericsensor-instance-' . $instance); + $crit = $self->{perfdata}->get_perfdata_for_output(label => 'critical-cim_numericsensor-instance-' . $instance); + } + if (!$self->{output}->is_status(value => $exit2, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit2, + short_msg => sprintf("Numeric sensor '%s' value is %s %s", + $_->{ElementName}, $value, + defined($mapping_units->{$_->{BaseUnits}}) ? $mapping_units->{$_->{BaseUnits}} : '-')); + } + + my $min = defined($_->{MinReadable}) && $_->{MinReadable} =~ /\d/ ? $_->{MinReadable} * 10 ** int($_->{UnitModifier}) : undef; + my $max = defined($_->{MaxReadable}) && $_->{MaxReadable} =~ /\d/ ? $_->{MaxReadable} * 10 ** int($_->{UnitModifier}) : undef; + $self->{output}->perfdata_add(label => $instance, unit => $mapping_units->{$_->{BaseUnits}}, + value => $value, + warning => $warn, + critical => $crit, + min => $min, max => $max); + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/apps/vmware/wsman/mode/components/cim_processor.pm b/centreon-plugins/apps/vmware/wsman/mode/components/cim_processor.pm new file mode 100644 index 000000000..e2b6f7785 --- /dev/null +++ b/centreon-plugins/apps/vmware/wsman/mode/components/cim_processor.pm @@ -0,0 +1,62 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package apps::vmware::wsman::mode::components::cim_processor; + +use strict; +use warnings; + +sub check { + my ($self) = @_; + + my $result = $self->{wsman}->request(uri => 'http://schemas.dmtf.org/wbem/wscim/1/cim-schema/2/CIM_Processor'); + + $self->{output}->output_add(long_msg => "Checking cim processors"); + $self->{components}->{cim_processor} = {name => 'processors', total => 0, skip => 0}; + return if ($self->check_filter(section => 'cim_processor')); + + foreach (@{$result}) { + my $instance = defined($_->{Name}) && $_->{Name} ne '' ? $_->{Name} : $_->{ElementName}; + + next if ($self->check_filter(section => 'cim_processor', instance => $instance)); + my $status = $self->get_status(entry => $_); + if (!defined($status)) { + $self->{output}->output_add(long_msg => sprintf("skipping processor '%s' : no status", $_->{ElementName}), debug => 1); + next; + } + + $self->{components}->{cim_processor}->{total}++; + my $model_name = defined($_->{ModelName}) && $_->{ModelName} ne '' ? $_->{ModelName} : 'unknown'; + $model_name =~ s/\s+/ /g; + + $self->{output}->output_add(long_msg => sprintf("Processor '%s' status is '%s' [instance: %s, Model: %s].", + $_->{ElementName}, $status, + $instance, $model_name + )); + my $exit = $self->get_severity(section => 'cim_processor', label => 'default', value => $status); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Processor '%s' status is '%s'", + $_->{ElementName}, $status)); + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/apps/vmware/wsman/mode/components/cim_recordlog.pm b/centreon-plugins/apps/vmware/wsman/mode/components/cim_recordlog.pm new file mode 100644 index 000000000..24f279fff --- /dev/null +++ b/centreon-plugins/apps/vmware/wsman/mode/components/cim_recordlog.pm @@ -0,0 +1,60 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package apps::vmware::wsman::mode::components::cim_recordlog; + +use strict; +use warnings; + +sub check { + my ($self) = @_; + + my $result = $self->{wsman}->request(uri => 'http://schemas.dmtf.org/wbem/wscim/1/cim-schema/2/CIM_RecordLog'); + + $self->{output}->output_add(long_msg => "Checking cim recordlog"); + $self->{components}->{cim_recordlog} = {name => 'recordlog', total => 0, skip => 0}; + return if ($self->check_filter(section => 'cim_recordlog')); + + foreach (@{$result}) { + my $instance = defined($_->{Name}) && $_->{Name} ne '' ? $_->{Name} : $_->{ElementName}; + + next if ($self->check_filter(section => 'cim_recordlog', instance => $instance)); + my $status = $self->get_status(entry => $_); + if (!defined($status)) { + $self->{output}->output_add(long_msg => sprintf("skipping record log '%s' : no status", $_->{ElementName}), debug => 1); + next; + } + + $self->{components}->{cim_recordlog}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("Record log '%s' status is '%s' [instance: %s].", + $_->{ElementName}, $status, + $instance + )); + my $exit = $self->get_severity(section => 'cim_recordlog', label => 'default', value => $status); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Record log '%s' status is '%s'", + $_->{ElementName}, $status)); + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/apps/vmware/wsman/mode/components/omc_discretesensor.pm b/centreon-plugins/apps/vmware/wsman/mode/components/omc_discretesensor.pm new file mode 100644 index 000000000..524735c6a --- /dev/null +++ b/centreon-plugins/apps/vmware/wsman/mode/components/omc_discretesensor.pm @@ -0,0 +1,65 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package apps::vmware::wsman::mode::components::omc_discretesensor; + +use strict; +use warnings; +use apps::vmware::wsman::mode::components::resources qw($mapping_EnableState); + +sub check { + my ($self) = @_; + + my $result = $self->{wsman}->request(uri => 'http://schema.omc-project.org/wbem/wscim/1/cim-schema/2/OMC_DiscreteSensor'); + + $self->{output}->output_add(long_msg => "Checking OMC discrete sensors"); + $self->{components}->{omc_discretesensor} = {name => 'omc discrete sensors', total => 0, skip => 0}; + return if ($self->check_filter(section => 'omc_discretesensor')); + + foreach (@{$result}) { + my $instance = $_->{Name}; + + next if ($self->check_filter(section => 'omc_discretesensor', instance => $instance)); + if (defined($mapping_EnableState->{$_->{EnabledState}}) && $mapping_EnableState->{$_->{EnabledState}} !~ /enabled/i) { + $self->{output}->output_add(long_msg => sprintf("skipping discrete sensor '%s' : not enabled", $_->{Name}), debug => 1); + next; + } + my $status = $self->get_status(entry => $_); + if (!defined($status)) { + $self->{output}->output_add(long_msg => sprintf("skipping discrete sensor '%s' : no status", $_->{Name}), debug => 1); + next; + } + + $self->{components}->{omc_discretesensor}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("Discrete sensor '%s' status is '%s' [instance: %s].", + $_->{Name}, $status, + $instance + )); + my $exit = $self->get_severity(section => 'omc_discretesensor', label => 'default', value => $status); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Discrete sensor '%s' status is '%s'", + $_->{Name}, $status)); + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/apps/vmware/wsman/mode/components/omc_fan.pm b/centreon-plugins/apps/vmware/wsman/mode/components/omc_fan.pm new file mode 100644 index 000000000..55a034b4d --- /dev/null +++ b/centreon-plugins/apps/vmware/wsman/mode/components/omc_fan.pm @@ -0,0 +1,60 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package apps::vmware::wsman::mode::components::omc_fan; + +use strict; +use warnings; + +sub check { + my ($self) = @_; + + my $result = $self->{wsman}->request(uri => 'http://schema.omc-project.org/wbem/wscim/1/cim-schema/2/OMC_Fan'); + + $self->{output}->output_add(long_msg => "Checking OMC fans"); + $self->{components}->{omc_fan} = {name => 'omc fans', total => 0, skip => 0}; + return if ($self->check_filter(section => 'omc_fan')); + + foreach (@{$result}) { + my $instance = $_->{Name}; + + next if ($self->check_filter(section => 'omc_fan', instance => $instance)); + my $status = $self->get_status(entry => $_); + if (!defined($status)) { + $self->{output}->output_add(long_msg => sprintf("skipping fan '%s' : no status", $_->{Name}), debug => 1); + next; + } + + $self->{components}->{omc_fan}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("Fan '%s' status is '%s' [instance: %s].", + $_->{Name}, $status, + $instance + )); + my $exit = $self->get_severity(section => 'omc_fan', label => 'default', value => $status); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Fan '%s' status is '%s'", + $_->{Name}, $status)); + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/apps/vmware/wsman/mode/components/omc_psu.pm b/centreon-plugins/apps/vmware/wsman/mode/components/omc_psu.pm new file mode 100644 index 000000000..b720a66d5 --- /dev/null +++ b/centreon-plugins/apps/vmware/wsman/mode/components/omc_psu.pm @@ -0,0 +1,60 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package apps::vmware::wsman::mode::components::omc_psu; + +use strict; +use warnings; + +sub check { + my ($self) = @_; + + my $result = $self->{wsman}->request(uri => 'http://schema.omc-project.org/wbem/wscim/1/cim-schema/2/OMC_PowerSupply'); + + $self->{output}->output_add(long_msg => "Checking OMC power supplies"); + $self->{components}->{omc_psu} = {name => 'omc psus', total => 0, skip => 0}; + return if ($self->check_filter(section => 'omc_psu')); + + foreach (@{$result}) { + my $instance = $_->{Name}; + + next if ($self->check_filter(section => 'omc_psu', instance => $instance)); + my $status = $self->get_status(entry => $_); + if (!defined($status)) { + $self->{output}->output_add(long_msg => sprintf("skipping power supply '%s' : no status", $_->{Name}), debug => 1); + next; + } + + $self->{components}->{omc_psu}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("Power supply '%s' status is '%s' [instance: %s].", + $_->{Name}, $status, + $instance + )); + my $exit = $self->get_severity(section => 'omc_psu', label => 'default', value => $status); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Power supply '%s' status is '%s'", + $_->{Name}, $status)); + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/apps/vmware/wsman/mode/components/resources.pm b/centreon-plugins/apps/vmware/wsman/mode/components/resources.pm new file mode 100644 index 000000000..706877fb9 --- /dev/null +++ b/centreon-plugins/apps/vmware/wsman/mode/components/resources.pm @@ -0,0 +1,173 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package apps::vmware::wsman::mode::components::resources; + +use strict; +use warnings; +use Exporter; + +our $mapping_HealthState; +our $mapping_OperationalStatus; +our $mapping_EnableState; +our $mapping_units; +our $mapping_sensortype; + +our @ISA = qw(Exporter); +our @EXPORT_OK = qw($mapping_HealthState $mapping_OperationalStatus $mapping_EnableState $mapping_units $mapping_sensortype); + +$mapping_EnableState = { + 0 => 'Unknown', + 1 => 'Other', + 2 => 'Enabled', + 3 => 'Disabled', + 4 => 'Shutting Down', + 5 => 'Not Applicable', + 6 => 'Enabled but Offline', + 7 => 'In Test', + 8 => 'Deferred', + 9 => 'Quiesce', + 10 => 'Starting', +}; + +$mapping_HealthState = { + 0 => 'Unknown', + 5 => 'OK', + 10 => 'Degraded', + 15 => 'Minor failure', + 20 => 'Major failure', + 25 => 'Critical failure', + 30 => 'Non-recoverable error', +}; + +$mapping_OperationalStatus = { + 0 => 'Unknown', + 1 => 'Other', + 2 => 'OK', + 3 => 'Degraded', + 4 => 'Stressed', + 5 => 'Predictive Failure', + 6 => 'Error', + 7 => 'Non-Recoverable Error', + 8 => 'Starting', + 9 => 'Stopping', + 10 => 'Stopped', + 11 => 'In Service', + 12 => 'No Contact', + 13 => 'Lost Communication', + 14 => 'Aborted', + 15 => 'Dormant', + 16 => 'Supporting Entity in Error', + 17 => 'Completed', + 18 => 'Power Mode', + 19 => 'Relocating', +}; + +$mapping_sensortype = { + 0 => 'unknown', + 1 => 'other', + 2 => 'temp', # Temperature + 3 => 'volt', # Voltage + 4 => 'current', # Current + 5 => 'tachometer', + 6 => 'counter', + 7 => 'switch', + 8 => 'lock', + 9 => 'hum', # Humidity + 10 => 'smoke_detection', # Smoke Detection + 11 => 'presence', + 12 => 'air_flow', # Air Flow + 13 => 'power_consumption', # Power Consumption + 14 => 'power_production', # Power Production + 15 => 'pressure_intrusion', # PressureIntrusion + 16 => 'intrusion', +}; + +$mapping_units = { + 0 => '', + 1 => '', + 2 => 'C', # Degrees C + 3 => 'F', # Degrees F + 4 => 'K', # Degrees K + 5 => 'V', # Volts + 6 => 'A', # Amps, + 7 => 'W', # Watts + 8 => 'Joules', + 9 => 'Coulombs', + 10 => 'VA', + 11 => 'Nits', + 12 => 'Lumens', + 13 => 'Lux', + 14 => 'Candelas', + 15 => 'kPa', + 16 => 'PSI', + 17 => 'Newtons', + 18 => 'CFM', + 19 => 'rpm', + 20 => 'Hz', # Hertz + 21 => 'Seconds', + 22 => 'Minutes', + 23 => 'Hours', + 24 => 'Days', + 25 => 'Weeks', + 26 => 'Mils', + 27 => 'Inches', + 28 => 'Feet', + 29 => 'Cubic_Inches', + 30 => 'Cubic_Feet', + 31 => 'Meters', + 32 => 'Cubic_Centimeters', + 33 => 'Cubic_Meters', + 34 => 'Liters', + 35 => 'Fluid_Ounces', + 36 => 'Radians', + 37 => 'Steradians', + 38 => 'Revolutions', + 39 => 'Cycles', + 40 => 'Gravities', + 41 => 'Ounces', + 42 => 'Pounds', + 43 => 'Foot_Pounds', + 44 => 'Ounce_Inches', + 45 => 'Gauss', + 46 => 'Gilberts', + 47 => 'Henries', + 48 => 'Farads', + 49 => 'Ohms', + 50 => 'Siemens', + 51 => 'Moles', + 52 => 'Becquerels', + 53 => 'PPM', + 54 => 'Decibels', + 55 => 'DbA', + 56 => 'DbC', + 57 => 'Grays', + 58 => 'Sieverts', + 59 => 'Color_Temperature_Degrees_K', + 60 => 'b', # bits + 61 => 'B', # Bytes + 62 => 'Words', + 63 => 'DoubleWords', + 64 => 'QuadWords', + 65 => '%', # Percentage, + 66 => 'Pascals', +}; + +1; \ No newline at end of file diff --git a/centreon-plugins/apps/vmware/wsman/mode/components/vmware_battery.pm b/centreon-plugins/apps/vmware/wsman/mode/components/vmware_battery.pm new file mode 100644 index 000000000..bd69cc7ce --- /dev/null +++ b/centreon-plugins/apps/vmware/wsman/mode/components/vmware_battery.pm @@ -0,0 +1,60 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package apps::vmware::wsman::mode::components::vmware_battery; + +use strict; +use warnings; + +sub check { + my ($self) = @_; + + my $result = $self->{wsman}->request(uri => 'http://schemas.vmware.com/wbem/wscim/1/cim-schema/2/VMware_Battery'); + + $self->{output}->output_add(long_msg => "Checking vmware batteries"); + $self->{components}->{vmware_battery} = {name => 'batteries', total => 0, skip => 0}; + return if ($self->check_filter(section => 'vmware_battery')); + + foreach (@{$result}) { + my $instance = defined($_->{Name}) && $_->{Name} ne '' ? $_->{Name} : $_->{ElementName}; + + next if ($self->check_filter(section => 'vmware_battery', instance => $instance)); + my $status = $self->get_status(entry => $_); + if (!defined($status)) { + $self->{output}->output_add(long_msg => sprintf("skipping battery '%s' : no status", $_->{ElementName}), debug => 1); + next; + } + + $self->{components}->{vmware_battery}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("Battery '%s' status is '%s' [instance: %s].", + $_->{ElementName}, $status, + $instance + )); + my $exit = $self->get_severity(section => 'vmware_battery', label => 'default', value => $status); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Battery '%s' status is '%s'", + $_->{ElementName}, $status)); + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/apps/vmware/wsman/mode/components/vmware_controller.pm b/centreon-plugins/apps/vmware/wsman/mode/components/vmware_controller.pm new file mode 100644 index 000000000..f254f5790 --- /dev/null +++ b/centreon-plugins/apps/vmware/wsman/mode/components/vmware_controller.pm @@ -0,0 +1,60 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package apps::vmware::wsman::mode::components::vmware_controller; + +use strict; +use warnings; + +sub check { + my ($self) = @_; + + my $result = $self->{wsman}->request(uri => 'http://schemas.vmware.com/wbem/wscim/1/cim-schema/2/VMware_Controller'); + + $self->{output}->output_add(long_msg => "Checking vmware controller"); + $self->{components}->{vmware_controller} = {name => 'controller', total => 0, skip => 0}; + return if ($self->check_filter(section => 'vmware_controller')); + + foreach (@{$result}) { + my $instance = defined($_->{Name}) && $_->{Name} ne '' ? $_->{Name} : $_->{ElementName}; + + next if ($self->check_filter(section => 'vmware_controller', instance => $instance)); + my $status = $self->get_status(entry => $_); + if (!defined($status)) { + $self->{output}->output_add(long_msg => sprintf("skipping controller '%s' : no status", $_->{ElementName}), debug => 1); + next; + } + + $self->{components}->{vmware_controller}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("Controller '%s' status is '%s' [instance: %s].", + $_->{ElementName}, $status, + $instance + )); + my $exit = $self->get_severity(section => 'vmware_controller', label => 'default', value => $status); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Controller '%s' status is '%s'", + $_->{ElementName}, $status)); + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/apps/vmware/wsman/mode/components/vmware_sassataport.pm b/centreon-plugins/apps/vmware/wsman/mode/components/vmware_sassataport.pm new file mode 100644 index 000000000..a95dc3069 --- /dev/null +++ b/centreon-plugins/apps/vmware/wsman/mode/components/vmware_sassataport.pm @@ -0,0 +1,60 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package apps::vmware::wsman::mode::components::vmware_sassataport; + +use strict; +use warnings; + +sub check { + my ($self) = @_; + + my $result = $self->{wsman}->request(uri => 'http://schemas.vmware.com/wbem/wscim/1/cim-schema/2/VMware_SASSATAPort'); + + $self->{output}->output_add(long_msg => "Checking vmware sas/sata ports"); + $self->{components}->{vmware_sassataport} = {name => 'sas/sata ports', total => 0, skip => 0}; + return if ($self->check_filter(section => 'vmware_sassataport')); + + foreach (@{$result}) { + my $instance = defined($_->{Name}) && $_->{Name} ne '' ? $_->{Name} : $_->{ElementName}; + + next if ($self->check_filter(section => 'vmware_sassataport', instance => $instance)); + my $status = $self->get_status(entry => $_); + if (!defined($status)) { + $self->{output}->output_add(long_msg => sprintf("skipping sas/sata port '%s' : no status", $_->{ElementName}), debug => 1); + next; + } + + $self->{components}->{vmware_sassataport}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("Sas/Sata port '%s' status is '%s' [instance: %s].", + $_->{ElementName}, $status, + $instance + )); + my $exit = $self->get_severity(section => 'vmware_sassataport', label => 'default', value => $status); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Sas/Sata port '%s' status is '%s'", + $_->{ElementName}, $status)); + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/apps/vmware/wsman/mode/components/vmware_storageextent.pm b/centreon-plugins/apps/vmware/wsman/mode/components/vmware_storageextent.pm new file mode 100644 index 000000000..5d4acee7c --- /dev/null +++ b/centreon-plugins/apps/vmware/wsman/mode/components/vmware_storageextent.pm @@ -0,0 +1,60 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package apps::vmware::wsman::mode::components::vmware_storageextent; + +use strict; +use warnings; + +sub check { + my ($self) = @_; + + my $result = $self->{wsman}->request(uri => 'http://schemas.vmware.com/wbem/wscim/1/cim-schema/2/VMware_StorageExtent'); + + $self->{output}->output_add(long_msg => "Checking vmware storage extent"); + $self->{components}->{vmware_storageextent} = {name => 'storage extent', total => 0, skip => 0}; + return if ($self->check_filter(section => 'vmware_storageextent')); + + foreach (@{$result}) { + my $instance = defined($_->{Name}) && $_->{Name} ne '' ? $_->{Name} : $_->{ElementName}; + + next if ($self->check_filter(section => 'vmware_storageextent', instance => $instance)); + my $status = $self->get_status(entry => $_); + if (!defined($status)) { + $self->{output}->output_add(long_msg => sprintf("skipping storage extent '%s' : no status", $_->{ElementName}), debug => 1); + next; + } + + $self->{components}->{vmware_storageextent}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("Storage extent '%s' status is '%s' [instance: %s].", + $_->{ElementName}, $status, + $instance + )); + my $exit = $self->get_severity(section => 'vmware_storageextent', label => 'default', value => $status); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Storage extent '%s' status is '%s'", + $_->{ElementName}, $status)); + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/apps/vmware/wsman/mode/components/vmware_storagevolume.pm b/centreon-plugins/apps/vmware/wsman/mode/components/vmware_storagevolume.pm new file mode 100644 index 000000000..1a2e741ce --- /dev/null +++ b/centreon-plugins/apps/vmware/wsman/mode/components/vmware_storagevolume.pm @@ -0,0 +1,60 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package apps::vmware::wsman::mode::components::vmware_storagevolume; + +use strict; +use warnings; + +sub check { + my ($self) = @_; + + my $result = $self->{wsman}->request(uri => 'http://schemas.vmware.com/wbem/wscim/1/cim-schema/2/VMware_StorageVolume'); + + $self->{output}->output_add(long_msg => "Checking vmware storage volumes"); + $self->{components}->{vmware_storagevolume} = {name => 'storage volumes', total => 0, skip => 0}; + return if ($self->check_filter(section => 'vmware_storagevolume')); + + foreach (@{$result}) { + my $instance = defined($_->{Name}) && $_->{Name} ne '' ? $_->{Name} : $_->{ElementName}; + + next if ($self->check_filter(section => 'vmware_storagevolume', instance => $instance)); + my $status = $self->get_status(entry => $_); + if (!defined($status)) { + $self->{output}->output_add(long_msg => sprintf("skipping storage volume '%s' : no status", $_->{ElementName}), debug => 1); + next; + } + + $self->{components}->{vmware_storagevolume}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("Storage volume '%s' status is '%s' [instance: %s].", + $_->{ElementName}, $status, + $instance + )); + my $exit = $self->get_severity(section => 'vmware_storagevolume', label => 'default', value => $status); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Storage volume '%s' status is '%s'", + $_->{ElementName}, $status)); + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/apps/vmware/wsman/mode/hardware.pm b/centreon-plugins/apps/vmware/wsman/mode/hardware.pm new file mode 100644 index 000000000..bcac00b63 --- /dev/null +++ b/centreon-plugins/apps/vmware/wsman/mode/hardware.pm @@ -0,0 +1,338 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package apps::vmware::wsman::mode::hardware; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; +use apps::vmware::wsman::mode::components::resources qw($mapping_HealthState $mapping_OperationalStatus); + +my %type = ('cim_numericsensor' => 1); + +my $thresholds = { + default => [ + ['Unknown', 'OK'], + ['OK', 'OK'], + ['Degraded', 'WARNING'], + ['Minor failure', 'WARNING'], + ['Major failure', 'CRITICAL'], + ['Critical failure', 'CRITICAL'], + ['Non-recoverable error', 'CRITICAL'], + + ['Other', 'UNKNOWN'], + ['Stressed', 'WARNING'], + ['Predictive Failure', 'WARNING'], + ['Error', 'CRITICAL'], + ['Starting', 'OK'], + ['Stopping', 'WARNING'], + ['In Service', 'OK'], + ['No Contact', 'CRITICAL'], + ['Lost Communication', 'CRITICAL'], + ['Aborted', 'CRITICAL'], + ['Dormant', 'OK'], + ['Supporting Entity in Error', 'CRITICAL'], + ['Completed', 'OK'], + ['Power Mode', 'OK'], + ['Relocating', 'WARNING'], + ], +}; + +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 => + { + "filter:s@" => { name => 'filter' }, + "component:s" => { name => 'component', default => '.*' }, + "no-component:s" => { name => 'no_component' }, + "threshold-overload:s@" => { name => 'threshold_overload' }, + "warning:s@" => { name => 'warning' }, + "critical:s@" => { name => 'critical' }, + }); + + $self->{components} = {}; + $self->{no_components} = undef; + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); + + if (defined($self->{option_results}->{no_component})) { + if ($self->{option_results}->{no_component} ne '') { + $self->{no_components} = $self->{option_results}->{no_component}; + } else { + $self->{no_components} = 'critical'; + } + } + + $self->{filter} = []; + foreach my $val (@{$self->{option_results}->{filter}}) { + next if (!defined($val) || $val eq ''); + my @values = split (/,/, $val); + push @{$self->{filter}}, { filter => $values[0], instance => $values[1] }; + } + + $self->{overload_th} = {}; + foreach my $val (@{$self->{option_results}->{threshold_overload}}) { + next if (!defined($val) || $val eq ''); + my @values = split (/,/, $val); + if (scalar(@values) < 3) { + $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload option '" . $val . "'."); + $self->{output}->option_exit(); + } + my ($section, $instance, $status, $filter); + if (scalar(@values) == 3) { + ($section, $status, $filter) = @values; + $instance = '.*'; + } else { + ($section, $instance, $status, $filter) = @values; + } + if ($self->{output}->is_litteral_status(status => $status) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload status '" . $val . "'."); + $self->{output}->option_exit(); + } + $self->{overload_th}->{$section} = [] if (!defined($self->{overload_th}->{$section})); + push @{$self->{overload_th}->{$section}}, {filter => $filter, status => $status, instance => $instance }; + } + + $self->{numeric_threshold} = {}; + foreach my $option (('warning', 'critical')) { + foreach my $val (@{$self->{option_results}->{$option}}) { + next if (!defined($val) || $val eq ''); + if ($val !~ /^(.*?),(.*?),(.*)$/) { + $self->{output}->add_option_msg(short_msg => "Wrong $option option '" . $val . "'."); + $self->{output}->option_exit(); + } + my ($section, $instance, $value) = ($1, $2, $3); + if (!defined($type{$section})) { + $self->{output}->add_option_msg(short_msg => "Wrong $option option '" . $val . "'."); + $self->{output}->option_exit(); + } + my $position = 0; + if (defined($self->{numeric_threshold}->{$section})) { + $position = scalar(@{$self->{numeric_threshold}->{$section}}); + } + if (($self->{perfdata}->threshold_validate(label => $option . '-' . $section . '-' . $position, value => $value)) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong $option threshold '" . $value . "'."); + $self->{output}->option_exit(); + } + $self->{numeric_threshold}->{$section} = [] if (!defined($self->{numeric_threshold}->{$section})); + push @{$self->{numeric_threshold}->{$section}}, { label => $option . '-' . $section . '-' . $position, threshold => $option, instance => $instance }; + } + } +} + + +sub get_type { + my ($self, %options) = @_; + + my $result = $self->{wsman}->request(uri => 'http://schema.omc-project.org/wbem/wscim/1/cim-schema/2/OMC_SMASHFirmwareIdentity'); + $result = pop(@$result); + $self->{manufacturer} = 'unknown'; + if (defined($result->{Manufacturer}) && $result->{Manufacturer} ne '') { + $self->{manufacturer} = $result->{Manufacturer}; + } + + $result = $self->{wsman}->request(uri => 'http://schemas.dmtf.org/wbem/wscim/1/cim-schema/2/CIM_Chassis'); + $result = pop(@$result); + my $model = defined($result->{Model}) && $result->{Model} ne '' ? $result->{Model} : 'unknown'; + + $self->{output}->output_add(long_msg => sprintf("Manufacturer : %s, Model : %s", $self->{manufacturer}, $model)); +} + +sub get_status { + my ($self, %options) = @_; + + my $status; + if ($self->{manufacturer} =~ /HP/i) { + $status = $mapping_HealthState->{$options{entry}->{HealthState}} if (defined($options{entry}->{HealthState}) && + defined($mapping_HealthState->{$options{entry}->{HealthState}})); + } else { + $status = $mapping_OperationalStatus->{$options{entry}->{OperationalStatus}} if (defined($options{entry}->{OperationalStatus}) && + defined($mapping_OperationalStatus->{$options{entry}->{OperationalStatus}})); + } + return $status; +} + +sub run { + my ($self, %options) = @_; + $self->{wsman} = $options{wsman}; + + $self->get_type(); + + my @components = ('omc_discretesensor', 'omc_fan', 'omc_psu', 'vmware_storageextent', 'vmware_controller', + 'vmware_storagevolume', 'vmware_battery', 'vmware_sassataport', 'cim_card', + 'cim_computersystem', 'cim_numericsensor', 'cim_memory', 'cim_processor', 'cim_recordlog'); + foreach (@components) { + if (/$self->{option_results}->{component}/) { + my $mod_name = "apps::vmware::wsman::mode::components::$_"; + centreon::plugins::misc::mymodule_load(output => $self->{output}, module => $mod_name, + error_msg => "Cannot load module '$mod_name'."); + my $func = $mod_name->can('check'); + $func->($self); + } + } + + my $total_components = 0; + my $display_by_component = ''; + my $display_by_component_append = ''; + foreach my $comp (sort(keys %{$self->{components}})) { + # Skipping short msg when no components + next if ($self->{components}->{$comp}->{total} == 0 && $self->{components}->{$comp}->{skip} == 0); + $total_components += $self->{components}->{$comp}->{total} + $self->{components}->{$comp}->{skip}; + my $count_by_components = $self->{components}->{$comp}->{total} + $self->{components}->{$comp}->{skip}; + $display_by_component .= $display_by_component_append . $self->{components}->{$comp}->{total} . '/' . $count_by_components . ' ' . $self->{components}->{$comp}->{name}; + $display_by_component_append = ', '; + } + + $self->{output}->output_add(severity => 'OK', + short_msg => sprintf("All %s sensors are ok [%s].", + $total_components, + $display_by_component) + ); + + if (defined($self->{option_results}->{no_component}) && $total_components == 0) { + $self->{output}->output_add(severity => $self->{no_components}, + short_msg => 'No sensors are checked.'); + } + + $self->{output}->display(); + $self->{output}->exit(); +} + +sub check_filter { + my ($self, %options) = @_; + + foreach (@{$self->{filter}}) { + if ($options{section} =~ /$_->{filter}/) { + if (!defined($options{instance}) && !defined($_->{instance})) { + $self->{output}->output_add(long_msg => sprintf("Skipping $options{section} section.")); + return 1; + } elsif (defined($options{instance}) && $options{instance} =~ /$_->{instance}/) { + $self->{output}->output_add(long_msg => sprintf("Skipping $options{section} section $options{instance} instance.")); + return 1; + } + } + } + + return 0; +} + +sub get_severity_numeric { + my ($self, %options) = @_; + my $status = 'OK'; # default + my $thresholds = { warning => undef, critical => undef }; + my $checked = 0; + + if (defined($self->{numeric_threshold}->{$options{section}})) { + my $exits = []; + foreach (@{$self->{numeric_threshold}->{$options{section}}}) { + if ($options{instance} =~ /$_->{instance}/) { + push @{$exits}, $self->{perfdata}->threshold_check(value => $options{value}, threshold => [ { label => $_->{label}, exit_litteral => $_->{threshold} } ]); + $thresholds->{$_->{threshold}} = $self->{perfdata}->get_perfdata_for_output(label => $_->{label}); + $checked = 1; + } + } + $status = $self->{output}->get_most_critical(status => $exits) if (scalar(@{$exits}) > 0); + } + + return ($status, $thresholds->{warning}, $thresholds->{critical}, $checked); +} + +sub get_severity { + my ($self, %options) = @_; + my $status = 'UNKNOWN'; # default + + if (defined($self->{overload_th}->{$options{section}})) { + foreach (@{$self->{overload_th}->{$options{section}}}) { + if ($options{value} =~ /$_->{filter}/i && + (!defined($options{instance}) || $options{instance} =~ /$_->{instance}/)) { + $status = $_->{status}; + return $status; + } + } + } + my $label = defined($options{label}) ? $options{label} : $options{section}; + foreach (@{$thresholds->{$label}}) { + if ($options{value} =~ /$$_[0]/i) { + $status = $$_[1]; + return $status; + } + } + + return $status; +} + +1; + +__END__ + +=head1 MODE + +Check ESXi Hardware. +Example: centreon_plugins.pl --plugin=apps::vmware::wsman::plugin --mode=hardware --hostname='XXX.XXX.XXX.XXX' +--wsman-username='XXXX' --wsman-password='XXXX' --wsman-scheme=https --wsman-port=443 --verbose + +=over 8 + +=item B<--component> + +Which component to check (Default: '.*'). +Can be: 'omc_discretesensor', 'omc_fan', 'omc_psu', 'vmware_storageextent', 'vmware_controller', +'vmware_storagevolume', 'vmware_battery', 'vmware_sassataport', 'cim_card', +'cim_computersystem', 'cim_numericsensor', 'cim_memory', 'cim_processor', 'cim_recordlog'. + +=item B<--filter> + +Exclude some parts (comma seperated list) (Example: --filter=cim_card --filter=cim_recordlog) +Can also exclude specific instance: --filter='omc_psu,Power Supply 1' + +=item B<--no-component> + +Return an error if no compenents are checked. +If total (with skipped) is 0. (Default: 'critical' returns). + +=item B<--threshold-overload> + +Set to overload default threshold values (syntax: section,[instance,]status,regexp) +It used before default thresholds (order stays). +Example: --threshold-overload='cim_card,CRITICAL,^(?!(OK)$)' + +=item B<--warning> + +Set warning threshold for temperatures (syntax: type,instance,threshold) +Example: --warning='cim_numericsensor,.*,30' + +=item B<--critical> + +Set critical threshold for temperatures (syntax: type,instance,threshold) +Example: --critical='cim_numericsensor,.*,40' + +=back + +=cut \ No newline at end of file diff --git a/centreon-plugins/apps/vmware/wsman/plugin.pm b/centreon-plugins/apps/vmware/wsman/plugin.pm new file mode 100644 index 000000000..f29127443 --- /dev/null +++ b/centreon-plugins/apps/vmware/wsman/plugin.pm @@ -0,0 +1,49 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package apps::vmware::wsman::plugin; + +use strict; +use warnings; +use base qw(centreon::plugins::script_wsman); + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options); + bless $self, $class; + # $options->{options} = options object + + $self->{version} = '0.1'; + %{$self->{modes}} = ( + 'hardware' => 'apps::vmware::wsman::mode::hardware', + ); + + return $self; +} + +1; + +__END__ + +=head1 PLUGIN DESCRIPTION + +Check VMWare ESXi Hardware (ws-management protocol). + +=cut diff --git a/centreon-plugins/centreon/common/airespace/snmp/mode/apstatus.pm b/centreon-plugins/centreon/common/airespace/snmp/mode/apstatus.pm index c3e230234..bc1c60839 100644 --- a/centreon-plugins/centreon/common/airespace/snmp/mode/apstatus.pm +++ b/centreon-plugins/centreon/common/airespace/snmp/mode/apstatus.pm @@ -26,58 +26,74 @@ use strict; use warnings; use centreon::plugins::values; -my $maps_counters = { - '0_status' => { class => 'centreon::plugins::values', obj => undef, - set => { - key_values => [ - { name => 'opstatus' }, { name => 'admstatus' }, - ], - threshold => 0, - closure_custom_calc => \&custom_status_calc, - closure_custom_output => \&custom_status_output, - closure_custom_perfdata => sub { return 0; }, - closure_custom_threshold_check => \&custom_threshold_output, - } - }, -}; -my $thresholds = { - ap => [ - ['associated', 'OK'], - ['disassociating', 'CRITICAL'], - ['downloading', 'WARNING'], - ], -}; -my $overload_th; +my $instance_mode; -sub get_severity { - my (%options) = @_; - my $status = 'UNKNOWN'; # default - - if (defined($overload_th->{$options{section}})) { - foreach (@{$overload_th->{$options{section}}}) { - if ($options{value} =~ /$_->{filter}/i) { - $status = $_->{status}; - return $status; +my $maps_counters = { + ap => { + '000_status' => { threshold => 0, + set => { + key_values => [ { name => 'opstatus' }, { name => 'admstatus' }, { name => 'display' } ], + threshold => 0, + closure_custom_calc => \&custom_status_calc, + closure_custom_output => \&custom_status_output, + closure_custom_perfdata => sub { return 0; }, + closure_custom_threshold_check => \&custom_threshold_output, } - } + }, + }, + global => { + '000_total' => { set => { + key_values => [ { name => 'total' } ], + output_template => 'Total ap : %s', + perfdatas => [ + { label => 'total', value => 'total_absolute', template => '%s', + min => 0 }, + ], + } + }, + '001_total-associated' => { set => { + key_values => [ { name => 'associated' } ], + output_template => 'Total ap associated : %s', + perfdatas => [ + { label => 'total_associated', value => 'associated_absolute', template => '%s', + min => 0 }, + ], + } + }, + '002_total-disassociating' => { set => { + key_values => [ { name => 'disassociating' } ], + output_template => 'Total ap disassociating : %s', + perfdatas => [ + { label => 'total_disassociating', value => 'disassociating_absolute', template => '%s', + min => 0 }, + ], + } + }, } - foreach (@{$thresholds->{$options{section}}}) { - if ($options{value} =~ /$$_[0]/i) { - $status = $$_[1]; - return $status; - } - } - - return $status; -} +}; sub custom_threshold_output { - my ($self, %options) = @_; + my ($self, %options) = @_; + my $status = 'ok'; + my $message; - if ($self->{result_values}->{admstatus} eq 'disabled') { - return 'ok'; + eval { + local $SIG{__WARN__} = sub { $message = $_[0]; }; + local $SIG{__DIE__} = sub { $message = $_[0]; }; + + if (defined($instance_mode->{option_results}->{critical_status}) && $instance_mode->{option_results}->{critical_status} ne '' && + eval "$instance_mode->{option_results}->{critical_status}") { + $status = 'critical'; + } elsif (defined($instance_mode->{option_results}->{warning_status}) && $instance_mode->{option_results}->{warning_status} ne '' && + eval "$instance_mode->{option_results}->{warning_status}") { + $status = 'warning'; + } + }; + if (defined($message)) { + $self->{output}->output_add(long_msg => 'filter status issue: ' . $message); } - return get_severity(section => 'ap', value => $self->{result_values}->{opstatus}); + + return $status; } sub custom_status_output { @@ -98,6 +114,7 @@ sub custom_status_calc { $self->{result_values}->{opstatus} = $options{new_datas}->{$self->{instance} . '_opstatus'}; $self->{result_values}->{admstatus} = $options{new_datas}->{$self->{instance} . '_admstatus'}; + $self->{result_values}->{display} = $options{new_datas}->{$self->{instance} . '_display'}; return 0; } @@ -110,21 +127,23 @@ sub new { $options{options}->add_options(arguments => { "filter-name:s" => { name => 'filter_name' }, - "threshold-overload:s@" => { name => 'threshold_overload' }, + "warning-status:s" => { name => 'warning_status', default => '' }, + "critical-status:s" => { name => 'critical_status', default => '%{admstatus} eq "enable" and %{opstatus} !~ /associated|downloading/' }, }); - foreach (keys %{$maps_counters}) { - my ($id, $name) = split /_/; - if (!defined($maps_counters->{$_}->{threshold}) || $maps_counters->{$_}->{threshold} != 0) { - $options{options}->add_options(arguments => { - 'warning-' . $name . ':s' => { name => 'warning-' . $name }, - 'critical-' . $name . ':s' => { name => 'critical-' . $name }, - }); + foreach my $key (('global', 'ap')) { + foreach (keys %{$maps_counters->{$key}}) { + my ($id, $name) = split /_/; + if (!defined($maps_counters->{$key}->{$_}->{threshold}) || $maps_counters->{$key}->{$_}->{threshold} != 0) { + $options{options}->add_options(arguments => { + 'warning-' . $name . ':s' => { name => 'warning-' . $name }, + 'critical-' . $name . ':s' => { name => 'critical-' . $name }, + }); + } + $maps_counters->{$key}->{$_}->{obj} = centreon::plugins::values->new(output => $self->{output}, perfdata => $self->{perfdata}, + label => $name); + $maps_counters->{$key}->{$_}->{obj}->set(%{$maps_counters->{$key}->{$_}->{set}}); } - my $class = $maps_counters->{$_}->{class}; - $maps_counters->{$_}->{obj} = $class->new(output => $self->{output}, perfdata => $self->{perfdata}, - label => $name); - $maps_counters->{$_}->{obj}->set(%{$maps_counters->{$_}->{set}}); } return $self; @@ -134,59 +153,42 @@ sub check_options { my ($self, %options) = @_; $self->SUPER::init(%options); - foreach (keys %{$maps_counters}) { - $maps_counters->{$_}->{obj}->init(option_results => $self->{option_results}); - } - $overload_th = {}; - foreach my $val (@{$self->{option_results}->{threshold_overload}}) { - if ($val !~ /^(.*?),(.*)$/) { - $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload option '" . $val . "'."); - $self->{output}->option_exit(); + foreach my $key (('global', 'ap')) { + foreach (keys %{$maps_counters->{$key}}) { + $maps_counters->{$key}->{$_}->{obj}->init(option_results => $self->{option_results}); } - my ($section, $status, $filter) = ('ap', $1, $2); - if ($self->{output}->is_litteral_status(status => $status) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload status '" . $val . "'."); - $self->{output}->option_exit(); - } - $overload_th->{$section} = [] if (!defined($overload_th->{$section})); - push @{$overload_th->{$section}}, {filter => $filter, status => $status}; } + + $instance_mode = $self; + $self->change_macros(); } -sub run { +sub run_instance { my ($self, %options) = @_; - # $options{snmp} = snmp object - $self->{snmp} = $options{snmp}; - - $self->manage_selection(); - my $multiple = 1; - if (scalar(keys %{$self->{ap_selected}}) <= 1) { - $multiple = 0; - } - - if ($multiple == 1) { + if ($self->{multiple} == 1) { $self->{output}->output_add(severity => 'OK', short_msg => 'All AP status are ok'); } - foreach my $id ($self->{snmp}->oid_lex_sort(keys %{$self->{ap_selected}})) { + foreach my $id (sort keys %{$self->{ap_selected}}) { my ($short_msg, $short_msg_append, $long_msg, $long_msg_append) = ('', '', '', ''); - my @exits; - foreach (sort keys %{$maps_counters}) { - $maps_counters->{$_}->{obj}->set(instance => $id); + my @exits = (); + foreach (sort keys %{$maps_counters->{ap}}) { + my $obj = $maps_counters->{ap}->{$_}->{obj}; + $obj->set(instance => $id); - my ($value_check) = $maps_counters->{$_}->{obj}->execute(values => $self->{ap_selected}->{$id}); + my ($value_check) = $obj->execute(values => $self->{ap_selected}->{$id}); if ($value_check != 0) { - $long_msg .= $long_msg_append . $maps_counters->{$_}->{obj}->output_error(); + $long_msg .= $long_msg_append . $obj->output_error(); $long_msg_append = ', '; next; } - my $exit2 = $maps_counters->{$_}->{obj}->threshold_check(); + my $exit2 = $obj->threshold_check(); push @exits, $exit2; - my $output = $maps_counters->{$_}->{obj}->output(); + my $output = $obj->output(); $long_msg .= $long_msg_append . $output; $long_msg_append = ', '; @@ -195,7 +197,7 @@ sub run { $short_msg_append = ', '; } - $maps_counters->{$_}->{obj}->perfdata(extra_instance => $multiple); + $obj->perfdata(extra_instance => $self->{multiple}); } $self->{output}->output_add(long_msg => "AP '" . $self->{ap_selected}->{$id}->{display} . "' $long_msg"); @@ -206,15 +208,80 @@ sub run { ); } - if ($multiple == 0) { + if ($self->{multiple} == 0) { $self->{output}->output_add(short_msg => "AP '" . $self->{ap_selected}->{$id}->{display} . "' $long_msg"); } } +} + +sub run_global { + my ($self, %options) = @_; + + my ($short_msg, $short_msg_append, $long_msg, $long_msg_append) = ('', '', '', ''); + my @exits; + foreach (sort keys %{$maps_counters->{global}}) { + my $obj = $maps_counters->{global}->{$_}->{obj}; + + $obj->set(instance => 'global'); + + my ($value_check) = $obj->execute(values => $self->{global}); + + if ($value_check != 0) { + $long_msg .= $long_msg_append . $obj->output_error(); + $long_msg_append = ', '; + next; + } + my $exit2 = $obj->threshold_check(); + push @exits, $exit2; + + my $output = $obj->output(); + $long_msg .= $long_msg_append . $output; + $long_msg_append = ', '; + + if (!$self->{output}->is_status(litteral => 1, value => $exit2, compare => 'ok')) { + $short_msg .= $short_msg_append . $output; + $short_msg_append = ', '; + } + + $obj->perfdata(); + } + + my $exit = $self->{output}->get_most_critical(status => [ @exits ]); + if (!$self->{output}->is_status(litteral => 1, value => $exit, compare => 'ok')) { + $self->{output}->output_add(severity => $exit, + short_msg => "$short_msg" + ); + } else { + $self->{output}->output_add(short_msg => "$long_msg"); + } +} + +sub run { + my ($self, %options) = @_; + $self->{snmp} = $options{snmp}; + + $self->manage_selection(); + + if ($self->{multiple} == 1) { + $self->run_global(); + } + + $self->run_instance(); $self->{output}->display(); $self->{output}->exit(); } +sub change_macros { + my ($self, %options) = @_; + + foreach (('warning_status', 'critical_status')) { + if (defined($self->{option_results}->{$_})) { + $self->{option_results}->{$_} =~ s/%\{(.*?)\}/\$self->{result_values}->{$1}/g; + } + } +} + my %map_admin_status = ( 1 => 'enable', 2 => 'disable', @@ -233,13 +300,13 @@ my $mapping2 = { my $mapping3 = { bsnAPAdminStatus => { oid => '.1.3.6.1.4.1.14179.2.2.1.1.37', map => \%map_admin_status }, }; - my $oid_agentInventoryMachineModel = '.1.3.6.1.4.1.14179.1.1.1.3'; sub manage_selection { my ($self, %options) = @_; $self->{ap_selected} = {}; + $self->{global} = { total => 0, associated => 0, disassociating => 0, downloading => 0 }; $self->{results} = $self->{snmp}->get_multiple_table(oids => [ { oid => $oid_agentInventoryMachineModel }, { oid => $mapping->{bsnAPName}->{oid} }, { oid => $mapping2->{bsnAPOperationStatus}->{oid} }, @@ -259,6 +326,9 @@ sub manage_selection { next; } + $self->{global}->{total}++; + $self->{global}->{$result2->{bsnAPOperationStatus}}++; + $self->{ap_selected}->{$instance} = { display => $result->{bsnAPName}, opstatus => $result2->{bsnAPOperationStatus}, admstatus => $result3->{bsnAPAdminStatus}}; } @@ -267,6 +337,11 @@ sub manage_selection { $self->{output}->output_add(severity => 'OK', short_msg => 'No AP associated (can be: slave wireless controller or your filter)'); } + + $self->{multiple} = 1; + if (scalar(keys %{$self->{ap_selected}}) <= 1) { + $self->{multiple} = 0; + } } 1; @@ -283,11 +358,25 @@ Check AP status. Filter AP name (can be a regexp). -=item B<--threshold-overload> +=item B<--warning-status> -Set to overload default ap threshold values (syntax: status,regexp) -It used before default thresholds (order stays). -Example: --threshold-overload='CRITICAL,^(?!(associated)$)' +Set warning threshold for status. +Can used special variables like: %{admstatus}, %{opstatus}, %{display} + +=item B<--critical-status> + +Set critical threshold for status (Default: '%{admstatus} eq "enable" and %{opstatus} !~ /associated|downloading/'). +Can used special variables like: %{admstatus}, %{opstatus}, %{display} + +=item B<--warning-*> + +Threshold warning. +Can be: 'total', 'total-associated', 'total-disassociating'. + +=item B<--critical-*> + +Threshold critical. +Can be: 'total', 'total-associated', 'total-disassociating'. =back diff --git a/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/module.pm b/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/module.pm index 65ab648a8..51bf40fec 100644 --- a/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/module.pm +++ b/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/module.pm @@ -53,7 +53,7 @@ my %map_module_state = ( 27 => 'fwDownloadFailure', ); -# In MIB 'CISCO-ENTITY-SENSOR-MIB' +# In MIB 'CISCO-ENTITY-FRU-CONTROL-MIB' my $mapping = { cefcModuleOperStatus => { oid => '.1.3.6.1.4.1.9.9.117.1.2.1.1.2', map => \%map_module_state }, }; diff --git a/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/physical.pm b/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/physical.pm index 999930181..2f48c0f48 100644 --- a/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/physical.pm +++ b/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/physical.pm @@ -56,6 +56,11 @@ sub check { my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_cefcPhysicalStatus}, instance => $instance); my $physical_descr = $self->{results}->{$oid_entPhysicalDescr}->{$oid_entPhysicalDescr . '.' . $instance}; + if (!defined($physical_descr)) { + $self->{output}->output_add(long_msg => sprintf("skipped instance '%s': no description", $instance)); + next; + } + next if ($self->check_exclude(section => 'physical', instance => $instance)); $self->{components}->{physical}->{total}++; diff --git a/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/sensor.pm b/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/sensor.pm new file mode 100644 index 000000000..f6fbc84fd --- /dev/null +++ b/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/sensor.pm @@ -0,0 +1,152 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package centreon::common::cisco::standard::snmp::mode::components::sensor; + +use strict; +use warnings; + +my %map_sensor_status = ( + 1 => 'ok', + 2 => 'unavailable', + 3 => 'nonoperational', +); +my %map_sensor_type = ( + 1 => 'other', + 2 => 'unknown', + 3 => 'voltsAC', + 4 => 'voltsDC', + 5 => 'amperes', + 6 => 'watts', + 7 => 'hertz', + 8 => 'celsius', + 9 => 'percentRH', + 10 => 'rpm', + 11 => 'cmm', + 12 => 'truthvalue', + 13 => 'specialEnum', + 14 => 'dBm', +); +my %map_severity = ( + 1 => 'other', + 10 => 'minor', + 20 => 'major', + 30 => 'critical', +); +my %map_relation = ( + 1 => 'lessThan', + 2 => 'lessOrEqual', + 3 => 'greaterThan', + 4 => 'greaterOrEqual', + 5 => 'equalTo', + 6 => 'notEqualTo', +); + +# In MIB 'CISCO-ENTITY-SENSOR-MIB' +my $mapping = { + entSensorType => { oid => '.1.3.6.1.4.1.9.9.91.1.1.1.1.1', map => \%map_sensor_type }, + entSensorPrecision => { oid => '.1.3.6.1.4.1.9.9.91.1.1.1.1.3' }, + entSensorValue => { oid => '.1.3.6.1.4.1.9.9.91.1.1.1.1.4' }, + entSensorStatus => { oid => '.1.3.6.1.4.1.9.9.91.1.1.1.1.5', map => \%map_sensor_status }, +}; +my $mapping2 = { + entSensorThresholdSeverity => { oid => '.1.3.6.1.4.1.9.9.91.1.2.1.1.2', map => \%map_severity }, + entSensorThresholdRelation => { oid => '.1.3.6.1.4.1.9.9.91.1.2.1.1.3', map => \%map_relation }, + entSensorThresholdValue => { oid => '.1.3.6.1.4.1.9.9.91.1.2.1.1.4' }, +}; +my $oid_entSensorValueEntry = '.1.3.6.1.4.1.9.9.91.1.1.1.1'; +my $oid_entSensorThresholdEntry = '.1.3.6.1.4.1.9.9.91.1.2.1.1'; + +sub load { + my (%options) = @_; + + push @{$options{request}}, { oid => $oid_entSensorValueEntry }, { oid => $oid_entSensorThresholdEntry }; +} + +sub get_default_warning_threshold { + my ($self, %options) = @_; + my $th = ''; + + return $th; +} + +sub get_default_critical_threshold { + my ($self, %options) = @_; + my $th = ''; + + return $th; +} + + +sub check { + my ($self) = @_; + + $self->{output}->output_add(long_msg => "Checking sensors"); + $self->{components}->{sensor} = {name => 'sensors', total => 0, skip => 0}; + return if ($self->check_exclude(section => 'sensor')); + + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_entSensorValueEntry}})) { + next if ($oid !~ /^$mapping->{entSensorStatus}->{oid}\.(.*)$/); + my $instance = $1; + my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_entSensorValueEntry}, instance => $instance); + my $sensor_descr = $self->{results}->{$oid_entPhysicalDescr}->{$oid_entPhysicalDescr . '.' . $instance}; + + next if ($self->check_exclude(section => 'sensor', instance => $instance)); + $self->{components}->{sensor}->{total}++; + + $result->{entSensorValue} = defined($result->{entSensorValue}) ? + $result->{entSensorValue} * 10 ** -($result->{entSensorPrecision}) : undef; + + $self->{output}->output_add(long_msg => sprintf("Sensor '%s' status is '%s' [instance: %s] [value: %s %s]", + $sensor_descr, $result->{entSensorStatus}, + $instance, + defined($result->{entSensorValue}) ? $result->{entSensorValue} : '-'), + $result->{entSensorType}); + my $exit = $self->get_severity(section => $result->{entSensorType}, label => 'sensor', value => $result->{entSensorStatus}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Sensor '%s' status is '%s'", + $sensor_descr, $result->{entSensorStatus})); + } + + next if (!defined($result->{entSensorValue}) || $result->{entSensorValue} !~ /[0-9]/); + + my $component = 'sensor.' . $result->{entSensorType}; + my ($exit2, $warn, $crit, $checked) = $self->get_severity_numeric(section => $component, instance => $instance, value => $result->{entSensorValue}); + if ($checked == 0) { + my $warn_th = get_default_warning_threshold($self); + my $crit_th = get_default_critical_threshold($self); + $self->{perfdata}->threshold_validate(label => 'warning-' . $component . '-instance-' . $instance, value => $warn_th); + $self->{perfdata}->threshold_validate(label => 'critical-' . $component . '-instance-' . $instance, value => $crit_th); + $warn = $self->{perfdata}->get_perfdata_for_output(label => 'warning-' . $component . '-instance-' . $instance); + $crit = $self->{perfdata}->get_perfdata_for_output(label => 'critical-' . $component . '-instance-' . $instance); + } + if (!$self->{output}->is_status(value => $exit2, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit2, + short_msg => sprintf("Sensor '%s' is %s %s", $sensor_descr, $result->{entSensorStatus}, $result->{entSensorType})); + } + $self->{output}->perfdata_add(label => $component . '_' . $sensor_descr, + value => $result->{entSensorValue}, + warning => $warn, + critical => $crit); + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/temperature.pm b/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/temperature.pm index 833eea2f4..11c143960 100644 --- a/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/temperature.pm +++ b/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/temperature.pm @@ -64,7 +64,7 @@ sub check { $self->{output}->output_add(long_msg => sprintf("Temperature '%s' status is %s [instance: %s] [value: %s C]", $result->{ciscoEnvMonTemperatureStatusDescr}, $result->{ciscoEnvMonTemperatureState}, - $instance, $result->{ciscoEnvMonTemperatureStatusValue})); + $instance, defined($result->{ciscoEnvMonTemperatureStatusValue}) ? $result->{ciscoEnvMonTemperatureStatusValue} : '-')); my $exit = $self->get_severity(section => 'temperature', value => $result->{ciscoEnvMonTemperatureState}); if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { $self->{output}->output_add(severity => $exit, @@ -72,6 +72,8 @@ sub check { $result->{ciscoEnvMonTemperatureStatusDescr}, $result->{ciscoEnvMonTemperatureState})); } + next if (!defined($result->{ciscoEnvMonTemperatureStatusValue})); + my ($exit2, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'temperature', instance => $instance, value => $result->{ciscoEnvMonTemperatureStatusValue}); if ($checked == 0) { my $warn_th = undef; diff --git a/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/voltage.pm b/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/voltage.pm index 33530f526..99647b622 100644 --- a/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/voltage.pm +++ b/centreon-plugins/centreon/common/cisco/standard/snmp/mode/components/voltage.pm @@ -77,8 +77,8 @@ sub check { my ($exit2, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'voltage', instance => $instance, value => $result->{ciscoEnvMonVoltageStatusValue}); if ($checked == 0) { my $warn_th = undef; - my $crit_th = (defined($result->{ciscoEnvMonVoltageThresholdLow}) ? sprintf("%.3f", $result->{ciscoEnvMonVoltageThresholdLow}) : 0) . ':' . - (defined($result->{ciscoEnvMonVoltageThresholdHigh}) ? sprintf("%.3f", $result->{ciscoEnvMonVoltageThresholdHigh}) : ''); + my $crit_th = ((defined($result->{ciscoEnvMonVoltageThresholdLow}) && $result->{ciscoEnvMonVoltageThresholdLow} =~ /\d/) ? sprintf("%.3f", $result->{ciscoEnvMonVoltageThresholdLow} / 1000) : 0) . ':' . + ((defined($result->{ciscoEnvMonVoltageThresholdHigh}) && $result->{ciscoEnvMonVoltageThresholdHigh} =~ /\d/) ? sprintf("%.3f", $result->{ciscoEnvMonVoltageThresholdHigh} / 1000) : ''); $self->{perfdata}->threshold_validate(label => 'warning-voltage-instance-' . $instance, value => $warn_th); $self->{perfdata}->threshold_validate(label => 'critical-voltage-instance-' . $instance, value => $crit_th); $warn = $self->{perfdata}->get_perfdata_for_output(label => 'warning-voltage-instance-' . $instance); diff --git a/centreon-plugins/centreon/common/cisco/standard/snmp/mode/environment.pm b/centreon-plugins/centreon/common/cisco/standard/snmp/mode/environment.pm index a39f8bf3c..adb98425e 100644 --- a/centreon-plugins/centreon/common/cisco/standard/snmp/mode/environment.pm +++ b/centreon-plugins/centreon/common/cisco/standard/snmp/mode/environment.pm @@ -94,6 +94,11 @@ my $thresholds = { ['incompatible|unsupported', 'CRITICAL'], ['supported', 'OK'], ], + sensor => [ + ['ok', 'OK'], + ['unavailable', 'OK'], + ['nonoperational', 'CRITICAL'], + ], }; sub new { @@ -133,17 +138,29 @@ sub check_options { $self->{overload_th} = {}; foreach my $val (@{$self->{option_results}->{threshold_overload}}) { - if ($val !~ /^(.*?),(.*?),(.*)$/) { + next if (!defined($val) || $val eq ''); + my @values = split (/,/, $val); + if (scalar(@values) < 3) { $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload option '" . $val . "'."); $self->{output}->option_exit(); } - my ($section, $status, $filter) = ($1, $2, $3); + my ($section, $instance, $status, $filter); + if (scalar(@values) == 3) { + ($section, $status, $filter) = @values; + $instance = '.*'; + } else { + ($section, $instance, $status, $filter) = @values; + } + if ($section !~ /^(temperature|fan|psu)$/) { + $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload section '" . $val . "'."); + $self->{output}->option_exit(); + } if ($self->{output}->is_litteral_status(status => $status) == 0) { $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload status '" . $val . "'."); $self->{output}->option_exit(); } $self->{overload_th}->{$section} = [] if (!defined($self->{overload_th}->{$section})); - push @{$self->{overload_th}->{$section}}, {filter => $filter, status => $status}; + push @{$self->{overload_th}->{$section}}, {filter => $filter, status => $status, instance => $instance }; } $self->{numeric_threshold} = {}; @@ -154,8 +171,8 @@ sub check_options { $self->{output}->option_exit(); } my ($section, $regexp, $value) = ($1, $2, $3); - if ($section !~ /(temperature|voltage)/) { - $self->{output}->add_option_msg(short_msg => "Wrong $option option '" . $val . "' (type must be: temperature or voltage)."); + if ($section !~ /(temperature|voltage|sensor)/i) { + $self->{output}->add_option_msg(short_msg => "Wrong $option option '" . $val . "' (type must be: temperature, voltage or sensor)."); $self->{output}->option_exit(); } my $position = 0; @@ -181,7 +198,7 @@ sub run { my $oid_ciscoEnvMonPresent = ".1.3.6.1.4.1.9.9.13.1.1"; my $snmp_request = [ { oid => $oid_entPhysicalDescr }, { oid => $oid_ciscoEnvMonPresent } ]; - my @components = ('fan', 'psu', 'temperature', 'voltage', 'module', 'physical'); + my @components = ('fan', 'psu', 'temperature', 'voltage', 'module', 'physical', 'sensor'); foreach (@components) { if (/$self->{option_results}->{component}/) { my $mod_name = "centreon::common::cisco::standard::snmp::mode::components::$_"; @@ -278,7 +295,7 @@ sub get_severity_numeric { if (defined($self->{numeric_threshold}->{$options{section}})) { my $exits = []; foreach (@{$self->{numeric_threshold}->{$options{section}}}) { - if ($options{instance} =~ /$_->{regexp}/) { + if ($options{instance} =~ /$_->{regexp}/i) { push @{$exits}, $self->{perfdata}->threshold_check(value => $options{value}, threshold => [ { label => $_->{label}, exit_litteral => $_->{threshold} } ]); $thresholds->{$_->{threshold}} = $self->{perfdata}->get_perfdata_for_output(label => $_->{label}); $checked = 1; @@ -296,13 +313,15 @@ sub get_severity { if (defined($self->{overload_th}->{$options{section}})) { foreach (@{$self->{overload_th}->{$options{section}}}) { - if ($options{value} =~ /$_->{filter}/i) { + if ($options{value} =~ /$_->{filter}/i && + (!defined($options{instance}) || $options{instance} =~ /$_->{instance}/)) { $status = $_->{status}; return $status; } } } - foreach (@{$thresholds->{$options{section}}}) { + my $label = defined($options{label}) ? $options{label} : $options{section}; + foreach (@{$thresholds->{$label}}) { if ($options{value} =~ /$$_[0]/i) { $status = $$_[1]; return $status; @@ -325,7 +344,7 @@ Check environment (Power Supplies, Fans, Temperatures, Voltages, Modules, Physic =item B<--component> Which component to check (Default: '.*'). -Can be: 'fan', 'psu', 'temperature', 'voltage', 'module', 'physical'. +Can be: 'fan', 'psu', 'temperature', 'voltage', 'module', 'physical', 'sensor'. =item B<--exclude> @@ -350,12 +369,12 @@ Example: --threshold-overload='fan,CRITICAL,^(?!(up|normal)$)' =item B<--warning> -Set warning threshold for temperatures, voltages (syntax: type,regexp,treshold) +Set warning threshold for temperatures, voltages, sensors (syntax: type,regexp,treshold) Example: --warning='temperature,.*,30' =item B<--critical> -Set critical threshold for temperatures, voltages (syntax: type,regexp,treshold) +Set critical threshold for temperatures, voltages, sensors (syntax: type,regexp,treshold) Example: --critical='temperature,.*,40' =back diff --git a/centreon-plugins/centreon/common/cisco/standard/snmp/mode/ipsla.pm b/centreon-plugins/centreon/common/cisco/standard/snmp/mode/ipsla.pm index a3b98b84e..ea4385571 100644 --- a/centreon-plugins/centreon/common/cisco/standard/snmp/mode/ipsla.pm +++ b/centreon-plugins/centreon/common/cisco/standard/snmp/mode/ipsla.pm @@ -319,7 +319,7 @@ sub get_my_delta { my $value; my ($old_time1, $old_time2) = split /_/, $options{old_datas}->{$self->{instance} . '_' . $options{name} . '_times'}; my ($new_time1, $new_time2) = split /_/, $options{new_datas}->{$self->{instance} . '_' . $options{name} . '_times'}; - if ($old_time1 == $new_time1) { + if (defined($old_time1) && defined($new_time1) && $old_time1 == $new_time1) { $value = $options{new_datas}->{$self->{instance} . '_' . $options{name} . '_1'} - $options{old_datas}->{$self->{instance} . '_' . $options{name} . '_1'} + $options{new_datas}->{$self->{instance} . '_' . $options{name} . '_2'} - $options{old_datas}->{$self->{instance} . '_' . $options{name} . '_2'}; } else { @@ -944,13 +944,17 @@ sub manage_selection { my $instance = $1; my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_rttMonCtrlAdminEntry}, instance => $instance); my $tag_name = $result->{rttMonCtrlAdminTag}; + if (!defined($tag_name) || $tag_name eq '') { + $self->{output}->output_add(long_msg => "skipping: please set a tag name"); + next; + } if (defined($self->{datas}->{$tag_name})) { - $self->{output}->output_add(long_msg => "Skipping '" . $tag_name . "': duplicate (please change the tag name)."); + $self->{output}->output_add(long_msg => "skipping '" . $tag_name . "': duplicate (please change the tag name)."); next; } if (defined($self->{option_results}->{filter_tag}) && $self->{option_results}->{filter_tag} ne '' && $tag_name !~ /$self->{option_results}->{filter_tag}/) { - $self->{output}->output_add(long_msg => "Skipping '" . $tag_name . "': no matching filter."); + $self->{output}->output_add(long_msg => "skipping '" . $tag_name . "': no matching filter."); next; } $self->{datas}->{$tag_name} = { %{$result} }; diff --git a/centreon-plugins/centreon/common/force10/snmp/mode/components/fan.pm b/centreon-plugins/centreon/common/force10/snmp/mode/components/fan.pm new file mode 100644 index 000000000..0f0cc9c0f --- /dev/null +++ b/centreon-plugins/centreon/common/force10/snmp/mode/components/fan.pm @@ -0,0 +1,82 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package centreon::common::force10::snmp::mode::components::fan; + +use strict; +use warnings; + +my %map_status = ( + 1 => 'up', + 2 => 'down', + 3 => 'absent', +); + +my $mapping = { + sseries => { + OperStatus => { oid => '.1.3.6.1.4.1.6027.3.10.1.2.4.1.2', map => \%map_status }, + }, + mseries => { + OperStatus => { oid => '.1.3.6.1.4.1.6027.3.19.1.2.3.1.2', map => \%map_status }, + }, + zseries => { + OperStatus => { oid => '.1.3.6.1.4.1.6027.3.25.1.2.7.1.2', map => \%map_status }, + }, +}; + +sub load { + my (%options) = @_; + + push @{$options{request}}, { oid => $mapping->{sseries}->{OperStatus}->{oid} }, + { oid => $mapping->{mseries}->{OperStatus}->{oid} }, { oid => $mapping->{zseries}->{OperStatus}->{oid} }; +} + +sub check { + my ($self) = @_; + + $self->{output}->output_add(long_msg => "Checking fans"); + $self->{components}->{fan} = {name => 'fans', total => 0, skip => 0}; + return if ($self->check_filter(section => 'fan')); + + foreach my $name (keys %{$mapping}) { + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$mapping->{$name}->{OperStatus}->{oid}}})) { + next if ($oid !~ /^$mapping->{$name}->{OperStatus}->{oid}\.(.*)$/); + my $instance = $1; + my $result = $self->{snmp}->map_instance(mapping => $mapping->{$name}, results => $self->{results}->{$mapping->{$name}->{OperStatus}->{oid}}, instance => $instance); + + next if ($result->{OperStatus} =~ /absent/i && + $self->absent_problem(section => 'fan', instance => $instance)); + next if ($self->check_filter(section => 'fan', instance => $instance)); + $self->{components}->{fan}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("Fan '%s' status is '%s' [instance: %s]", + $instance, $result->{OperStatus}, + $instance)); + my $exit = $self->get_severity(section => 'fan', value => $result->{OperStatus}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Fan '%s' status is %s", + $instance, $result->{OperStatus})); + } + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/centreon/common/force10/snmp/mode/components/psu.pm b/centreon-plugins/centreon/common/force10/snmp/mode/components/psu.pm new file mode 100644 index 000000000..853f25d6f --- /dev/null +++ b/centreon-plugins/centreon/common/force10/snmp/mode/components/psu.pm @@ -0,0 +1,90 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package centreon::common::force10::snmp::mode::components::psu; + +use strict; +use warnings; + +my %map_status = ( + 1 => 'up', + 2 => 'down', + 3 => 'absent', +); +my %map_mstatus = ( + 1 => 'normal', + 2 => 'warning', + 3 => 'critical', + 4 => 'shutdown', + 5 => 'notPresent', + 6 => 'notFunctioning', +); + +my $mapping = { + sseries => { + OperStatus => { oid => '.1.3.6.1.4.1.6027.3.10.1.2.3.1.2', map => \%map_status }, + }, + mseries => { + OperStatus => { oid => '.1.3.6.1.4.1.6027.3.19.1.2.2.1.2', map => \%map_mstatus }, + }, + zseries => { + OperStatus => { oid => '.1.3.6.1.4.1.6027.3.25.1.2.6.1.2', map => \%map_status }, + }, +}; + +sub load { + my (%options) = @_; + + push @{$options{request}}, { oid => $mapping->{sseries}->{OperStatus}->{oid} }, + { oid => $mapping->{mseries}->{OperStatus}->{oid} }, { oid => $mapping->{zseries}->{OperStatus}->{oid} }; +} + +sub check { + my ($self) = @_; + + $self->{output}->output_add(long_msg => "Checking power supplies"); + $self->{components}->{psu} = {name => 'power supplies', total => 0, skip => 0}; + return if ($self->check_filter(section => 'psu')); + + foreach my $name (keys %{$mapping}) { + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$mapping->{$name}->{OperStatus}->{oid}}})) { + next if ($oid !~ /^$mapping->{$name}->{OperStatus}->{oid}\.(.*)$/); + my $instance = $1; + my $result = $self->{snmp}->map_instance(mapping => $mapping->{$name}, results => $self->{results}->{$mapping->{$name}->{OperStatus}->{oid}}, instance => $instance); + + next if ($result->{OperStatus} =~ /absent|notPresent/i && + $self->absent_problem(section => 'psu', instance => $instance)); + next if ($self->check_filter(section => 'psu', instance => $instance)); + $self->{components}->{psu}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("Power supply '%s' status is '%s' [instance: %s]", + $instance, $result->{OperStatus}, + $instance)); + my $exit = $self->get_severity(section => 'psu', value => $result->{OperStatus}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Power supply '%s' status is %s", + $instance, $result->{OperStatus})); + } + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/centreon/common/force10/snmp/mode/components/temperature.pm b/centreon-plugins/centreon/common/force10/snmp/mode/components/temperature.pm new file mode 100644 index 000000000..7e38f45bd --- /dev/null +++ b/centreon-plugins/centreon/common/force10/snmp/mode/components/temperature.pm @@ -0,0 +1,76 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package centreon::common::force10::snmp::mode::components::temperature; + +use strict; +use warnings; + +my $mapping = { + sseries => { + Temp => { oid => '.1.3.6.1.4.1.6027.3.10.1.2.2.1.14' }, + }, + mseries => { + Temp => { oid => '.1.3.6.1.4.1.6027.3.19.1.2.1.1.14' }, + }, +}; +my $oid_deviceSensorValueEntry = '.1.3.6.1.4.1.3417.2.1.1.1.1.1'; + +sub load { + my (%options) = @_; + + push @{$options{request}}, { oid => $mapping->{sseries}->{Temp}->{oid} }, + { oid => $mapping->{mseries}->{Temp}->{oid} }; +} + +sub check { + my ($self) = @_; + + $self->{output}->output_add(long_msg => "Checking temperatures"); + $self->{components}->{temperature} = {name => 'temperatures', total => 0, skip => 0}; + return if ($self->check_filter(section => 'temperature')); + + foreach my $name (keys %{$mapping}) { + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$mapping->{$name}->{Temp}->{oid}}})) { + next if ($oid !~ /^$mapping->{$name}->{Temp}->{oid}\.(.*)$/); + my $instance = $1; + my $result = $self->{snmp}->map_instance(mapping => $mapping->{$name}, results => $self->{results}->{$mapping->{$name}->{Temp}->{oid}}, instance => $instance); + + next if ($self->check_filter(section => 'temperature', instance => $instance)); + $self->{components}->{temperature}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("Temperature '%s' is %s C [instance: %s]", + $instance, $result->{Temp}, + $instance)); + + my ($exit, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'temperature', instance => $instance, value => $result->{Temp}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Temperature '%s' is %s C", $instance, $result->{Temp})); + } + $self->{output}->perfdata_add(label => 'temp_' . $instance, unit => 'C', + value => $result->{Temp}, + warning => $warn, + critical => $crit); + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/centreon/common/force10/snmp/mode/cpu.pm b/centreon-plugins/centreon/common/force10/snmp/mode/cpu.pm new file mode 100644 index 000000000..e308a6a56 --- /dev/null +++ b/centreon-plugins/centreon/common/force10/snmp/mode/cpu.pm @@ -0,0 +1,243 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package centreon::common::force10::snmp::mode::cpu; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; +use centreon::plugins::values; + +my $instance_mode; + +my $maps_counters = { + cpu => { + '000_5s' => { + set => { + key_values => [ { name => 'usage_5s' }, { name => 'display' } ], + output_template => '%s %% (5sec)', output_error_template => "%s (5sec)", + perfdatas => [ + { label => 'cpu_5s', value => 'usage_5s_absolute', template => '%d', + unit => '%', min => 0, max => 100, label_extra_instance => 1, instance_use => 'display_absolute' }, + ], + }, + }, + '001_1m' => { + set => { + key_values => [ { name => 'usage_1m' }, { name => 'display' } ], + output_template => '%s %% (1m)', output_error_template => "%s (1min)", + perfdatas => [ + { label => 'cpu_1m', value => 'usage_1m_absolute', template => '%d', + unit => '%', min => 0, max => 100, label_extra_instance => 1, instance_use => 'display_absolute' }, + ], + }, + }, + '002_5m' => { + set => { + key_values => [ { name => 'usage_5m' }, { name => 'display' } ], + output_template => '%s %% (5min)', output_error_template => "%s (5min)", + perfdatas => [ + { label => 'cpu_5m', value => 'usage_5m_absolute', template => '%d', + unit => '%', min => 0, max => 100, label_extra_instance => 1, instance_use => 'display_absolute' }, + ], + }, + }, + } +}; + +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 => + { + }); + + foreach my $key (('cpu')) { + foreach (keys %{$maps_counters->{$key}}) { + my ($id, $name) = split /_/; + if (!defined($maps_counters->{$key}->{$_}->{threshold}) || $maps_counters->{$key}->{$_}->{threshold} != 0) { + $options{options}->add_options(arguments => { + 'warning-' . $name . ':s' => { name => 'warning-' . $name }, + 'critical-' . $name . ':s' => { name => 'critical-' . $name }, + }); + } + $maps_counters->{$key}->{$_}->{obj} = centreon::plugins::values->new(output => $self->{output}, perfdata => $self->{perfdata}, + label => $name); + $maps_counters->{$key}->{$_}->{obj}->set(%{$maps_counters->{$key}->{$_}->{set}}); + } + } + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); + + foreach my $key (('cpu')) { + foreach (keys %{$maps_counters->{$key}}) { + $maps_counters->{$key}->{$_}->{obj}->init(option_results => $self->{option_results}); + } + } + $instance_mode = $self; +} + +sub run_instances { + my ($self, %options) = @_; + + my $multiple = 1; + if (scalar(keys %{$self->{cpu}}) == 1) { + $multiple = 0; + } + + if ($multiple == 1) { + $self->{output}->output_add(severity => 'OK', + short_msg => 'All CPU usages are ok'); + } + + foreach my $id (sort keys %{$self->{cpu}}) { + my ($short_msg, $short_msg_append, $long_msg, $long_msg_append) = ('', '', '', ''); + my @exits = (); + foreach (sort keys %{$maps_counters->{cpu}}) { + my $obj = $maps_counters->{cpu}->{$_}->{obj}; + $obj->set(instance => $id); + + my ($value_check) = $obj->execute(values => $self->{cpu}->{$id}); + + if ($value_check != 0) { + $long_msg .= $long_msg_append . $obj->output_error(); + $long_msg_append = ', '; + next; + } + my $exit2 = $obj->threshold_check(); + push @exits, $exit2; + + my $output = $obj->output(); + $long_msg .= $long_msg_append . $output; + $long_msg_append = ', '; + + if (!$self->{output}->is_status(litteral => 1, value => $exit2, compare => 'ok')) { + $short_msg .= $short_msg_append . $output; + $short_msg_append = ', '; + } + + $obj->perfdata(extra_instance => $multiple); + } + + my $prefix = "CPU Usage "; + if ($multiple == 1) { + $prefix = sprintf("CPU '%s' Usage ", $self->{cpu}->{$id}->{display}); + } + $self->{output}->output_add(long_msg => "${prefix}$long_msg"); + my $exit = $self->{output}->get_most_critical(status => [ @exits ]); + if (!$self->{output}->is_status(litteral => 1, value => $exit, compare => 'ok')) { + $self->{output}->output_add(severity => $exit, + short_msg => "${prefix}$short_msg" + ); + } + + if ($multiple == 0) { + $self->{output}->output_add(short_msg => "${prefix}$long_msg"); + } + } +} + +sub run { + my ($self, %options) = @_; + + $self->manage_selection(%options); + $self->run_instances(); + + $self->{output}->display(); + $self->{output}->exit(); +} + +my $mapping = { + sseries => { + Util5Sec => { oid => '.1.3.6.1.4.1.6027.3.10.1.2.9.1.2' }, + Util1Min => { oid => '.1.3.6.1.4.1.6027.3.10.1.2.9.1.3' }, + Util5Min => { oid => '.1.3.6.1.4.1.6027.3.10.1.2.9.1.4' }, + }, + mseries => { + Util5Sec => { oid => '.1.3.6.1.4.1.6027.3.19.1.2.8.1.2' }, + Util1Min => { oid => '.1.3.6.1.4.1.6027.3.19.1.2.8.1.3' }, + Util5Min => { oid => '.1.3.6.1.4.1.6027.3.19.1.2.8.1.4' }, + }, + zseries => { + Util5Sec => { oid => '.1.3.6.1.4.1.6027.3.25.1.2.3.1.1' }, + Util1Min => { oid => '.1.3.6.1.4.1.6027.3.25.1.2.3.1.2' }, + Util5Min => { oid => '.1.3.6.1.4.1.6027.3.25.1.2.3.1.3' }, + }, +}; + +sub manage_selection { + my ($self, %options) = @_; + + my $oids = { sseries => '.1.3.6.1.4.1.6027.3.10.1.2.9.1', mseries => '.1.3.6.1.4.1.6027.3.19.1.2.8.1', zseries => '.1.3.6.1.4.1.6027.3.25.1.2.3.1' }; + my $results = $options{snmp}->get_multiple_table(oids => [ { oid => $oids->{sseries} }, { oid => $oids->{mseries} }, { oid => $oids->{zseries} } ], + nothing_quit => 1); + $self->{cpu} = {}; + foreach my $name (keys %{$oids}) { + foreach my $oid (keys %{$results->{$oids->{$name}}}) { + next if ($oid !~ /^$mapping->{$name}->{Util5Min}->{oid}\.(.*)/); + my $instance = $1; + my $result = $options{snmp}->map_instance(mapping => $mapping->{$name}, results => $results->{$oids->{$name}}, instance => $instance); + + $self->{cpu}->{$instance} = { display => $instance, + usage_5s => $result->{Util5Sec}, + usage_1m => $result->{Util1Min}, + usage_5m => $result->{Util5Min}, + }; + } + } + + if (scalar(keys %{$self->{cpu}}) <= 0) { + $self->{output}->add_option_msg(short_msg => "No entry found."); + $self->{output}->option_exit(); + } +} + +1; + +__END__ + +=head1 MODE + +Check cpu usages. + +=over 8 + +=item B<--warning-*> + +Threshold warning. +Can be: '5s', '1m', '5m'. + +=item B<--critical-*> + +Threshold critical. +Can be: '5s', '1m', '5m'. + +=back + +=cut diff --git a/centreon-plugins/centreon/common/force10/snmp/mode/hardware.pm b/centreon-plugins/centreon/common/force10/snmp/mode/hardware.pm new file mode 100644 index 000000000..65b78494c --- /dev/null +++ b/centreon-plugins/centreon/common/force10/snmp/mode/hardware.pm @@ -0,0 +1,338 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package centreon::common::force10::snmp::mode::hardware; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; +use centreon::plugins::misc; + +my $thresholds = { + fan => [ + ['up', 'OK'], + ['absent', 'OK'], + ['down', 'CRITICAL'], + ], + psu => [ + ['up', 'OK'], + ['absent', 'OK'], + ['down', 'CRITICAL'], + + ['normal', 'OK'], + ['warning', 'WARNING'], + ['critical', 'CRITICAL'], + ['shutdown', 'CRITICAL'], + ['notPresent', 'OK'], + ['notFunctioning', 'CRITICAL'], + ], +}; + +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 => + { + "filter:s@" => { name => 'filter' }, + "absent-problem:s@" => { name => 'absent_problem' }, + "component:s" => { name => 'component', default => '.*' }, + "no-component:s" => { name => 'no_component' }, + "threshold-overload:s@" => { name => 'threshold_overload' }, + "warning:s@" => { name => 'warning' }, + "critical:s@" => { name => 'critical' }, + }); + + $self->{components} = {}; + $self->{no_components} = undef; + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); + + if (defined($self->{option_results}->{no_component})) { + if ($self->{option_results}->{no_component} ne '') { + $self->{no_components} = $self->{option_results}->{no_component}; + } else { + $self->{no_components} = 'critical'; + } + } + + $self->{filter} = []; + foreach my $val (@{$self->{option_results}->{filter}}) { + next if (!defined($val) || $val eq ''); + my @values = split (/,/, $val); + push @{$self->{filter}}, { filter => $values[0], instance => $values[1] }; + } + + $self->{absent_problem} = []; + foreach my $val (@{$self->{option_results}->{absent_problem}}) { + next if (!defined($val) || $val eq ''); + my @values = split (/,/, $val); + push @{$self->{absent_problem}}, { filter => $values[0], instance => $values[1] }; + } + + $self->{overload_th} = {}; + foreach my $val (@{$self->{option_results}->{threshold_overload}}) { + next if (!defined($val) || $val eq ''); + my @values = split (/,/, $val); + if (scalar(@values) < 3) { + $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload option '" . $val . "'."); + $self->{output}->option_exit(); + } + my ($section, $instance, $status, $filter); + if (scalar(@values) == 3) { + ($section, $status, $filter) = @values; + $instance = '.*'; + } else { + ($section, $instance, $status, $filter) = @values; + } + if ($section !~ /^psu|fan$/) { + $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload section '" . $val . "'."); + $self->{output}->option_exit(); + } + if ($self->{output}->is_litteral_status(status => $status) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload status '" . $val . "'."); + $self->{output}->option_exit(); + } + $self->{overload_th}->{$section} = [] if (!defined($self->{overload_th}->{$section})); + push @{$self->{overload_th}->{$section}}, {filter => $filter, status => $status, instance => $instance }; + } + + $self->{numeric_threshold} = {}; + foreach my $option (('warning', 'critical')) { + foreach my $val (@{$self->{option_results}->{$option}}) { + next if (!defined($val) || $val eq ''); + if ($val !~ /^(.*?),(.*?),(.*)$/) { + $self->{output}->add_option_msg(short_msg => "Wrong $option option '" . $val . "'."); + $self->{output}->option_exit(); + } + my ($section, $instance, $value) = ($1, $2, $3); + if ($section !~ /^temperature$/) { + $self->{output}->add_option_msg(short_msg => "Wrong $option option '" . $val . "'."); + $self->{output}->option_exit(); + } + my $position = 0; + if (defined($self->{numeric_threshold}->{$section})) { + $position = scalar(@{$self->{numeric_threshold}->{$section}}); + } + if (($self->{perfdata}->threshold_validate(label => $option . '-' . $section . '-' . $position, value => $value)) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong $option threshold '" . $value . "'."); + $self->{output}->option_exit(); + } + $self->{numeric_threshold}->{$section} = [] if (!defined($self->{numeric_threshold}->{$section})); + push @{$self->{numeric_threshold}->{$section}}, { label => $option . '-' . $section . '-' . $position, threshold => $option, instance => $instance }; + } + } +} + +sub run { + my ($self, %options) = @_; + $self->{snmp} = $options{snmp}; + + my $snmp_request = []; + my @components = ('fan', 'psu', 'temperature'); + foreach (@components) { + if (/$self->{option_results}->{component}/) { + my $mod_name = "centreon::common::force10::snmp::mode::components::$_"; + centreon::plugins::misc::mymodule_load(output => $self->{output}, module => $mod_name, + error_msg => "Cannot load module '$mod_name'."); + my $func = $mod_name->can('load'); + $func->(request => $snmp_request); + } + } + + if (scalar(@{$snmp_request}) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong option. Cannot find component '" . $self->{option_results}->{component} . "'."); + $self->{output}->option_exit(); + } + $self->{results} = $self->{snmp}->get_multiple_table(oids => $snmp_request); + + foreach (@components) { + if (/$self->{option_results}->{component}/) { + my $mod_name = "centreon::common::force10::snmp::mode::components::$_"; + my $func = $mod_name->can('check'); + $func->($self); + } + } + + my $total_components = 0; + my $display_by_component = ''; + my $display_by_component_append = ''; + foreach my $comp (sort(keys %{$self->{components}})) { + # Skipping short msg when no components + next if ($self->{components}->{$comp}->{total} == 0 && $self->{components}->{$comp}->{skip} == 0); + $total_components += $self->{components}->{$comp}->{total} + $self->{components}->{$comp}->{skip}; + my $count_by_components = $self->{components}->{$comp}->{total} + $self->{components}->{$comp}->{skip}; + $display_by_component .= $display_by_component_append . $self->{components}->{$comp}->{total} . '/' . $count_by_components . ' ' . $self->{components}->{$comp}->{name}; + $display_by_component_append = ', '; + } + + $self->{output}->output_add(severity => 'OK', + short_msg => sprintf("All %s components are ok [%s].", + $total_components, + $display_by_component) + ); + + if (defined($self->{option_results}->{no_component}) && $total_components == 0) { + $self->{output}->output_add(severity => $self->{no_components}, + short_msg => 'No components are checked.'); + } + + $self->{output}->display(); + $self->{output}->exit(); +} + +sub absent_problem { + my ($self, %options) = @_; + + foreach (@{$self->{absent_problem}}) { + if ($options{section} =~ /$_->{filter}/) { + if (!defined($_->{instance}) || $options{instance} =~ /$_->{instance}/) { + $self->{output}->output_add(severity => 'CRITICAL', + short_msg => sprintf("Component '%s' instance '%s' is not present", + $options{section}, $options{instance})); + $self->{output}->output_add(long_msg => sprintf("Skipping $options{section} section $options{instance} instance (not present)")); + $self->{components}->{$options{section}}->{skip}++; + return 1; + } + } + } + + return 0; +} + +sub check_filter { + my ($self, %options) = @_; + + foreach (@{$self->{filter}}) { + if ($options{section} =~ /$_->{filter}/) { + if (!defined($options{instance}) && !defined($_->{instance})) { + $self->{output}->output_add(long_msg => sprintf("Skipping $options{section} section.")); + return 1; + } elsif (defined($options{instance}) && $options{instance} =~ /$_->{instance}/) { + $self->{output}->output_add(long_msg => sprintf("Skipping $options{section} section $options{instance} instance.")); + return 1; + } + } + } + + return 0; +} + +sub get_severity_numeric { + my ($self, %options) = @_; + my $status = 'OK'; # default + my $thresholds = { warning => undef, critical => undef }; + my $checked = 0; + + if (defined($self->{numeric_threshold}->{$options{section}})) { + my $exits = []; + foreach (@{$self->{numeric_threshold}->{$options{section}}}) { + if ($options{instance} =~ /$_->{instance}/) { + push @{$exits}, $self->{perfdata}->threshold_check(value => $options{value}, threshold => [ { label => $_->{label}, exit_litteral => $_->{threshold} } ]); + $thresholds->{$_->{threshold}} = $self->{perfdata}->get_perfdata_for_output(label => $_->{label}); + $checked = 1; + } + } + $status = $self->{output}->get_most_critical(status => $exits) if (scalar(@{$exits}) > 0); + } + + return ($status, $thresholds->{warning}, $thresholds->{critical}, $checked); +} + +sub get_severity { + my ($self, %options) = @_; + my $status = 'UNKNOWN'; # default + + if (defined($self->{overload_th}->{$options{section}})) { + foreach (@{$self->{overload_th}->{$options{section}}}) { + if ($options{value} =~ /$_->{filter}/i && + (!defined($options{instance}) || $options{instance} =~ /$_->{instance}/)) { + $status = $_->{status}; + return $status; + } + } + } + my $label = defined($options{label}) ? $options{label} : $options{section}; + foreach (@{$thresholds->{$label}}) { + if ($options{value} =~ /$$_[0]/i) { + $status = $$_[1]; + return $status; + } + } + + return $status; +} + +1; + +__END__ + +=head1 MODE + +Check Hardware (Fan, Power Supply, Temperature). + +=over 8 + +=item B<--component> + +Which component to check (Default: '.*'). +Can be: 'temperature', 'fan', 'psu'. + +=item B<--filter> + +Exclude some parts (comma seperated list) (Example: --filter=temperature --filter=psu) +Can also exclude specific instance: --filter=fan,1 + +=item B<--absent-problem> + +Return an error if an entity is not 'present' (default is skipping) (comma seperated list) +Can be specific or global: --absent-problem=fan,1 + +=item B<--no-component> + +Return an error if no compenents are checked. +If total (with skipped) is 0. (Default: 'critical' returns). + +=item B<--threshold-overload> + +Set to overload default threshold values (syntax: section,[instance,]status,regexp) +It used before default thresholds (order stays). +Example: --threshold-overload='psu,WARNING,^(?!(up)$)' + +=item B<--warning> + +Set warning threshold for temperatures (syntax: type,instance,threshold) +Example: --warning='temperature,.*,30' + +=item B<--critical> + +Set critical threshold for temperatures (syntax: type,instance,threshold) +Example: --critical='temperature,.*,40' +=back + +=cut \ No newline at end of file diff --git a/centreon-plugins/centreon/common/force10/snmp/mode/memory.pm b/centreon-plugins/centreon/common/force10/snmp/mode/memory.pm new file mode 100644 index 000000000..9843d1429 --- /dev/null +++ b/centreon-plugins/centreon/common/force10/snmp/mode/memory.pm @@ -0,0 +1,213 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package centreon::common::force10::snmp::mode::memory; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; +use centreon::plugins::values; + +my $instance_mode; + +my $maps_counters = { + mem => { + '000_usage' => { + set => { + key_values => [ { name => 'usage' }, { name => 'display' } ], + output_template => '%s %%', output_error_template => "%s", + perfdatas => [ + { label => 'used', value => 'usage_absolute', template => '%d', + unit => '%', min => 0, max => 100, label_extra_instance => 1, instance_use => 'display_absolute' }, + ], + }, + }, + } +}; + +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 => + { + }); + + foreach my $key (('mem')) { + foreach (keys %{$maps_counters->{$key}}) { + my ($id, $name) = split /_/; + if (!defined($maps_counters->{$key}->{$_}->{threshold}) || $maps_counters->{$key}->{$_}->{threshold} != 0) { + $options{options}->add_options(arguments => { + 'warning-' . $name . ':s' => { name => 'warning-' . $name }, + 'critical-' . $name . ':s' => { name => 'critical-' . $name }, + }); + } + $maps_counters->{$key}->{$_}->{obj} = centreon::plugins::values->new(output => $self->{output}, perfdata => $self->{perfdata}, + label => $name); + $maps_counters->{$key}->{$_}->{obj}->set(%{$maps_counters->{$key}->{$_}->{set}}); + } + } + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); + + foreach my $key (('mem')) { + foreach (keys %{$maps_counters->{$key}}) { + $maps_counters->{$key}->{$_}->{obj}->init(option_results => $self->{option_results}); + } + } + $instance_mode = $self; +} + +sub run_instances { + my ($self, %options) = @_; + + my $multiple = 1; + if (scalar(keys %{$self->{mem}}) == 1) { + $multiple = 0; + } + + if ($multiple == 1) { + $self->{output}->output_add(severity => 'OK', + short_msg => 'All memory usages are ok'); + } + + foreach my $id (sort keys %{$self->{mem}}) { + my ($short_msg, $short_msg_append, $long_msg, $long_msg_append) = ('', '', '', ''); + my @exits = (); + foreach (sort keys %{$maps_counters->{mem}}) { + my $obj = $maps_counters->{mem}->{$_}->{obj}; + $obj->set(instance => $id); + + my ($value_check) = $obj->execute(values => $self->{mem}->{$id}); + + if ($value_check != 0) { + $long_msg .= $long_msg_append . $obj->output_error(); + $long_msg_append = ', '; + next; + } + my $exit2 = $obj->threshold_check(); + push @exits, $exit2; + + my $output = $obj->output(); + $long_msg .= $long_msg_append . $output; + $long_msg_append = ', '; + + if (!$self->{output}->is_status(litteral => 1, value => $exit2, compare => 'ok')) { + $short_msg .= $short_msg_append . $output; + $short_msg_append = ', '; + } + + $obj->perfdata(extra_instance => $multiple); + } + + my $prefix = "Memory Usage "; + if ($multiple == 1) { + $prefix = sprintf("Memory '%s' Usage ", $self->{mem}->{$id}->{display}); + } + $self->{output}->output_add(long_msg => "${prefix}$long_msg"); + my $exit = $self->{output}->get_most_critical(status => [ @exits ]); + if (!$self->{output}->is_status(litteral => 1, value => $exit, compare => 'ok')) { + $self->{output}->output_add(severity => $exit, + short_msg => "${prefix}$short_msg" + ); + } + + if ($multiple == 0) { + $self->{output}->output_add(short_msg => "${prefix}$long_msg"); + } + } +} + +sub run { + my ($self, %options) = @_; + + $self->manage_selection(%options); + $self->run_instances(); + + $self->{output}->display(); + $self->{output}->exit(); +} + +my $mapping = { + sseries => { + MemUsageUtil => { oid => '.1.3.6.1.4.1.6027.3.10.1.2.9.1.5' }, + }, + mseries => { + MemUsageUtil => { oid => '.1.3.6.1.4.1.6027.3.19.1.2.8.1.5' }, + }, + zseries => { + MemUsageUtil => { oid => '.1.3.6.1.4.1.6027.3.25.1.2.3.1.4' }, + }, +}; + +sub manage_selection { + my ($self, %options) = @_; + + my $oids = { sseries => '.1.3.6.1.4.1.6027.3.10.1.2.9.1', mseries => '.1.3.6.1.4.1.6027.3.19.1.2.8.1', zseries => '.1.3.6.1.4.1.6027.3.25.1.2.3.1' }; + my $results = $options{snmp}->get_multiple_table(oids => [ { oid => $oids->{sseries} }, { oid => $oids->{mseries} }, { oid => $oids->{zseries} } ], + nothing_quit => 1); + $self->{mem} = {}; + foreach my $name (keys %{$oids}) { + foreach my $oid (keys %{$results->{$oids->{$name}}}) { + next if ($oid !~ /^$mapping->{$name}->{MemUsageUtil}->{oid}\.(.*)/); + my $instance = $1; + my $result = $options{snmp}->map_instance(mapping => $mapping->{$name}, results => $results->{$oids->{$name}}, instance => $instance); + + $self->{mem}->{$instance} = { display => $instance, + usage => $result->{MemUsageUtil}, + }; + } + } + + if (scalar(keys %{$self->{mem}}) <= 0) { + $self->{output}->add_option_msg(short_msg => "No entry found."); + $self->{output}->option_exit(); + } +} + +1; + +__END__ + +=head1 MODE + +Check memory usages. + +=over 8 + +=item B<--warning-usage> + +Threshold warning (in percent). + +=item B<--critical-usage> + +Threshold critical (in percent). + +=back + +=cut diff --git a/centreon-plugins/centreon/plugins/alternative/Getopt.pm b/centreon-plugins/centreon/plugins/alternative/Getopt.pm index 1061afbfa..62ede9f01 100644 --- a/centreon-plugins/centreon/plugins/alternative/Getopt.pm +++ b/centreon-plugins/centreon/plugins/alternative/Getopt.pm @@ -58,7 +58,7 @@ sub GetOptions { my $search_str = ',' . join(',', keys %opts) . ','; my $num_args = scalar(@ARGV); for (my $i = 0; $i < $num_args;) { - if ($ARGV[$i] =~ /^--(.*?)(?:=|$)(.*)/) { + if (defined($ARGV[$i]) && $ARGV[$i] =~ /^--(.*?)(?:=|$)(.*)/) { my ($option, $value) = ($1, $2); # find type of option @@ -89,7 +89,7 @@ sub GetOptions { splice @ARGV, $i, 1; $num_args--; } else { - warn "argument $ARGV[$i] alone" if ($warn_message == 1); + warn "argument $ARGV[$i] alone" if ($warn_message == 1 && $i != 0 && defined($ARGV[$i])); $i++; } } diff --git a/centreon-plugins/centreon/plugins/dbi.pm b/centreon-plugins/centreon/plugins/dbi.pm index 47eb472e1..1fd4ddc7a 100644 --- a/centreon-plugins/centreon/plugins/dbi.pm +++ b/centreon-plugins/centreon/plugins/dbi.pm @@ -25,6 +25,8 @@ use warnings; use DBI; use Digest::MD5 qw(md5_hex); +my %handlers = ( ALRM => {} ); + sub new { my ($class, %options) = @_; my $self = {}; @@ -50,6 +52,7 @@ sub new { "password:s@" => { name => 'password' }, "connect-options:s@" => { name => 'connect_options' }, "sql-errors-exit:s" => { name => 'sql_errors_exit', default => 'unknown' }, + "timeout:i" => { name => 'timeout' }, }); } $options{options}->add_help(package => __PACKAGE__, sections => 'DBI OPTIONS', once => 1); @@ -69,9 +72,33 @@ sub new { # Sometimes, we need to set ENV $self->{env} = undef; + $self->set_signal_handlers(); + return $self; } +sub set_signal_handlers { + my $self = shift; + + $SIG{ALRM} = \&class_handle_ALRM; + $handlers{ALRM}->{$self} = sub { $self->handle_ALRM() }; +} + +sub class_handle_ALRM { + foreach (keys %{$handlers{ALRM}}) { + &{$handlers{ALRM}->{$_}}(); + } +} + +sub handle_ALRM { + my $self = shift; + + $self->{output}->output_add(severity => $self->{sql_errors_exit}, + short_msg => "Timeout"); + $self->{output}->display(); + $self->{output}->exit(); +} + # Method to manage multiples sub set_options { my ($self, %options) = @_; @@ -111,6 +138,12 @@ sub check_options { $self->{env} = (defined($self->{option_results}->{env})) ? shift(@{$self->{option_results}->{env}}) : undef; $self->{sql_errors_exit} = $self->{option_results}->{sql_errors_exit}; + $self->{timeout} = 10; + if (defined($self->{option_results}->{timeout}) && $self->{option_results}->{timeout} =~ /^\d+$/ && + $self->{option_results}->{timeout} > 0) { + $self->{timeout} = $self->{option_results}->{timeout}; + } + if (!defined($self->{data_source}) || $self->{data_source} eq '') { $self->{output}->add_option_msg(short_msg => "Need to specify data_source arguments."); $self->{output}->option_exit(exit_litteral => $self->{sql_errors_exit}); @@ -169,12 +202,14 @@ sub connect { } } + alarm($self->{timeout}) if (defined($self->{timeout})); $self->{instance} = DBI->connect( "DBI:". $self->{data_source}, $self->{username}, $self->{password}, { "RaiseError" => 0, "PrintError" => 0, "AutoCommit" => 1, %{$self->{connect_options_hash}} } ); + alarm(0) if (defined($self->{timeout})); if (!defined($self->{instance})) { my $err_msg = sprintf("Cannot connect: %s", defined($DBI::errstr) ? $DBI::errstr : "(no error string)"); @@ -272,6 +307,10 @@ Format: name=value,name2=value2,... Exit code for DB Errors (default: unknown) +=item B<--timeout> + +Timeout in seconds for connection + =back =head1 DESCRIPTION diff --git a/centreon-plugins/centreon/plugins/options.pm b/centreon-plugins/centreon/plugins/options.pm index 925095429..3a0cec151 100644 --- a/centreon-plugins/centreon/plugins/options.pm +++ b/centreon-plugins/centreon/plugins/options.pm @@ -25,7 +25,7 @@ use Pod::Find qw(pod_where); use strict; use warnings; -my $alternative = 0; +my $alternative = 1; sub new { my $class = shift; diff --git a/centreon-plugins/centreon/plugins/script.pm b/centreon-plugins/centreon/plugins/script.pm index 7cf310f13..8ff1070a8 100644 --- a/centreon-plugins/centreon/plugins/script.pm +++ b/centreon-plugins/centreon/plugins/script.pm @@ -31,7 +31,7 @@ use Pod::Find qw(pod_where); my %handlers = (DIE => {}); -my $global_version = 20151110; +my $global_version = 20151126; sub new { my $class = shift; diff --git a/centreon-plugins/centreon/plugins/snmp.pm b/centreon-plugins/centreon/plugins/snmp.pm index b8562bbfb..4bcf9f7b1 100644 --- a/centreon-plugins/centreon/plugins/snmp.pm +++ b/centreon-plugins/centreon/plugins/snmp.pm @@ -52,6 +52,7 @@ sub new { "snmp-retries:s" => { name => 'snmp_retries', default => 5 }, "maxrepetitions:s" => { name => 'maxrepetitions', default => 50 }, "subsetleef:s" => { name => 'subsetleef', default => 50 }, + "snmp-force-getnext" => { name => 'snmp_force_getnext' }, "snmp-username:s" => { name => 'snmp_security_name' }, "authpassphrase:s" => { name => 'snmp_auth_passphrase' }, "authprotocol:s" => { name => 'snmp_auth_protocol' }, @@ -354,7 +355,7 @@ sub get_multiple_table { my $vb = new SNMP::VarList(@bindings); - if ($self->is_snmpv1()) { + if ($self->is_snmpv1() || defined($self->{snmp_force_getnext})) { $self->{session}->getnext($vb); } else { my $current_repeat_count = floor($repeat_count / (scalar(keys %{$working_oids}))); @@ -420,6 +421,12 @@ sub get_multiple_table { $working_oids->{ $bases[$pos % $current_oids] }->{start} = $complete_oid; } + + # infinite loop. Some equipments it returns nothing!!?? + if ($pos == -1) { + $self->{output}->add_option_msg(short_msg => "SNMP Table Request: problem to get values (try --snmp-force-getnext option)"); + $self->{output}->option_exit(exit_litteral => $self->{snmp_errors_exit}); + } } my $total = 0; @@ -495,7 +502,7 @@ sub get_table { $last_oid =~ /(.*)\.(\d+)([\.\s]*)$/; my $vb = new SNMP::VarList([$1, $2]); - if ($self->is_snmpv1()) { + if ($self->is_snmpv1() || defined($self->{snmp_force_getnext})) { $self->{session}->getnext($vb); } else { $self->{session}->getbulk(0, $repeat_count, $vb); @@ -636,6 +643,7 @@ sub check_options { $self->{output}->option_exit(); } + $self->{snmp_force_getnext} = $options{option_results}->{snmp_force_getnext}; $self->{maxrepetitions} = $options{option_results}->{maxrepetitions}; $self->{subsetleef} = (defined($options{option_results}->{subsetleef}) && $options{option_results}->{subsetleef} =~ /^[0-9]+$/) ? $options{option_results}->{subsetleef} : 50; $self->{snmp_errors_exit} = $options{option_results}->{snmp_errors_exit}; @@ -842,6 +850,10 @@ Max repetitions value (default: 50) (only for SNMP v2 and v3). How many oid values per SNMP request (default: 50) (for get_leef method. Be cautious whe you set it. Prefer to let the default value). +=item B<--snmp-force-getnext> + +Use snmp getnext function (even in snmp v2c and v3). + =item B<--snmp-username> Security name (only for SNMP v3). diff --git a/centreon-plugins/centreon/plugins/wsman.pm b/centreon-plugins/centreon/plugins/wsman.pm index be34c8147..791874c00 100644 --- a/centreon-plugins/centreon/plugins/wsman.pm +++ b/centreon-plugins/centreon/plugins/wsman.pm @@ -312,8 +312,8 @@ sub request { ###### # Check options - if (!defined($options{uri}) || !defined($options{wql_filter})) { - $self->{output}->add_option_msg(short_msg => 'Need to specify wql_filter and uri options'); + if (!defined($options{uri})) { + $self->{output}->add_option_msg(short_msg => 'Need to specify uri option'); $self->{output}->option_exit(exit_litteral => $self->{wsman_errors_exit}); } @@ -328,10 +328,13 @@ sub request { ###### # Filter/Enumerate - my $filter = new openwsman::Filter::() + my $filter; + if (defined($options{wql_filter})) { + $filter = new openwsman::Filter::() or $self->internal_exit(msg => 'Could not create filter'); - $filter->wql($options{wql_filter}); - + $filter->wql($options{wql_filter}); + } + my $result = $self->{client}->enumerate($client_options, $filter, $options{uri}); return undef if ($self->handle_dialog_fault(result => $result, msg => 'Could not enumerate instances: ', dont_quit => $dont_quit)); diff --git a/centreon-plugins/changelog b/centreon-plugins/changelog new file mode 100644 index 000000000..9c609d475 --- /dev/null +++ b/centreon-plugins/changelog @@ -0,0 +1,2 @@ +2015-11-26 Quentin Garnier + * initial release \ No newline at end of file diff --git a/centreon-plugins/cloud/aws/mode/cloudwatch.pm b/centreon-plugins/cloud/aws/mode/cloudwatch.pm index 42b308596..e0cd03634 100644 --- a/centreon-plugins/cloud/aws/mode/cloudwatch.pm +++ b/centreon-plugins/cloud/aws/mode/cloudwatch.pm @@ -27,7 +27,6 @@ use warnings; use centreon::plugins::misc; use POSIX; use JSON; -use Module::Load; my $CloudwatchMetrics = { cpu => "cloud::aws::mode::metrics::ec2instancecpu", @@ -199,14 +198,13 @@ sub run my ($msg, $exit_code, $awsapi); - if (defined($CloudwatchMetrics->{$self->{option_results}->{metric}})) - { - load $CloudwatchMetrics->{$self->{option_results}->{metric}}, qw/cloudwatchCheck/; - cloudwatchCheck($self); - } - else - { - $self->{output}->add_option_msg(short_msg => "Wrong option. Cannot find metric '" . $self->{option_results}->{metric} . "'."); + if ( defined( $CloudwatchMetrics->{ $self->{option_results}->{metric} } ) ) { + centreon::plugins::misc::mymodule_load(output => $options{output}, module => $CloudwatchMetrics->{$self->{option_results}->{metric}}, + error_msg => "Cannot load module '" . $CloudwatchMetrics->{$self->{option_results}->{metric}} . "'."); + my $func = $CloudwatchMetrics->{$self->{option_results}->{metric}}->can('cloudwatchCheck'); + $func->($self); + } else { + $self->{output}->add_option_msg( short_msg => "Wrong option. Cannot find metric '" . $self->{option_results}->{metric} . "'." ); $self->{output}->option_exit(); } diff --git a/centreon-plugins/database/oracle/mode/tablespaceusage.pm b/centreon-plugins/database/oracle/mode/tablespaceusage.pm index 98a47f5b4..e0df54b48 100644 --- a/centreon-plugins/database/oracle/mode/tablespaceusage.pm +++ b/centreon-plugins/database/oracle/mode/tablespaceusage.pm @@ -113,6 +113,9 @@ sub run { a.tablespace_name = c.tablespace_name (+) AND a.tablespace_name = b.tablespace_name AND a.tablespace_name = d.tablespace_name (+) + AND (b.contents = 'PERMANENT' + OR (b.contents <> 'PERMANENT' + AND a.tablespace_name=(select value from v$parameter where name='undo_tablespace'))) UNION ALL SELECT d.tablespace_name "Tablespace", @@ -180,6 +183,9 @@ sub run { WHERE a.tablespace_name = c.tablespace_name (+) AND a.tablespace_name = b.tablespace_name + AND (b.contents = 'PERMANENT' + OR (b.contents <> 'PERMANENT' + AND a.tablespace_name=(select value from v$parameter where name='undo_tablespace'))) UNION ALL SELECT a.tablespace_name "Tablespace", diff --git a/centreon-plugins/hardware/server/cisco/ucs/mode/components/blade.pm b/centreon-plugins/hardware/server/cisco/ucs/mode/components/blade.pm index cb3d3173f..b5cba0ee6 100644 --- a/centreon-plugins/hardware/server/cisco/ucs/mode/components/blade.pm +++ b/centreon-plugins/hardware/server/cisco/ucs/mode/components/blade.pm @@ -22,59 +22,62 @@ package hardware::server::cisco::ucs::mode::components::blade; use strict; use warnings; -use hardware::server::cisco::ucs::mode::components::resources qw($thresholds); +use hardware::server::cisco::ucs::mode::components::resources qw(%mapping_presence %mapping_overall_status); + +# In MIB 'CISCO-UNIFIED-COMPUTING-EQUIPMENT-MIB' +my $mapping1 = { + cucsComputeBladePresence => { oid => '.1.3.6.1.4.1.9.9.719.1.9.2.1.45', map => \%mapping_presence }, +}; +my $mapping2 = { + cucsComputeBladeOperState => { oid => '.1.3.6.1.4.1.9.9.719.1.9.2.1.42', map => \%mapping_overall_status }, +}; +my $oid_cucsComputeBladeDn = '.1.3.6.1.4.1.9.9.719.1.9.2.1.2'; + +sub load { + my (%options) = @_; + + push @{$options{request}}, { oid => $mapping1->{cucsComputeBladePresence}->{oid} }, + { oid => $mapping2->{cucsComputeBladeOperState}->{oid} }, { oid => $oid_cucsComputeBladeDn }; +} sub check { my ($self) = @_; - # In MIB 'CISCO-UNIFIED-COMPUTING-EQUIPMENT-MIB' $self->{output}->output_add(long_msg => "Checking blades"); $self->{components}->{blade} = {name => 'blades', total => 0, skip => 0}; return if ($self->check_exclude(section => 'blade')); - - my $oid_cucsComputeBladePresence = '.1.3.6.1.4.1.9.9.719.1.9.2.1.45'; - my $oid_cucsComputeBladeOperState = '.1.3.6.1.4.1.9.9.719.1.9.2.1.42'; - my $oid_cucsComputeBladeDn = '.1.3.6.1.4.1.9.9.719.1.9.2.1.2'; - my $result = $self->{snmp}->get_multiple_table(oids => [ - { oid => $oid_cucsComputeBladePresence }, - { oid => $oid_cucsComputeBladeOperState }, - { oid => $oid_cucsComputeBladeDn }, - ] - ); - foreach my $key ($self->{snmp}->oid_lex_sort(keys %{$result->{$oid_cucsComputeBladePresence}})) { - # index - $key =~ /\.(\d+)$/; - my $blade_index = $1; - my $blade_dn = $result->{$oid_cucsComputeBladeDn}->{$oid_cucsComputeBladeDn . '.' . $blade_index}; - my $blade_operstate = defined($result->{$oid_cucsComputeBladeOperState}->{$oid_cucsComputeBladeOperState . '.' . $blade_index}) ? - $result->{$oid_cucsComputeBladeOperState}->{$oid_cucsComputeBladeOperState . '.' . $blade_index} : 0; # unknown - my $blade_presence = defined($result->{$oid_cucsComputeBladePresence}->{$oid_cucsComputeBladePresence . '.' . $blade_index}) ? - $result->{$oid_cucsComputeBladePresence}->{$oid_cucsComputeBladePresence . '.' . $blade_index} : 0; - + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_cucsComputeBladeDn}})) { + $oid =~ /\.(\d+)$/; + my $instance = $1; + my $blade_dn = $self->{results}->{$oid_cucsComputeBladeDn}->{$oid}; + my $result = $self->{snmp}->map_instance(mapping => $mapping1, results => $self->{results}->{$mapping1->{cucsComputeBladePresence}->{oid}}, instance => $instance); + my $result2 = $self->{snmp}->map_instance(mapping => $mapping2, results => $self->{results}->{$mapping2->{cucsComputeBladeOperState}->{oid}}, instance => $instance); + next if ($self->absent_problem(section => 'blade', instance => $blade_dn)); next if ($self->check_exclude(section => 'blade', instance => $blade_dn)); - my $exit = $self->get_severity(section => 'blade', threshold => 'presence', value => $blade_presence); + $self->{output}->output_add(long_msg => sprintf("blade '%s' state is '%s' [presence: %s].", + $blade_dn, $result2->{cucsComputeBladeOperState}, + $result->{cucsComputeBladePresence}) + ); + + my $exit = $self->get_severity(section => 'blade.presence', label => 'default.presence', value => $result->{cucsComputeBladePresence}); if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { $self->{output}->output_add(severity => $exit, short_msg => sprintf("blade '%s' presence is: '%s'", - $blade_dn, ${$thresholds->{presence}{$blade_presence}}[0]) + $blade_dn, $result->{cucsComputeBladePresence}) ); next; } $self->{components}->{blade}->{total}++; - - $self->{output}->output_add(long_msg => sprintf("blade '%s' state is '%s' [presence: %s].", - $blade_dn, ${$thresholds->{overall_status}->{$blade_operstate}}[0], - ${$thresholds->{presence}->{$blade_presence}}[0] - )); - $exit = $self->get_severity(section => 'blade', threshold => 'overall_status', value => $blade_operstate); + + $exit = $self->get_severity(section => 'blade.overall_status', label => 'default.overall_status', value => $result2->{cucsComputeBladeOperState}); if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { $self->{output}->output_add(severity => $exit, - short_msg => sprintf("blade '%s' state is '%s'.", - $blade_dn, ${$thresholds->{overall_status}->{$blade_operstate}}[0] + short_msg => sprintf("blade '%s' state is '%s'", + $blade_dn, $result2->{cucsComputeBladeOperState} ) ); } diff --git a/centreon-plugins/hardware/server/cisco/ucs/mode/components/chassis.pm b/centreon-plugins/hardware/server/cisco/ucs/mode/components/chassis.pm index 9fe8cb9c3..c395b04d6 100644 --- a/centreon-plugins/hardware/server/cisco/ucs/mode/components/chassis.pm +++ b/centreon-plugins/hardware/server/cisco/ucs/mode/components/chassis.pm @@ -22,32 +22,34 @@ package hardware::server::cisco::ucs::mode::components::chassis; use strict; use warnings; -use hardware::server::cisco::ucs::mode::components::resources qw($thresholds); +use hardware::server::cisco::ucs::mode::components::resources qw(%mapping_operability); + +# In MIB 'CISCO-UNIFIED-COMPUTING-EQUIPMENT-MIB' +# Don't do the 'presence'. Is 'unknown' ??!!! +my $mapping1 = { + cucsEquipmentChassisOperState => { oid => '.1.3.6.1.4.1.9.9.719.1.15.7.1.27', map => \%mapping_operability }, +}; +my $oid_cucsEquipmentChassisDn = '.1.3.6.1.4.1.9.9.719.1.15.7.1.2'; + +sub load { + my (%options) = @_; + + push @{$options{request}}, { oid => $mapping1->{cucsEquipmentChassisOperState}->{oid} }, + { oid => $oid_cucsEquipmentChassisDn }; +} sub check { my ($self) = @_; - # In MIB 'CISCO-UNIFIED-COMPUTING-EQUIPMENT-MIB' $self->{output}->output_add(long_msg => "Checking chassis"); $self->{components}->{chassis} = {name => 'chassis', total => 0, skip => 0}; return if ($self->check_exclude(section => 'chassis')); - - # Don't do the 'presence'. Is 'unknown' ??!!! - my $oid_cucsEquipmentChassisOperState = '.1.3.6.1.4.1.9.9.719.1.15.7.1.27'; - my $oid_cucsEquipmentChassisDn = '.1.3.6.1.4.1.9.9.719.1.15.7.1.2'; - my $result = $self->{snmp}->get_multiple_table(oids => [ - { oid => $oid_cucsEquipmentChassisOperState }, - { oid => $oid_cucsEquipmentChassisDn }, - ] - ); - foreach my $key ($self->{snmp}->oid_lex_sort(keys %{$result->{$oid_cucsEquipmentChassisOperState}})) { - # index - $key =~ /\.(\d+)$/; - my $chassis_index = $1; - my $chassis_dn = $result->{$oid_cucsEquipmentChassisDn}->{$oid_cucsEquipmentChassisDn . '.' . $chassis_index}; - my $chassis_operstate = defined($result->{$oid_cucsEquipmentChassisOperState}->{$oid_cucsEquipmentChassisOperState . '.' . $chassis_index}) ? - $result->{$oid_cucsEquipmentChassisOperState}->{$oid_cucsEquipmentChassisOperState . '.' . $chassis_index} : 0; # unknown + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_cucsEquipmentChassisDn}})) { + $oid =~ /\.(\d+)$/; + my $instance = $1; + my $chassis_dn = $self->{results}->{$oid_cucsEquipmentChassisDn}->{$oid}; + my $result = $self->{snmp}->map_instance(mapping => $mapping1, results => $self->{results}->{$mapping1->{cucsEquipmentChassisOperState}->{oid}}, instance => $instance); next if ($self->absent_problem(section => 'chassis', instance => $chassis_dn)); next if ($self->check_exclude(section => 'chassis', instance => $chassis_dn)); @@ -55,13 +57,13 @@ sub check { $self->{components}->{chassis}->{total}++; $self->{output}->output_add(long_msg => sprintf("chassis '%s' state is '%s'.", - $chassis_dn, ${$thresholds->{operability}->{$chassis_operstate}}[0] - )); - my $exit = $self->get_severity(section => 'chassis', threshold => 'operability', value => $chassis_operstate); + $chassis_dn, $result->{cucsEquipmentChassisOperState}) + ); + my $exit = $self->get_severity(section => 'chassis.operability', label => 'default.operability', value => $result->{cucsEquipmentChassisOperState}); if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { $self->{output}->output_add(severity => $exit, - short_msg => sprintf("chassis '%s' state is '%s'.", - $chassis_dn, ${$thresholds->{operability}->{$chassis_operstate}}[0] + short_msg => sprintf("chassis '%s' state is '%s'", + $chassis_dn, $result->{cucsEquipmentChassisOperState} ) ); } diff --git a/centreon-plugins/hardware/server/cisco/ucs/mode/components/cpu.pm b/centreon-plugins/hardware/server/cisco/ucs/mode/components/cpu.pm new file mode 100644 index 000000000..04194ef13 --- /dev/null +++ b/centreon-plugins/hardware/server/cisco/ucs/mode/components/cpu.pm @@ -0,0 +1,87 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package hardware::server::cisco::ucs::mode::components::cpu; + +use strict; +use warnings; +use hardware::server::cisco::ucs::mode::components::resources qw(%mapping_presence %mapping_operability); + +# In MIB 'CISCO-UNIFIED-COMPUTING-PROCESSOR-MIB' +my $mapping1 = { + cucsProcessorUnitPresence => { oid => '.1.3.6.1.4.1.9.9.719.1.41.9.1.13', map => \%mapping_presence }, +}; +my $mapping2 = { + cucsProcessorUnitOperState => { oid => '.1.3.6.1.4.1.9.9.719.1.41.9.1.9', map => \%mapping_operability }, +}; +my $oid_cucsProcessorUnitDn = '.1.3.6.1.4.1.9.9.719.1.41.9.1.2'; + +sub load { + my (%options) = @_; + + push @{$options{request}}, { oid => $mapping1->{cucsProcessorUnitPresence}->{oid} }, + { oid => $mapping2->{cucsProcessorUnitOperState}->{oid} }, { oid => $oid_cucsProcessorUnitDn }; +} + +sub check { + my ($self) = @_; + + $self->{output}->output_add(long_msg => "Checking cpus"); + $self->{components}->{cpu} = {name => 'cpus', total => 0, skip => 0}; + return if ($self->check_exclude(section => 'cpu')); + + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_cucsProcessorUnitDn}})) { + $oid =~ /\.(\d+)$/; + my $instance = $1; + my $cpu_dn = $self->{results}->{$oid_cucsProcessorUnitDn}->{$oid}; + my $result = $self->{snmp}->map_instance(mapping => $mapping1, results => $self->{results}->{$mapping1->{cucsProcessorUnitPresence}->{oid}}, instance => $instance); + my $result2 = $self->{snmp}->map_instance(mapping => $mapping2, results => $self->{results}->{$mapping2->{cucsProcessorUnitOperState}->{oid}}, instance => $instance); + + next if ($self->absent_problem(section => 'cpu', instance => $cpu_dn)); + next if ($self->check_exclude(section => 'cpu', instance => $cpu_dn)); + + $self->{output}->output_add(long_msg => sprintf("cpu '%s' state is '%s' [presence: %s].", + $cpu_dn, $result2->{cucsProcessorUnitOperState}, + $result->{cucsProcessorUnitPresence}) + ); + + my $exit = $self->get_severity(section => 'cpu.presence', label => 'default.presence', value => $result->{cucsProcessorUnitPresence}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("cpu '%s' presence is: '%s'", + $cpu_dn, $result->{cucsProcessorUnitPresence}) + ); + next; + } + + $self->{components}->{cpu}->{total}++; + + $exit = $self->get_severity(section => 'cpu.operability', label => 'default.operability', value => $result2->{cucsProcessorUnitOperState}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("cpu '%s' state is '%s'", + $cpu_dn, $result2->{cucsProcessorUnitOperState} + ) + ); + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/hardware/server/cisco/ucs/mode/components/fan.pm b/centreon-plugins/hardware/server/cisco/ucs/mode/components/fan.pm index 9c7ddd465..5fd1ce740 100644 --- a/centreon-plugins/hardware/server/cisco/ucs/mode/components/fan.pm +++ b/centreon-plugins/hardware/server/cisco/ucs/mode/components/fan.pm @@ -22,58 +22,62 @@ package hardware::server::cisco::ucs::mode::components::fan; use strict; use warnings; -use hardware::server::cisco::ucs::mode::components::resources qw($thresholds); +use hardware::server::cisco::ucs::mode::components::resources qw(%mapping_presence %mapping_operability); + +# In MIB 'CISCO-UNIFIED-COMPUTING-EQUIPMENT-MIB' +my $mapping1 = { + cucsEquipmentFanPresence => { oid => '.1.3.6.1.4.1.9.9.719.1.15.12.1.13', map => \%mapping_presence }, +}; +my $mapping2 = { + cucsEquipmentFanOperState => { oid => '.1.3.6.1.4.1.9.9.719.1.15.12.1.9', map => \%mapping_operability }, +}; +my $oid_cucsEquipmentFanDn = '.1.3.6.1.4.1.9.9.719.1.15.12.1.2'; + +sub load { + my (%options) = @_; + + push @{$options{request}}, { oid => $mapping1->{cucsEquipmentFanPresence}->{oid} }, + { oid => $mapping2->{cucsEquipmentFanOperState}->{oid} }, { oid => $oid_cucsEquipmentFanDn }; +} sub check { my ($self) = @_; - # In MIB 'CISCO-UNIFIED-COMPUTING-EQUIPMENT-MIB' $self->{output}->output_add(long_msg => "Checking fans"); $self->{components}->{fan} = {name => 'fans', total => 0, skip => 0}; return if ($self->check_exclude(section => 'fan')); - - my $oid_cucsEquipmentFanPresence = '.1.3.6.1.4.1.9.9.719.1.15.12.1.13'; - my $oid_cucsEquipmentFanOperState = '.1.3.6.1.4.1.9.9.719.1.15.12.1.9'; - my $oid_cucsEquipmentFanDn = '.1.3.6.1.4.1.9.9.719.1.15.12.1.2'; - my $result = $self->{snmp}->get_multiple_table(oids => [ - { oid => $oid_cucsEquipmentFanPresence }, - { oid => $oid_cucsEquipmentFanOperState }, - { oid => $oid_cucsEquipmentFanDn }, - ] - ); - foreach my $key ($self->{snmp}->oid_lex_sort(keys %{$result->{$oid_cucsEquipmentFanPresence}})) { - # index - $key =~ /\.(\d+)$/; - my $fan_index = $1; - my $fan_dn = $result->{$oid_cucsEquipmentFanDn}->{$oid_cucsEquipmentFanDn . '.' . $fan_index}; - my $fan_operstate = defined($result->{$oid_cucsEquipmentFanOperState}->{$oid_cucsEquipmentFanOperState . '.' . $fan_index}) ? - $result->{$oid_cucsEquipmentFanOperState}->{$oid_cucsEquipmentFanOperState . '.' . $fan_index} : 0; # unknown - my $fan_presence = defined($result->{$oid_cucsEquipmentFanPresence}->{$oid_cucsEquipmentFanPresence . '.' . $fan_index}) ? - $result->{$oid_cucsEquipmentFanPresence}->{$oid_cucsEquipmentFanPresence . '.' . $fan_index} : 0; + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_cucsEquipmentFanDn}})) { + $oid =~ /\.(\d+)$/; + my $instance = $1; + my $fan_dn = $self->{results}->{$oid_cucsEquipmentFanDn}->{$oid}; + my $result = $self->{snmp}->map_instance(mapping => $mapping1, results => $self->{results}->{$mapping1->{cucsEquipmentFanPresence}->{oid}}, instance => $instance); + my $result2 = $self->{snmp}->map_instance(mapping => $mapping2, results => $self->{results}->{$mapping2->{cucsEquipmentFanOperState}->{oid}}, instance => $instance); next if ($self->absent_problem(section => 'fan', instance => $fan_dn)); next if ($self->check_exclude(section => 'fan', instance => $fan_dn)); - my $exit = $self->get_severity(section => 'fan', threshold => 'presence', value => $fan_presence); + $self->{output}->output_add(long_msg => sprintf("fan '%s' state is '%s' [presence: %s].", + $fan_dn, $result2->{cucsEquipmentFanOperState}, + $result->{cucsEquipmentFanPresence}) + ); + + my $exit = $self->get_severity(section => 'fan.presence', label => 'default.presence', value => $result->{cucsEquipmentFanPresence}); if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { $self->{output}->output_add(severity => $exit, short_msg => sprintf("fan '%s' presence is: '%s'", - $fan_dn, ${$thresholds->{presence}->{$fan_presence}}[0]) + $fan_dn, $result->{cucsEquipmentFanPresence}) ); next; } - $self->{components}->{fan}->{total}++; - $self->{output}->output_add(long_msg => sprintf("fan '%s' state is '%s' [presence: %s].", - $fan_dn, ${$thresholds->{operability}->{$fan_operstate}}[0], - ${$thresholds->{presence}->{$fan_presence}}[0] - )); - $exit = $self->get_severity(section => 'fan', threshold => 'operability', value => $fan_operstate); + $self->{components}->{fan}->{total}++; + + $exit = $self->get_severity(section => 'fan.operability', label => 'default.operability', value => $result2->{cucsEquipmentFanOperState}); if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { $self->{output}->output_add(severity => $exit, - short_msg => sprintf("fan '%s' state is '%s'.", - $fan_dn, ${$thresholds->{operability}->{$fan_operstate}}[0] + short_msg => sprintf("fan '%s' state is '%s'", + $fan_dn, $result2->{cucsEquipmentFanOperState} ) ); } diff --git a/centreon-plugins/hardware/server/cisco/ucs/mode/components/fex.pm b/centreon-plugins/hardware/server/cisco/ucs/mode/components/fex.pm index 3bc0fb6b5..953912bea 100644 --- a/centreon-plugins/hardware/server/cisco/ucs/mode/components/fex.pm +++ b/centreon-plugins/hardware/server/cisco/ucs/mode/components/fex.pm @@ -22,59 +22,62 @@ package hardware::server::cisco::ucs::mode::components::fex; use strict; use warnings; -use hardware::server::cisco::ucs::mode::components::resources qw($thresholds); +use hardware::server::cisco::ucs::mode::components::resources qw(%mapping_presence %mapping_operability); + +# In MIB 'CISCO-UNIFIED-COMPUTING-EQUIPMENT-MIB' +my $mapping1 = { + cucsEquipmentFexPresence => { oid => '.1.3.6.1.4.1.9.9.719.1.15.19.1.24', map => \%mapping_presence }, +}; +my $mapping2 = { + cucsEquipmentFexOperState => { oid => '.1.3.6.1.4.1.9.9.719.1.15.19.1.21', map => \%mapping_operability }, +}; +my $oid_cucsEquipmentFexDn = '.1.3.6.1.4.1.9.9.719.1.15.19.1.2'; + +sub load { + my (%options) = @_; + + push @{$options{request}}, { oid => $mapping1->{cucsEquipmentFexPresence}->{oid} }, + { oid => $mapping2->{cucsEquipmentFexOperState}->{oid} }, { oid => $oid_cucsEquipmentFexDn }; +} sub check { my ($self) = @_; - # In MIB 'CISCO-UNIFIED-COMPUTING-EQUIPMENT-MIB' $self->{output}->output_add(long_msg => "Checking fabric extenders"); $self->{components}->{fex} = {name => 'fabric extenders', total => 0, skip => 0}; return if ($self->check_exclude(section => 'fex')); - - my $oid_cucsEquipmentFexDn = '.1.3.6.1.4.1.9.9.719.1.15.19.1.2'; - my $oid_cucsEquipmentFexOperState = '.1.3.6.1.4.1.9.9.719.1.15.19.1.21'; - my $oid_cucsEquipmentFexPresence = '.1.3.6.1.4.1.9.9.719.1.15.19.1.24'; - my $result = $self->{snmp}->get_multiple_table(oids => [ - { oid => $oid_cucsEquipmentFexDn }, - { oid => $oid_cucsEquipmentFexOperState }, - { oid => $oid_cucsEquipmentFexPresence }, - ] - ); - foreach my $key ($self->{snmp}->oid_lex_sort(keys %{$result->{$oid_cucsEquipmentFexDn}})) { - # index - $key =~ /\.(\d+)$/; - my $fex_index = $1; - my $fex_dn = $result->{$oid_cucsEquipmentFexDn}->{$oid_cucsEquipmentFexDn . '.' . $fex_index}; - my $fex_operstate = defined($result->{$oid_cucsEquipmentFexOperState}->{$oid_cucsEquipmentFexOperState . '.' . $fex_index}) ? - $result->{$oid_cucsEquipmentFexOperState}->{$oid_cucsEquipmentFexOperState . '.' . $fex_index} : 0; # unknown - my $fex_presence = defined($result->{$oid_cucsEquipmentFexPresence}->{$oid_cucsEquipmentFexPresence . '.' . $fex_index}) ? - $result->{$oid_cucsEquipmentFexPresence}->{$oid_cucsEquipmentFexPresence . '.' . $fex_index} : 0; + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_cucsEquipmentFexDn}})) { + $oid =~ /\.(\d+)$/; + my $instance = $1; + my $fex_dn = $self->{results}->{$oid_cucsEquipmentFexDn}->{$oid}; + my $result = $self->{snmp}->map_instance(mapping => $mapping1, results => $self->{results}->{$mapping1->{cucsEquipmentFexPresence}->{oid}}, instance => $instance); + my $result2 = $self->{snmp}->map_instance(mapping => $mapping2, results => $self->{results}->{$mapping2->{cucsEquipmentFexOperState}->{oid}}, instance => $instance); next if ($self->absent_problem(section => 'fex', instance => $fex_dn)); next if ($self->check_exclude(section => 'fex', instance => $fex_dn)); - my $exit = $self->get_severity(section => 'fex', threshold => 'presence', value => $fex_presence); + $self->{output}->output_add(long_msg => sprintf("Fabric extender '%s' state is '%s' [presence: %s].", + $fex_dn, $result2->{cucsEquipmentFexOperState}, + $result->{cucsEquipmentFexPresence}) + ); + + my $exit = $self->get_severity(section => 'fex.presence', label => 'default.presence', value => $result->{cucsEquipmentFexPresence}); if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { $self->{output}->output_add(severity => $exit, short_msg => sprintf("Fabric extender '%s' presence is: '%s'", - $fex_dn, ${$thresholds->{presence}->{$fex_presence}}[0]) + $fex_dn, $result->{cucsEquipmentFexPresence}) ); next; } $self->{components}->{fex}->{total}++; - - $self->{output}->output_add(long_msg => sprintf("Fabric extender '%s' state is '%s' [presence: %s].", - $fex_dn, ${$thresholds->{operability}->{$fex_operstate}}[0], - ${$thresholds->{presence}->{$fex_presence}}[0] - )); - $exit = $self->get_severity(section => 'fex', threshold => 'operability', value => $fex_operstate); + + $exit = $self->get_severity(section => 'fex.presence', label => 'default.operability', value => $result2->{cucsEquipmentFexOperState}); if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { $self->{output}->output_add(severity => $exit, short_msg => sprintf("Fabric extender '%s' state is '%s'.", - $fex_dn, ${$thresholds->{operability}->{$fex_operstate}}[0] + $fex_dn, $result2->{cucsEquipmentFexOperState} ) ); } diff --git a/centreon-plugins/hardware/server/cisco/ucs/mode/components/iocard.pm b/centreon-plugins/hardware/server/cisco/ucs/mode/components/iocard.pm index 9b6bb7145..174bfc86e 100644 --- a/centreon-plugins/hardware/server/cisco/ucs/mode/components/iocard.pm +++ b/centreon-plugins/hardware/server/cisco/ucs/mode/components/iocard.pm @@ -22,7 +22,23 @@ package hardware::server::cisco::ucs::mode::components::iocard; use strict; use warnings; -use hardware::server::cisco::ucs::mode::components::resources qw($thresholds); +use hardware::server::cisco::ucs::mode::components::resources qw(%mapping_presence %mapping_operability); + +# In MIB 'CISCO-UNIFIED-COMPUTING-EQUIPMENT-MIB' +my $mapping1 = { + cucsEquipmentIOCardPresence => { oid => '.1.3.6.1.4.1.9.9.719.1.15.30.1.31', map => \%mapping_presence }, +}; +my $mapping2 = { + cucsEquipmentIOCardOperState => { oid => '.1.3.6.1.4.1.9.9.719.1.15.30.1.25', map => \%mapping_operability }, +}; +my $oid_cucsEquipmentIOCardDn = '.1.3.6.1.4.1.9.9.719.1.15.30.1.2'; + +sub load { + my (%options) = @_; + + push @{$options{request}}, { oid => $mapping1->{cucsEquipmentIOCardPresence}->{oid} }, + { oid => $mapping2->{cucsEquipmentIOCardOperState}->{oid} }, { oid => $oid_cucsEquipmentIOCardDn }; +} sub check { my ($self) = @_; @@ -31,50 +47,38 @@ sub check { $self->{output}->output_add(long_msg => "Checking io cards"); $self->{components}->{iocard} = {name => 'io cards', total => 0, skip => 0}; return if ($self->check_exclude(section => 'iocard')); - - my $oid_cucsEquipmentIOCardPresence = '.1.3.6.1.4.1.9.9.719.1.15.30.1.31'; - my $oid_cucsEquipmentIOCardOperState = '.1.3.6.1.4.1.9.9.719.1.15.30.1.25'; - my $oid_cucsEquipmentIOCardDn = '.1.3.6.1.4.1.9.9.719.1.15.30.1.2'; - my $result = $self->{snmp}->get_multiple_table(oids => [ - { oid => $oid_cucsEquipmentIOCardPresence }, - { oid => $oid_cucsEquipmentIOCardOperState }, - { oid => $oid_cucsEquipmentIOCardDn }, - ] - ); - foreach my $key ($self->{snmp}->oid_lex_sort(keys %{$result->{$oid_cucsEquipmentIOCardPresence}})) { - # index - $key =~ /\.(\d+)$/; - my $iocard_index = $1; - my $iocard_dn = $result->{$oid_cucsEquipmentIOCardDn}->{$oid_cucsEquipmentIOCardDn . '.' . $iocard_index}; - my $iocard_operstate = defined($result->{$oid_cucsEquipmentIOCardOperState}->{$oid_cucsEquipmentIOCardOperState . '.' . $iocard_index}) ? - $result->{$oid_cucsEquipmentIOCardOperState}->{$oid_cucsEquipmentIOCardOperState . '.' . $iocard_index} : 0; # unknown - my $iocard_presence = defined($result->{$oid_cucsEquipmentIOCardPresence}->{$oid_cucsEquipmentIOCardPresence . '.' . $iocard_index}) ? - $result->{$oid_cucsEquipmentIOCardPresence}->{$oid_cucsEquipmentIOCardPresence . '.' . $iocard_index} : 0; + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_cucsEquipmentIOCardDn}})) { + $oid =~ /\.(\d+)$/; + my $instance = $1; + my $iocard_dn = $self->{results}->{$oid_cucsEquipmentIOCardDn}->{$oid}; + my $result = $self->{snmp}->map_instance(mapping => $mapping1, results => $self->{results}->{$mapping1->{cucsEquipmentIOCardPresence}->{oid}}, instance => $instance); + my $result2 = $self->{snmp}->map_instance(mapping => $mapping2, results => $self->{results}->{$mapping2->{cucsEquipmentIOCardOperState}->{oid}}, instance => $instance); next if ($self->absent_problem(section => 'iocard', instance => $iocard_dn)); next if ($self->check_exclude(section => 'iocard', instance => $iocard_dn)); - my $exit = $self->get_severity(section => 'iocard', threshold => 'presence', value => $iocard_presence); + $self->{output}->output_add(long_msg => sprintf("IO cards '%s' state is '%s' [presence: %s].", + $iocard_dn, $result2->{cucsEquipmentIOCardOperState}, + $result->{cucsEquipmentIOCardPresence}) + ); + + my $exit = $self->get_severity(section => 'iocard.presence', label => 'default.presence', value => $result->{cucsEquipmentIOCardPresence}); if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { $self->{output}->output_add(severity => $exit, short_msg => sprintf("IO cards '%s' presence is: '%s'", - $iocard_dn, ${$thresholds->{presence}->{$iocard_presence}}[0]) + $iocard_dn, $result->{cucsEquipmentIOCardPresence}) ); next; } $self->{components}->{iocard}->{total}++; - $self->{output}->output_add(long_msg => sprintf("IO cards '%s' state is '%s' [presence: %s].", - $iocard_dn, ${$thresholds->{operability}->{$iocard_operstate}}[0], - ${$thresholds->{presence}->{$iocard_presence}}[0] - )); - $exit = $self->get_severity(section => 'iocard', threshold => 'operability', value => $iocard_operstate); + $exit = $self->get_severity(section => 'default.operability', label => 'iocard.operability', value => $result2->{cucsEquipmentIOCardOperState}); if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { $self->{output}->output_add(severity => $exit, short_msg => sprintf("IO cards '%s' state is '%s'.", - $iocard_dn, ${$thresholds->{operability}->{$iocard_operstate}}[0] + $iocard_dn, $result2->{cucsEquipmentIOCardOperState} ) ); } diff --git a/centreon-plugins/hardware/server/cisco/ucs/mode/components/localdisk.pm b/centreon-plugins/hardware/server/cisco/ucs/mode/components/localdisk.pm new file mode 100644 index 000000000..44104d87e --- /dev/null +++ b/centreon-plugins/hardware/server/cisco/ucs/mode/components/localdisk.pm @@ -0,0 +1,87 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package hardware::server::cisco::ucs::mode::components::localdisk; + +use strict; +use warnings; +use hardware::server::cisco::ucs::mode::components::resources qw(%mapping_presence %mapping_operability); + +# In MIB 'CISCO-UNIFIED-COMPUTING-STORAGE-MIB' +my $mapping1 = { + cucsStorageLocalDiskPresence => { oid => '.1.3.6.1.4.1.9.9.719.1.45.4.1.10', map => \%mapping_presence }, +}; +my $mapping2 = { + cucsStorageLocalDiskOperability => { oid => '.1.3.6.1.4.1.9.9.719.1.45.4.1.9', map => \%mapping_operability }, +}; +my $oid_cucsStorageLocalDiskDn = '.1.3.6.1.4.1.9.9.719.1.45.4.1.2'; + +sub load { + my (%options) = @_; + + push @{$options{request}}, { oid => $mapping1->{cucsStorageLocalDiskPresence}->{oid} }, + { oid => $mapping2->{cucsStorageLocalDiskOperability}->{oid} }, { oid => $oid_cucsStorageLocalDiskDn }; +} + +sub check { + my ($self) = @_; + + $self->{output}->output_add(long_msg => "Checking local disks"); + $self->{components}->{localdisk} = {name => 'local disks', total => 0, skip => 0}; + return if ($self->check_exclude(section => 'localdisk')); + + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_cucsStorageLocalDiskDn}})) { + $oid =~ /\.(\d+)$/; + my $instance = $1; + my $localdisk_dn = $self->{results}->{$oid_cucsStorageLocalDiskDn}->{$oid}; + my $result = $self->{snmp}->map_instance(mapping => $mapping1, results => $self->{results}->{$mapping1->{cucsStorageLocalDiskPresence}->{oid}}, instance => $instance); + my $result2 = $self->{snmp}->map_instance(mapping => $mapping2, results => $self->{results}->{$mapping2->{cucsStorageLocalDiskOperability}->{oid}}, instance => $instance); + + next if ($self->absent_problem(section => 'localdisk', instance => $localdisk_dn)); + next if ($self->check_exclude(section => 'localdisk', instance => $localdisk_dn)); + + $self->{output}->output_add(long_msg => sprintf("local disk '%s' state is '%s' [presence: %s].", + $localdisk_dn, $result2->{cucsStorageLocalDiskOperability}, + $result->{cucsStorageLocalDiskPresence}) + ); + + my $exit = $self->get_severity(section => 'localdisk.presence', label => 'default.presence', value => $result->{cucsStorageLocalDiskPresence}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("local disk '%s' presence is: '%s'", + $localdisk_dn, $result->{cucsStorageLocalDiskPresence}) + ); + next; + } + + $self->{components}->{localdisk}->{total}++; + + $exit = $self->get_severity(section => 'localdisk.operability', label => 'default.operability', value => $result2->{cucsStorageLocalDiskOperability}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("local disk '%s' state is '%s'", + $localdisk_dn, $result2->{cucsStorageLocalDiskOperability} + ) + ); + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/hardware/server/cisco/ucs/mode/components/memory.pm b/centreon-plugins/hardware/server/cisco/ucs/mode/components/memory.pm new file mode 100644 index 000000000..ae442a0ee --- /dev/null +++ b/centreon-plugins/hardware/server/cisco/ucs/mode/components/memory.pm @@ -0,0 +1,88 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package hardware::server::cisco::ucs::mode::components::memory; + +use strict; +use warnings; +use hardware::server::cisco::ucs::mode::components::resources qw(%mapping_presence %mapping_operability); + +# In MIB 'CISCO-UNIFIED-COMPUTING-MEMORY-MIB' +my $mapping1 = { + cucsMemoryUnitPresence => { oid => '.1.3.6.1.4.1.9.9.719.1.30.11.1.17', map => \%mapping_presence }, +}; +my $mapping2 = { + cucsMemoryUnitOperState => { oid => '.1.3.6.1.4.1.9.9.719.1.30.11.1.13', map => \%mapping_operability }, +}; +my $oid_cucsMemoryUnitDn = '.1.3.6.1.4.1.9.9.719.1.30.11.1.2'; + +sub load { + my (%options) = @_; + + push @{$options{request}}, { oid => $mapping1->{cucsMemoryUnitPresence}->{oid} }, + { oid => $mapping2->{cucsMemoryUnitOperState}->{oid} }, { oid => $oid_cucsMemoryUnitDn }; +} + +sub check { + my ($self) = @_; + + $self->{output}->output_add(long_msg => "Checking memories"); + $self->{components}->{memory} = {name => 'memories', total => 0, skip => 0}; + return if ($self->check_exclude(section => 'memory')); + + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_cucsMemoryUnitDn}})) { + $oid =~ /\.(\d+)$/; + my $instance = $1; + my $memory_dn = $self->{results}->{$oid_cucsMemoryUnitDn}->{$oid}; + $memory_dn =~ s/\n$//ms; + my $result = $self->{snmp}->map_instance(mapping => $mapping1, results => $self->{results}->{$mapping1->{cucsMemoryUnitPresence}->{oid}}, instance => $instance); + my $result2 = $self->{snmp}->map_instance(mapping => $mapping2, results => $self->{results}->{$mapping2->{cucsMemoryUnitOperState}->{oid}}, instance => $instance); + + next if ($self->absent_problem(section => 'memory', instance => $memory_dn)); + next if ($self->check_exclude(section => 'memory', instance => $memory_dn)); + + $self->{output}->output_add(long_msg => sprintf("memory '%s' state is '%s' [presence: %s].", + $memory_dn, $result2->{cucsMemoryUnitOperState}, + $result->{cucsMemoryUnitPresence}) + ); + + my $exit = $self->get_severity(section => 'memory.presence', label => 'default.presence', value => $result->{cucsMemoryUnitPresence}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("memory '%s' presence is: '%s'", + $memory_dn, $result->{cucsMemoryUnitPresence}) + ); + next; + } + + $self->{components}->{memory}->{total}++; + + $exit = $self->get_severity(section => 'memory.operability', label => 'default.operability', value => $result2->{cucsMemoryUnitOperState}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("memory '%s' state is '%s'", + $memory_dn, $result2->{cucsMemoryUnitOperState} + ) + ); + } + } +} + +1; \ No newline at end of file diff --git a/centreon-plugins/hardware/server/cisco/ucs/mode/components/psu.pm b/centreon-plugins/hardware/server/cisco/ucs/mode/components/psu.pm index b155968f5..26a2bdec6 100644 --- a/centreon-plugins/hardware/server/cisco/ucs/mode/components/psu.pm +++ b/centreon-plugins/hardware/server/cisco/ucs/mode/components/psu.pm @@ -22,7 +22,23 @@ package hardware::server::cisco::ucs::mode::components::psu; use strict; use warnings; -use hardware::server::cisco::ucs::mode::components::resources qw($thresholds); +use hardware::server::cisco::ucs::mode::components::resources qw(%mapping_presence %mapping_operability); + +# In MIB 'CISCO-UNIFIED-COMPUTING-EQUIPMENT-MIB' +my $mapping1 = { + cucsEquipmentPsuPresence => { oid => '.1.3.6.1.4.1.9.9.719.1.15.56.1.11', map => \%mapping_presence }, +}; +my $mapping2 = { + cucsEquipmentPsuOperState => { oid => '.1.3.6.1.4.1.9.9.719.1.15.56.1.7', map => \%mapping_operability }, +}; +my $oid_cucsEquipmentPsuDn = '.1.3.6.1.4.1.9.9.719.1.15.56.1.2'; + +sub load { + my (%options) = @_; + + push @{$options{request}}, { oid => $mapping1->{cucsEquipmentPsuPresence}->{oid} }, + { oid => $mapping2->{cucsEquipmentPsuOperState}->{oid} }, { oid => $oid_cucsEquipmentPsuDn }; +} sub check { my ($self) = @_; @@ -32,49 +48,37 @@ sub check { $self->{components}->{psu} = {name => 'psus', total => 0, skip => 0}; return if ($self->check_exclude(section => 'psu')); - my $oid_cucsEquipmentPsuPresence = '.1.3.6.1.4.1.9.9.719.1.15.56.1.11'; - my $oid_cucsEquipmentPsuOperState = '.1.3.6.1.4.1.9.9.719.1.15.56.1.7'; - my $oid_cucsEquipmentPsuDn = '.1.3.6.1.4.1.9.9.719.1.15.56.1.2'; - - my $result = $self->{snmp}->get_multiple_table(oids => [ - { oid => $oid_cucsEquipmentPsuPresence }, - { oid => $oid_cucsEquipmentPsuOperState }, - { oid => $oid_cucsEquipmentPsuDn }, - ] - ); - foreach my $key ($self->{snmp}->oid_lex_sort(keys %{$result->{$oid_cucsEquipmentPsuPresence}})) { - # index - $key =~ /\.(\d+)$/; - my $psu_index = $1; - my $psu_dn = $result->{$oid_cucsEquipmentPsuDn}->{$oid_cucsEquipmentPsuDn . '.' . $psu_index}; - my $psu_operstate = defined($result->{$oid_cucsEquipmentPsuOperState}->{$oid_cucsEquipmentPsuOperState . '.' . $psu_index}) ? - $result->{$oid_cucsEquipmentPsuOperState}->{$oid_cucsEquipmentPsuOperState . '.' . $psu_index} : 0; # unknown - my $psu_presence = defined($result->{$oid_cucsEquipmentPsuPresence}->{$oid_cucsEquipmentPsuPresence . '.' . $psu_index}) ? - $result->{$oid_cucsEquipmentPsuPresence}->{$oid_cucsEquipmentPsuPresence . '.' . $psu_index} : 0; + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_cucsEquipmentPsuDn}})) { + $oid =~ /\.(\d+)$/; + my $instance = $1; + my $psu_dn = $self->{results}->{$oid_cucsEquipmentPsuDn}->{$oid}; + my $result = $self->{snmp}->map_instance(mapping => $mapping1, results => $self->{results}->{$mapping1->{cucsEquipmentPsuPresence}->{oid}}, instance => $instance); + my $result2 = $self->{snmp}->map_instance(mapping => $mapping2, results => $self->{results}->{$mapping2->{cucsEquipmentPsuOperState}->{oid}}, instance => $instance); next if ($self->absent_problem(section => 'psu', instance => $psu_dn)); next if ($self->check_exclude(section => 'psu', instance => $psu_dn)); - my $exit = $self->get_severity(section => 'psu', threshold => 'presence', value => $psu_presence); + $self->{output}->output_add(long_msg => sprintf("power supply '%s' state is '%s' [presence: %s].", + $psu_dn, $result2->{cucsEquipmentPsuOperState}, + $result->{cucsEquipmentPsuPresence}) + ); + + my $exit = $self->get_severity(section => 'psu.presence', label => 'default.presence', value => $result->{cucsEquipmentPsuPresence}); if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { $self->{output}->output_add(severity => $exit, short_msg => sprintf("power supply '%s' presence is: '%s'", - $psu_dn, ${$thresholds->{presence}->{$psu_presence}}[0]) + $psu_dn, $result->{cucsEquipmentPsuPresence}) ); next; } $self->{components}->{psu}->{total}++; - $self->{output}->output_add(long_msg => sprintf("power supply '%s' state is '%s' [presence: %s].", - $psu_dn, ${$thresholds->{operability}->{$psu_operstate}}[0], - ${$thresholds->{presence}->{$psu_presence}}[0] - )); - $exit = $self->get_severity(section => 'psu', threshold => 'operability', value => $psu_operstate); + $exit = $self->get_severity(section => 'psu.operability', label => 'default.operability', value => $result2->{cucsEquipmentPsuOperState}); if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { $self->{output}->output_add(severity => $exit, short_msg => sprintf("power supply '%s' state is '%s'.", - $psu_dn, ${$thresholds->{operability}->{$psu_operstate}}[0] + $psu_dn, $result2->{cucsEquipmentPsuOperState} ) ); } diff --git a/centreon-plugins/hardware/server/cisco/ucs/mode/components/resources.pm b/centreon-plugins/hardware/server/cisco/ucs/mode/components/resources.pm index f9987cdc6..d8beeb34a 100644 --- a/centreon-plugins/hardware/server/cisco/ucs/mode/components/resources.pm +++ b/centreon-plugins/hardware/server/cisco/ucs/mode/components/resources.pm @@ -25,85 +25,197 @@ use warnings; use Exporter; our $thresholds; +our %mapping_presence; +our %mapping_operability; +our %mapping_overall_status; +our %mapping_drive_status; our @ISA = qw(Exporter); -our @EXPORT_OK = qw($thresholds); +our @EXPORT_OK = qw($thresholds %mapping_presence %mapping_operability %mapping_overall_status %mapping_drive_status); + +%mapping_drive_status = ( + 0 => 'unknown', + 1 => 'online', + 2 => 'unconfiguredGood', + 3 => 'globalHotSpare', + 4 => 'dedicatedHotSpare', + 5 => 'jbod', + 6 => 'offline', + 7 => 'rebuilding', + 8 => 'copyback', + 9 => 'failed', + 10 => 'unconfiguredBad', + 11 => 'predictiveFailure', + 12 => 'disabledForRemoval', + 13 => 'foreignConfiguration', +); +%mapping_presence = ( + 0 => 'unknown', + 1 => 'empty', + 10 => 'equipped', + 11 => 'missing', + 12 => 'mismatch', + 13 => 'equippedNotPrimary', + 20 => 'equippedIdentityUnestablishable', + 21 => 'mismatchIdentityUnestablishable', + 30 => 'inaccessible', + 40 => 'unauthorized', + 100 => 'notSupported', +); +%mapping_operability = ( + 0 => 'unknown', + 1 => 'operable', + 2 => 'inoperable', + 3 => 'degraded', + 4 => 'poweredOff', + 5 => 'powerProblem', + 6 => 'removed', + 7 => 'voltageProblem', + 8 => 'thermalProblem', + 9 => 'performanceProblem', + 10 => 'accessibilityProblem', + 11 => 'identityUnestablishable', + 12 => 'biosPostTimeout', + 13 => 'disabled', + 51 => 'fabricConnProblem', + 52 => 'fabricUnsupportedConn', + 81 => 'config', + 82 => 'equipmentProblem', + 83 => 'decomissioning', + 84 => 'chassisLimitExceeded', + 100 => 'notSupported', + 101 => 'discovery', + 102 => 'discoveryFailed', + 104 => 'postFailure', + 105 => 'upgradeProblem', + 106 => 'peerCommProblem', + 107 => 'autoUpgrade', + 108 => 'linkActivateBlocked', +); +%mapping_overall_status = ( + 0 => 'indeterminate', + 1 => 'unassociated', + 10 => 'ok', + 11 => 'discovery', + 12 => 'config', + 13 => 'unconfig', + 14 => 'power-off', + 15 => 'restart', + 20 => 'maintenance', + 21 => 'test', + 29 => 'compute-mismatch', + 30 => 'compute-failed', + 31 => 'degraded', + 32 => 'discovery-failed', + 33 => 'config-failure', + 34 => 'unconfig-failed', + 35 => 'test-failed', + 36 => 'maintenance-failed', + 40 => 'removed', + 41 => 'disabled', + 50 => 'inaccessible', + 60 => 'thermal-problem', + 61 => 'power-problem', + 62 => 'voltage-problem', + 63 => 'inoperable', + 101 => 'decommissioning', + 201 => 'bios-restore', + 202 => 'cmos-reset', + 203 => 'diagnostics', + 204 => 'diagnostic-failed', +); $thresholds = { - presence => { - 0 => ['unknown', 'UNKNOWN'], - 1 => ['empty', 'OK'], - 10 => ['equipped', 'OK'], - 11 => ['missing', 'WARNING'], - 12 => ['mismatch', 'WARNING'], - 13 => ['equippedNotPrimary', 'OK'], - 20 => ['equippedIdentityUnestablishable', 'WARNING'], - 21 => ['mismatchIdentityUnestablishable', 'WARNING'], - 30 => ['inaccessible', 'UNKNOWN'], - 40 => ['unauthorized', 'UNKNOWN'], - 100 => ['notSupported', 'WARNING'], - }, - operability => { - 0 => ['unknown', 'UNKNOWN'], - 1 => ['operable', 'OK'], - 2 => ['inoperable', 'CRITICAL'], - 3 => ['degraded', 'WARNING'], - 4 => ['poweredOff', 'WARNING'], - 5 => ['powerProblem', 'CRITICAL'], - 6 => ['removed', 'WARNING'], - 7 => ['voltageProblem', 'CRITICAL'], - 8 => ['thermalProblem', 'CRITICAL'], - 9 => ['performanceProblem', 'CRITICAL'], - 10 => ['accessibilityProblem', 'WARNING'], - 11 => ['identityUnestablishable', 'WARNING'], - 12 => ['biosPostTimeout', 'WARNING'], - 13 => ['disabled', 'OK'], - 51 => ['fabricConnProblem', 'WARNING'], - 52 => ['fabricUnsupportedConn', 'WARNING'], - 81 => ['config', 'OK'], - 82 => ['equipmentProblem', 'CRITICAL'], - 83 => ['decomissioning', 'WARNING'], - 84 => ['chassisLimitExceeded', 'WARNING'], - 100 => ['notSupported', 'WARNING'], - 101 => ['discovery', 'OK'], - 102 => ['discoveryFailed', 'WARNING'], - 104 => ['postFailure', 'WARNING'], - 105 => ['upgradeProblem', 'WARNING'], - 106 => ['peerCommProblem', 'WARNING'], - 107 => ['autoUpgrade', 'OK'], - }, - overall_status => { - 0 => ['indeterminate', 'UNKNOWN'], - 1 => ['unassociated', 'OK'], - 10 => ['ok', 'OK'], - 11 => ['discovery', 'OK'], - 12 => ['config', 'OK'], - 13 => ['unconfig', 'OK'], - 14 => ['power-off', 'WARNING'], - 15 => ['restart', 'WARNING'], - 20 => ['maintenance', 'OK'], - 21 => ['test', 'OK'], - 29 => ['compute-mismatch', 'WARNING'], - 30 => ['compute-failed', 'WARNING'], - 31 => ['degraded', 'WARNING'], - 32 => ['discovery-failed', 'WARNING'], - 33 => ['config-failure', 'WARNING'], - 34 => ['unconfig-failed', 'WARNING'], - 35 => ['test-failed', 'WARNING'], - 36 => ['maintenance-failed', 'WARNING'], - 40 => ['removed', 'WARNING'], - 41 => ['disabled', 'OK'], - 50 => ['inaccessible', 'WARNING'], - 60 => ['thermal-problem', 'CRITICAL'], - 61 => ['power-problem', 'CRITICAL'], - 62 => ['voltage-problem', 'CRITICAL'], - 63 => ['inoperable', 'CRITICAL'], - 101 => ['decommissioning', 'WARNING'], - 201 => ['bios-restore', 'WARNING'], - 202 => ['cmos-reset', 'WARNING'], - 203 => ['diagnostics', 'OK'], - 204 => ['diagnostic-failed', 'WARNING'], - }, + 'default.drivestatus' => [ + ['unknown', 'UNKNOWN'], + ['online', 'OK'], + ['unconfiguredGood', 'OK'], + ['globalHotSpare', 'OK'], + ['dedicatedHotSpare', 'OK'], + ['jbod', 'OK'], + ['offline', 'OK'], + ['rebuilding', 'WARNING'], + ['copyback', 'OK'], + ['failed', 'CRITICAL'], + ['unconfiguredBad', 'CRITICAL'], + ['predictiveFailure', 'WARNING'], + ['disabledForRemoval', 'OK'], + ['foreignConfiguration', 'OK'], + ], + 'default.presence' => [ + ['unknown', 'UNKNOWN'], + ['empty', 'OK'], + ['equipped', 'OK'], + ['missing', 'WARNING'], + ['mismatch', 'WARNING'], + ['equippedNotPrimary', 'OK'], + ['equippedIdentityUnestablishable', 'WARNING'], + ['mismatchIdentityUnestablishable', 'WARNING'], + ['inaccessible', 'UNKNOWN'], + ['unauthorized', 'UNKNOWN'], + ['notSupported', 'WARNING'], + ], + 'default.operability' => [ + ['unknown', 'UNKNOWN'], + ['operable', 'OK'], + ['inoperable', 'CRITICAL'], + ['degraded', 'WARNING'], + ['poweredOff', 'WARNING'], + ['powerProblem', 'CRITICAL'], + ['removed', 'WARNING'], + ['voltageProblem', 'CRITICAL'], + ['thermalProblem', 'CRITICAL'], + ['performanceProblem', 'CRITICAL'], + ['accessibilityProblem', 'WARNING'], + ['identityUnestablishable', 'WARNING'], + ['biosPostTimeout', 'WARNING'], + ['disabled', 'OK'], + ['fabricConnProblem', 'WARNING'], + ['fabricUnsupportedConn', 'WARNING'], + ['config', 'OK'], + ['equipmentProblem', 'CRITICAL'], + ['decomissioning', 'WARNING'], + ['chassisLimitExceeded', 'WARNING'], + ['notSupported', 'WARNING'], + ['discovery', 'OK'], + ['discoveryFailed', 'WARNING'], + ['postFailure', 'WARNING'], + ['upgradeProblem', 'WARNING'], + ['peerCommProblem', 'WARNING'], + ['autoUpgrade', 'OK'], + ], + 'default.overall_status' => [ + ['indeterminate', 'UNKNOWN'], + ['unassociated', 'OK'], + ['ok', 'OK'], + ['discovery', 'OK'], + ['config', 'OK'], + ['unconfig', 'OK'], + ['power-off', 'WARNING'], + ['restart', 'WARNING'], + ['maintenance', 'OK'], + ['test', 'OK'], + ['compute-mismatch', 'WARNING'], + ['compute-failed', 'WARNING'], + ['degraded', 'WARNING'], + ['discovery-failed', 'WARNING'], + ['config-failure', 'WARNING'], + ['unconfig-failed', 'WARNING'], + ['test-failed', 'WARNING'], + ['maintenance-failed', 'WARNING'], + ['removed', 'WARNING'], + ['disabled', 'OK'], + ['inaccessible', 'WARNING'], + ['thermal-problem', 'CRITICAL'], + ['power-problem', 'CRITICAL'], + ['voltage-problem', 'CRITICAL'], + ['inoperable', 'CRITICAL'], + ['decommissioning', 'WARNING'], + ['bios-restore', 'WARNING'], + ['cmos-reset', 'WARNING'], + ['diagnostics', 'OK'], + ['diagnostic-failed', 'WARNING'], + ], }; 1; diff --git a/centreon-plugins/hardware/server/cisco/ucs/mode/equipment.pm b/centreon-plugins/hardware/server/cisco/ucs/mode/equipment.pm index 34cc9894e..91d7e45ac 100644 --- a/centreon-plugins/hardware/server/cisco/ucs/mode/equipment.pm +++ b/centreon-plugins/hardware/server/cisco/ucs/mode/equipment.pm @@ -25,12 +25,6 @@ use base qw(centreon::plugins::mode); use strict; use warnings; use hardware::server::cisco::ucs::mode::components::resources qw($thresholds); -use hardware::server::cisco::ucs::mode::components::fan; -use hardware::server::cisco::ucs::mode::components::psu; -use hardware::server::cisco::ucs::mode::components::iocard; -use hardware::server::cisco::ucs::mode::components::chassis; -use hardware::server::cisco::ucs::mode::components::blade; -use hardware::server::cisco::ucs::mode::components::fex; sub new { my ($class, %options) = @_; @@ -41,8 +35,8 @@ sub new { $options{options}->add_options(arguments => { "exclude:s" => { name => 'exclude' }, - "absent-problem:s" => { name => 'absent' }, - "component:s" => { name => 'component', default => 'all' }, + "absent-problem:s@" => { name => 'absent_problem' }, + "component:s" => { name => 'component', default => '.*' }, "no-component:s" => { name => 'no_component' }, "threshold-overload:s@" => { name => 'threshold_overload' }, }); @@ -63,64 +57,69 @@ sub check_options { } } + $self->{absent_problem} = []; + foreach my $val (@{$self->{option_results}->{absent_problem}}) { + next if (!defined($val) || $val eq ''); + my @values = split (/,/, $val); + push @{$self->{absent_problem}}, { filter => $values[0], instance => $values[1] }; + } + $self->{overload_th} = {}; foreach my $val (@{$self->{option_results}->{threshold_overload}}) { - if ($val !~ /^(.*?),(.*?),(.*?),(.*)$/) { - $self->{output}->add_option_msg(short_msg => "Wrong treshold-overload option '" . $val . "'."); + next if (!defined($val) || $val eq ''); + my @values = split (/,/, $val); + if (scalar(@values) < 3) { + $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload option '" . $val . "'."); + $self->{output}->option_exit(); + } + my ($section, $instance, $status, $filter); + if (scalar(@values) == 3) { + ($section, $status, $filter) = @values; + $instance = '.*'; + } else { + ($section, $instance, $status, $filter) = @values; + } + if ($section !~ /^(fan|psu|chassis|iocard|blade|fex|cpu|memory|localdisk)\.(presence|operability|overall_status)$/) { + $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload section '" . $val . "'."); $self->{output}->option_exit(); } - my ($section, $type, $status, $filter) = ($1, $2, $3, $4); if ($self->{output}->is_litteral_status(status => $status) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong treshold-overload status '" . $val . "'."); + $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload status '" . $val . "'."); $self->{output}->option_exit(); } - $self->{overload_th}->{$section} = { } if (!defined($self->{overload_th}->{$section})); - $self->{overload_th}->{$section}->{$type} = { } if (!defined($self->{overload_th}->{$section}->{$type})); - $self->{overload_th}->{$section}->{$type}->{$filter} = $status; - } -} - -sub global { - my ($self, %options) = @_; - - hardware::server::cisco::ucs::mode::components::fan::check($self); - hardware::server::cisco::ucs::mode::components::psu::check($self); - hardware::server::cisco::ucs::mode::components::iocard::check($self); - hardware::server::cisco::ucs::mode::components::chassis::check($self); - hardware::server::cisco::ucs::mode::components::blade::check($self); - hardware::server::cisco::ucs::mode::components::fex::check($self); -} - -sub component { - my ($self, %options) = @_; - - if ($self->{option_results}->{component} eq 'fan') { - hardware::server::cisco::ucs::mode::components::fan::check($self); - } elsif ($self->{option_results}->{component} eq 'psu') { - hardware::server::cisco::ucs::mode::components::psu::check($self); - } elsif ($self->{option_results}->{component} eq 'iocard') { - hardware::server::cisco::ucs::mode::components::iocard::check($self); - } elsif ($self->{option_results}->{component} eq 'chassis') { - hardware::server::cisco::ucs::mode::components::chassis::check($self); - } elsif ($self->{option_results}->{component} eq 'blade') { - hardware::server::cisco::ucs::mode::components::blade::check($self); - } elsif ($self->{option_results}->{component} eq 'fex') { - hardware::server::cisco::ucs::mode::components::fex::check($self); - } else { - $self->{output}->add_option_msg(short_msg => "Wrong option. Cannot find component '" . $self->{option_results}->{component} . "'."); - $self->{output}->option_exit(); + $self->{overload_th}->{$section} = [] if (!defined($self->{overload_th}->{$section})); + push @{$self->{overload_th}->{$section}}, {filter => $filter, status => $status, instance => $instance }; } } sub run { my ($self, %options) = @_; - # $options{snmp} = snmp object $self->{snmp} = $options{snmp}; - if ($self->{option_results}->{component} eq 'all') { - $self->global(); - } else { - $self->component(); + my $snmp_request = []; + my @components = ('fan', 'psu', 'chassis', 'iocard', 'blade', 'fex', 'cpu', 'memory', 'localdisk'); + foreach (@components) { + if (/$self->{option_results}->{component}/) { + my $mod_name = "hardware::server::cisco::ucs::mode::components::$_"; + centreon::plugins::misc::mymodule_load(output => $self->{output}, module => $mod_name, + error_msg => "Cannot load module '$mod_name'."); + my $func = $mod_name->can('load'); + $func->(request => $snmp_request); + } + } + + if (scalar(@{$snmp_request}) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong option. Cannot find component '" . $self->{option_results}->{component} . "'."); + $self->{output}->option_exit(); + } + $self->{results} = $self->{snmp}->get_multiple_table(oids => $snmp_request); + + foreach (@components) { + if (/$self->{option_results}->{component}/) { + my $mod_name = "hardware::server::cisco::ucs::mode::components::$_"; + my $func = $mod_name->can('check'); + $func->($self); + } } my $total_components = 0; @@ -130,12 +129,13 @@ sub run { # Skipping short msg when no components next if ($self->{components}->{$comp}->{total} == 0 && $self->{components}->{$comp}->{skip} == 0); $total_components += $self->{components}->{$comp}->{total} + $self->{components}->{$comp}->{skip}; - $display_by_component .= $display_by_component_append . $self->{components}->{$comp}->{total} . '/' . $self->{components}->{$comp}->{skip} . ' ' . $self->{components}->{$comp}->{name}; + my $count_by_components = $self->{components}->{$comp}->{total} + $self->{components}->{$comp}->{skip}; + $display_by_component .= $display_by_component_append . $self->{components}->{$comp}->{total} . '/' . $count_by_components . ' ' . $self->{components}->{$comp}->{name}; $display_by_component_append = ', '; } $self->{output}->output_add(severity => 'OK', - short_msg => sprintf("All %s components [%s] are ok.", + short_msg => sprintf("All %s components are ok [%s].", $total_components, $display_by_component) ); @@ -144,11 +144,30 @@ sub run { $self->{output}->output_add(severity => $self->{no_components}, short_msg => 'No components are checked.'); } - + $self->{output}->display(); $self->{output}->exit(); } +sub absent_problem { + my ($self, %options) = @_; + + foreach (@{$self->{absent_problem}}) { + if ($options{section} =~ /$_->{filter}/) { + if (!defined($_->{instance}) || $options{instance} =~ /$_->{instance}/) { + $self->{output}->output_add(severity => 'CRITICAL', + short_msg => sprintf("Component '%s' instance '%s' is not present", + $options{section}, $options{instance})); + $self->{output}->output_add(long_msg => sprintf("Skipping $options{section} section $options{instance} instance (not present)")); + $self->{components}->{$options{section}}->{skip}++; + return 1; + } + } + } + + return 0; +} + sub check_exclude { my ($self, %options) = @_; @@ -167,31 +186,26 @@ sub check_exclude { sub get_severity { my ($self, %options) = @_; + my $status = 'UNKNOWN'; # default - my $status = ${$thresholds->{$options{threshold}}->{$options{value}}}[1]; - if (defined($self->{overload_th}->{$options{section}}->{$options{threshold}})) { - foreach (keys %{$self->{overload_th}->{$options{section}}->{$options{threshold}}}) { - if (${$thresholds->{$options{threshold}}->{$options{value}}}[0] =~ /$_/i) { - $status = $self->{overload_th}->{$options{section}}->{$options{threshold}}->{$_}; - last; + if (defined($self->{overload_th}->{$options{section}})) { + foreach (@{$self->{overload_th}->{$options{section}}}) { + if ($options{value} =~ /$_->{filter}/i && + (!defined($options{instance}) || $options{instance} =~ /$_->{instance}/)) { + $status = $_->{status}; + return $status; } } } - return $status; -} - -sub absent_problem { - my ($self, %options) = @_; - - if (defined($self->{option_results}->{absent}) && - $self->{option_results}->{absent} =~ /(^|\s|,)($options{section}(\s*,|$)|${options{section}}[^,]*#\Q$options{instance}\E#)/) { - $self->{output}->output_add(severity => 'CRITICAL', - short_msg => sprintf("Component '%s' instance '%s' is not present", - $options{section}, $options{instance})); - return 1; + my $label = defined($options{label}) ? $options{label} : $options{section}; + foreach (@{$thresholds->{$label}}) { + if ($options{value} =~ /$$_[0]/i) { + $status = $$_[1]; + return $status; + } } - return 0; + return $status; } 1; @@ -206,18 +220,18 @@ Check Hardware (Fans, Power supplies, chassis, io cards, blades, fabric extender =item B<--component> -Which component to check (Default: 'all'). -Can be: 'fan', 'psu', 'chassis', 'iocard', 'blade', 'fex' +Which component to check (Default: '.*'). +Can be: 'fan', 'psu', 'chassis', 'iocard', 'blade', 'fex', 'cpu', 'memory', 'localdisk'. =item B<--exclude> Exclude some parts (comma seperated list) (Example: --exclude=fan) -Can also exclude specific instance: --exclude=fan#/sys/chassis-7/fan-module-1-7/fan-1# +Can be specific or global: --exclude=fan#/sys/chassis-7/fan-module-1-7/fan-1# =item B<--absent-problem> Return an error if an entity is not 'present' (default is skipping) (comma seperated list) -Can be specific or global: --exclude=fan#/sys/chassis-7/fan-module-1-7/fan-1# +Can be specific or global: --absent-problem=fan,/sys/chassis-7/fan-module-1-7/fan-1 =item B<--no-component> @@ -226,8 +240,9 @@ If total (with skipped) is 0. (Default: 'critical' returns). =item B<--threshold-overload> -Set to overload default threshold values (syntax: section,threshold,status,regexp) -Example: --threshold-overload='fan,operability,OK,poweredOff|removed' +Set to overload default threshold values (syntax: section,[instance,]status,regexp) +It used before default thresholds (order stays). +Example: --threshold-overload='fan.operability,OK,poweredOff|removed' =back diff --git a/centreon-plugins/hardware/ups/standard/rfc1628/snmp/mode/batterystatus.pm b/centreon-plugins/hardware/ups/standard/rfc1628/snmp/mode/batterystatus.pm index ebd71964d..3c4ecc8e9 100644 --- a/centreon-plugins/hardware/ups/standard/rfc1628/snmp/mode/batterystatus.pm +++ b/centreon-plugins/hardware/ups/standard/rfc1628/snmp/mode/batterystatus.pm @@ -76,11 +76,15 @@ sub run { my $result = $self->{snmp}->get_table(oid => $oid_upsBattery, nothing_quit => 1); - my $current = defined($result->{$oid_upsBatteryCurrent}) ? $result->{$oid_upsBatteryCurrent} * 0.1 : 0; - my $voltage = defined($result->{$oid_upsBatteryVoltage}) ? $result->{$oid_upsBatteryVoltage} * 0.1 : 0; + my $current = (defined($result->{$oid_upsBatteryCurrent}) && $result->{$oid_upsBatteryCurrent} =~ /\d/) ? + $result->{$oid_upsBatteryCurrent} * 0.1 : 0; + my $voltage = (defined($result->{$oid_upsBatteryVoltage}) && $result->{$oid_upsBatteryVoltage} =~ /\d/) ? + $result->{$oid_upsBatteryVoltage} * 0.1 : 0; my $temp = defined($result->{$oid_upsBatteryTemperature}) ? $result->{$oid_upsBatteryTemperature} : 0; - my $min_remain = defined($result->{$oid_upsEstimatedMinutesRemaining}) ? $result->{$oid_upsEstimatedMinutesRemaining} : 'unknown'; - my $charge_remain = defined($result->{$oid_upsEstimatedChargeRemaining}) ? $result->{$oid_upsEstimatedChargeRemaining} : 'unknown'; + my $min_remain = (defined($result->{$oid_upsEstimatedMinutesRemaining}) && $result->{$oid_upsEstimatedMinutesRemaining} =~ /\d/) ? + $result->{$oid_upsEstimatedMinutesRemaining} : 'unknown'; + my $charge_remain = (defined($result->{$oid_upsEstimatedChargeRemaining}) && $result->{$oid_upsEstimatedChargeRemaining} =~ /\d/) ? + $result->{$oid_upsEstimatedChargeRemaining} : 'unknown'; my $status = defined($result->{$oid_upsBatteryStatus}) ? $result->{$oid_upsBatteryStatus} : 1; # we put unknown ??? $self->{output}->output_add(severity => ${$battery_status{$status}}[1], diff --git a/centreon-plugins/hardware/ups/standard/rfc1628/snmp/mode/inputlines.pm b/centreon-plugins/hardware/ups/standard/rfc1628/snmp/mode/inputlines.pm index 0a6d31623..c32268205 100644 --- a/centreon-plugins/hardware/ups/standard/rfc1628/snmp/mode/inputlines.pm +++ b/centreon-plugins/hardware/ups/standard/rfc1628/snmp/mode/inputlines.pm @@ -142,7 +142,7 @@ sub run { my @exits; foreach (keys %{$maps_counters}) { foreach my $name (keys %{$maps_counters->{$_}->{thresholds}}) { - if (defined($self->{counters_value}->{$instance}->{$_}) && $self->{counters_value}->{$instance}->{$_} != 0) { + if (defined($self->{counters_value}->{$instance}->{$_}) && $self->{counters_value}->{$instance}->{$_} =~ /\d/ && $self->{counters_value}->{$instance}->{$_} != 0) { push @exits, $self->{perfdata}->threshold_check(value => $self->{counters_value}->{$instance}->{$_} * $maps_counters->{$_}->{factor}, threshold => [ { label => $maps_counters->{$_}->{thresholds}->{$name}->{label}, 'exit_litteral' => $maps_counters->{$_}->{thresholds}->{$name}->{exit_value} }]); } } @@ -155,7 +155,7 @@ sub run { my $str_output = "Input Line '$instance_output' "; my $str_append = ''; foreach (keys %{$maps_counters}) { - next if (!defined($self->{counters_value}->{$instance}->{$_}) || $self->{counters_value}->{$instance}->{$_} == 0); + next if (!defined($self->{counters_value}->{$instance}->{$_}) || $self->{counters_value}->{$instance}->{$_} !~ /\d/ || $self->{counters_value}->{$instance}->{$_} == 0); $str_output .= $str_append . sprintf($maps_counters->{$_}->{output_msg}, $self->{counters_value}->{$instance}->{$_} * $maps_counters->{$_}->{factor}); $str_append = ', '; diff --git a/centreon-plugins/hardware/ups/standard/rfc1628/snmp/mode/outputlines.pm b/centreon-plugins/hardware/ups/standard/rfc1628/snmp/mode/outputlines.pm index b4805867d..d1efb86c4 100644 --- a/centreon-plugins/hardware/ups/standard/rfc1628/snmp/mode/outputlines.pm +++ b/centreon-plugins/hardware/ups/standard/rfc1628/snmp/mode/outputlines.pm @@ -182,7 +182,7 @@ sub run { my @exits; foreach (keys %{$maps_counters}) { foreach my $name (keys %{$maps_counters->{$_}->{thresholds}}) { - if (defined($self->{counters_value}->{$instance}->{$_}) && $self->{counters_value}->{$instance}->{$_} == $maps_counters->{$_}->{no_present}) { + if (defined($self->{counters_value}->{$instance}->{$_}) && $self->{counters_value}->{$instance}->{$_} =~ /\d/ && $self->{counters_value}->{$instance}->{$_} != $maps_counters->{$_}->{no_present}) { push @exits, $self->{perfdata}->threshold_check(value => $self->{counters_value}->{$instance}->{$_} * $maps_counters->{$_}->{factor}, threshold => [ { label => $maps_counters->{$_}->{thresholds}->{$name}->{label}, 'exit_litteral' => $maps_counters->{$_}->{thresholds}->{$name}->{exit_value} }]); } } @@ -195,7 +195,7 @@ sub run { my $str_output = "Output Line '$instance_output' "; my $str_append = ''; foreach (keys %{$maps_counters}) { - next if (!defined($self->{counters_value}->{$instance}->{$_}) || $self->{counters_value}->{$instance}->{$_} == $maps_counters->{$_}->{no_present}); + next if (!defined($self->{counters_value}->{$instance}->{$_}) || $self->{counters_value}->{$instance}->{$_} !~ /\d/ || $self->{counters_value}->{$instance}->{$_} == $maps_counters->{$_}->{no_present}); $str_output .= $str_append . sprintf($maps_counters->{$_}->{output_msg}, $self->{counters_value}->{$instance}->{$_} * $maps_counters->{$_}->{factor}); $str_append = ', '; diff --git a/centreon-plugins/network/dell/sseries/snmp/plugin.pm b/centreon-plugins/network/dell/sseries/snmp/plugin.pm new file mode 100644 index 000000000..a2deb5533 --- /dev/null +++ b/centreon-plugins/network/dell/sseries/snmp/plugin.pm @@ -0,0 +1,53 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package network::dell::sseries::snmp::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' => 'centreon::common::force10::snmp::mode::cpu', + 'hardware' => 'centreon::common::force10::snmp::mode::hardware', + 'interfaces' => 'snmp_standard::mode::interfaces', + 'list-interfaces' => 'snmp_standard::mode::listinterfaces', + 'memory' => 'centreon::common::force10::snmp::mode::memory', + ); + + return $self; +} + +1; + +__END__ + +=head1 PLUGIN DESCRIPTION + +Check Dell S-Series in SNMP. + +=cut diff --git a/centreon-plugins/network/extreme/snmp/mode/cpu.pm b/centreon-plugins/network/extreme/snmp/mode/cpu.pm index bd8925471..1ead97521 100644 --- a/centreon-plugins/network/extreme/snmp/mode/cpu.pm +++ b/centreon-plugins/network/extreme/snmp/mode/cpu.pm @@ -260,6 +260,10 @@ sub manage_selection { my $instance = $1; my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_extremeCpuMonitorSystemEntry}, instance => $instance); + foreach (keys %{$mapping}) { + $result->{$_} = undef if (defined($result->{$_}) && $result->{$_} =~ /n\/a/i); + } + $self->{cpu}->{$instance} = {num => $instance, %$result}; } diff --git a/centreon-plugins/network/f5/bigip/mode/components/fan.pm b/centreon-plugins/network/f5/bigip/mode/components/fan.pm index 3218c2697..0ccbafbac 100644 --- a/centreon-plugins/network/f5/bigip/mode/components/fan.pm +++ b/centreon-plugins/network/f5/bigip/mode/components/fan.pm @@ -29,43 +29,59 @@ my %map_status = ( 2 => 'notPresent', ); +my $mapping = { + sysChassisFanStatus => { oid => '.1.3.6.1.4.1.3375.2.1.3.2.1.2.1.2', map => \%map_status }, + sysChassisFanSpeed => { oid => '.1.3.6.1.4.1.3375.2.1.3.2.1.2.1.3' }, +}; +my $oid_sysChassisFanEntry = '.1.3.6.1.4.1.3375.2.1.3.2.1.2.1'; + +sub load { + my (%options) = @_; + + push @{$options{request}}, { oid => $oid_sysChassisFanEntry }; +} + sub check { my ($self) = @_; - $self->{components}->{fan} = {name => 'fans', total => 0, skip => 0}; $self->{output}->output_add(long_msg => "Checking fans"); + $self->{components}->{fan} = {name => 'fans', total => 0, skip => 0}; return if ($self->check_exclude(section => 'fan')); - - my $oid_sysChassisFanEntry = '.1.3.6.1.4.1.3375.2.1.3.2.1.2.1'; - my $oid_sysChassisFanStatus = '.1.3.6.1.4.1.3375.2.1.3.2.1.2.1.2'; - my $oid_sysChassisFanSpeed = '.1.3.6.1.4.1.3375.2.1.3.2.1.2.1.3'; - - my $result = $self->{snmp}->get_table(oid => $oid_sysChassisFanEntry); - return if (scalar(keys %$result) <= 0); - foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) { - next if ($key !~ /^$oid_sysChassisFanStatus\.(\d+)$/); + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_sysChassisFanEntry}})) { + next if ($oid !~ /^$mapping->{sysChassisFanStatus}->{oid}\.(.*)$/); my $instance = $1; + my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$oid_sysChassisFanEntry}, instance => $instance); + next if ($result->{sysChassisFanStatus} =~ /notPresent/i && + $self->absent_problem(section => 'fan', instance => $instance)); next if ($self->check_exclude(section => 'fan', instance => $instance)); - - my $status = $result->{$oid_sysChassisFanStatus . '.' . $instance}; - my $speed = $result->{$oid_sysChassisFanSpeed . '.' . $instance}; - + $self->{components}->{fan}->{total}++; - $self->{output}->output_add(long_msg => sprintf("Fan '%s' status is %s.", - $instance, $map_status{$status})); - if ($status < 1) { - $self->{output}->output_add(severity => 'CRITICAL', - short_msg => sprintf("Fan '%s' status is %s", - $instance, $map_status{$status})); + + $self->{output}->output_add(long_msg => sprintf("fan '%s' status is '%s' [instance: %s, speed: %s].", + $instance, $result->{sysChassisFanStatus}, $instance, + defined($result->{sysChassisFanSpeed}) ? $result->{sysChassisFanSpeed} : '-')); + my $exit = $self->get_severity(section => 'fan', value => $result->{sysChassisFanStatus}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Fan '%s' status is '%s'", + $instance, $result->{sysChassisFanStatus})); } - - $self->{output}->perfdata_add(label => "fan_" . $instance, - value => $speed, - ); - } - + + if (defined($result->{sysChassisFanSpeed}) && $result->{sysChassisFanSpeed} =~ /[0-9]/) { + my ($exit2, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'fan', instance => $instance, value => $result->{sysChassisFanSpeed}); + if (!$self->{output}->is_status(value => $exit2, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit2, + short_msg => sprintf("fan speed '%s' is %s rpm", $instance, $result->{sysChassisFanSpeed})); + } + $self->{output}->perfdata_add(label => "fan_" . $instance, unit => 'rpm', + value => $result->{sysChassisFanSpeed}, + warning => $warn, + critical => $crit, + min => 0); + } + } } 1; diff --git a/centreon-plugins/network/f5/bigip/mode/components/psu.pm b/centreon-plugins/network/f5/bigip/mode/components/psu.pm index e43902701..7dfe8a9b3 100644 --- a/centreon-plugins/network/f5/bigip/mode/components/psu.pm +++ b/centreon-plugins/network/f5/bigip/mode/components/psu.pm @@ -29,33 +29,42 @@ my %map_status = ( 2 => 'notPresent', ); +my $mapping = { + sysChassisPowerSupplyStatus => { oid => '.1.3.6.1.4.1.3375.2.1.3.2.2.2.1.2', map => \%map_status }, +}; + +sub load { + my (%options) = @_; + + push @{$options{request}}, { oid => $mapping->{sysChassisPowerSupplyStatus}->{oid} }; +} + sub check { my ($self) = @_; - $self->{components}->{psu} = {name => 'psus', total => 0, skip => 0}; $self->{output}->output_add(long_msg => "Checking power supplies"); + $self->{components}->{psu} = {name => 'psus', total => 0, skip => 0}; return if ($self->check_exclude(section => 'psu')); - - my $oid_sysChassisPowerSupplyEntry = '.1.3.6.1.4.1.3375.2.1.3.2.2.2.1'; - my $oid_sysChassisPowerSupplyStatus = '.1.3.6.1.4.1.3375.2.1.3.2.2.2.1.2'; - - my $result = $self->{snmp}->get_table(oid => $oid_sysChassisPowerSupplyEntry); - return if (scalar(keys %$result) <= 0); - foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) { - next if ($key !~ /^$oid_sysChassisPowerSupplyStatus\.(\d+)$/); + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$mapping->{sysChassisPowerSupplyStatus}->{oid}}})) { + $oid =~ /^$mapping->{sysChassisPowerSupplyStatus}->{oid}\.(.*)$/; my $instance = $1; - next if ($self->check_exclude(section => 'psu', instance => $instance)); + my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$mapping->{sysChassisPowerSupplyStatus}->{oid}}, instance => $instance); - my $status = $result->{$oid_sysChassisPowerSupplyStatus . '.' . $instance}; - + next if ($result->{sysChassisPowerSupplyStatus} =~ /notPresent/i && + $self->absent_problem(section => 'psu', instance => $instance)); + next if ($self->check_exclude(section => 'psu', instance => $instance)); + $self->{components}->{psu}->{total}++; - $self->{output}->output_add(long_msg => sprintf("Power Supply '%s' status is %s.", - $instance, $map_status{$status})); - if ($status < 1) { - $self->{output}->output_add(severity => 'CRITICAL', - short_msg => sprintf("Power Supply '%s' status is %s", - $instance, $map_status{$status})); + + $self->{output}->output_add(long_msg => sprintf("power supply '%s' status is '%s' [instance: %s].", + $instance, $result->{sysChassisPowerSupplyStatus}, $instance + )); + my $exit = $self->get_severity(section => 'psu', value => $result->{sysChassisPowerSupplyStatus}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Power supply '%s' status is '%s'", + $instance, $result->{sysChassisPowerSupplyStatus})); } } } diff --git a/centreon-plugins/network/f5/bigip/mode/components/temperature.pm b/centreon-plugins/network/f5/bigip/mode/components/temperature.pm index db2840ee9..db65b271c 100644 --- a/centreon-plugins/network/f5/bigip/mode/components/temperature.pm +++ b/centreon-plugins/network/f5/bigip/mode/components/temperature.pm @@ -23,37 +23,46 @@ package network::f5::bigip::mode::components::temperature; use strict; use warnings; +my $mapping = { + sysChassisTempTemperature => { oid => '.1.3.6.1.4.1.3375.2.1.3.2.3.2.1.2' }, +}; + +sub load { + my (%options) = @_; + + push @{$options{request}}, { oid => $mapping->{sysChassisTempTemperature}->{oid} }; +} + sub check { my ($self) = @_; - + $self->{output}->output_add(long_msg => "Checking temperatures"); $self->{components}->{temperature} = {name => 'temperatures', total => 0, skip => 0}; return if ($self->check_exclude(section => 'temperature')); - my $oid_sysChassisTempEntry = '.1.3.6.1.4.1.3375.2.1.3.2.3.2.1'; - my $oid_sysChassisTempTemperature = '.1.3.6.1.4.1.3375.2.1.3.2.3.2.1.2'; - - my $result = $self->{snmp}->get_table(oid => $oid_sysChassisTempEntry); - return if (scalar(keys %$result) <= 0); - - foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) { - next if ($key !~ /^$oid_sysChassisTempTemperature\.(\d+)$/); + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$mapping->{sysChassisTempTemperature}->{oid}}})) { + $oid =~ /^$mapping->{sysChassisTempTemperature}->{oid}\.(.*)$/; my $instance = $1; + my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $self->{results}->{$mapping->{sysChassisTempTemperature}->{oid}}, instance => $instance); + next if ($self->check_exclude(section => 'temperature', instance => $instance)); - my $exit_code = $self->{perfdata}->threshold_check(value => $result->{$oid_sysChassisTempTemperature . '.' . $instance}, - threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]); - - $self->{components}->{temperature}->{total}++; - $self->{output}->output_add(severity => $exit_code,long_msg => sprintf("temp_" . $instance . " is %.2f C", $result->{$oid_sysChassisTempTemperature . '.' . $instance})); - if (!$self->{output}->is_status(value => $exit_code, compare => 'ok', litteral => 1)) { - $self->{output}->output_add(severity => $exit_code,short_msg => sprintf("temp_" . $instance . " is %.2f C", $result->{$oid_sysChassisTempTemperature . '.' . $instance})); + $self->{components}->{temperature}->{total}++; + $self->{output}->output_add(long_msg => sprintf("temperature '%s' is %.2f C [instance: %s].", + $instance, $result->{sysChassisTempTemperature}, $instance + )); + + if (defined($result->{sysChassisTempTemperature}) && $result->{sysChassisTempTemperature} =~ /[0-9]/) { + my ($exit, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'temperature', instance => $instance, value => $result->{sysChassisTempTemperature}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Temperature '%s' is %.2f C", $instance, $result->{sysChassisTempTemperature})); + } + $self->{output}->perfdata_add(label => "temp_" . $instance, unit => 'C', + value => sprintf("%.2f", $result->{sysChassisTempTemperature}), + warning => $warn, + critical => $crit); } - - $self->{output}->perfdata_add(label => "temp_" . $instance , unit => 'C', - value => sprintf("%.2f", $result->{$oid_sysChassisTempTemperature . '.' . $instance}), - warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'), - critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical')); } } diff --git a/centreon-plugins/network/f5/bigip/mode/connections.pm b/centreon-plugins/network/f5/bigip/mode/connections.pm index fd4a55d81..10961a2b7 100644 --- a/centreon-plugins/network/f5/bigip/mode/connections.pm +++ b/centreon-plugins/network/f5/bigip/mode/connections.pm @@ -24,6 +24,71 @@ use base qw(centreon::plugins::mode); use strict; use warnings; +use centreon::plugins::values; +use centreon::plugins::statefile; +use Digest::MD5 qw(md5_hex); + +my $maps_counters = { + global => [ + { label => 'client', set => { + key_values => [ { name => 'client' } ], + output_template => 'Current client connections : %s', + perfdatas => [ + { label => 'Client', value => 'client_absolute', template => '%s', + min => 0, unit => 'con' }, + ], + } + }, + { label => 'client-ssl', set => { + key_values => [ { name => 'client_ssl' } ], + output_template => 'Current client SSL connections : %s', + perfdatas => [ + { label => 'ClientSSL', value => 'client_ssl_absolute', template => '%s', + min => 0, unit => 'con' }, + ], + } + }, + { label => 'client-ssl-tps', set => { + key_values => [ { name => 'client_ssl_tot_native', diff => 1 }, { name => 'client_ssl_tot_compat', diff => 1 } ], + output_template => 'TPS client SSL connections : %.2f', threshold_use => 'client_ssl_tps', output_use => 'client_ssl_tps', + closure_custom_calc => \&custom_client_tps_calc, + per_second => 1, + perfdatas => [ + { label => 'ClientSSL_Tps', value => 'client_ssl_tps', template => '%.2f', + unit => 'tps', min => 0 }, + ], + } + }, + { label => 'server', set => { + key_values => [ { name => 'server' } ], + output_template => 'Current server connections: %s', + perfdatas => [ + { label => 'Server', value => 'server_absolute', template => '%s', + min => 0, unit => 'con' }, + ], + } + }, + { label => 'server-ssl', set => { + key_values => [ { name => 'server_ssl' } ], + output_template => 'Current server SSL connections : %s', + perfdatas => [ + { label => 'ServerSSL', value => 'server_ssl_absolute', template => '%s', + min => 0, unit => 'con' }, + ], + } + }, + ] +}; + +sub custom_client_tps_calc { + my ($self, %options) = @_; + + my $diff_native = $options{new_datas}->{$self->{instance} . '_client_ssl_tot_native'} - $options{old_datas}->{$self->{instance} . '_client_ssl_tot_native'}; + my $diff_compat = $options{new_datas}->{$self->{instance} . '_client_ssl_tot_compat'} - $options{old_datas}->{$self->{instance} . '_client_ssl_tot_compat'}; + $self->{result_values}->{client_ssl_tps} = ($diff_native + $diff_compat) / $options{delta_time}; + + return 0; +} sub new { my ($class, %options) = @_; @@ -33,12 +98,25 @@ sub new { $self->{version} = '1.0'; $options{options}->add_options(arguments => { - "warning-client:s" => { name => 'warning_client' }, - "critical-client:s" => { name => 'critical_client' }, - "warning-server:s" => { name => 'warning_server' }, - "critical-server:s" => { name => 'critical_server' }, + "filter-counters:s" => { name => 'filter_counters' }, }); + $self->{statefile_value} = centreon::plugins::statefile->new(%options); + foreach my $key (('global')) { + foreach (@{$maps_counters->{$key}}) { + if (!defined($_->{threshold}) || $_->{threshold} != 0) { + $options{options}->add_options(arguments => { + 'warning-' . $_->{label} . ':s' => { name => 'warning-' . $_->{label} }, + 'critical-' . $_->{label} . ':s' => { name => 'critical-' . $_->{label} }, + }); + } + $_->{obj} = centreon::plugins::values->new(statefile => $self->{statefile_value}, + output => $self->{output}, perfdata => $self->{perfdata}, + label => $_->{label}); + $_->{obj}->set(%{$_->{set}}); + } + } + return $self; } @@ -46,71 +124,106 @@ sub check_options { my ($self, %options) = @_; $self->SUPER::init(%options); - if (($self->{perfdata}->threshold_validate(label => 'warning-client', value => $self->{option_results}->{warning_client})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong warning-client threshold '" . $self->{option_results}->{option_results}->{warning_client} . "'."); - $self->{output}->option_exit(); + foreach my $key (('global')) { + foreach (@{$maps_counters->{$key}}) { + $_->{obj}->init(option_results => $self->{option_results}); + } } - if (($self->{perfdata}->threshold_validate(label => 'critical-client', value => $self->{option_results}->{critical_client})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong critical-client threshold '" . $self->{option_results}->{critical_client} . "'."); - $self->{output}->option_exit(); + + $self->{statefile_value}->check_options(%options); +} + +sub run_global { + my ($self, %options) = @_; + + my ($short_msg, $short_msg_append, $long_msg, $long_msg_append) = ('', '', '', ''); + my @exits; + foreach (@{$maps_counters->{global}}) { + my $obj = $_->{obj}; + + next if (defined($self->{option_results}->{filter_counters}) && $self->{option_results}->{filter_counters} ne '' && + $_->{name} !~ /$self->{option_results}->{filter_counters}/); + + $obj->set(instance => 'global'); + + my ($value_check) = $obj->execute(new_datas => $self->{new_datas}, values => $self->{global}); + + if ($value_check != 0) { + $long_msg .= $long_msg_append . $obj->output_error(); + $long_msg_append = ', '; + next; + } + my $exit2 = $obj->threshold_check(); + push @exits, $exit2; + + my $output = $obj->output(); + $long_msg .= $long_msg_append . $output; + $long_msg_append = ', '; + + if (!$self->{output}->is_status(litteral => 1, value => $exit2, compare => 'ok')) { + $short_msg .= $short_msg_append . $output; + $short_msg_append = ', '; + } + + $obj->perfdata(); } - if (($self->{perfdata}->threshold_validate(label => 'warning-server', value => $self->{option_results}->{warning_server})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong warning-server threshold '" . $self->{option_results}->{warning_client} . "'."); - $self->{output}->option_exit(); - } - if (($self->{perfdata}->threshold_validate(label => 'critical-server', value => $self->{option_results}->{critical_server})) == 0) { - $self->{output}->add_option_msg(short_msg => "Wrong critical-server threshold '" . $self->{option_results}->{critical_client} . "'."); - $self->{output}->option_exit(); + + my $exit = $self->{output}->get_most_critical(status => [ @exits ]); + if (!$self->{output}->is_status(litteral => 1, value => $exit, compare => 'ok')) { + $self->{output}->output_add(severity => $exit, + short_msg => "$short_msg" + ); + } else { + $self->{output}->output_add(short_msg => "$long_msg"); } } sub run { my ($self, %options) = @_; - # $options{snmp} = snmp object - $self->{snmp} = $options{snmp}; - if ($self->{snmp}->is_snmpv1()) { - $self->{output}->add_option_msg(short_msg => "Need to use SNMP v2c or v3."); - $self->{output}->option_exit(); - } + $self->manage_selection(%options); + + $self->{new_datas} = {}; + $self->{statefile_value}->read(statefile => $self->{cache_name}); + $self->{new_datas}->{last_timestamp} = time(); + + $self->run_global(); + $self->{statefile_value}->write(data => $self->{new_datas}); + $self->{output}->display(); + $self->{output}->exit(); +} + +sub manage_selection { + my ($self, %options) = @_; + + $self->{cache_name} = "f5_bipgip_" . $options{snmp}->get_hostname() . '_' . $options{snmp}->get_port() . '_' . $self->{mode} . '_' . + (defined($self->{option_results}->{filter_counters}) ? md5_hex($self->{option_results}->{filter_counters}) : md5_hex('all')); + my $oid_sysStatClientCurConns = '.1.3.6.1.4.1.3375.2.1.1.2.1.8.0'; my $oid_sysStatServerCurConns = '.1.3.6.1.4.1.3375.2.1.1.2.1.15.0'; my $oid_sysClientsslStatCurConns = '.1.3.6.1.4.1.3375.2.1.1.2.9.2.0'; my $oid_sysServersslStatCurConns = '.1.3.6.1.4.1.3375.2.1.1.2.10.2.0'; - - my $result = $self->{snmp}->get_leef(oids => [$oid_sysStatClientCurConns, $oid_sysStatServerCurConns, $oid_sysClientsslStatCurConns, $oid_sysServersslStatCurConns], nothing_quit => 1); + my $oid_sysClientsslStatTotNativeConns = '.1.3.6.1.4.1.3375.2.1.1.2.9.6.0'; + my $oid_sysClientsslStatTotCompatConns = '.1.3.6.1.4.1.3375.2.1.1.2.9.9.0'; - my $sysStatClientCurConns = $result->{$oid_sysStatClientCurConns}; - my $sysStatServerCurConns = $result->{$oid_sysStatServerCurConns}; - my $sysClientsslStatCurConns = $result->{$oid_sysClientsslStatCurConns}; - my $sysServersslStatCurConns = $result->{$oid_sysServersslStatCurConns}; + if ($options{snmp}->is_snmpv1()) { + $self->{output}->add_option_msg(short_msg => "Need to use SNMP v2c or v3."); + $self->{output}->option_exit(); + } - my $exit1 = $self->{perfdata}->threshold_check(value => $sysStatClientCurConns, threshold => [ { label => 'critical-client', 'exit_litteral' => 'critical' }, { label => 'warning-client', exit_litteral => 'warning' } ]); - my $exit2 = $self->{perfdata}->threshold_check(value => $sysStatServerCurConns, threshold => [ { label => 'critical-server', 'exit_litteral' => 'critical' }, { label => 'warning-server', exit_litteral => 'warning' } ]); - my $exit = $self->{output}->get_most_critical(status => [ $exit1, $exit2 ]); - - $self->{output}->output_add(severity => $exit, - short_msg => sprintf("Current connections : Client = %d (SSL: %d) , Server = %d (SSL: %d)", - $sysStatClientCurConns, $sysClientsslStatCurConns, - $sysStatServerCurConns, $sysServersslStatCurConns)); - $self->{output}->perfdata_add(label => "Client", unit => 'con', - value => $sysStatClientCurConns, - warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-client'), - critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-client'), - ); - $self->{output}->perfdata_add(label => "Server", unit => 'con', - value => $sysStatServerCurConns, - warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning-server'), - critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical-server'), - ); - $self->{output}->perfdata_add(label => "ClientSSL", unit => 'con', - value => $sysClientsslStatCurConns); - $self->{output}->perfdata_add(label => "ServerSSL", unit => 'con', - value => $sysServersslStatCurConns); - - $self->{output}->display(); - $self->{output}->exit(); + my $result = $options{snmp}->get_leef(oids => [$oid_sysStatClientCurConns, $oid_sysStatServerCurConns, + $oid_sysClientsslStatCurConns, $oid_sysServersslStatCurConns, + $oid_sysClientsslStatTotNativeConns, $oid_sysClientsslStatTotCompatConns], + nothing_quit => 1); + $self->{global} = { + client => $result->{$oid_sysStatClientCurConns}, + client_ssl => $result->{$oid_sysClientsslStatCurConns}, + client_ssl_tot_native => $result->{$oid_sysClientsslStatTotNativeConns}, + client_ssl_tot_compat => $result->{$oid_sysClientsslStatTotCompatConns}, + server => $result->{$oid_sysStatServerCurConns}, + server_ssl => $result->{$oid_sysServersslStatCurConns}, + }; } 1; @@ -123,23 +236,21 @@ Check current connections on F5 BIG IP device. =over 8 -=item B<--warning-client> +=item B<--filter-counters> -Threshold warning (current client connection number) +Only display some counters (regexp can be used). +Example to check SSL connections only : --filter-counters='^client-ssl|server-ssl$' -=item B<--critical-client> +=item B<--warning-*> -Threshold critical (current client connection number) +Threshold warning. +Can be: 'client', 'server', 'client-ssl', 'server-ssl', 'client-ssl-tps'. -=item B<--warning-server> +=item B<--critical-*> -Threshold warning (current server connection number) - -=item B<--critical-server> - -Threshold critical (current server connection number) +Threshold critical. +Can be: 'client', 'server', 'client-ssl', 'server-ssl', 'client-ssl-tps'. =back -=cut - +=cut \ No newline at end of file diff --git a/centreon-plugins/network/f5/bigip/mode/failover.pm b/centreon-plugins/network/f5/bigip/mode/failover.pm new file mode 100644 index 000000000..355407b7e --- /dev/null +++ b/centreon-plugins/network/f5/bigip/mode/failover.pm @@ -0,0 +1,337 @@ +# +# Copyright 2015 Centreon (http://www.centreon.com/) +# +# Centreon is a full-fledged industry-strength solution that meets +# the needs in IT infrastructure and application monitoring for +# service performance. +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package network::f5::bigip::mode::failover; + +use base qw(centreon::plugins::mode); + +use strict; +use warnings; +use centreon::plugins::values; + +my $instance_mode; + +my $maps_counters = { + global => [ + { label => 'sync-status', threshold => 0, set => { + key_values => [ { name => 'syncstatus' } ], + closure_custom_calc => \&custom_syncstatus_calc, + closure_custom_output => \&custom_syncstatus_output, + closure_custom_perfdata => sub { return 0; }, + closure_custom_threshold_check => \&custom_syncstatus_threshold, + } + }, + { label => 'failover-status', threshold => 0, set => { + key_values => [ { name => 'failoverstatus' } ], + closure_custom_calc => \&custom_failoverstatus_calc, + closure_custom_output => \&custom_failoverstatus_output, + closure_custom_perfdata => sub { return 0; }, + closure_custom_threshold_check => \&custom_failoverstatus_threshold, + } + }, + ] +}; + +sub custom_syncstatus_threshold { + my ($self, %options) = @_; + my $status = 'ok'; + my $message; + + eval { + local $SIG{__WARN__} = sub { $message = $_[0]; }; + local $SIG{__DIE__} = sub { $message = $_[0]; }; + + if (defined($instance_mode->{option_results}->{critical_sync_status}) && $instance_mode->{option_results}->{critical_sync_status} ne '' && + eval "$instance_mode->{option_results}->{critical_sync_status}") { + $status = 'critical'; + } elsif (defined($instance_mode->{option_results}->{critical_sync_status}) && $instance_mode->{option_results}->{critical_sync_status} ne '' && + eval "$instance_mode->{option_results}->{critical_sync_status}") { + $status = 'warning'; + } + }; + if (defined($message)) { + $self->{output}->output_add(long_msg => 'filter status issue: ' . $message); + } + + return $status; +} + +sub custom_syncstatus_output { + my ($self, %options) = @_; + my $msg = "Sync status is '" . $self->{result_values}->{syncstatus} . "'"; + + return $msg; +} + +sub custom_syncstatus_calc { + my ($self, %options) = @_; + + $self->{result_values}->{syncstatus} = $options{new_datas}->{$self->{instance} . '_syncstatus'}; + return 0; +} + +sub custom_failoverstatus_threshold { + my ($self, %options) = @_; + my $status = 'ok'; + my $message; + + eval { + local $SIG{__WARN__} = sub { $message = $_[0]; }; + local $SIG{__DIE__} = sub { $message = $_[0]; }; + + if (defined($instance_mode->{option_results}->{critical_failover_status}) && $instance_mode->{option_results}->{critical_failover_status} ne '' && + eval "$instance_mode->{option_results}->{critical_failover_status}") { + $status = 'critical'; + } elsif (defined($instance_mode->{option_results}->{critical_failover_status}) && $instance_mode->{option_results}->{critical_failover_status} ne '' && + eval "$instance_mode->{option_results}->{critical_failover_status}") { + $status = 'warning'; + } + }; + if (defined($message)) { + $self->{output}->output_add(long_msg => 'filter status issue: ' . $message); + } + + return $status; +} + +sub custom_failoverstatus_output { + my ($self, %options) = @_; + my $msg = "Failover status is '" . $self->{result_values}->{failoverstatus} . "'"; + + return $msg; +} + +sub custom_failoverstatus_calc { + my ($self, %options) = @_; + + $self->{result_values}->{failoverstatus} = $options{new_datas}->{$self->{instance} . '_failoverstatus'}; + return 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 => + { + "filter-counters:s" => { name => 'filter_counters' }, + "warning-sync-status:s" => { name => 'warning_sync_status', default => '' }, + "critical-sync-status:s" => { name => 'critical_sync_status', default => '%{syncstatus} =~ /unknown|syncFailed|syncDisconnected|incompatibleVersion/' }, + "warning-failover-status:s" => { name => 'warning_failover_status', default => '' }, + "critical-failover-status:s" => { name => 'critical_failover_status', default => '%{failoverstatus} =~ /unknown/' }, + }); + + foreach my $key (('global')) { + foreach (@{$maps_counters->{$key}}) { + if (!defined($_->{threshold}) || $_->{threshold} != 0) { + $options{options}->add_options(arguments => { + 'warning-' . $_->{label} . ':s' => { name => 'warning-' . $_->{label} }, + 'critical-' . $_->{label} . ':s' => { name => 'critical-' . $_->{label} }, + }); + } + $_->{obj} = centreon::plugins::values->new(statefile => $self->{statefile_value}, + output => $self->{output}, perfdata => $self->{perfdata}, + label => $_->{label}); + $_->{obj}->set(%{$_->{set}}); + } + } + + return $self; +} + +sub check_options { + my ($self, %options) = @_; + $self->SUPER::init(%options); + + foreach my $key (('global')) { + foreach (@{$maps_counters->{$key}}) { + $_->{obj}->init(option_results => $self->{option_results}); + } + } + + $instance_mode = $self; + $self->change_macros(); +} + +sub run_global { + my ($self, %options) = @_; + + my ($short_msg, $short_msg_append, $long_msg, $long_msg_append) = ('', '', '', ''); + my @exits; + foreach (@{$maps_counters->{global}}) { + my $obj = $_->{obj}; + + next if (defined($self->{option_results}->{filter_counters}) && $self->{option_results}->{filter_counters} ne '' && + $_->{name} !~ /$self->{option_results}->{filter_counters}/); + + $obj->set(instance => 'global'); + + my ($value_check) = $obj->execute(values => $self->{global}); + + if ($value_check != 0) { + $long_msg .= $long_msg_append . $obj->output_error(); + $long_msg_append = ' - '; + next; + } + my $exit2 = $obj->threshold_check(); + push @exits, $exit2; + + my $output = $obj->output(); + $long_msg .= $long_msg_append . $output; + $long_msg_append = ' - '; + + if (!$self->{output}->is_status(litteral => 1, value => $exit2, compare => 'ok')) { + $short_msg .= $short_msg_append . $output; + $short_msg_append = ' - '; + } + + $obj->perfdata(); + } + + my $exit = $self->{output}->get_most_critical(status => [ @exits ]); + if (!$self->{output}->is_status(litteral => 1, value => $exit, compare => 'ok')) { + $self->{output}->output_add(severity => $exit, + short_msg => "$short_msg" + ); + } else { + $self->{output}->output_add(short_msg => "$long_msg"); + } +} + +sub run { + my ($self, %options) = @_; + + $self->manage_selection(%options); + + $self->run_global(); + + $self->{output}->display(); + $self->{output}->exit(); +} + +sub change_macros { + my ($self, %options) = @_; + + foreach (('warning_sync_status', 'critical_sync_status', 'warning_failover_status', 'critical_failover_status')) { + if (defined($self->{option_results}->{$_})) { + $self->{option_results}->{$_} =~ s/%\{(.*?)\}/\$self->{result_values}->{$1}/g; + } + } +} + +my %map_boolean = ( + 0 => 'false', + 1 => 'true', +); +my %map_sync_status = ( + 0 => 'unknown', + 1 => 'syncing', + 2 => 'needManualSync', + 3 => 'inSync', + 4 => 'syncFailed', + 5 => 'syncDisconnected', + 6 => 'standalone', + 7 => 'awaitingInitialSync', + 8 => 'incompatibleVersion', + 9 => 'partialSync', +); +my %map_failover_status = ( + 0 => 'unknown', + 1 => 'offline', + 2 => 'forcedOffline', + 3 => 'standby', + 4 => 'active', +); + +my $mapping = { + sysAttrFailoverIsRedundant => { oid => '.1.3.6.1.4.1.3375.2.1.1.1.1.13', map => \%map_boolean }, + sysAttrModeMaint => { oid => '.1.3.6.1.4.1.3375.2.1.1.1.1.21', map => \%map_boolean }, + sysCmSyncStatusId => { oid => '.1.3.6.1.4.1.3375.2.1.14.1.1', map => \%map_sync_status }, + sysCmFailoverStatusId => { oid => '.1.3.6.1.4.1.3375.2.1.14.3.1', map => \%map_failover_status }, +}; + +sub manage_selection { + my ($self, %options) = @_; + + my $result = $options{snmp}->get_leef(oids => [$mapping->{sysAttrFailoverIsRedundant}->{oid} . '.0', + $mapping->{sysAttrModeMaint}->{oid} . '.0', + $mapping->{sysCmSyncStatusId}->{oid} . '.0', + $mapping->{sysCmFailoverStatusId}->{oid} . '.0'], + nothing_quit => 1); + my $result2 = $options{snmp}->map_instance(mapping => $mapping, results => $result, instance => '0'); + + if ($result2->{sysAttrModeMaint} eq 'true') { + $self->{output}->output_add(severity => 'OK', + short_msg => 'maintenance mode is active'); + $self->{output}->display(); + $self->{output}->exit(); + } + if ($result2->{sysAttrFailoverIsRedundant} eq 'false') { + $self->{output}->output_add(severity => 'OK', + short_msg => 'failover mode is disable'); + $self->{output}->display(); + $self->{output}->exit(); + } + + $self->{global} = { + syncstatus => $result2->{sysCmSyncStatusId}, + failoverstatus => $result2->{sysCmFailoverStatusId}, + }; +} + +1; + +__END__ + +=head1 MODE + +Check failover status. + +=over 8 + +=item B<--filter-counters> + +Only display some counters (regexp can be used). + +=item B<--warning-sync-status> + +Set warning threshold for sync status +Can used special variables like: %{syncstatus} + +=item B<--critical-sync-status> + +Set critical threshold for sync status (Default: '%{syncstatus} =~ /unknown|syncFailed|syncDisconnected|incompatibleVersion/'). +Can used special variables like: %{syncstatus} + +=item B<--warning-failover-status> + +Set warning threshold for failover status +Can used special variables like: %{failoverstatus} + +=item B<--critical-failover-status> + +Set critical threshold for failover status (Default: '%{failoverstatus} =~ /unknown/'). +Can used special variables like: %{failoverstatus} + +=back + +=cut \ No newline at end of file diff --git a/centreon-plugins/network/f5/bigip/mode/hardware.pm b/centreon-plugins/network/f5/bigip/mode/hardware.pm index 09b0ce08a..55f74d3e4 100644 --- a/centreon-plugins/network/f5/bigip/mode/hardware.pm +++ b/centreon-plugins/network/f5/bigip/mode/hardware.pm @@ -24,10 +24,20 @@ use base qw(centreon::plugins::mode); use strict; use warnings; +use centreon::plugins::misc; -use network::f5::bigip::mode::components::fan; -use network::f5::bigip::mode::components::psu; -use network::f5::bigip::mode::components::temperature; +my $thresholds = { + fan => [ + ['bad', 'CRITICAL'], + ['good', 'OK'], + ['notPresent', 'OK'], + ], + psu => [ + ['bad', 'CRITICAL'], + ['good', 'OK'], + ['notPresent', 'OK'], + ], +}; sub new { my ($class, %options) = @_; @@ -37,12 +47,16 @@ sub new { $self->{version} = '1.0'; $options{options}->add_options(arguments => { - "exclude:s" => { name => 'exclude' }, - "component:s" => { name => 'component', default => 'all' }, - "warning:s" => { name => 'warning' }, - "critical:s" => { name => 'critical' }, + "exclude:s" => { name => 'exclude' }, + "absent-problem:s@" => { name => 'absent_problem' }, + "component:s" => { name => 'component', default => '.*' }, + "no-component:s" => { name => 'no_component' }, + "threshold-overload:s@" => { name => 'threshold_overload' }, + "warning:s@" => { name => 'warning' }, + "critical:s@" => { name => 'critical' }, }); $self->{components} = {}; + $self->{no_components} = undef; return $self; } @@ -50,43 +64,105 @@ 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 (defined($self->{option_results}->{no_component})) { + if ($self->{option_results}->{no_component} ne '') { + $self->{no_components} = $self->{option_results}->{no_component}; + } else { + $self->{no_components} = 'critical'; + } } - 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(); + + $self->{absent_problem} = []; + foreach my $val (@{$self->{option_results}->{absent_problem}}) { + next if (!defined($val) || $val eq ''); + my @values = split (/,/, $val); + push @{$self->{absent_problem}}, { filter => $values[0], instance => $values[1] }; + } + + $self->{overload_th} = {}; + foreach my $val (@{$self->{option_results}->{threshold_overload}}) { + next if (!defined($val) || $val eq ''); + my @values = split (/,/, $val); + if (scalar(@values) < 3) { + $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload option '" . $val . "'."); + $self->{output}->option_exit(); + } + my ($section, $instance, $status, $filter); + if (scalar(@values) == 3) { + ($section, $status, $filter) = @values; + $instance = '.*'; + } else { + ($section, $instance, $status, $filter) = @values; + } + if ($section !~ /^(temperature|fan|psu)$/) { + $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload section '" . $val . "'."); + $self->{output}->option_exit(); + } + if ($self->{output}->is_litteral_status(status => $status) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload status '" . $val . "'."); + $self->{output}->option_exit(); + } + $self->{overload_th}->{$section} = [] if (!defined($self->{overload_th}->{$section})); + push @{$self->{overload_th}->{$section}}, {filter => $filter, status => $status, instance => $instance }; + } + + $self->{numeric_threshold} = {}; + foreach my $option (('warning', 'critical')) { + foreach my $val (@{$self->{option_results}->{$option}}) { + next if (!defined($val) || $val eq ''); + if ($val !~ /^(.*?),(.*?),(.*)$/) { + $self->{output}->add_option_msg(short_msg => "Wrong $option option '" . $val . "'."); + $self->{output}->option_exit(); + } + my ($section, $instance, $value) = ($1, $2, $3); + if ($section !~ /^(temperature|fan)$/) { + $self->{output}->add_option_msg(short_msg => "Wrong $option option '" . $val . "'."); + $self->{output}->option_exit(); + } + my $position = 0; + if (defined($self->{numeric_threshold}->{$section})) { + $position = scalar(@{$self->{numeric_threshold}->{$section}}); + } + if (($self->{perfdata}->threshold_validate(label => $option . '-' . $section . '-' . $position, value => $value)) == 0) { + $self->{output}->add_option_msg(short_msg => "Wrong $option threshold '" . $value . "'."); + $self->{output}->option_exit(); + } + $self->{numeric_threshold}->{$section} = [] if (!defined($self->{numeric_threshold}->{$section})); + push @{$self->{numeric_threshold}->{$section}}, { label => $option . '-' . $section . '-' . $position, threshold => $option, instance => $instance }; + } } - -} - -sub global { - my ($self, %options) = @_; - - network::f5::bigip::mode::components::temperature::check($self); - network::f5::bigip::mode::components::fan::check($self); - network::f5::bigip::mode::components::psu::check($self); } sub run { my ($self, %options) = @_; - # $options{snmp} = snmp object $self->{snmp} = $options{snmp}; + + my $snmp_request = []; + my @components = ('fan', 'psu', 'temperature'); + foreach (@components) { + if (/$self->{option_results}->{component}/) { + my $mod_name = "network::f5::bigip::mode::components::$_"; + centreon::plugins::misc::mymodule_load(output => $self->{output}, module => $mod_name, + error_msg => "Cannot load module '$mod_name'."); + my $func = $mod_name->can('load'); + $func->(request => $snmp_request); + } + } - if ($self->{option_results}->{component} eq 'all') { - $self->global(); - } elsif ($self->{option_results}->{component} eq 'fan') { - network::f5::bigip::mode::components::fan::check($self); - } elsif ($self->{option_results}->{component} eq 'psu') { - network::f5::bigip::mode::components::psu::check($self); - } elsif ($self->{option_results}->{component} eq 'temperature') { - network::f5::bigip::mode::components::temperature::check($self); - } else { + if (scalar(@{$snmp_request}) == 0) { $self->{output}->add_option_msg(short_msg => "Wrong option. Cannot find component '" . $self->{option_results}->{component} . "'."); $self->{output}->option_exit(); } - + $self->{results} = $self->{snmp}->get_multiple_table(oids => $snmp_request); + + foreach (@components) { + if (/$self->{option_results}->{component}/) { + my $mod_name = "network::f5::bigip::mode::components::$_"; + my $func = $mod_name->can('check'); + $func->($self); + } + } + my $total_components = 0; my $display_by_component = ''; my $display_by_component_append = ''; @@ -94,17 +170,22 @@ sub run { # Skipping short msg when no components next if ($self->{components}->{$comp}->{total} == 0 && $self->{components}->{$comp}->{skip} == 0); $total_components += $self->{components}->{$comp}->{total} + $self->{components}->{$comp}->{skip}; - $display_by_component .= $display_by_component_append . $self->{components}->{$comp}->{total} . '/' . $self->{components}->{$comp}->{skip} . ' ' . $self->{components}->{$comp}->{name}; + my $count_by_components = $self->{components}->{$comp}->{total} + $self->{components}->{$comp}->{skip}; + $display_by_component .= $display_by_component_append . $self->{components}->{$comp}->{total} . '/' . $count_by_components . ' ' . $self->{components}->{$comp}->{name}; $display_by_component_append = ', '; } $self->{output}->output_add(severity => 'OK', - short_msg => sprintf("All %s components [%s] are ok.", + short_msg => sprintf("All %s components are ok [%s].", $total_components, - $display_by_component - ) + $display_by_component) ); - + + if (defined($self->{option_results}->{no_component}) && $total_components == 0) { + $self->{output}->output_add(severity => $self->{no_components}, + short_msg => 'No components are checked.'); + } + $self->{output}->display(); $self->{output}->exit(); } @@ -125,6 +206,70 @@ sub check_exclude { return 0; } +sub absent_problem { + my ($self, %options) = @_; + + foreach (@{$self->{absent_problem}}) { + if ($options{section} =~ /$_->{filter}/) { + if (!defined($_->{instance}) || $options{instance} =~ /$_->{instance}/) { + $self->{output}->output_add(severity => 'CRITICAL', + short_msg => sprintf("Component '%s' instance '%s' is not present", + $options{section}, $options{instance})); + $self->{output}->output_add(long_msg => sprintf("Skipping $options{section} section $options{instance} instance (not present)")); + $self->{components}->{$options{section}}->{skip}++; + return 1; + } + } + } + + return 0; +} + +sub get_severity { + my ($self, %options) = @_; + my $status = 'UNKNOWN'; # default + + if (defined($self->{overload_th}->{$options{section}})) { + foreach (@{$self->{overload_th}->{$options{section}}}) { + if ($options{value} =~ /$_->{filter}/i && + (!defined($options{instance}) || $options{instance} =~ /$_->{instance}/)) { + $status = $_->{status}; + return $status; + } + } + } + my $label = defined($options{label}) ? $options{label} : $options{section}; + foreach (@{$thresholds->{$label}}) { + if ($options{value} =~ /$$_[0]/i) { + $status = $$_[1]; + return $status; + } + } + + return $status; +} + +sub get_severity_numeric { + my ($self, %options) = @_; + my $status = 'OK'; # default + my $thresholds = { warning => undef, critical => undef }; + my $checked = 0; + + if (defined($self->{numeric_threshold}->{$options{section}})) { + my $exits = []; + foreach (@{$self->{numeric_threshold}->{$options{section}}}) { + if ($options{instance} =~ /$_->{instance}/) { + push @{$exits}, $self->{perfdata}->threshold_check(value => $options{value}, threshold => [ { label => $_->{label}, exit_litteral => $_->{threshold} } ]); + $thresholds->{$_->{threshold}} = $self->{perfdata}->get_perfdata_for_output(label => $_->{label}); + $checked = 1; + } + } + $status = $self->{output}->get_most_critical(status => $exits) if (scalar(@{$exits}) > 0); + } + + return ($status, $thresholds->{warning}, $thresholds->{critical}, $checked); +} + 1; __END__ @@ -137,21 +282,34 @@ Check hardware (fans, temperatures, power supplies). =item B<--component> -Which component to check (Default: 'all'). +Which component to check (Default: '.*'). Can be: 'fan', 'psu', 'temperature'. =item B<--exclude> Exclude some parts (comma seperated list) (Example: --exclude=fan,psu) -Can also exclude specific instance: --exclude=fan#1#2#,psu +Can be specific or global: --exclude=fan#1#2#,psu + +=item B<--no-component> + +Return an error if no compenents are checked. +If total (with skipped) is 0. (Default: 'critical' returns). + +=item B<--threshold-overload> + +Set to overload default threshold values (syntax: section,[instance,]status,regexp) +It used before default thresholds (order stays). +Example: --threshold-overload='powerQuality,CRITICAL,^(?!(normal)$)' =item B<--warning> -Threshold warning in degree celsius. +Set warning threshold for temperatures, fan speed (syntax: type,instance,threshold) +Example: --warning='temperature,.*,30' =item B<--critical> -Threshold critical in degree celsius. +Set critical threshold for temperatures, fan speed (syntax: type,instance,threshold) +Example: --critical='temperature,.*,40' =back diff --git a/centreon-plugins/network/f5/bigip/plugin.pm b/centreon-plugins/network/f5/bigip/plugin.pm index 5657b0128..05d5e0437 100644 --- a/centreon-plugins/network/f5/bigip/plugin.pm +++ b/centreon-plugins/network/f5/bigip/plugin.pm @@ -32,14 +32,15 @@ sub new { $self->{version} = '1.0'; %{$self->{modes}} = ( - 'node-status' => 'network::f5::bigip::mode::nodestatus', - 'pool-status' => 'network::f5::bigip::mode::poolstatus', - 'virtualserver-status' => 'network::f5::bigip::mode::virtualserverstatus', + 'connections' => 'network::f5::bigip::mode::connections', + 'failover' => 'network::f5::bigip::mode::failover', + 'hardware' => 'network::f5::bigip::mode::hardware', 'list-nodes' => 'network::f5::bigip::mode::listnodes', 'list-pools' => 'network::f5::bigip::mode::listpools', 'list-virtualservers' => 'network::f5::bigip::mode::listvirtualservers', - 'hardware' => 'network::f5::bigip::mode::hardware', - 'connections' => 'network::f5::bigip::mode::connections', + 'node-status' => 'network::f5::bigip::mode::nodestatus', + 'pool-status' => 'network::f5::bigip::mode::poolstatus', + 'virtualserver-status' => 'network::f5::bigip::mode::virtualserverstatus', ); return $self; diff --git a/centreon-plugins/os/linux/local/mode/cmdreturn.pm b/centreon-plugins/os/linux/local/mode/cmdreturn.pm index bf16172fe..bff8517c7 100644 --- a/centreon-plugins/os/linux/local/mode/cmdreturn.pm +++ b/centreon-plugins/os/linux/local/mode/cmdreturn.pm @@ -99,6 +99,11 @@ sub run { short_msg => 'Exit code from command'); } + if (defined($exit_code)) { + $self->{output}->perfdata_add(label => "code", + value => $exit_code); + } + $self->{output}->display(); $self->{output}->exit(); } diff --git a/centreon-plugins/snmp_standard/mode/inodes.pm b/centreon-plugins/snmp_standard/mode/inodes.pm index 32a995eab..6f61e8058 100644 --- a/centreon-plugins/snmp_standard/mode/inodes.pm +++ b/centreon-plugins/snmp_standard/mode/inodes.pm @@ -24,10 +24,22 @@ use base qw(centreon::plugins::mode); use strict; use warnings; -use centreon::plugins::statefile; +use centreon::plugins::values; -my $oid_dskPath = '.1.3.6.1.4.1.2021.9.1.2'; -my $oid_dskPercentNode = '.1.3.6.1.4.1.2021.9.1.10'; +my $maps_counters = { + disk => { + '000_usage' => { + set => { + key_values => [ { name => 'usage' }, { name => 'display' } ], + output_template => 'Used: %s %%', output_error_template => "%s", + perfdatas => [ + { label => 'used', value => 'usage_absolute', template => '%d', + unit => '%', min => 0, max => 100, label_extra_instance => 1, instance_use => 'display_absolute' }, + ], + }, + }, + } +}; sub new { my ($class, %options) = @_; @@ -36,21 +48,30 @@ sub new { $self->{version} = '1.0'; $options{options}->add_options(arguments => - { - "warning:s" => { name => 'warning' }, - "critical:s" => { name => 'critical' }, - "reload-cache-time:s" => { name => 'reload_cache_time', default => 180 }, + { "name" => { name => 'use_name' }, "diskpath:s" => { name => 'diskpath' }, "regexp" => { name => 'use_regexp' }, "regexp-isensitive" => { name => 'use_regexpi' }, + "filter-device:s" => { name => 'filter_device' }, "display-transform-src:s" => { name => 'display_transform_src' }, "display-transform-dst:s" => { name => 'display_transform_dst' }, - "show-cache" => { name => 'show_cache' }, }); - $self->{diskpath_id_selected} = []; - $self->{statefile_cache} = centreon::plugins::statefile->new(%options); + foreach my $key (('disk')) { + foreach (keys %{$maps_counters->{$key}}) { + my ($id, $name) = split /_/; + if (!defined($maps_counters->{$key}->{$_}->{threshold}) || $maps_counters->{$key}->{$_}->{threshold} != 0) { + $options{options}->add_options(arguments => { + 'warning-' . $name . ':s' => { name => 'warning-' . $name }, + 'critical-' . $name . ':s' => { name => 'critical-' . $name }, + }); + } + $maps_counters->{$key}->{$_}->{obj} = centreon::plugins::values->new(output => $self->{output}, perfdata => $self->{perfdata}, + label => $name); + $maps_counters->{$key}->{$_}->{obj}->set(%{$maps_counters->{$key}->{$_}->{set}}); + } + } return $self; } @@ -58,146 +79,142 @@ sub new { 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(); - } - $self->{statefile_cache}->check_options(%options); + foreach my $key (('disk')) { + foreach (keys %{$maps_counters->{$key}}) { + $maps_counters->{$key}->{$_}->{obj}->init(option_results => $self->{option_results}); + } + } } sub run { my ($self, %options) = @_; - # $options{snmp} = snmp object $self->{snmp} = $options{snmp}; - $self->{hostname} = $self->{snmp}->get_hostname(); - $self->{snmp_port} = $self->{snmp}->get_port(); $self->manage_selection(); - - $self->{snmp}->load(oids => [$oid_dskPercentNode], instances => $self->{diskpath_id_selected}); - my $result = $self->{snmp}->get_leef(nothing_quit => 1); - - if (!defined($self->{option_results}->{diskpath}) || defined($self->{option_results}->{use_regexp})) { + + my $multiple = 1; + if (scalar(keys %{$self->{disk_selected}}) == 1) { + $multiple = 0; + } + + if ($multiple == 1) { $self->{output}->output_add(severity => 'OK', - short_msg => 'All inode partitions are ok.'); + short_msg => 'All inode partitions are ok'); } + + foreach my $id (sort keys %{$self->{disk_selected}}) { + my ($short_msg, $short_msg_append, $long_msg, $long_msg_append) = ('', '', '', ''); + my @exits; + foreach (sort keys %{$maps_counters->{disk}}) { + my $obj = $maps_counters->{disk}->{$_}->{obj}; + $obj->set(instance => $id); + + my ($value_check) = $obj->execute(values => $self->{disk_selected}->{$id}); - foreach (sort @{$self->{diskpath_id_selected}}) { - my $name_diskpath = $self->get_display_value(id => $_); + if ($value_check != 0) { + $long_msg .= $long_msg_append . $obj->output_error(); + $long_msg_append = ', '; + next; + } + my $exit2 = $obj->threshold_check(); + push @exits, $exit2; - my $prct_used = $result->{$oid_dskPercentNode . '.' . $_}; - my $prct_free = 100 - $prct_used; + my $output = $obj->output(); + $long_msg .= $long_msg_append . $output; + $long_msg_append = ', '; + + if (!$self->{output}->is_status(litteral => 1, value => $exit2, compare => 'ok')) { + $short_msg .= $short_msg_append . $output; + $short_msg_append = ', '; + } + + $obj->perfdata(extra_instance => $multiple); + } - my $exit = $self->{perfdata}->threshold_check(value => $prct_used, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]); - - $self->{output}->output_add(long_msg => sprintf("Inodes partition '%s' Used: %s %% Free: %s %%", - $name_diskpath, $prct_used, $prct_free)); - if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1) || (defined($self->{option_results}->{diskpath}) && !defined($self->{option_results}->{use_regexp}))) { + $self->{output}->output_add(long_msg => "Inode partition '" . $self->{disk_selected}->{$id}->{display} . "' $long_msg"); + my $exit = $self->{output}->get_most_critical(status => [ @exits ]); + if (!$self->{output}->is_status(litteral => 1, value => $exit, compare => 'ok')) { $self->{output}->output_add(severity => $exit, - short_msg => sprintf("Inodes partition '%s' Used: %s %% Free: %s %%", - $name_diskpath, $prct_used, $prct_free)); - } - - my $label = 'used'; - my $extra_label = ''; - $extra_label = '_' . $name_diskpath if (!defined($self->{option_results}->{diskpath}) || defined($self->{option_results}->{use_regexp})); - $self->{output}->perfdata_add(label => $label . $extra_label, unit => '%', - value => $prct_used, - warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'), - critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'), - min => 0, max => 100); + short_msg => "Inode partition '" . $self->{disk_selected}->{$id}->{display} . "' $short_msg" + ); + } + + if ($multiple == 0) { + $self->{output}->output_add(short_msg => "Inode partition '" . $self->{disk_selected}->{$id}->{display} . "' $long_msg"); + } } - + $self->{output}->display(); $self->{output}->exit(); } -sub reload_cache { - my ($self) = @_; - my $datas = {}; - - my $result = $self->{snmp}->get_table(oid => $oid_dskPath); - $datas->{last_timestamp} = time(); - $datas->{all_ids} = []; - foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) { - next if ($key !~ /\.([0-9]+)$/); - push @{$datas->{all_ids}}, $1; - $datas->{'dskPath_' . $1} = $self->{output}->to_utf8($result->{$key}); - } - - if (scalar(@{$datas->{all_ids}}) <= 0) { - $self->{output}->add_option_msg(short_msg => "Can't construct cache..."); - $self->{output}->option_exit(); - } - - $self->{statefile_cache}->write(data => $datas); -} +my $mapping = { + dskPath => { oid => '.1.3.6.1.4.1.2021.9.1.2' }, + dskDevice => { oid => '.1.3.6.1.4.1.2021.9.1.3' }, + dskPercentNode => { oid => '.1.3.6.1.4.1.2021.9.1.10' }, +}; sub manage_selection { my ($self, %options) = @_; - - # init cache file - my $has_cache_file = $self->{statefile_cache}->read(statefile => 'cache_snmpstandard_' . $self->{hostname} . '_' . $self->{snmp_port} . '_' . $self->{mode}); - if (defined($self->{option_results}->{show_cache})) { - $self->{output}->add_option_msg(long_msg => $self->{statefile_cache}->get_string_content()); - $self->{output}->option_exit(); - } - - my $timestamp_cache = $self->{statefile_cache}->get(name => 'last_timestamp'); - if ($has_cache_file == 0 || !defined($timestamp_cache) || - ((time() - $timestamp_cache) > (($self->{option_results}->{reload_cache_time}) * 60))) { - $self->reload_cache(); - $self->{statefile_cache}->read(); - } - - my $all_ids = $self->{statefile_cache}->get(name => 'all_ids'); - if (!defined($self->{option_results}->{use_name}) && defined($self->{option_results}->{diskpath})) { - # get by ID - push @{$self->{diskpath_id_selected}}, $self->{option_results}->{diskpath}; - my $name = $self->{statefile_cache}->get(name => 'dskPath_' . $self->{option_results}->{diskpath}); - if (!defined($name)) { - $self->{output}->add_option_msg(short_msg => "No disk path found for id '" . $self->{option_results}->{diskpath} . "'."); - $self->{output}->option_exit(); + + my $results = $self->{snmp}->get_multiple_table(oids => [ { oid => $mapping->{dskPath}->{oid} }, + { oid => $mapping->{dskDevice}->{oid} }, + { oid => $mapping->{dskPercentNode}->{oid} } ], + return_type => 1, nothing_quit => 1); + $self->{disk_selected} = {}; + foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$results})) { + next if ($oid !~ /^$mapping->{dskPath}->{oid}\.(.*)/); + my $instance = $1; + + my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $results, instance => $instance); + $result->{dskPath} = $self->get_display_value(value => $result->{dskPath}); + + $self->{output}->output_add(long_msg => sprintf("disk path : '%s', device : '%s'", $result->{dskPath}, $result->{dskDevice}), debug => 1); + + if (!defined($result->{dskPercentNode})) { + $self->{output}->output_add(long_msg => sprintf("skipping '%s' : no inode usage value", $result->{dskPath}), debug => 1); + next; } - } else { - foreach my $i (@{$all_ids}) { - my $filter_name = $self->{statefile_cache}->get(name => 'dskPath_' . $i); - next if (!defined($filter_name)); - if (!defined($self->{option_results}->{diskpath})) { - push @{$self->{diskpath_id_selected}}, $i; + if (defined($result->{dskDevice}) && defined($self->{option_results}->{filter_device}) && + $self->{option_results}->{filter_device} ne '' && $result->{dskDevice} !~ /$self->{option_results}->{filter_device}/) { + $self->{output}->output_add(long_msg => sprintf("skipping '%s' : filter disk device", $result->{dskPath}), debug => 1); + next; + } + + if (!defined($self->{option_results}->{use_name}) && defined($self->{option_results}->{diskpath})) { + if ($self->{option_results}->{diskpath} !~ /(^|\s|,)$instance(\s*,|$)/) { + $self->{output}->output_add(long_msg => sprintf("skipping '%s' : filter id disk path", $result->{dskPath}), debug => 1); next; } - if (defined($self->{option_results}->{use_regexp}) && defined($self->{option_results}->{use_regexpi}) && $filter_name =~ /$self->{option_results}->{diskpath}/i) { - push @{$self->{diskpath_id_selected}}, $i; + } elsif (defined($self->{option_results}->{diskpath}) && $self->{option_results}->{diskpath} ne '') { + if (defined($self->{option_results}->{use_regexp}) && defined($self->{option_results}->{use_regexpi}) && $result->{dskPath} !~ /$self->{option_results}->{diskpath}/i) { + $self->{output}->output_add(long_msg => sprintf("skipping '%s' : filter disk path", $result->{dskPath}), debug => 1); + next; } - if (defined($self->{option_results}->{use_regexp}) && !defined($self->{option_results}->{use_regexpi}) && $filter_name =~ /$self->{option_results}->{diskpath}/) { - push @{$self->{diskpath_id_selected}}, $i; + if (defined($self->{option_results}->{use_regexp}) && !defined($self->{option_results}->{use_regexpi}) && $result->{dskPath} !~ /$self->{option_results}->{diskpath}/) { + $self->{output}->output_add(long_msg => sprintf("skipping '%s' : filter disk path", $result->{dskPath}), debug => 1); + next; } - if (!defined($self->{option_results}->{use_regexp}) && !defined($self->{option_results}->{use_regexpi}) && $filter_name eq $self->{option_results}->{diskpath}) { - push @{$self->{diskpath_id_selected}}, $i; + if (!defined($self->{option_results}->{use_regexp}) && !defined($self->{option_results}->{use_regexpi}) && $result->{dskPath} ne $self->{option_results}->{diskpath}) { + $self->{output}->output_add(long_msg => sprintf("skipping '%s' : filter disk path", $result->{dskPath}), debug => 1); + next; } } - if (scalar(@{$self->{diskpath_id_selected}}) <= 0) { - if (defined($self->{option_results}->{diskpath})) { - $self->{output}->add_option_msg(short_msg => "No disk path found for name '" . $self->{option_results}->{diskpath} . "' (maybe you should reload cache file)."); - } else { - $self->{output}->add_option_msg(short_msg => "No disk path found (maybe you should reload cache file)."); - } - $self->{output}->option_exit(); - } + $self->{disk_selected}->{$instance} = { display => $result->{dskPath}, + usage => $result->{dskPercentNode} }; + } + + if (scalar(keys %{$self->{disk_selected}}) <= 0) { + $self->{output}->add_option_msg(short_msg => "No entry found."); + $self->{output}->option_exit(); } } sub get_display_value { my ($self, %options) = @_; - my $value = $self->{statefile_cache}->get(name => 'dskPath_' . $options{id}); + my $value = $options{value}; if (defined($self->{option_results}->{display_transform_src})) { $self->{option_results}->{display_transform_dst} = '' if (!defined($self->{option_results}->{display_transform_dst})); @@ -217,11 +234,11 @@ Need to enable "includeAllDisks 10%" on snmpd.conf. =over 8 -=item B<--warning> +=item B<--warning-usage> Threshold warning in percent. -=item B<--critical> +=item B<--critical-usage> Threshold critical in percent. @@ -241,10 +258,6 @@ Allows to use regexp to filter diskpath (with option --name). Allows to use regexp non case-sensitive (with --regexp). -=item B<--reload-cache-time> - -Time in seconds before reloading cache file (default: 180). - =item B<--display-transform-src> Regexp src to transform display value. (security risk!!!) @@ -253,9 +266,9 @@ Regexp src to transform display value. (security risk!!!) Regexp dst to transform display value. (security risk!!!) -=item B<--show-cache> +=item B<--filter-device> -Display cache storage datas. +Filter device name (Can be a regexp). =back diff --git a/centreon-plugins/snmp_standard/mode/interfaces.pm b/centreon-plugins/snmp_standard/mode/interfaces.pm index 08467699e..fd06e2512 100644 --- a/centreon-plugins/snmp_standard/mode/interfaces.pm +++ b/centreon-plugins/snmp_standard/mode/interfaces.pm @@ -1217,6 +1217,10 @@ sub add_result_cast { } } + foreach (('iucast', 'imcast', 'ibcast', 'oucast', 'omcast', 'omcast')) { + $self->{interface_selected}->{$options{instance}}->{$_} = 0 if (!defined($self->{interface_selected}->{$options{instance}}->{$_})); + } + $self->{interface_selected}->{$options{instance}}->{total_in_packets} = $self->{interface_selected}->{$options{instance}}->{iucast} + $self->{interface_selected}->{$options{instance}}->{imcast} + $self->{interface_selected}->{$options{instance}}->{ibcast}; $self->{interface_selected}->{$options{instance}}->{total_out_packets} = $self->{interface_selected}->{$options{instance}}->{oucast} + $self->{interface_selected}->{$options{instance}}->{omcast} + $self->{interface_selected}->{$options{instance}}->{obcast}; } diff --git a/centreon-plugins/snmp_standard/mode/loadaverage.pm b/centreon-plugins/snmp_standard/mode/loadaverage.pm index bc38684f7..dc26c4bcc 100644 --- a/centreon-plugins/snmp_standard/mode/loadaverage.pm +++ b/centreon-plugins/snmp_standard/mode/loadaverage.pm @@ -87,6 +87,9 @@ sub run { my $result = $self->{snmp}->get_leef(oids => [$oid_CpuLoad1m, $oid_CpuLoad5m, $oid_CpuLoad15m], nothing_quit => 1); my ($msg, $cpu_load1, $cpu_load5, $cpu_load15); + $result->{$oid_CpuLoad1m} =~ s/,/\./g; + $result->{$oid_CpuLoad5m} =~ s/,/\./g; + $result->{$oid_CpuLoad15m} =~ s/,/\./g; if (defined($self->{option_results}->{average})) { my $result2 = $self->{snmp}->get_table(oid => $oid_CountCpu); diff --git a/centreon-plugins/snmp_standard/mode/ntp.pm b/centreon-plugins/snmp_standard/mode/ntp.pm index 3380ce232..d7708a54c 100644 --- a/centreon-plugins/snmp_standard/mode/ntp.pm +++ b/centreon-plugins/snmp_standard/mode/ntp.pm @@ -114,11 +114,13 @@ sub run { $distant_time = $dt->epoch; my $diff = $distant_time - $ref_time; + my $remote_date_formated = sprintf("%02d-%02d-%02dT%02d:%02d:%02d (%s)", $remote_date[0], $remote_date[1], $remote_date[2], + $remote_date[3], $remote_date[4], $remote_date[5], $timezone); my $exit = $self->{perfdata}->threshold_check(value => $diff, - threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]); + threshold => [ { label => 'critical', exit_litteral => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]); $self->{output}->output_add(severity => $exit, - short_msg => sprintf("Time offset %d second(s)", $diff)); + short_msg => sprintf("Time offset %d second(s) : %s", $diff, $remote_date_formated)); $self->{output}->perfdata_add(label => 'offset', unit => 's', value => sprintf("%d", $diff), diff --git a/centreon-plugins/snmp_standard/mode/processcount.pm b/centreon-plugins/snmp_standard/mode/processcount.pm index dd8fc1cb3..e4c8c7d42 100644 --- a/centreon-plugins/snmp_standard/mode/processcount.pm +++ b/centreon-plugins/snmp_standard/mode/processcount.pm @@ -157,10 +157,10 @@ sub run { # $options{snmp} = snmp object $self->{snmp} = $options{snmp}; - my $oid2check_filter; + my $oid2check_filter = 'status'; # To have a better order foreach (('name', 'path', 'args', 'status')) { - if (defined($self->{option_results}->{'process_' . $_})) { + if (defined($self->{option_results}->{'process_' . $_}) && $self->{option_results}->{'process_' . $_} ne '') { $oid2check_filter = $_; last; } @@ -175,7 +175,7 @@ sub run { push @{$more_oids}, $oid_hrSWRunPerfCPU; } foreach (keys %$oids) { - if ($_ ne $oid2check_filter && defined($self->{option_results}->{'process_' . $_})) { + if ($_ ne $oid2check_filter && defined($self->{option_results}->{'process_' . $_}) && $self->{option_results}->{'process_' . $_} ne '') { push @{$more_oids}, $oids->{$_}; $mores_filters->{$_} = 1; } diff --git a/centreon-plugins/storage/netapp/snmp/mode/filesys.pm b/centreon-plugins/storage/netapp/snmp/mode/filesys.pm index 139757f31..27f2ace05 100644 --- a/centreon-plugins/storage/netapp/snmp/mode/filesys.pm +++ b/centreon-plugins/storage/netapp/snmp/mode/filesys.pm @@ -28,14 +28,23 @@ use centreon::plugins::values; my $maps_counters = { '000_usage' => { set => { - key_values => [ { name => 'name' }, { name => 'used' }, { name => 'total' }, - { name => 'dfCompressSavedPercent' }, { name => 'dfDedupeSavedPercent' } ], - closure_custom_calc => \&custom_usage_calc, - closure_custom_output => \&custom_usage_output, - closure_custom_perfdata => \&custom_usage_perfdata, - closure_custom_threshold_check => \&custom_usage_threshold, - } - }, + key_values => [ { name => 'name' }, { name => 'used' }, { name => 'total' }, + { name => 'dfCompressSavedPercent' }, { name => 'dfDedupeSavedPercent' } ], + closure_custom_calc => \&custom_usage_calc, + closure_custom_output => \&custom_usage_output, + closure_custom_perfdata => \&custom_usage_perfdata, + closure_custom_threshold_check => \&custom_usage_threshold, + } + }, + '001_inodes' => { set => { + key_values => [ { name => 'dfPerCentInodeCapacity' }, { name => 'name' } ], + output_template => 'Inodes Used : %s %%', output_error_template => "Inodes : %s", + perfdatas => [ + { label => 'inodes', value => 'dfPerCentInodeCapacity_absolute', template => '%d', + unit => '%', min => 0, max => 100, label_extra_instance => 1, instance_use => 'name_absolute' }, + ], + } + }, }; my $instance_mode; @@ -178,7 +187,6 @@ sub check_options { sub run { my ($self, %options) = @_; - # $options{snmp} = snmp object $self->{snmp} = $options{snmp}; $self->manage_selection(); @@ -249,29 +257,41 @@ my $mapping = { dfType => { oid => '.1.3.6.1.4.1.789.1.5.4.1.23', map => \%map_types }, }; my $mapping2 = { - dfKBytesTotal => { oid => '.1.3.6.1.4.1.789.1.5.4.1.3' }, - dfKBytesUsed => { oid => '.1.3.6.1.4.1.789.1.5.4.1.4' }, - df64TotalKBytes => { oid => '.1.3.6.1.4.1.789.1.5.4.1.29' }, - df64UsedKBytes => { oid => '.1.3.6.1.4.1.789.1.5.4.1.30' }, + dfFileSys => { oid => '.1.3.6.1.4.1.789.1.5.4.1.2' }, + dfKBytesTotal => { oid => '.1.3.6.1.4.1.789.1.5.4.1.3' }, + dfKBytesUsed => { oid => '.1.3.6.1.4.1.789.1.5.4.1.4' }, + dfPerCentInodeCapacity => { oid => '.1.3.6.1.4.1.789.1.5.4.1.9' }, + df64TotalKBytes => { oid => '.1.3.6.1.4.1.789.1.5.4.1.29' }, + df64UsedKBytes => { oid => '.1.3.6.1.4.1.789.1.5.4.1.30' }, dfCompressSavedPercent => { oid => '.1.3.6.1.4.1.789.1.5.4.1.38' }, dfDedupeSavedPercent => { oid => '.1.3.6.1.4.1.789.1.5.4.1.40' }, }; sub manage_selection { my ($self, %options) = @_; - - my $oid_dfFileSys = '.1.3.6.1.4.1.789.1.5.4.1.2'; - my $results = $self->{snmp}->get_multiple_table(oids => [ - { oid => $oid_dfFileSys }, - { oid => $mapping->{dfType}->{oid} }, - ], nothing_quit => 1); + my $oids = [ + { oid => $mapping->{dfType}->{oid} }, + { oid => $mapping2->{dfFileSys}->{oid} }, + { oid => $mapping2->{dfKBytesTotal}->{oid} }, + { oid => $mapping2->{dfKBytesUsed}->{oid} }, + { oid => $mapping2->{dfPerCentInodeCapacity}->{oid} }, + { oid => $mapping2->{dfCompressSavedPercent}->{oid} }, + { oid => $mapping2->{dfDedupeSavedPercent}->{oid} }, + ]; + if (!$self->{snmp}->is_snmpv1()) { + push @{$oids}, { oid => $mapping2->{df64TotalKBytes}->{oid} }, { oid => $mapping2->{df64UsedKBytes}->{oid} }; + } + + my $results = $self->{snmp}->get_multiple_table(oids => $oids, return_type => 1, nothing_quit => 1); $self->{filesys_selected} = {}; - foreach my $oid (keys %{$results->{$oid_dfFileSys}}) { - $oid =~ /^$oid_dfFileSys\.(\d+)/; + foreach my $oid (keys %{$results}) { + next if ($oid !~ /^$mapping2->{dfFileSys}->{oid}\.(\d+)/); my $instance = $1; - my $name = $results->{$oid_dfFileSys}->{$oid}; - my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $results->{$mapping->{dfType}->{oid}}, instance => $instance); + my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $results, instance => $instance); + my $result2 = $self->{snmp}->map_instance(mapping => $mapping2, results => $results, instance => $instance); + + my $name = $result2->{dfFileSys}; if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' && $name !~ /$self->{option_results}->{filter_name}/) { $self->{output}->output_add(long_msg => "Skipping '" . $name . "': no matching filter name."); @@ -283,32 +303,24 @@ sub manage_selection { next; } - $self->{filesys_selected}->{$instance} = { name => $name }; + $self->{filesys_selected}->{$instance} = { name => $name }; + $self->{filesys_selected}->{$instance}->{total} = $result2->{dfKBytesTotal} * 1024; + $self->{filesys_selected}->{$instance}->{used} = $result2->{dfKBytesUsed} * 1024; + if (defined($result2->{df64TotalKBytes}) && $result2->{df64TotalKBytes} > 0) { + $self->{filesys_selected}->{$instance}->{total} = $result2->{df64TotalKBytes} * 1024; + $self->{filesys_selected}->{$instance}->{used} = $result2->{df64UsedKBytes} * 1024; + } + $self->{filesys_selected}->{$instance}->{dfCompressSavedPercent} = $result2->{dfCompressSavedPercent}; + $self->{filesys_selected}->{$instance}->{dfDedupeSavedPercent} = $result2->{dfDedupeSavedPercent}; + if ($self->{filesys_selected}->{$instance}->{total} > 0) { + $self->{filesys_selected}->{$instance}->{dfPerCentInodeCapacity} = $result2->{dfPerCentInodeCapacity}; + } } if (scalar(keys %{$self->{filesys_selected}}) <= 0) { $self->{output}->add_option_msg(short_msg => "No entry found."); $self->{output}->option_exit(); } - - my $instances = [keys %{$self->{filesys_selected}}]; - if (!$self->{snmp}->is_snmpv1()) { - $self->{snmp}->load(oids => [$mapping2->{df64TotalKBytes}->{oid}, $mapping2->{df64UsedKBytes}->{oid}], instances => $instances); - } - $self->{snmp}->load(oids => [$mapping2->{dfKBytesTotal}->{oid}, $mapping2->{dfKBytesUsed}->{oid}, - $mapping2->{dfDedupeSavedPercent}->{oid}, $mapping2->{dfCompressSavedPercent}->{oid}], instances => $instances); - my $result = $self->{snmp}->get_leef(); - foreach (@$instances) { - my $result = $self->{snmp}->map_instance(mapping => $mapping2, results => $result, instance => $_); - $self->{filesys_selected}->{$_}->{total} = $result->{dfKBytesTotal} * 1024; - $self->{filesys_selected}->{$_}->{used} = $result->{dfKBytesUsed} * 1024; - if (defined($result->{df64TotalKBytes}) && $result->{df64TotalKBytes} > 0) { - $self->{filesys_selected}->{$_}->{total} = $result->{df64TotalKBytes} * 1024; - $self->{filesys_selected}->{$_}->{used} = $result->{df64UsedKBytes} * 1024; - } - $self->{filesys_selected}->{$_}->{dfCompressSavedPercent} = $result->{dfCompressSavedPercent}; - $self->{filesys_selected}->{$_}->{dfDedupeSavedPercent} = $result->{dfDedupeSavedPercent}; - } } 1; @@ -321,13 +333,15 @@ Check filesystem usage (volumes, snapshots and aggregates also). =over 8 -=item B<--warning-usage> +=item B<--warning-*> Threshold warning. +Can be: usage, inodes (%). -=item B<--critical-usage> +=item B<--critical-*> Threshold critical. +Can be: usage, inodes (%). =item B<--units>