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

#195 IP address table - IPv4 Address Table will use the IP-MIB::ipAddressTable if the deprecated IP-MIB::ipAddrTable doesn't return results

Browse Source
This commit is contained in:
Eric A. Miller
2018-05-07 21:09:16 -04:00
parent 4ff904f3cd
commit 1a80138026
7 changed files with 249 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/SNMP/Info/Layer3/Nexus.pm
View File

@@ -143,7 +143,7 @@ sub model {
# override methods in ipAddrTable
sub ip_table {
my $nexus = shift;
my $orig_ip_table = $nexus->orig_ip_table();
my $orig_ip_table = $nexus->SUPER::ip_table();
my %ip_table;
foreach my $iid ( keys %$orig_ip_table ) {
@@ -163,8 +163,8 @@ sub 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 $orig_ip_table = $nexus->SUPER::ip_table();
my $orig_ip_index = $nexus->SUPER::ip_index();
my %ip_index;
foreach my $iid ( keys %$orig_ip_table ) {
@@ -186,8 +186,8 @@ sub 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 $orig_ip_table = $nexus->SUPER::ip_table();
my $orig_ip_netmask = $nexus->SUPER::ip_netmask();
my %ip_netmask;
foreach my $iid ( keys %$orig_ip_table ) {
@@ -209,8 +209,8 @@ sub 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 $orig_ip_table = $nexus->SUPER::ip_table();
my $orig_ip_broadcast = $nexus->SUPER::ip_broadcast();
my %ip_broadcast;
foreach my $iid ( keys %$orig_ip_table ) {

4
lib/SNMP/Info/Layer3/Passport.pm
View File

@@ -450,7 +450,7 @@ sub ip_index {
my $partial = shift;
my $model = $passport->model();
my $ip_index = $passport->orig_ip_index($partial) || {};
my $ip_index = $passport->SUPER::ip_index($partial) || {};
my %ip_index;
foreach my $ip ( keys %$ip_index ) {
@@ -492,7 +492,7 @@ sub ip_netmask {
my $partial = shift;
my $model = $passport->model();
my $ip_mask = $passport->orig_ip_netmask($partial) || {};
my $ip_mask = $passport->SUPER::ip_netmask($partial) || {};
my %ip_index;
foreach my $iid ( keys %$ip_mask ) {