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

Overrides ipAddrTable methods, some versions do not index the table with the IPv4 address in accordance with the MIB definition.

Browse Source 
Fix for device serial number to use the fabric serial number.
This commit is contained in:
Eric A. Miller
2013-09-29 22:27:39 -04:00
parent 6071beb15d
commit b7e252b91a
1 changed files with 107 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

107
Info/Layer3/Nexus.pm
View File

@@ -142,10 +142,12 @@ sub serial {
my $nexus = shift; my $nexus = shift;
my $e_class = $nexus->e_class(); my $e_class = $nexus->e_class();
my $e_parent = $nexus->e_parent();
foreach my $iid ( keys %$e_class ) { foreach my $iid ( keys %$e_class ) {
my $class = $e_class->{$iid} || ''; my $class = $e_class->{$iid} || '';
if ($class =~ /chassis/) { my $parent = $e_parent->{$iid} || 1;
if ($class =~ /chassis/ && $e_parent == 0) {
my $serial = $nexus->e_serial($iid); my $serial = $nexus->e_serial($iid);
return $serial->{$iid}; return $serial->{$iid};
} }
@@ -174,6 +176,73 @@ sub model {
return $model; return $model;
} }
# Reported version 6.x of NX-OS doesn't use the IPv4 address as index
# override methods in ipAddrTable
sub ip_table {
my $nexus = shift;
my $orig_ip_table = $nexus->orig_ip_table();
my %ip_table;
foreach my $iid ( keys %$orig_ip_table ) {
my $ip = $orig_ip_table->{$iid};
next unless defined $ip;
$ip_table{$ip} = $ip;
}
return \%ip_table;
}
sub ip_index {
my $nexus = shift;
my $orig_ip_table = $nexus->orig_ip_table();
my $orig_ip_index = $nexus->orig_ip_index();
my %ip_index;
foreach my $iid ( keys %$orig_ip_table ) {
my $ip = $orig_ip_table->{$iid};
my $index = $orig_ip_index->{$iid};
next unless ( defined $ip && defined $index );
$ip_index{$ip} = $index;
}
return \%ip_index;
}
sub ip_netmask {
my $nexus = shift;
my $orig_ip_table = $nexus->orig_ip_table();
my $orig_ip_netmask = $nexus->orig_ip_netmask();
my %ip_netmask;
foreach my $iid ( keys %$orig_ip_table ) {
my $ip = $orig_ip_table->{$iid};
my $netmask = $orig_ip_netmask->{$iid};
next unless ( defined $ip && defined $netmask );
$ip_netmask{$ip} = $netmask;
}
return \%ip_netmask;
}
sub ip_broadcast {
my $nexus = shift;
my $orig_ip_table = $nexus->orig_ip_table();
my $orig_ip_broadcast = $nexus->orig_ip_broadcast();
my %ip_broadcast;
foreach my $iid ( keys %$orig_ip_table ) {
my $ip = $orig_ip_table->{$iid};
my $broadcast = $orig_ip_broadcast->{$iid};
next unless ( defined $ip && defined $broadcast );
$ip_broadcast{$ip} = $broadcast;
}
return \%ip_broadcast;
}
1; 1;
__END__ __END__
@@ -306,6 +375,42 @@ Returns 1. Use vlan indexing.
=back =back
=head2 Overrides
=head3 IP Address Table
Each entry in this table is an IP address in use on this device. Some
versions do not index the table with the IPv4 address in accordance with
the MIB definition, these overrides correct that behavior.
=over
=item $nexus->ip_index()
Maps the IP Table to the IID
(C<ipAdEntIfIndex>)
=item $nexus->ip_table()
Maps the Table to the IP address
(C<ipAdEntAddr>)
=item $nexus->ip_netmask()
Gives netmask setting for IP table entry.
(C<ipAdEntNetMask>)
=item $nexus->ip_broadcast()
Gives broadcast address for IP table entry.
(C<ipAdEntBcastAddr>)
=back
=head2 Globals imported from SNMP::Info::Layer3 =head2 Globals imported from SNMP::Info::Layer3
See documentation in L<SNMP::Info::Layer3/"GLOBALS"> for details. See documentation in L<SNMP::Info::Layer3/"GLOBALS"> for details.