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

better interface names for Cumulus

Browse Source
This commit is contained in:
Oliver Gorwits
2018-03-03 17:59:59 +00:00
parent ac753c5970
commit 16e96d9fcf
1 changed files with 65 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

89
lib/SNMP/Info/Layer3/Cumulus.pm
View File

@@ -112,22 +112,55 @@ sub uptime {
return $netsnmp->SUPER::uptime(); return $netsnmp->SUPER::uptime();
} }
#sub i_ignore { # ifDescr is the same for all interfaces in a class, but the ifName is
# my $l3 = shift; # unique, so let's use that for port name. If all else fails,
# my $partial = shift; # concatentate ifDesc and ifIndex.
# # (code from SNMP/Info/Layer2/Netgear.pm)
# my $interfaces = $l3->interfaces($partial) || {}; sub interfaces {
# my $netgear = shift;
# my %i_ignore; my $partial = shift;
# foreach my $if ( keys %$interfaces ) {
# my $interfaces = $netgear->i_index($partial) || {};
# # lo0 etc my $i_descr = $netgear->i_description($partial) || {};
# if ( $interfaces->{$if} =~ /\blo\d*\b/i ) { my $i_name = $netgear->i_name($partial);
# $i_ignore{$if}++; my $i_isset = ();
# } # Replace the description with the ifName field, if set
# } foreach my $iid ( keys %$i_name ) {
# return \%i_ignore; my $name = $i_name->{$iid};
#} next unless defined $name;
if (defined $name and $name !~ /^\s*$/) {
$interfaces->{$iid} = $name;
$i_isset->{$iid} = 1;
}
}
# Replace the Index with the ifDescr field, appended with index
# number, to deal with devices with non-unique ifDescr.
foreach my $iid ( keys %$i_descr ) {
my $port = $i_descr->{$iid} . '-' . $iid;
next unless defined $port;
next if (defined $i_isset->{$iid} and $i_isset->{$iid} == 1);
$interfaces->{$iid} = $port;
}
return $interfaces;
}
sub i_ignore {
my $l3 = shift;
my $partial = shift;
my $interfaces = $l3->interfaces($partial) || {};
my %i_ignore;
foreach my $if ( keys %$interfaces ) {
# vlan1@br0 or peerlink.4094@peerlink
if ( $interfaces->{$if} =~ /@/i ) {
$i_ignore{$if}++;
}
}
return \%i_ignore;
}
sub agg_ports { return agg_ports_lag(@_) } sub agg_ports { return agg_ports_lag(@_) }
@@ -236,18 +269,26 @@ See documentation in L<SNMP::Info::IEEE802dot3ad> for details.
These are methods that return tables of information in the form of a reference These are methods that return tables of information in the form of a reference
to a hash. to a hash.
=cut
#=item $cumulus->i_ignore()
#
#Returns reference to hash. Increments value of IID if port is to be ignored.
#
#Ignores loopback
=head2 Overrides =head2 Overrides
=over =over
=item $cumulus->interfaces()
Uses the i_name() field.
=item $cumulus->i_ignore()
Returns reference to hash. Increments value of IID if port is to be ignored.
Ignores interfaces with an "@" in them.
=item $cumulus->i_ignore()
Returns reference to hash. Increments value of IID if port is to be ignored.
Ignores loopback
=item C<agg_ports> =item C<agg_ports>
Returns a HASH reference mapping from slave to master port for each member of Returns a HASH reference mapping from slave to master port for each member of