From e584fceda9c007153f77a7bc8962e74f31d60661 Mon Sep 17 00:00:00 2001 From: qgarnier Date: Tue, 13 Jun 2017 12:14:09 +0200 Subject: [PATCH] add hp eva plugin --- .../storage/hp/eva/cli/custom/api.pm | 211 ++++++++++++++++++ .../hp/eva/cli/mode/components/battery.pm | 66 ++++++ .../hp/eva/cli/mode/components/disk.pm | 65 ++++++ .../hp/eva/cli/mode/components/diskgrp.pm | 65 ++++++ .../storage/hp/eva/cli/mode/components/fan.pm | 135 +++++++++++ .../hp/eva/cli/mode/components/iomodule.pm | 72 ++++++ .../storage/hp/eva/cli/mode/components/psu.pm | 146 ++++++++++++ .../hp/eva/cli/mode/components/system.pm | 65 ++++++ .../hp/eva/cli/mode/components/temperature.pm | 141 ++++++++++++ .../storage/hp/eva/cli/mode/hardware.pm | 120 ++++++++++ centreon-plugins/storage/hp/eva/cli/plugin.pm | 53 +++++ 11 files changed, 1139 insertions(+) create mode 100644 centreon-plugins/storage/hp/eva/cli/custom/api.pm create mode 100644 centreon-plugins/storage/hp/eva/cli/mode/components/battery.pm create mode 100644 centreon-plugins/storage/hp/eva/cli/mode/components/disk.pm create mode 100644 centreon-plugins/storage/hp/eva/cli/mode/components/diskgrp.pm create mode 100644 centreon-plugins/storage/hp/eva/cli/mode/components/fan.pm create mode 100644 centreon-plugins/storage/hp/eva/cli/mode/components/iomodule.pm create mode 100644 centreon-plugins/storage/hp/eva/cli/mode/components/psu.pm create mode 100644 centreon-plugins/storage/hp/eva/cli/mode/components/system.pm create mode 100644 centreon-plugins/storage/hp/eva/cli/mode/components/temperature.pm create mode 100644 centreon-plugins/storage/hp/eva/cli/mode/hardware.pm create mode 100644 centreon-plugins/storage/hp/eva/cli/plugin.pm diff --git a/centreon-plugins/storage/hp/eva/cli/custom/api.pm b/centreon-plugins/storage/hp/eva/cli/custom/api.pm new file mode 100644 index 000000000..4cbba0307 --- /dev/null +++ b/centreon-plugins/storage/hp/eva/cli/custom/api.pm @@ -0,0 +1,211 @@ +# +# Copyright 2017 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 storage::hp::eva::cli::custom::api; + +use strict; +use warnings; +use centreon::plugins::misc; +use XML::Simple; + +sub new { + my ($class, %options) = @_; + my $self = {}; + bless $self, $class; + + if (!defined($options{output})) { + print "Class Custom: Need to specify 'output' argument.\n"; + exit 3; + } + if (!defined($options{options})) { + $options{output}->add_option_msg(short_msg => "Class Custom: Need to specify 'options' argument."); + $options{output}->option_exit(); + } + + if (!defined($options{noptions})) { + $options{options}->add_options(arguments => + { + "manager-hostname:s" => { name => 'manager_hostname' }, + "manager-username:s" => { name => 'manager_username' }, + "manager-password:s" => { name => 'manager_password' }, + "manager-system:s" => { name => 'manager_system' }, + "timeout:s" => { name => 'timeout', default => 50 }, + "sudo" => { name => 'sudo' }, + "command:s" => { name => 'command', default => 'sssu_linux_x64' }, + "command-path:s" => { name => 'command_path' }, + "command-options:s" => { name => 'command_options', default => '' }, + }); + } + $options{options}->add_help(package => __PACKAGE__, sections => 'SSU CLI OPTIONS', once => 1); + + $self->{output} = $options{output}; + $self->{mode} = $options{mode}; + + return $self; +} + +sub set_options { + my ($self, %options) = @_; + + $self->{option_results} = $options{option_results}; +} + +sub set_defaults { + my ($self, %options) = @_; + + foreach (keys %{$options{default}}) { + if ($_ eq $self->{mode}) { + for (my $i = 0; $i < scalar(@{$options{default}->{$_}}); $i++) { + foreach my $opt (keys %{$options{default}->{$_}[$i]}) { + if (!defined($self->{option_results}->{$opt}[$i])) { + $self->{option_results}->{$opt}[$i] = $options{default}->{$_}[$i]->{$opt}; + } + } + } + } + } +} + +sub check_options { + my ($self, %options) = @_; + + if (!defined($self->{option_results}->{manager_hostname}) || $self->{option_results}->{manager_hostname} eq '') { + $self->{output}->add_option_msg(short_msg => "Need to set manager-hostname option."); + $self->{output}->option_exit(); + } + if (!defined($self->{option_results}->{manager_username}) || $self->{option_results}->{manager_username} eq '') { + $self->{output}->add_option_msg(short_msg => "Need to set manager-username option."); + $self->{output}->option_exit(); + } + if (!defined($self->{option_results}->{manager_password})) { + $self->{output}->add_option_msg(short_msg => "Need to set manager-password option."); + $self->{output}->option_exit(); + } + if (!defined($self->{option_results}->{manager_system}) || $self->{option_results}->{manager_system} eq '') { + $self->{output}->add_option_msg(short_msg => "Need to set manager-system option."); + $self->{output}->option_exit(); + } + + return 0; +} + +sub ssu_build_options { + my ($self, %options) = @_; + + return if (defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne ''); + $self->{option_results}->{command_options} = + "'select manager \"$self->{option_results}->{manager_hostname}\" USERNAME=$self->{option_results}->{manager_username} PASSWORD=$self->{option_results}->{manager_password}' 'select system $self->{option_results}->{manager_system}'"; + foreach my $cmd (keys %{$options{commands}}) { + $self->{option_results}->{command_options} .= " '$cmd'"; + } +} + +sub ssu_execute { + my ($self, %options) = @_; + + $self->ssu_build_options(%options); + my ($response) = centreon::plugins::misc::execute(output => $self->{output}, + options => $self->{option_results}, + sudo => $self->{option_results}->{sudo}, + command => $self->{option_results}->{command}, + command_path => $self->{option_results}->{command_path}, + command_options => $self->{option_results}->{command_options}); + my $xml_root = ''; + while ($response =~ /(.*?<\/object>)/msig) { + $xml_root .= $1; + } + $xml_root .= ''; + + my $xml_result; + eval { + $xml_result = XMLin($xml_root, + ForceArray => ['object', 'diskslot', 'powersupply', 'sensor', 'fan', 'deviceport', + 'module', 'vdcoutput', 'source'], + KeyAttr => [], SuppressEmpty => ''); + }; + if ($@) { + $self->{output}->add_option_msg(short_msg => "Cannot decode xml response: $@"); + $self->{output}->option_exit(); + } + + $self->{output}->output_add(long_msg => $response, debug => 1); + return $xml_result; +} + +1; + +__END__ + +=head1 NAME + +SSU CLI + +=head1 SYNOPSIS + +ssu cli + +=head1 SSU CLI OPTIONS + +=over 8 + +=item B<--manager-hostname> + +Manager hostname to query. + +=item B<--manager-username> + +Manager username. + +=item B<--manager-password> + +Manager password. + +=item B<--manager-system> + +Manager system. + +=item B<--timeout> + +Set timeout (Default: 50). + +=item B<--sudo> + +Use 'sudo' to execute the command. + +=item B<--command> + +Command to get information (Default: 'sssu_linux_x64'). +Can be changed if you have output in a file. + +=item B<--command-path> + +Command path (Default: none). + +=item B<--command-options> + +Command options (Default: none). + +=back + +=head1 DESCRIPTION + +B. + +=cut diff --git a/centreon-plugins/storage/hp/eva/cli/mode/components/battery.pm b/centreon-plugins/storage/hp/eva/cli/mode/components/battery.pm new file mode 100644 index 000000000..6c9f132ad --- /dev/null +++ b/centreon-plugins/storage/hp/eva/cli/mode/components/battery.pm @@ -0,0 +1,66 @@ +# +# Copyright 2017 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 storage::hp::eva::cli::mode::components::battery; + +use strict; +use warnings; + +sub load { + my ($self) = @_; + + $self->{ssu_commands}->{'ls controller full xml'} = 1; +} + +sub check { + my ($self) = @_; + + $self->{output}->output_add(long_msg => "Checking cache batteries"); + $self->{components}->{battery} = {name => 'cache battery', total => 0, skip => 0}; + return if ($self->check_filter(section => 'battery')); + + # + # controller + # \Hardware\Rack 1\Controller Enclosure 7\Controller B + # + # good + foreach my $object (@{$self->{xml_result}->{object}}) { + next if ($object->{objecttype} ne 'controller'); + + $object->{objectname} =~ s/\\/\//g; + my $instance = $object->{objectname}; + + next if ($self->check_filter(section => 'battery', instance => $instance)); + + $self->{components}->{battery}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("cache battery '%s' status is '%s' [instance = %s]", + $instance, $object->{cachebattery}->{operationalstate}, $instance, + )); + + my $exit = $self->get_severity(label => 'default', section => 'battery', value => $object->{cachebattery}->{operationalstate}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Cache battery '%s' status is '%s'", $instance, $object->{cachebattery}->{operationalstate})); + } + } +} + +1; diff --git a/centreon-plugins/storage/hp/eva/cli/mode/components/disk.pm b/centreon-plugins/storage/hp/eva/cli/mode/components/disk.pm new file mode 100644 index 000000000..da6549c0e --- /dev/null +++ b/centreon-plugins/storage/hp/eva/cli/mode/components/disk.pm @@ -0,0 +1,65 @@ +# +# Copyright 2017 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 storage::hp::eva::cli::mode::components::disk; + +use strict; +use warnings; + +sub load { + my ($self) = @_; + + $self->{ssu_commands}->{'ls disk full xml'} = 1; +} + +sub check { + my ($self) = @_; + + $self->{output}->output_add(long_msg => "Checking disks"); + $self->{components}->{disk} = {name => 'disks', total => 0, skip => 0}; + return if ($self->check_filter(section => 'disk')); + + # + # disk + # \Disk Groups\Ungrouped Disks\Disk 133 + # good + foreach my $object (@{$self->{xml_result}->{object}}) { + next if ($object->{objecttype} ne 'disk'); + + $object->{objectname} =~ s/\\/\//g; + my $instance = $object->{objectname}; + + next if ($self->check_filter(section => 'disk', instance => $instance)); + + $self->{components}->{disk}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("disk '%s' status is '%s' [instance = %s]", + $instance, $object->{operationalstate}, $instance, + )); + + my $exit = $self->get_severity(label => 'default', section => 'disk', value => $object->{operationalstate}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Disk '%s' status is '%s'", $instance, $object->{operationalstate})); + } + } +} + +1; diff --git a/centreon-plugins/storage/hp/eva/cli/mode/components/diskgrp.pm b/centreon-plugins/storage/hp/eva/cli/mode/components/diskgrp.pm new file mode 100644 index 000000000..95794760b --- /dev/null +++ b/centreon-plugins/storage/hp/eva/cli/mode/components/diskgrp.pm @@ -0,0 +1,65 @@ +# +# Copyright 2017 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 storage::hp::eva::cli::mode::components::diskgrp; + +use strict; +use warnings; + +sub load { + my ($self) = @_; + + $self->{ssu_commands}->{'ls disk_group full xml'} = 1; +} + +sub check { + my ($self) = @_; + + $self->{output}->output_add(long_msg => "Checking disk groups"); + $self->{components}->{diskgrp} = {name => 'disk groups', total => 0, skip => 0}; + return if ($self->check_filter(section => 'diskgrp')); + + # + # diskgroupfolder + # \Disk Groups\XXX + # good + foreach my $object (@{$self->{xml_result}->{object}}) { + next if ($object->{objecttype} ne 'diskgroupfolder'); + + $object->{objectname} =~ s/\\/\//g; + my $instance = $object->{objectname}; + + next if ($self->check_filter(section => 'diskgrp', instance => $instance)); + + $self->{components}->{diskgrp}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("disk group '%s' status is '%s' [instance = %s]", + $instance, $object->{operationalstate}, $instance, + )); + + my $exit = $self->get_severity(label => 'default', section => 'diskgrp', value => $object->{operationalstate}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Disk group '%s' status is '%s'", $instance, $object->{operationalstate})); + } + } +} + +1; diff --git a/centreon-plugins/storage/hp/eva/cli/mode/components/fan.pm b/centreon-plugins/storage/hp/eva/cli/mode/components/fan.pm new file mode 100644 index 000000000..9ae236d1f --- /dev/null +++ b/centreon-plugins/storage/hp/eva/cli/mode/components/fan.pm @@ -0,0 +1,135 @@ +# +# Copyright 2017 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 storage::hp::eva::cli::mode::components::fan; + +use strict; +use warnings; + +sub load { + my ($self) = @_; + + $self->{ssu_commands}->{'ls diskshelf full xml'} = 1; + $self->{ssu_commands}->{'ls controller full xml'} = 1; +} + +sub fan_ctrl { + my ($self) = @_; + + # + # controller + # \Hardware\Rack 1\Controller Enclosure 7\Controller B + # + # + # fan0 + # normal + # 2240 + # + foreach my $object (@{$self->{xml_result}->{object}}) { + next if ($object->{objecttype} ne 'controller'); + + $object->{objectname} =~ s/\\/\//g; + foreach my $result (@{$object->{fans}->{fan}}) { + my $instance = $object->{objectname} . '/' . $result->{fanname}; + + next if ($self->check_filter(section => 'fan', instance => $instance)); + next if ($result->{status} =~ /notinstalled/i && + $self->absent_problem(section => 'fan', instance => $instance)); + + $self->{components}->{fan}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("fan '%s' status is '%s' [instance = %s] [value = %s]", + $instance, $result->{status}, $instance, + $result->{speed})); + + my $exit = $self->get_severity(label => 'default', section => 'fan', value => $result->{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'", $instance, $result->{status})); + } + + next if ($result->{speed} !~ /[0-9]/); + my ($exit2, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'fan', instance => $instance, value => $result->{speed}); + if (!$self->{output}->is_status(value => $exit2, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit2, + short_msg => sprintf("Fan '%s' is %s rpm", $instance, $result->{speed})); + } + $self->{output}->perfdata_add(label => 'fan_' . $instance, unit => 'rpm', + value => $result->{speed}, + warning => $warn, + critical => $crit, + min => 0 + ); + } + } +} + +sub fan_diskshelf { + my ($self) = @_; + + # + # diskshelf + # \Hardware\Rack 1\Disk Enclosure 3 + # + # + # + # fan1 + # good + # No + # speed_1_lowest + # + foreach my $object (@{$self->{xml_result}->{object}}) { + next if ($object->{objecttype} ne 'diskshelf'); + + $object->{objectname} =~ s/\\/\//g; + foreach my $result (@{$object->{cooling}->{fans}->{fan}}) { + my $instance = $object->{objectname} . '/' . $result->{name}; + + next if ($self->check_filter(section => 'fan', instance => $instance)); + next if ($result->{operationalstate} =~ /notinstalled/i && + $self->absent_problem(section => 'fan', instance => $instance)); + + $self->{components}->{fan}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("fan '%s' status is '%s' [instance = %s]", + $instance, $result->{operationalstate}, $instance, + )); + + my $exit = $self->get_severity(label => 'default', section => 'fan', value => $result->{operationalstate}); + 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->{operationalstate})); + } + } + } +} + +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')); + + fan_ctrl($self); + fan_diskshelf($self); +} + +1; diff --git a/centreon-plugins/storage/hp/eva/cli/mode/components/iomodule.pm b/centreon-plugins/storage/hp/eva/cli/mode/components/iomodule.pm new file mode 100644 index 000000000..2b744a876 --- /dev/null +++ b/centreon-plugins/storage/hp/eva/cli/mode/components/iomodule.pm @@ -0,0 +1,72 @@ +# +# Copyright 2017 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 storage::hp::eva::cli::mode::components::iomodule; + +use strict; +use warnings; + +sub load { + my ($self) = @_; + + $self->{ssu_commands}->{'ls diskshelf full xml'} = 1; +} + +sub check { + my ($self) = @_; + + $self->{output}->output_add(long_msg => "Checking IO modules"); + $self->{components}->{iomodule} = {name => 'io modules', total => 0, skip => 0}; + return if ($self->check_filter(section => 'iomodule')); + + # + # diskshelf + # \Hardware\Rack 1\Disk Enclosure 3 + # + # + # + # modulea + # good + foreach my $object (@{$self->{xml_result}->{object}}) { + next if ($object->{objecttype} ne 'diskshelf'); + + $object->{objectname} =~ s/\\/\//g; + foreach my $result (@{$object->{iocomm}->{iomodules}->{module}}) { + next if ($result->{name} eq ''); + my $instance = $object->{objectname} . '/' . $result->{name}; + + next if ($self->check_filter(section => 'iomodule', instance => $instance)); + + $self->{components}->{iomodule}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("IO module '%s' status is '%s' [instance = %s]", + $instance, $object->{operationalstate}, $instance, + )); + + my $exit = $self->get_severity(label => 'default', section => 'iomodule', value => $object->{operationalstate}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("IO module '%s' status is '%s'", $instance, $object->{operationalstate})); + } + } + } +} + +1; diff --git a/centreon-plugins/storage/hp/eva/cli/mode/components/psu.pm b/centreon-plugins/storage/hp/eva/cli/mode/components/psu.pm new file mode 100644 index 000000000..7afef9270 --- /dev/null +++ b/centreon-plugins/storage/hp/eva/cli/mode/components/psu.pm @@ -0,0 +1,146 @@ +# +# Copyright 2017 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 storage::hp::eva::cli::mode::components::psu; + +use strict; +use warnings; + +sub load { + my ($self) = @_; + + $self->{ssu_commands}->{'ls diskshelf full xml'} = 1; + $self->{ssu_commands}->{'ls controller full xml'} = 1; +} + +sub psu_ctrl { + my ($self) = @_; + + # + # controller + # \Hardware\Rack 1\Controller Enclosure 7\Controller B + # + # 12.32 + # + # powersupply0 + # good + # + foreach my $object (@{$self->{xml_result}->{object}}) { + next if ($object->{objecttype} ne 'controller'); + + $object->{objectname} =~ s/\\/\//g; + foreach my $result (@{$object->{powersources}->{source}}) { + next if ($result->{type} eq ''); + my $instance = $object->{objectname} . '/' . $result->{type}; + + next if ($self->check_filter(section => 'psu', instance => $instance)); + next if ($result->{state} =~ /notinstalled/i && + $self->absent_problem(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->{state}, $instance, + )); + + my $exit = $self->get_severity(label => 'default', section => 'psu', value => $result->{state}); + 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->{state})); + } + } + } +} + +sub psu_diskshelf { + my ($self) = @_; + + # + # diskshelf + # \Hardware\Rack 1\Disk Enclosure 3 + # + # + # powersupply1 + # good + # No + # + # + # vdc5output + # 5.5 + # 6.7 + # + # + # vdc12output + # 12.5 + # 4.1 + # + # + foreach my $object (@{$self->{xml_result}->{object}}) { + next if ($object->{objecttype} ne 'diskshelf'); + + $object->{objectname} =~ s/\\/\//g; + foreach my $result (@{$object->{powersupplies}->{powersupply}}) { + my $instance = $object->{objectname} . '/' . $result->{name}; + + next if ($self->check_filter(section => 'psu', instance => $instance)); + next if ($result->{operationalstate} =~ /notinstalled/i && + $self->absent_problem(section => 'psu', instance => $instance)); + + $self->{components}->{psu}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("power suuply '%s' status is '%s' [instance = %s]", + $instance, $result->{operationalstate}, $instance, + )); + + my $exit = $self->get_severity(label => 'default', section => 'psu', value => $result->{operationalstate}); + 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->{operationalstate})); + } + + foreach my $voltage (@{$result->{vdcoutputs}->{vdcoutput}}) { + next if ($voltage->{current} !~ /[0-9]/); + my ($exit2, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'psu', instance => $instance . '/' . $voltage->{type}, value => $voltage->{current}); + if (!$self->{output}->is_status(value => $exit2, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit2, + short_msg => sprintf("Power supply '%s' is %s V", $instance, $voltage->{current})); + } + $self->{output}->perfdata_add(label => 'voltage_' . $instance . '/' . $voltage->{type}, unit => 'V', + value => $voltage->{current}, + warning => $warn, + critical => $crit, + ); + } + } + } +} + +sub check { + my ($self) = @_; + + $self->{output}->output_add(long_msg => "Checking power supplies"); + $self->{components}->{psu} = {name => 'psus', total => 0, skip => 0}; + return if ($self->check_filter(section => 'psu')); + + psu_ctrl($self); + psu_diskshelf($self); +} + +1; diff --git a/centreon-plugins/storage/hp/eva/cli/mode/components/system.pm b/centreon-plugins/storage/hp/eva/cli/mode/components/system.pm new file mode 100644 index 000000000..0e7b5f472 --- /dev/null +++ b/centreon-plugins/storage/hp/eva/cli/mode/components/system.pm @@ -0,0 +1,65 @@ +# +# Copyright 2017 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 storage::hp::eva::cli::mode::components::system; + +use strict; +use warnings; + +sub load { + my ($self) = @_; + + $self->{ssu_commands}->{'ls system full xml'} = 1; +} + +sub check { + my ($self) = @_; + + $self->{output}->output_add(long_msg => "Checking systems"); + $self->{components}->{system} = {name => 'systems', total => 0, skip => 0}; + return if ($self->check_filter(section => 'system')); + + # + # storagecell + # Backup_Wintel + # attention + foreach my $object (@{$self->{xml_result}->{object}}) { + next if ($object->{objecttype} ne 'storagecell'); + + $object->{objectname} =~ s/\\/\//g; + my $instance = $object->{objectname}; + + next if ($self->check_filter(section => 'system', instance => $instance)); + + $self->{components}->{system}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("system '%s' status is '%s' [instance = %s]", + $instance, $object->{operationalstate}, $instance, + )); + + my $exit = $self->get_severity(label => 'default', section => 'system', value => $object->{operationalstate}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("System '%s' status is '%s'", $instance, $object->{operationalstate})); + } + } +} + +1; diff --git a/centreon-plugins/storage/hp/eva/cli/mode/components/temperature.pm b/centreon-plugins/storage/hp/eva/cli/mode/components/temperature.pm new file mode 100644 index 000000000..29ed9cafc --- /dev/null +++ b/centreon-plugins/storage/hp/eva/cli/mode/components/temperature.pm @@ -0,0 +1,141 @@ +# +# Copyright 2017 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 storage::hp::eva::cli::mode::components::temperature; + +use strict; +use warnings; + +sub load { + my ($self) = @_; + + $self->{ssu_commands}->{'ls diskshelf full xml'} = 1; + $self->{ssu_commands}->{'ls controller full xml'} = 1; +} + +sub temp_ctrl { + my ($self) = @_; + + # + # controller + # \Hardware\Rack 1\Controller Enclosure 7\Controller B + # + # + # i2csensor1 + # 28 + # 82 + # + foreach my $object (@{$self->{xml_result}->{object}}) { + next if ($object->{objecttype} ne 'controller'); + + $object->{objectname} =~ s/\\/\//g; + foreach my $result (@{$object->{sensors}->{sensor}}) { + next if ($result->{name} eq ''); + my $instance = $object->{objectname} . '/' . $result->{name}; + + 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->{tempc}, $instance, + )); + + next if ($result->{tempc} !~ /[0-9]/); + my ($exit, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'temperature', instance => $instance, value => $result->{tempc}); + 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->{tempc})); + } + $self->{output}->perfdata_add(label => 'temperature_' . $instance, unit => 'C', + value => $result->{tempc}, + warning => $warn, + critical => $crit, + ); + } + } +} + +sub temp_diskshelf { + my ($self) = @_; + + # + # diskshelf + # \Hardware\Rack 1\Disk Enclosure 3 + # + # + # + # ps1 + # 91.4 + # 33.0 + # good + # no_alarm + # + foreach my $object (@{$self->{xml_result}->{object}}) { + next if ($object->{objecttype} ne 'diskshelf'); + + $object->{objectname} =~ s/\\/\//g; + foreach my $result (@{$object->{cooling}->{sensors}->{sensor}}) { + next if ($result->{name} eq ''); + my $instance = $object->{objectname} . '/' . $result->{name}; + + next if ($self->check_filter(section => 'temperature', instance => $instance)); + next if ($result->{operationalstate} =~ /notinstalled/i && + $self->absent_problem(section => 'temperature', instance => $instance)); + + $self->{components}->{temperature}->{total}++; + + $self->{output}->output_add(long_msg => sprintf("temperature '%s' status is '%s' [instance = %s]", + $instance, $result->{operationalstate}, $instance, + )); + + my $exit = $self->get_severity(label => 'default', section => 'temperature', value => $result->{operationalstate}); + if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit, + short_msg => sprintf("Temperature '%s' status is '%s'", $instance, $result->{operationalstate})); + } + + next if ($result->{tempc} !~ /[0-9]/); + my ($exit2, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'temperature', instance => $instance, value => $result->{tempc}); + if (!$self->{output}->is_status(value => $exit2, compare => 'ok', litteral => 1)) { + $self->{output}->output_add(severity => $exit2, + short_msg => sprintf("Temperature '%s' is %s C", $instance, $result->{tempc})); + } + $self->{output}->perfdata_add(label => 'temperature_' . $instance, unit => 'C', + value => $result->{tempc}, + warning => $warn, + critical => $crit, + ); + } + } +} + +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')); + + temp_ctrl($self); + temp_diskshelf($self); +} + +1; diff --git a/centreon-plugins/storage/hp/eva/cli/mode/hardware.pm b/centreon-plugins/storage/hp/eva/cli/mode/hardware.pm new file mode 100644 index 000000000..b84a3526c --- /dev/null +++ b/centreon-plugins/storage/hp/eva/cli/mode/hardware.pm @@ -0,0 +1,120 @@ +# +# Copyright 2017 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 storage::hp::eva::cli::mode::hardware; + +use base qw(centreon::plugins::templates::hardware); + +use strict; +use warnings; + +sub set_system { + my ($self, %options) = @_; + + $self->{regexp_threshold_overload_check_section_option} = + '^(fan|temperature|system|disk|diskgrp|psu|battery|iomodule)$'; + $self->{regexp_threshold_numeric_check_section_option} = '^(fan|temperature|psu)$'; + + $self->{cb_hook2} = 'api_execute'; + + $self->{thresholds} = { + default => [ + ['^good$', 'OK'], + ['notinstalled', 'OK'], + ['^normal$', 'OK'], + ['unsupported', 'OK'], + ['attention', 'WARNING'], + ['.*', 'CRITICAL'], + ], + }; + + $self->{components_path} = 'storage::hp::eva::cli::mode::components'; + $self->{components_module} = ['fan', 'temperature', 'system', 'disk', 'diskgrp', 'psu', 'battery', 'iomodule']; +} + +sub api_execute { + my ($self, %options) = @_; + + $self->{xml_result} = $options{custom}->ssu_execute(commands => $self->{ssu_commands}); +} + +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 => + { + }); + + $self->{ssu_commands} = {}; + return $self; +} + +1; + +__END__ + +=head1 MODE + +Check hardware. + +=over 8 + +=item B<--component> + +Which component to check (Default: '.*'). +Can be: 'fan'. + +=item B<--filter> + +Exclude some parts (comma seperated list) (Example: --filter=temperature --filter=fan) +Can also exclude specific instance: --filter="fan,Fan Block 1" + +=item B<--absent-problem> + +Return an error if an entity is not 'present' (default is skipping) +Can be specific or global: --absent-problem="fan,Fan Block 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='fan,OK,degraded' + +=item B<--warning> + +Set warning threshold for 'temperature', 'fan' (syntax: type,regexp,threshold) +Example: --warning='temperature,.*,30' + +=item B<--critical> + +Set critical threshold for 'temperature', 'fan' (syntax: type,regexp,threshold) +Example: --critical='temperature,.*,50' + +=back + +=cut diff --git a/centreon-plugins/storage/hp/eva/cli/plugin.pm b/centreon-plugins/storage/hp/eva/cli/plugin.pm new file mode 100644 index 000000000..850c91c0c --- /dev/null +++ b/centreon-plugins/storage/hp/eva/cli/plugin.pm @@ -0,0 +1,53 @@ +# +# Copyright 2017 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 storage::hp::eva::cli::plugin; + +use strict; +use warnings; +use base qw(centreon::plugins::script_custom); + +sub new { + my ($class, %options) = @_; + my $self = $class->SUPER::new(package => __PACKAGE__, %options); + bless $self, $class; + + $self->{version} = '0.1'; + %{$self->{modes}} = ( + 'hardware' => 'storage::hp::eva::cli::mode::hardware', + ); + $self->{custom_modes}{api} = 'storage::hp::eva::cli::custom::api'; + + return $self; +} + +1; + +__END__ + +=head1 PLUGIN DESCRIPTION + +Check HP EVA Storage. + +=over 8 + +=back + +=cut