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

CH: workaround for aruba-cx link aggregation (#474)

Browse Source
This commit is contained in:
Christoph Handel
2023-02-20 16:21:46 +01:00
committed by GitHub
parent 1a42221e58
commit ef4dfbe870
1 changed files with 32 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
lib/SNMP/Info/Layer3/ArubaCX.pm
View File

@@ -79,6 +79,7 @@ $VERSION = '3.89';
'psu_types' => 'arubaWiredPSUProductName', 'psu_types' => 'arubaWiredPSUProductName',
'psu_states' => 'arubaWiredPSUState', 'psu_states' => 'arubaWiredPSUState',
'vsf_prod_names' => 'arubaWiredVsfMemberProductName', 'vsf_prod_names' => 'arubaWiredVsfMemberProductName',
'raw_ad_lag_ports' => 'dot3adAggPortListPorts', # unmunged raw data
); );
%MUNGE = ( %MUNGE = (
@@ -154,7 +155,37 @@ sub os_ver {
return $ver_release->{1}; return $ver_release->{1};
} }
sub agg_ports { return agg_ports_lag(@_) } # agg_ports should return a hash with
# ifindex of member -> ifindex of aggregation
#
# arabuaos-cx has a broken implementation of
# dot3adAggPortListPorts / 1.2.840.10006.300.43.1.1.2.1.1
# it return a comma seperated String with interface names
# (rfc states a PortList / bitmask of member ports)
#
# fetch value, split at comma, reverse search the interface hash
# for the interface index
sub agg_ports {
my $cx = shift;
my $ret = {};
my $ports = $cx->raw_ad_lag_ports();
my $interfaces = $cx->interfaces();
foreach my $m ( keys %$ports ) {
my $idx = $m;
my $portlist = $ports->{$m};
next unless $portlist;
foreach my $ifname ( split(/,/, $portlist) ) {
foreach my $ifindex ( keys %$interfaces) {
if ($interfaces->{$ifindex} eq $ifname) {
$ret->{$ifindex} = $idx;
}
}
}
}
return $ret;
}
# Overrides for VLAN & forwarding table methods # Overrides for VLAN & forwarding table methods
sub v_name { sub v_name {