diff --git a/ChangeLog b/ChangeLog index d7bb11e5..c5f23a91 100644 --- a/ChangeLog +++ b/ChangeLog @@ -17,6 +17,8 @@ version 3.09 () * Aruba POE Support * Aruba utilizes Q-BRIDGE-MIB when available for VLAN information to better support wired switches + * Alias lldp_rem_sysdesc() as lldp_platform() to provide a clue to type + of remote LLDP capable device. [BUG FIXES] diff --git a/Info.pm b/Info.pm index 0eef12cc..899e0e18 100644 --- a/Info.pm +++ b/Info.pm @@ -2632,7 +2632,8 @@ sub c_id { Returns reference to hash. Key: iid, Value: Remote Device Type -Note: LLDP and EDP do not provide this information. +Note: EDP does not provide this information. LLDP uses (C) +as the closest match. =cut diff --git a/Info/LLDP.pm b/Info/LLDP.pm index 1fb4342a..cb90c43c 100644 --- a/Info/LLDP.pm +++ b/Info/LLDP.pm @@ -227,6 +227,13 @@ sub lldp_id { return \%lldp_id; } +sub lldp_platform { + my $lldp = shift; + my $partial = shift; + + return $lldp->lldp_rem_sysdesc($partial); +} + #sub root_ip { # my $lldp = shift; # @@ -440,6 +447,10 @@ Currently only returns IPv4 or MAC addresses. Returns remote port ID +=item $lldp->lldp_platform() + +Alias for C. + =back =head2 LLDP Remote Table (C)