fix: Add Fortinet module to report passive element of a HA stack

Author: g-bougard

Changes

@@ -56,6 +56,7 @@ netdiscovery/netinventory:
 * Add Tiesse devices support
 * fix #1001: Add HTek phones support
 * fix #1034: Add Hitachi Vantara storage devices support
+* Add Fortinet module to report passive element of a HA stack
 
 injector:
 * Add support for --ca-cert-file and --ssl-fingerprint options

lib/GLPI/Agent/SNMP/MibSupport/Fortinet.pm

@@ -0,0 +1,80 @@
+package GLPI::Agent::SNMP::MibSupport::Fortinet;
+
+use strict;
+use warnings;
+
+use parent 'GLPI::Agent::SNMP::MibSupportTemplate';
+
+use GLPI::Agent::Tools;
+use GLPI::Agent::Tools::SNMP;
+
+# FORTINET-CORE-MIB
+use constant fortinet   => '.1.3.6.1.4.1.12356';
+use constant fnCoreMib  => fortinet . '.100';
+use constant fnSysSerial    => fnCoreMib . '.1.1.1.0';
+
+# FORTINET-FORTIGATE-MIB
+use constant fnFortiGateMib => fortinet . '.101';
+use constant fgHighAvailability => fnFortiGateMib . '.13';
+use constant fgHaStatsEntry => fgHighAvailability . '.2.1.1';
+
+use constant fgHaStatsIndex     => fgHaStatsEntry . '.1';
+use constant fgHaStatsSerial    => fgHaStatsEntry . '.2';
+use constant fgHaStatsHostname  => fgHaStatsEntry . '.11';
+
+our $mibSupport = [
+    {
+        name        => "fortinet",
+        sysobjectid => getRegexpOidMatch(fnFortiGateMib)
+    }
+];
+
+sub getComponents {
+    my ($self) = @_;
+
+    my $device = $self->device
+        or return;
+
+    my @components;
+    my $components = $device->{COMPONENTS}->{COMPONENT};
+
+    if (scalar @{$components}) {
+        # Replace components with found HA devices
+        my $index = $self->walk(fgHaStatsIndex);
+        if (ref($index) eq "HASH") {
+            delete $device->{COMPONENTS};
+            my @index = sort values(%{$index});
+            foreach my $index (@index) {
+                my $serial = getCanonicalString($self->get(fgHaStatsSerial.".".$index));
+                push @components, {
+                    INDEX            => $index,
+                    NAME             => getCanonicalString($self->get(fgHaStatsHostname.".".$index)),
+                    CONTAINEDININDEX => 0,
+                    SERIAL           => $serial,
+                    MODEL            => $device->{MODEL},
+                    TYPE             => 'chassis',
+                };
+            }
+        }
+    }
+
+    return \@components;
+}
+
+sub getSerial {
+    my ($self) = @_;
+
+    return getCanonicalString($self->get(fnSysSerial));
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+GLPI::Agent::SNMP::MibSupport::Fortinet - Inventory module for Fortinet devices
+
+=head1 DESCRIPTION
+
+The module enhances Fortinet devices support.