Add vendor-based & layer-based fallback classification for Layer7

ChangeLog

@@ -2,6 +2,9 @@ SNMP::Info - Friendly OO-style interface to Network devices using SNMP.
 
 version 2.07 ()
 
+    [NEW FEATURES]
+    * Basic support for APC UPS devices
+
     [BUG FIXES]
 
     * [2988163] Detect Juniper SSG firewalls as Layer3::Netscreen (R. Kerr)

Info.pm

@@ -1266,6 +1266,10 @@ sub device_type {
         14823 => 'SNMP::Info::Layer3::Aruba',
     );
 
+    my %l7sysoidmap = (
+        318   => 'SNMP::Info::Layer7::APC',
+    );
+
     # Get just the enterprise number for generic mapping
     $id = $1 if ( defined($id) && $id =~ /^\.1\.3\.6\.1\.4\.1\.(\d+)/ );
 
@@ -1517,6 +1521,10 @@ sub device_type {
                 $objtype = $l3sysoidmap{$id};
             } elsif ( defined $l2sysoidmap{$id}) {
                 $objtype = $l2sysoidmap{$id};
+            } elsif ( defined $l7sysoidmap{$id}) {
+                $objtype = $l7sysoidmap{$id};
+            } elsif ($info->has_layer(7)) {
+                $objtype = 'SNMP::Info::Layer7'
             }
         }
     }