Add i_ssidmac() method to get BSSID's from AP's

This commit is contained in:
Eric A. Miller
2012-08-02 23:27:48 -04:00
parent 3e21357e8d
commit 8264f68f6c
2 changed files with 27 additions and 0 deletions

View File

@@ -4,6 +4,8 @@ version 2.09
[NEW FEATURES]
* New method i_ssidmac() to get BSSID's from AP's with initial support
in L2::Aironet and Airespace classes
* Support for Avaya Secure Routers in new class L3::Tasman
* Add EDP and LLDP L2 Topology to L3::Extreme
* [3185393] Support for Juniper SSL VPN in new class L7::Neoteris

View File

@@ -437,6 +437,26 @@ sub i_ssidbcast {
return $i_ssidbcast;
}
sub i_ssidmac {
my $aironet = shift;
my $partial = shift;
my $mbss_mac_addr = $aironet->mbss_mac_addr();
# Same logic as i_ssidbcast to return same indexes as i_ssidlist
my $map = {};
foreach my $key ( keys %$mbss_mac_addr ) {
my ( $interface, @idx ) = split( /\./, $key );
$map->{ pack( "C*", @idx ) } = $mbss_mac_addr->{$key};
}
my $i_ssidlist = $aironet->i_ssidlist();
my $i_ssidmac = {};
foreach my $key ( keys %$i_ssidlist ) {
$i_ssidmac->{$key} = $map->{ $i_ssidlist->{$key} };
}
return $i_ssidmac;
}
1;
__END__
@@ -623,6 +643,11 @@ to which they belong.
With the same keys as i_ssidlist, returns whether the given SSID is
being broadcast.
=item $aironet->i_ssidmac()
With the same keys as i_ssidlist, returns the Basic service set
identification (BSSID), MAC address, the AP is using for the SSID.
=back
=head2 Table Methods imported from SNMP::Info::Layer2