rename parse_cisco_bgp_peer2_peer2entry_index to parse_cisco_bgp_peer2_entry_index

This commit is contained in:
Alexander Hartmaier
2022-03-16 09:29:10 +01:00
parent efb32ac10d
commit 895b8ed373

View File

@@ -36,7 +36,7 @@ use SNMP::Info;
@SNMP::Info::CiscoBGP::ISA = qw( SNMP::Info Exporter ); @SNMP::Info::CiscoBGP::ISA = qw( SNMP::Info Exporter );
@SNMP::Info::CiscoBGP::EXPORT_OK = qw( @SNMP::Info::CiscoBGP::EXPORT_OK = qw(
parse_cisco_bgp_peer2_peer2entry_index parse_cisco_bgp_peer2_entry_index
); );
our ($VERSION, %MIBS, %FUNCS, %GLOBALS, %MUNGE); our ($VERSION, %MIBS, %FUNCS, %GLOBALS, %MUNGE);
@@ -93,7 +93,7 @@ $VERSION = '3.81';
'cisco_bgp_peer2_lasterror' => \&SNMP::Info::munge_octet2hex, 'cisco_bgp_peer2_lasterror' => \&SNMP::Info::munge_octet2hex,
); );
sub parse_cisco_bgp_peer2_peer2entry_index { sub parse_cisco_bgp_peer2_entry_index {
my ($self, $index) = @_; my ($self, $index) = @_;
my ($type, $addrlength, $ip) = split(/\./, $index, 3); my ($type, $addrlength, $ip) = split(/\./, $index, 3);
# decode IPv6 remote address # decode IPv6 remote address
@@ -132,7 +132,7 @@ my $remoteas_for_index = $device->cisco_bgp_peer2_remoteas;
for my $index (keys $remoteas_for_index->%*) { for my $index (keys $remoteas_for_index->%*) {
my ($type, $addrlength, $ip) = my ($type, $addrlength, $ip) =
$device->parse_cisco_bgp_peer2_peer2entry_index($index); $device->parse_cisco_bgp_peer2_entry_index($index);
printf('remote: %-39s type: %-4s remote AS: %5d', printf('remote: %-39s type: %-4s remote AS: %5d',
$ip, $type, $remoteas_for_index->{$index}); $ip, $type, $remoteas_for_index->{$index});
} }
@@ -254,7 +254,7 @@ supported by a peer.
=over =over
=item parse_cisco_bgp_peer2_peer2entry_index =item parse_cisco_bgp_peer2_entry_index
Takes a cbgpPeer2Entry index as returned by all methods of the Cisco BGP Peer Takes a cbgpPeer2Entry index as returned by all methods of the Cisco BGP Peer
2 Table methods. 2 Table methods.