new plugin for Network Extreme MLXe switches with SFP port

src/network/extreme/mlx/snmp/mode/components/board.pm

@@ -0,0 +1,90 @@
+#
+# Copyright 2026 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::extreme::mlx::snmp::mode::components::board;
+
+use strict;
+use warnings;
+
+my $mapping_board_status = {
+    0  => 'moduleEmpty',
+    2  => 'moduleGoingDown',
+    3  => 'moduleRejected',
+    4  => 'moduleBad',
+    8  => 'moduleConfigured',
+    9  => 'moduleComingUp',
+    10 => 'moduleRunning',
+    11 => 'moduleBlocked'
+};
+
+my $mapping = {
+    snAgentBrdMainBrdDescription => { oid => '.1.3.6.1.4.1.1991.1.1.2.2.1.1.2' },
+    snAgentBrdModuleStatus       => { oid => '.1.3.6.1.4.1.1991.1.1.2.2.1.1.12', map => $mapping_board_status }
+};
+sub load {
+    my ($self) = @_;
+
+    push @{$self->{request}},
+        { oid => $mapping->{snAgentBrdMainBrdDescription}->{oid} },
+        { oid => $mapping->{snAgentBrdModuleStatus}->{oid} };
+}
+
+sub check {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => 'checking boards');
+    $self->{components}->{board} = { name => 'boards', total => 0, skip => 0 };
+    return if ($self->check_filter(section => 'board'));
+
+    my $result = {
+        %{$self->{results}->{ $mapping->{snAgentBrdMainBrdDescription}->{oid} }},
+        %{$self->{results}->{ $mapping->{snAgentBrdModuleStatus}->{oid} }}
+    };
+    foreach my $oid ($self->{snmp}->oid_lex_sort(keys %$result)) {
+        next if ($oid !~ /^$mapping->{snAgentBrdModuleStatus}->{oid}\.(.*)$/);
+        my $instance = $1;
+        my $result = $self->{snmp}->map_instance(mapping => $mapping, results => $result, instance => $instance);
+
+        next if ($self->check_filter(section => 'board', instance => $instance));
+        $self->{components}->{board}->{total}++;
+
+        $self->{output}->output_add(
+            long_msg => sprintf(
+                "board '%s' status is '%s' [instance: %s].",
+                $result->{snAgentBrdMainBrdDescription},
+                $result->{snAgentBrdModuleStatus},
+                $instance
+            )
+        );
+        my $exit = $self->get_severity(section => 'board', value => $result->{snAgentBrdModuleStatus});
+        if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
+            $self->{output}->output_add(
+                severity  => $exit,
+                short_msg => sprintf(
+                    "board '%s' status is '%s'",
+                    $result->{snAgentBrdMainBrdDescription},
+                    $result->{snAgentBrdModuleStatus}
+                )
+            );
+        }
+    }
+}
+
+1;

src/network/extreme/mlx/snmp/mode/components/fan.pm

@@ -0,0 +1,81 @@
+#
+# Copyright 2026 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::extreme::mlx::snmp::mode::components::fan;
+
+use strict;
+use warnings;
+use network::extreme::mlx::snmp::mode::components::resources qw($map_status);
+
+my $mapping = {
+    snChasFanDescription => { oid => '.1.3.6.1.4.1.1991.1.1.1.3.1.1.2' },
+    snChasFanOperStatus  => { oid => '.1.3.6.1.4.1.1991.1.1.1.3.1.1.3', map => $map_status }
+};
+my $oid_snChasFan2Entry = '.1.3.6.1.4.1.1991.1.1.1.3.1.1';
+
+sub load {
+    my ($self) = @_;
+
+    push @{$self->{request}}, {
+        oid   => $oid_snChasFan2Entry,
+        start => $mapping->{snChasFanDescription}->{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 $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_snChasFan2Entry}})) {
+        next if ($oid !~ /^$mapping->{snChasFanOperStatus}->{oid}\.(.*)$/);
+        my $instance = $1;
+        my $result = $self->{snmp}->map_instance(
+            mapping  => $mapping,
+            results  => $self->{results}->{$oid_snChasFan2Entry},
+            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]",
+                $result->{snChasFanDescription}, $result->{snChasFanOperStatus}, $instance
+            )
+        );
+
+        my $exit = $self->get_severity(label => 'default', section => 'fan', value => $result->{snChasFanOperStatus});
+        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'",
+                    $result->{snChasFanDescription}, $result->{snChasFanOperStatus}
+                )
+            );
+        }
+    }
+}
+
+1;

src/network/extreme/mlx/snmp/mode/components/psu.pm

@@ -0,0 +1,87 @@
+#
+# Copyright 2026 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::extreme::mlx::snmp::mode::components::psu;
+
+use strict;
+use warnings;
+use network::extreme::mlx::snmp::mode::components::resources qw($map_status);
+
+my $mapping = {
+    snChasPwrSupplyDescription => { oid => '.1.3.6.1.4.1.1991.1.1.1.2.1.1.2' },
+    snChasPwrSupplyOperStatus  => { oid => '.1.3.6.1.4.1.1991.1.1.1.2.1.1.3', map => $map_status }
+};
+my $oid_snChasPwrSupply2Entry = '.1.3.6.1.4.1.1991.1.1.1.2.1.1';
+
+sub load {
+    my ($self) = @_;
+
+    push @{$self->{request}}, {
+        oid   => $oid_snChasPwrSupply2Entry,
+        start => $mapping->{snChasPwrSupplyDescription}->{oid}
+    };
+}
+
+sub check {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => 'checking power supplies');
+    $self->{components}->{psu} = { name => 'psu', total => 0, skip => 0 };
+    return if ($self->check_filter(section => 'psu'));
+
+    foreach my $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_snChasPwrSupply2Entry}})) {
+        next if ($oid !~ /^$mapping->{snChasPwrSupplyOperStatus}->{oid}\.(.*)$/);
+        my $instance = $1;
+        my $result = $self->{snmp}->map_instance(
+            mapping  => $mapping,
+            results  => $self->{results}->{$oid_snChasPwrSupply2Entry},
+            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].",
+                $result->{snChasPwrSupplyDescription},
+                $result->{snChasPwrSupplyOperStatus},
+                $instance
+            )
+        );
+        my $exit = $self->get_severity(
+            label   => 'default',
+            section => 'psu',
+            value   => $result->{snChasPwrSupplyOperStatus}
+        );
+        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'",
+                    $result->{snChasPwrSupplyDescription},
+                    $result->{snChasPwrSupplyOperStatus}
+                )
+            );
+        }
+    }
+}
+
+1;

src/network/extreme/mlx/snmp/mode/components/resources.pm

@@ -0,0 +1,36 @@
+#
+# Copyright 2026 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::extreme::mlx::snmp::mode::components::resources;
+
+use strict;
+use warnings;
+use Exporter;
+
+our $map_status;
+
+our @ISA = qw(Exporter);
+our @EXPORT_OK = qw($map_status);
+
+$map_status = {
+    1 => 'other', 2 => 'normal', 3 => 'failure'
+};
+
+1;

src/network/extreme/mlx/snmp/mode/components/temperature.pm

@@ -0,0 +1,93 @@
+#
+# Copyright 2026 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::extreme::mlx::snmp::mode::components::temperature;
+
+use strict;
+use warnings;
+
+my $mapping = {
+    snAgentTempSensorDescr => { oid => '.1.3.6.1.4.1.1991.1.1.2.13.1.1.3' },
+    snAgentTempValue       => { oid => '.1.3.6.1.4.1.1991.1.1.2.13.1.1.4' },
+};
+my $oid_snAgentTempEntry = '.1.3.6.1.4.1.1991.1.1.2.13.1.1';
+
+sub load {
+    my ($self) = @_;
+
+    push @{$self->{request}}, {
+        oid   => $oid_snAgentTempEntry,
+        start => $mapping->{snAgentTempSensorDescr}->{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 $oid ($self->{snmp}->oid_lex_sort(keys %{$self->{results}->{$oid_snAgentTempEntry}})) {
+        next if ($oid !~ /^$mapping->{snAgentTempSensorDescr}->{oid}\.(.*)$/);
+        my $instance = $1;
+        next if ($self->{results}->{$oid_snAgentTempEntry}->{$oid} !~ /temperature/i);
+        my $result = $self->{snmp}->map_instance(
+            mapping  => $mapping,
+            results  => $self->{results}->{$oid_snAgentTempEntry},
+            instance => $instance
+        );
+
+        next if ($self->check_filter(section => 'temperature', instance => $instance));
+        if (!defined($result->{snAgentTempValue}) || $result->{snAgentTempValue} == 0) {
+            $self->{output}->output_add(long_msg => sprintf("skipping temperature '%s'",
+                $result->{snAgentTempSensorDescr}));
+            next;
+        }
+
+        $self->{components}->{temperature}->{total}++;
+        $self->{output}->output_add(long_msg => sprintf("temperature '%s' is %s C [instance = %s]",
+            $result->{snAgentTempSensorDescr}, $result->{snAgentTempValue}, $instance));
+
+        my ($exit, $warn, $crit, $checked) = $self->get_severity_numeric(
+            section  => 'temperature',
+            instance => $instance,
+            value    => $result->{snAgentTempValue}
+        );
+        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", $result->{snAgentTempSensorDescr},
+                    $result->{snAgentTempValue})
+            );
+        }
+        $self->{output}->perfdata_add(
+            label     => 'temp', unit => 'C',
+            nlabel    => 'hardware.temperature.celsius',
+            instances => $result->{snAgentTempSensorDescr},
+            value     => $result->{snAgentTempValue},
+            warning   => $warn,
+            critical  => $crit, min => 0
+        );
+    }
+}
+
+1;