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

L3::IBMGbTor defaults to lldpInfoRemoteDevicesLocalPort in lldp_if() unless there is a cross reference to either ifAlias or ifDescr

Browse Source 
L3::IBMGbTor lldp_id() now uses lldpInfoRemoteDevicesSystemName
Add lldp_platform() support in L3::IBMGbTor
L3::IBMGbTor POD updates
This commit is contained in:
Eric A. Miller
2013-11-02 11:02:03 -04:00
parent 539943fb0f
commit 9540f6b9d3
1 changed files with 28 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
Info/Layer3/IBMGbTor.pm
View File

@@ -80,7 +80,7 @@ $VERSION = '3.07_001';
# IBM-GbTOR-10G-L2L3-MIB::lldpInfoRemoteDevicesTable # IBM-GbTOR-10G-L2L3-MIB::lldpInfoRemoteDevicesTable
'lldp_rem_id_type' => 'lldpInfoRemoteDevicesChassisSubtype', 'lldp_rem_id_type' => 'lldpInfoRemoteDevicesChassisSubtype',
'lldp_rem_id' => 'lldpInfoRemoteDevicesChassisId', 'lldp_rem_id' => 'lldpInfoRemoteDevicesSystemName',
'lldp_rem_pid_type' => 'lldpInfoRemoteDevicesPortSubtype', 'lldp_rem_pid_type' => 'lldpInfoRemoteDevicesPortSubtype',
'lldp_rem_pid' => 'lldpInfoRemoteDevicesPortId', 'lldp_rem_pid' => 'lldpInfoRemoteDevicesPortId',
'lldp_rem_desc' => 'lldpInfoRemoteDevicesPortDescription', 'lldp_rem_desc' => 'lldpInfoRemoteDevicesPortDescription',
@@ -146,9 +146,10 @@ sub lldp_if {
# prefer ifAlias over ifDescr since MIB says 'alias'. # prefer ifAlias over ifDescr since MIB says 'alias'.
my $desc = $lldp_desc->{$key}; my $desc = $lldp_desc->{$key};
next unless $desc; next unless $desc;
my $port; my $port = $desc;
# If cross reference is successful use it, otherwise stick with lldpRemLocalPortNum # If cross reference is successful use it, otherwise stick with
# lldpRemLocalPortNum
if ( exists $r_i_alias{$desc} ) { if ( exists $r_i_alias{$desc} ) {
$port = $r_i_alias{$desc}; $port = $r_i_alias{$desc};
} }
@@ -161,6 +162,13 @@ sub lldp_if {
return \%lldp_if; return \%lldp_if;
} }
sub lldp_platform {
my $ibm = shift;
my $partial = shift;
return $ibm->lldpInfoRemoteDevicesSystemDescription($partial);
}
sub i_ignore { sub i_ignore {
my $ibm = shift; my $ibm = shift;
my $partial = shift; my $partial = shift;
@@ -334,17 +342,6 @@ the device would not return any useful topology information.
Checks to see if at least one interface is enabled to receive LLDP packets. Checks to see if at least one interface is enabled to receive LLDP packets.
=item $lldp->lldp_if()
Returns the mapping to the SNMP Interface Table. Tries to cross reference
(C<lldpInfoRemoteDevicesLocalPort>) with (C<ifDescr>) and (C<ifAlias>)
to get (C<ifIndex>).
=item $lldp->lldp_ip()
Returns remote IPv4 address. Returns for all other address types, use
lldp_addr if you want any return address type.
=back =back
=head2 Global Methods imported from SNMP::Info::Layer3 =head2 Global Methods imported from SNMP::Info::Layer3
@@ -380,6 +377,23 @@ Returns reference to hash of interface link duplex status.
(C<portInfoMode>) (C<portInfoMode>)
=item $ibm->lldp_if()
Returns the mapping to the SNMP Interface Table. Tries to cross reference
(C<lldpInfoRemoteDevicesLocalPort>) with (C<ifDescr>) and (C<ifAlias>)
to get (C<ifIndex>).
=item $ibm->lldp_ip()
Returns remote IPv4 address. Returns for all other address types, use
lldp_addr if you want any return address type.
=item $ibm->lldp_platform()
Returns remote device system description.
(C<lldpInfoRemoteDevicesSystemDescription>)
=back =back
=head2 Table Methods imported from SNMP::Info::Layer3 =head2 Table Methods imported from SNMP::Info::Layer3