[3599277] - Q-BRIDGE Support to collect VLAN in macsuck
This commit is contained in:
@@ -23,6 +23,7 @@ version 3.00
|
|||||||
* [3185391] Support for F5 devices in new class L3::F5
|
* [3185391] Support for F5 devices in new class L3::F5
|
||||||
* New configuration option IgnoreNetSNMPConf will ignore Net-SNMP
|
* New configuration option IgnoreNetSNMPConf will ignore Net-SNMP
|
||||||
configuration files on object initialization
|
configuration files on object initialization
|
||||||
|
* [3599277] - Q-BRIDGE Support to collect VLAN in macsuck
|
||||||
|
|
||||||
[ENHANCEMENTS]
|
[ENHANCEMENTS]
|
||||||
|
|
||||||
|
|||||||
@@ -158,6 +158,19 @@ sub qb_fw_mac {
|
|||||||
return $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 {
|
sub qb_i_vlan_t {
|
||||||
my $bridge = shift;
|
my $bridge = shift;
|
||||||
my $partial = shift;
|
my $partial = shift;
|
||||||
@@ -855,6 +868,10 @@ identifier (iid)
|
|||||||
|
|
||||||
(C<dot1qTpFdbPort>)
|
(C<dot1qTpFdbPort>)
|
||||||
|
|
||||||
|
=item $bridge->qb_fw_vlan()
|
||||||
|
|
||||||
|
Returns reference to hash of forwarding table entries VLAN ID
|
||||||
|
|
||||||
=item $bridge->qb_fw_status()
|
=item $bridge->qb_fw_status()
|
||||||
|
|
||||||
Returns reference to hash of forwarding table entries status
|
Returns reference to hash of forwarding table entries status
|
||||||
|
|||||||
Reference in New Issue
Block a user