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

lldp_platform() now tries to return something useful from either lldp_rem_sysdesc() or lldp_rem_sysname().

Browse Source
This commit is contained in:
Eric A. Miller
2013-12-15 08:34:27 -05:00
parent 602bb15b47
commit 0e572db832
1 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Info/LLDP.pm
View File

@@ -231,7 +231,15 @@ sub lldp_platform {
my $lldp = shift;
my $partial = shift;
return $lldp->lldp_rem_sysdesc($partial);
my $rid = $lldp->lldp_rem_id($partial) || {};
my $desc = $lldp->lldp_rem_sysdesc($partial) || {};
my $name = $lldp->lldp_rem_sysname($partial) || {};
my %lldp_platform;
foreach my $key (keys %$rid) {
$lldp_platform{$key} = $desc->{$key} || $name->{$key};
}
return \%lldp_platform;
}
#sub root_ip {
@@ -449,7 +457,8 @@ Returns remote port ID
=item $lldp->lldp_platform()
Alias for C<lldp_rem_sysdesc()>.
Tries to return something useful from C<lldp_rem_sysdesc()> or
C<lldp_rem_sysname()>.
=back