From e1e693a7c860ffd17e0f46f777d9253ed6bb5b10 Mon Sep 17 00:00:00 2001
From: "Eric A. Miller" <emiller@cpan.org>
Date: Wed, 2 Jan 2013 22:42:56 -0500
Subject: [PATCH] [3599277] - Q-BRIDGE Support to collect VLAN in macsuck

---
 ChangeLog      |  1 +
 Info/Bridge.pm | 17 +++++++++++++++++
 2 files changed, 18 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index fa135cb9..b03fa54d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -23,6 +23,7 @@ version 3.00
     * [3185391] Support for F5 devices in new class L3::F5
     * New configuration option IgnoreNetSNMPConf will ignore Net-SNMP
       configuration files on object initialization
+    * [3599277] - Q-BRIDGE Support to collect VLAN in macsuck
     
     [ENHANCEMENTS]
 
diff --git a/Info/Bridge.pm b/Info/Bridge.pm
index cfc71bdb..c5c877ca 100644
--- a/Info/Bridge.pm
+++ b/Info/Bridge.pm
@@ -158,6 +158,19 @@ sub qb_fw_mac {
     return $qb_fw_mac;
 }
 
+sub qb_fw_vlan {
+    my $bridge  = shift;
+    my $partial = shift;
+
+    my $qb_fw_port = $bridge->qb_fw_port($partial);
+    my $qb_fw_vlan = {};
+    foreach my $idx ( keys %$qb_fw_port ) {
+        my ( $fdb_id, $mac ) = _qb_fdbtable_index($idx);
+        $qb_fw_vlan->{$idx} = $fdb_id;
+    }
+    return $qb_fw_vlan;
+}
+
 sub qb_i_vlan_t {
     my $bridge  = shift;
     my $partial = shift;
@@ -855,6 +868,10 @@ identifier (iid)
 
 (C<dot1qTpFdbPort>)
 
+=item $bridge->qb_fw_vlan()
+
+Returns reference to hash of forwarding table entries VLAN ID
+
 =item $bridge->qb_fw_status()
 
 Returns reference to hash of forwarding table entries status