From 2dd1cdc28140a06d09e1a5947909b72c8b85e648 Mon Sep 17 00:00:00 2001
From: Jeroen van Ingen <jeroen@utwente.nl>
Date: Fri, 11 Nov 2011 10:44:16 +0100
Subject: [PATCH] Add vendor-based & layer-based fallback classification for
 Layer7

---
 ChangeLog | 3 +++
 Info.pm   | 8 ++++++++
 2 files changed, 11 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index eb191cba..695435d3 100644
--- a/ChangeLog
+++ b/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)
diff --git a/Info.pm b/Info.pm
index e54d4acd..203de0b0 100644
--- a/Info.pm
+++ b/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'
             }
         }
     }