135/snmp-info
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Some devices have issues with BRIDGE-MIB (duplicates and non-increasing oids). Use Q-BRIDGE-MIB for macsuck.

Browse Source
This commit is contained in:
Eric Miller
2007-06-26 01:35:17 +00:00
parent e8c0a78e67
commit ab08aa1de1
1 changed files with 24 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Info/Layer3/Enterasys.pm
View File

@@ -64,6 +64,9 @@ $VERSION = '1.05';
%SNMP::Info::CDP::FUNCS,
%SNMP::Info::LLDP::FUNCS,
%SNMP::Info::MAU::FUNCS,
# Normal BRIDGE-MIB has issues on some devices, duplicates and
# non-increasing oids, Use Q-BRIDGE-MIB for macsuck
'fw_port' => 'dot1qTpFdbPort',
);
%MUNGE = (
@@ -150,6 +153,27 @@ sub i_duplex_admin {
return $enterasys->mau_i_duplex_admin($partial);
}
# dot1qTpFdbAddress doesn't return values but is used as the index for the table
# so extract mac from index of dot1qTpFdbPort
sub fw_mac {
my $enterasys = shift;
my $enterasys_fw_port = $enterasys->fw_port();
my %fw_mac;
foreach my $iid (keys %$enterasys_fw_port){
# iid is dot1qFdbId.dot1qTpFdbAddress so strip dot1qFdbId
my $mac = $iid;
$mac =~ s/^\d+\.//;
# Convert the remaining 0.254.123.456 index entry to a MAC address.
$mac = join(':',map {sprintf("%02x",$_)} split(/\./,$mac));
next unless defined $mac;
$fw_mac{$iid}=$mac;
}
return \%fw_mac;
}
# Use CDP and/or LLDP
sub hasCDP {