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

Small H3C fixes

Browse Source
This commit is contained in:
Max Kosmach
2014-07-28 15:41:46 +04:00
parent 0f5319bc52
commit 2e480dbec5
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Info/Layer3/H3C.pm
View File

@@ -82,7 +82,7 @@ $VERSION = '3.18';
sub vendor { sub vendor {
my $h3c = shift; my $h3c = shift;
my $mfg = $h3c->entPhysicalMfgName(1) || {}; my $mfg = $h3c->entPhysicalMfgName(1) || {};
return $mfg->{1}; return $mfg->{1} || "H3C";
} }
sub os { sub os {
@@ -90,7 +90,7 @@ sub os {
my $descr = $h3c->description(); my $descr = $h3c->description();
return $1 if ( $descr =~ /(\S+)\s+Platform Software/ ); return $1 if ( $descr =~ /(\S+)\s+Platform Software/ );
return; return "H3C";
} }
sub os_ver { sub os_ver {
@@ -101,6 +101,7 @@ sub os_ver {
my $os_ver = undef; my $os_ver = undef;
$os_ver = "$1 $2" if ( $descr =~ /Software Version ([^,]+),.*(Release\s\S+)/i ); $os_ver = "$1 $2" if ( $descr =~ /Software Version ([^,]+),.*(Release\s\S+)/i );
$os_ver = "$1" if ( $descr =~ /Product Version ([0-9.]+)/i );
return $ver_release->{2} || $os_ver; return $ver_release->{2} || $os_ver;
} }