+ enhance plugin

hardware/devices/safenet/hsm/protecttoolkit/mode/components/memory.pm

@@ -0,0 +1,51 @@
+#
+# Copyright 2016 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::devices::safenet::hsm::protecttoolkit::mode::components::memory;
+
+use strict;
+use warnings;
+
+sub load { }
+
+sub check {
+    my ($self) = @_;
+    
+    $self->{output}->output_add(long_msg => "Checking memory");
+    return if ($self->check_filter(section => 'memory'));
+    
+    return if ($self->{stdout} !~ /^Free Memory\s+:\s+(\d+)/msi);
+    my $free_memory = $1;
+
+    my ($free_value, $free_unit) = $self->{perfdata}->change_bytes(value => $free_memory);
+    $self->{output}->output_add(long_msg => sprintf("free memory is %s %s", 
+                                                    $free_value, $free_unit));
+    my ($exit, $warn, $crit) = $self->get_severity_numeric(section => 'memory', instance => '0', value => $free_memory);
+    if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
+        $self->{output}->output_add(severity => $exit,
+                                    short_msg => sprintf("Free memory is %s %s", $free_value, $free_unit));
+    }
+    $self->{output}->perfdata_add(label => "free_memory", unit => 'B',
+                                  value => $free_memory,
+                                  warning => $warn,
+                                  critical => $crit, min => 0);
+}
+
+1;

hardware/devices/safenet/hsm/protecttoolkit/mode/hardware.pm

@@ -29,8 +29,8 @@ use centreon::plugins::misc;
 sub set_system {
     my ($self, %options) = @_;
     
-    $self->{regexp_threshold_overload_check_section_option} = '^(hwstatus|temperature)$';
-    $self->{regexp_threshold_numeric_check_section_option} = '^(temperature)$';
+    $self->{regexp_threshold_overload_check_section_option} = '^(hwstatus|temperature|memory)$';
+    $self->{regexp_threshold_numeric_check_section_option} = '^(temperature|memory)$';
     
     $self->{cb_hook2} = 'cmd_execute';
     
@@ -42,7 +42,7 @@ sub set_system {
     };
     
     $self->{components_path} = 'hardware::devices::safenet::hsm::protecttoolkit::mode::components';
-    $self->{components_module} = ['hwstatus', 'temperature'];
+    $self->{components_module} = ['hwstatus', 'temperature', 'memory'];
 }
 
 sub cmd_execute {
@@ -55,6 +55,15 @@ sub cmd_execute {
                                                          command_path => $self->{option_results}->{command_path},
                                                          command_options => $self->{option_results}->{command_options});
     $self->{stdout} =~ s/\r//msg;
+    my ($model, $firmware, $fm_status, $transport_mode, $security_mode) = ('unknown', 'unknown', 'unknown', 'unknown', 'unknown');
+    $model = $1 if ($self->{stdout} =~ /^Model\s+:\s+(.*?)\s*\n/msi);
+    $firmware = $1 if ($self->{stdout} =~ /^Firmware Version\s+:\s+(.*?)\s*\n/msi);
+    $fm_status = $1 if ($self->{stdout} =~ /^FM Status\s+:\s+(.*?)\s*\n/msi);
+    $transport_mode = $1 if ($self->{stdout} =~ /^Transport Mode\s+:\s+(.*?)\s*\n/msi);
+    $security_mode = $1 if ($self->{stdout} =~ /^Security Mode\s+:\s+(.*?)\s*\n/msi);
+    $self->{output}->output_add(long_msg => sprintf("model: %s, firmware version: %s", $model, $firmware));
+    $self->{output}->output_add(long_msg => sprintf("fm status: '%s', transport mode: '%s', security mode: '%s'", 
+                                                    $fm_status, $transport_mode, $security_mode));
 }
 
 sub display {
@@ -101,7 +110,7 @@ Check HSM hardware status.
 =item B<--component>
 
 Which component to check (Default: '.*').
-Can be: 'hwstatus', 'temperature'.
+Can be: 'hwstatus', 'temperature', 'memory'.
 
 =item B<--filter>
 
@@ -115,12 +124,12 @@ Example: --threshold-overload='hwstats,CRITICAL,^(?!(OK)$)'
 
 =item B<--warning>
 
-Set warning threshold for 'temperature' (syntax: type,regexp,threshold)
+Set warning threshold for 'temperature', 'memory' (syntax: type,regexp,threshold)
 Example: --warning='temperature,.*,50'
 
 =item B<--critical>
 
-Set critical threshold for 'temperature' (syntax: type,regexp,threshold)
+Set critical threshold for 'temperature', 'memory' (syntax: type,regexp,threshold)
 Example: --critical='temperature,.*,60'
 
 =item B<--remote>