From 6358b7ad7071ce2e8a4e90c5db8c03482d17c98d Mon Sep 17 00:00:00 2001
From: Alexander Hartmaier <abraxxa@cpan.org>
Date: Wed, 10 Apr 2013 18:46:39 +0200
Subject: [PATCH] override i_description for Cisco ASA firewalls to return the
 configured interface name

---
 Info/Layer3/CiscoASA.pm | 25 +++++++++++++++++++++++--
 1 file changed, 23 insertions(+), 2 deletions(-)

diff --git a/Info/Layer3/CiscoASA.pm b/Info/Layer3/CiscoASA.pm
index acbbbcd2..5a32f5b3 100644
--- a/Info/Layer3/CiscoASA.pm
+++ b/Info/Layer3/CiscoASA.pm
@@ -91,6 +91,21 @@ sub b_mac {
        return @macs[0];
 }
 
+sub i_description {
+    my $self = shift;
+    my $partial   = shift;
+
+    my $i_descr = $self->orig_i_description($partial) || {};
+
+    foreach my $ifindex ( keys %$i_descr ) {
+        $i_descr->{$ifindex} =~ /'(.*)'/;
+        $i_descr->{$ifindex} = $1
+            if defined $1;
+    }
+
+    return $i_descr;
+}
+
 1;
 __END__
 
@@ -150,8 +165,14 @@ These are methods that return scalar value from SNMP
 
 =item $asa->b_mac()
 
-       Returns base mac.
-       Overrides base mac function in Layer3.
+Returns base mac.
+Overrides base mac function in L<SNMP::Info::Layer3>.
+
+=item $asa->i_description()
+
+Overrides base interface description function in L<SNMP::Info> to return the
+configured interface name instead of "Adaptive Security Appliance
+'$configured interface name' interface".
 
 =back