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) +=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