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

Return serial number for Cisco 3850 from entPhysicalSerialNum

Browse Source
This commit is contained in:
Oliver Gorwits
2014-06-10 13:12:08 +01:00
parent 6519570839
commit c24e63ec4c
3 changed files with 33 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Info/Layer2/CiscoSB.pm
View File

@@ -98,21 +98,17 @@ sub vendor {
return 'cisco';
}
# Walk the entPhysicalSerialNum table and return both the first serial
# number found as well as the index of that entry.
# Walk the entPhysicalSerialNum table and return the first serial found
sub serial {
my $ciscosb = shift;
my $serial = undef;
my $e_serial = $ciscosb->e_serial();
# Find entity table entry for this unit
foreach my $e ( keys %$e_serial ) {
if (defined ($e_serial->{$e}) and $e_serial->{$e} !~ /^\s*$/) {
$index = $e;
last;
foreach my $e ( sort keys %$e_serial ) {
if (defined $e_serial->{$e} and $e_serial->{$e} !~ /^\s*$/) {
return $e_serial->{$e};
}
}
return $e_serial->{$index} if defined $index;
}
sub os_ver {