enh(network::stormshield::snmp): new uptime and licenses modes

.githooks/pre-commit.d/20_plugins.sh

@@ -43,7 +43,7 @@ function check_constants() {
     grep -nH -- "-\(1\|2\|10\)[[:space:]]*=>[[:space:]]*1" "$file" > "$tmpfile"
     grep -nH "\<type[[:space:]]*=>[[:space:]]*[0-9]" "$file" >> "$tmpfile"
     if [ -s "$tmpfile" ] ; then
-        error "It seems that some counters are not using constants defined in centreon/plugins/constants.pm. You may also need to add `use centreon::plugins::constants qw(:counters);` in your file."
+        error "It seems that some counters are not using constants defined in centreon/plugins/constants.pm. You may also need to add 'use centreon::plugins::constants qw(:counters);' in your file."
         cat $tmpfile
     fi
 }
@@ -72,7 +72,7 @@ for file in "${committed_files[@]}"; do
         pm|pl)
             # check that the perl file compiles
             info "--> Checking that file compiles"
-            perl -I ./src -I ./tests/connectors/vmware -I ./connectors/vmware/src -c "$file" >/dev/null 2>&1 || error "File $file does not compile with perl -c"
+            perl -I ./src -I ./tests/connectors/vmware -I ./connectors/vmware/src -c "$file" >/dev/null 2>&1 || error "File $file does not compile with perl -c $file"
             # check the copyright year
             info "--> Checking that file copyright is OK"
             grep "Copyright 20..-Present Centreon" "$file" >/dev/null || error "Copyright in $file does not contain \"Copyright $(date +%Y)-Present Centreon\""
@@ -81,10 +81,12 @@ for file in "${committed_files[@]}"; do
             grep -- '--warning-\*\|--critical-\*' "$file"  >/dev/null && error "File $file contains help that is written as --warning-* or --critical-*"
             # check spelling
             info "--> Checking that spelling in file is OK"
-            perl .github/scripts/pod_spell_check.t "$file" ./tests/resources/spellcheck/stopwords.txt >$tmpfile 2>&1
+            cmd_spell_check='perl .github/scripts/pod_spell_check.t '"$file"' ./tests/resources/spellcheck/stopwords.txt >$tmpfile 2>&1'
+            eval "$cmd_spell_check"
             rc=$?
             if [ $rc -ne 0 ] ; then
                 error "Spellcheck error on file $file"
+                info "command:  $cmd_spell_check"
                 tail -n 2 $tmpfile | head -n 1 | sed 's/^[^:]*:/Invalid words:/' 2>/dev/null
             fi
             check_tabs_crlf "$file"

.github/docker/testing/Dockerfile.testing-plugins-alma8

@@ -17,7 +17,7 @@ dnf clean all
 dnf install -y python3.11 python3.11-pip
 pip3.11 install robotframework robotframework-examples
 # Install snmpsim
-pip3.11 install snmpsim pysmi
+pip3.11 install snmpsim pysmi cryptography
 
 dnf module enable -y nodejs:24
 dnf install -y nodejs

.github/docker/testing/Dockerfile.testing-plugins-alma9

@@ -22,7 +22,7 @@ dnf clean all
 dnf install -y python3.11 python3.11-pip
 pip3.11 install robotframework robotframework-examples
 # Install snmpsim
-pip3.11 install snmpsim pysmi
+pip3.11 install snmpsim pysmi cryptography
 
 dnf module enable -y nodejs:24
 dnf install -y nodejs

.github/docker/testing/Dockerfile.testing-plugins-noble

@@ -41,7 +41,7 @@ python3 -m venv .venv
 apt-get install -y python3 python3-dev python3-pip
 pip3 install robotframework robotframework-examples
 # Install snmpsim
-pip3 install snmpsim pysmi
+pip3 install snmpsim pysmi cryptography
 
 curl -fsSL https://deb.nodesource.com/setup_${NODE_VERSION}.x | bash -
 apt-get install -y nodejs

packaging/centreon-plugin-Network-Stormshield-Snmp/rpm.json

@@ -1,5 +1,6 @@
 {
     "dependencies": [
+        "perl(DateTime)",
         "perl(SNMP)"
     ]
-}
+}

src/network/stormshield/snmp/mode/auto_update.pm

@@ -0,0 +1,221 @@
+# Copyright 2026-Present 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 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::stormshield::snmp::mode::auto_update;
+
+use base qw(centreon::plugins::templates::counter);
+use centreon::plugins::templates::catalog_functions qw(catalog_status_threshold_ng);
+use centreon::plugins::misc qw(is_empty);
+
+use strict;
+use warnings;
+use DateTime;
+use centreon::plugins::constants qw(:counters);
+use centreon::plugins::misc;
+
+my %STATES_TO_READABLE = (
+    'Uptodate'         => 'is up to date',
+    'Disabled'         => 'is disabled',
+    'NeverStarted'     => 'never started',
+    'Failed'           => 'has failed',
+    'Broken'           => 'is broken',
+    'Partially Failed' => 'partially failed',
+    'N/A'              => 'has no available state'
+);
+
+sub custom_auto_update_output {
+    my ($self, %options) = @_;
+
+    my $state = $self->{result_values}->{state};
+    my $display = $self->{result_values}->{display};
+
+    return "$display " . $STATES_TO_READABLE{$state} if $STATES_TO_READABLE{$state};
+    return "$display " . $state
+        . " (Last Update: " . ($self->{result_values}->{last_date} // 'N/A') . ")";
+}
+
+sub set_counters {
+    my ($self, %options) = @_;
+
+    $self->{maps_counters_type} = [
+        { 
+            name => 'updates', 
+            type => COUNTER_TYPE_INSTANCE,
+            message_multiple => 'All Updates and Webservices are up to date'
+        }
+    ];
+
+    $self->{maps_counters}->{updates} = [
+        {
+            label            => 'status',
+            type             => COUNTER_KIND_TEXT,
+            warning_default  => '%{state} =~ /Partially Failed/i',
+            critical_default => '%{state} =~ /^(Failed|Broken)$/i',
+            set              => {
+                key_values => [
+                    { name => 'display' },
+                    { name => 'state' },
+                    { name => 'last_date' }
+                ],
+                closure_custom_output => $self->can('custom_auto_update_output'),
+                closure_custom_threshold_check => \&catalog_status_threshold_ng
+            }
+        },
+    ];
+}
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+
+    return $self;
+}
+
+sub manage_selection {
+    my ($self, %options) = @_;
+
+    $self->{updates} = {};
+
+    my $oid_snsAutoupdateEntry   = '.1.3.6.1.4.1.11256.1.9.1.1';
+    my $oid_snsAutoupdateIndex   = '.1.3.6.1.4.1.11256.1.9.1.1.1';
+    my $oid_snsAutoupdateSubsys  = '.1.3.6.1.4.1.11256.1.9.1.1.2';
+    my $oid_snsAutoupdateState   = '.1.3.6.1.4.1.11256.1.9.1.1.3';
+    my $oid_snsAutoupdateLast    = '.1.3.6.1.4.1.11256.1.9.1.1.4';
+
+    my $oid_snsCustomWebServicesEntry  = '.1.3.6.1.4.1.11256.1.9.2.1';
+    my $oid_snsCustomWebServicesIndex  = '.1.3.6.1.4.1.11256.1.9.2.1.1';
+    my $oid_snsCustomWebServicesName   = '.1.3.6.1.4.1.11256.1.9.2.1.2';
+    my $oid_snsCustomWebServicesState  = '.1.3.6.1.4.1.11256.1.9.2.1.3';
+    my $oid_snsCustomWebServicesLast   = '.1.3.6.1.4.1.11256.1.9.2.1.4';
+
+
+    my $oid_snsVersion = '.1.3.6.1.4.1.11256.1.18.2.0';
+    my $snmp_result_version = $options{snmp}->get_leef(oids => [ $oid_snsVersion ], nothing_quit => 1);
+    my $version_clean = '';
+
+    if (defined $snmp_result_version && defined $snmp_result_version->{$oid_snsVersion}) {
+        $version_clean = $snmp_result_version->{$oid_snsVersion};
+        $version_clean =~ s/([0-9]+(?:\.[0-9]+)*).*/$1/;
+    }
+
+    my $snmp_result_update = $options{snmp}->get_table(
+        oid         => $oid_snsAutoupdateEntry,
+        nothing_quit => 0
+    );
+
+    my $snmp_result_webservice = {};
+
+    # The MIB WebService is available only starting with version 5.1.0
+    if (defined $version_clean && centreon::plugins::misc::minimal_version($version_clean, '5.1.0')) {
+        $snmp_result_webservice = $options{snmp}->get_table(
+            oid         => $oid_snsCustomWebServicesEntry,
+            nothing_quit => 0
+        );
+    }
+
+    $self->process_table(
+        snmp_result => $snmp_result_update,
+        index_oid   => $oid_snsAutoupdateIndex,
+        name_oid    => $oid_snsAutoupdateSubsys,
+        state_oid   => $oid_snsAutoupdateState,
+        date_oid    => $oid_snsAutoupdateLast,
+        prefix      => 'Update'
+    );
+
+    if (scalar(keys %{$snmp_result_webservice}) > 0) {
+        $self->process_table(
+            snmp_result => $snmp_result_webservice,
+            index_oid   => $oid_snsCustomWebServicesIndex,
+            name_oid    => $oid_snsCustomWebServicesName,
+            state_oid   => $oid_snsCustomWebServicesState,
+            date_oid    => $oid_snsCustomWebServicesLast,
+            prefix      => 'WebService'
+        );
+    }
+
+    if (scalar(keys %{$self->{updates}}) == 0) {
+        $self->{output}->output_add(
+            severity => 'UNKNOWN',
+            short_msg => 'No updates or web services found.'
+        );
+        $self->{updates} = {};
+        return;
+    }
+}
+
+sub process_table {
+    my ($self, %options) = @_;
+
+    my $snmp_result = $options{snmp_result};
+    my $index_oid   = $options{index_oid};
+    my $name_oid    = $options{name_oid};
+    my $state_oid   = $options{state_oid};
+    my $date_oid    = $options{date_oid};
+    my $prefix      = $options{prefix};
+
+    foreach my $oid (sort keys %{$snmp_result}) {
+        next unless $oid =~ /^$index_oid\./;
+
+        my $index = $oid;
+        $index =~ s/^$index_oid\.//;
+
+        my $name     = is_empty($snmp_result->{"$name_oid.$index"}) ? 'N/A' : $snmp_result->{"$name_oid.$index"};
+        my $state    = is_empty($snmp_result->{"$state_oid.$index"}) ? 'N/A' : $snmp_result->{"$state_oid.$index"};
+        my $lastDate = is_empty($snmp_result->{"$date_oid.$index"}) ? 'N/A' : $snmp_result->{"$date_oid.$index"};
+
+        my $normalized_state = ($state =~ /^(Uptodate|Failed|Disabled|Broken|Partially Failed)$/) ? $state : 'NeverStarted';
+
+        $self->{updates}->{$prefix . '_' . $index} = {
+            display   => $prefix . ': ' . $name,
+            state     => $normalized_state,
+            last_date => $lastDate
+        };
+    }
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+This mode allows you to monitor the status of auto-updates and web services on a Stormshield device.
+It checks for failed, broken, or partially failed updates and reports their status.
+
+=over 8
+
+=item B<--unknown-status>
+
+Define the conditions to match for the status to be UNKNOWN.
+You can use the following variables: %{display}, %{state}, %{last_date}
+
+=item B<--warning-status>
+
+Define the conditions to match for the status to be WARNING (default: C<%{state} =~ /Partially Failed/i>).
+You can use the following variables: %{display}, %{state}, %{last_date}
+
+=item B<--critical-status>
+
+Define the conditions to match for the status to be CRITICAL (default: C<%{state} =~ /^(Failed|Broken)$/i>).
+You can use the following variables: %{display}, %{state}, %{last_date}
+
+=back
+
+=cut