From 123dc84f0502914b66b54ecc3fc9e8952604e6cc Mon Sep 17 00:00:00 2001
From: Bill Fenner <>
Date: Wed, 18 Jul 2007 16:39:11 +0000
Subject: [PATCH] Get i_vlan from Layer3 Cisco from the sub-interface ID.

---
 Info/Layer3/Cisco.pm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/Info/Layer3/Cisco.pm b/Info/Layer3/Cisco.pm
index 7420de92..0ef5bcd5 100644
--- a/Info/Layer3/Cisco.pm
+++ b/Info/Layer3/Cisco.pm
@@ -99,6 +99,24 @@ $VERSION = '1.05';
             'eigrp_peers' => \&SNMP::Info::munge_ip,
          );
 
+sub i_vlan {
+	my ($cisco) = shift;
+	my ($partial) = shift;
+
+	my ($i_type) = $cisco->i_type($partial);
+	my ($i_descr) = $cisco->i_description($partial);
+	my %i_vlan;
+
+	foreach my $idx (keys %$i_descr) {
+		if ($i_type->{$idx} eq 'l2vlan' || $i_type->{$idx} eq 135) {
+			if ($i_descr->{$idx} =~ /\.(\d+)$/) {
+				$i_vlan{$idx} = $1;
+			}
+		}
+	}
+	\%i_vlan;
+}
+
 1;
 __END__