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

aerohive version support higher as 9 (#421)

Browse Source 
* allow aerohive hiveos version numbers above 9
* aerohive is now owned by extreme
This commit is contained in:
nick n
2021-06-04 18:38:13 +02:00
committed by GitHub
parent fa206be639
commit 0b86645a63
4 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Changes
View File

@@ -3,6 +3,7 @@ Version 3.xx (2021-xx-xx)
[BUG FIXES] [BUG FIXES]
* #403 don't use layer3::dell for layer3::aruba devices * #403 don't use layer3::dell for layer3::aruba devices
* layer2::aerohive supports version numbers above 9
Version 3.71 (2020-11-27) Version 3.71 (2020-11-27)

2
lib/SNMP/Info.pm
View File

@@ -528,7 +528,7 @@ See documentation in L<SNMP::Info::Layer2::Airespace> for details.
=item SNMP::Info::Layer2::Aerohive =item SNMP::Info::Layer2::Aerohive
Subclass for Aerohive Access Points. Subclass for Aerohive / Extreme access points.
See documentation in L<SNMP::Info::Layer2::Aerohive> for details. See documentation in L<SNMP::Info::Layer2::Aerohive> for details.

7
lib/SNMP/Info/Layer2/Aerohive.pm
View File

@@ -108,7 +108,7 @@ sub os_ver {
my $aerohive = shift; my $aerohive = shift;
my $descr = $aerohive->description(); my $descr = $aerohive->description();
if ( defined ($descr) && $descr =~ m/\bHiveOS\s(\d\.\w+)\b/ix ) { if ( defined ($descr) && $descr =~ m/\bHiveOS\s(\d+\.\w+)\b/ix ) {
return $1; return $1;
} }
return; return;
@@ -318,7 +318,8 @@ __END__
=head1 NAME =head1 NAME
SNMP::Info::Layer2::Aerohive - SNMP Interface to Aerohive Access Points SNMP::Info::Layer2::Aerohive - SNMP Interface to Aerohive / Extreme
access points
=head1 AUTHOR =head1 AUTHOR
@@ -342,7 +343,7 @@ Eric Miller
=head1 DESCRIPTION =head1 DESCRIPTION
Provides abstraction to the configuration information obtainable from an Provides abstraction to the configuration information obtainable from an
Aerohive wireless Access Point through SNMP. Aerohive / Extreme wireless access point through SNMP.
=head2 Inherited Classes =head2 Inherited Classes

6
xt/lib/Test/SNMP/Info/Layer2/Aerohive.pm
View File

@@ -116,12 +116,16 @@ sub os : Tests(2) {
is($test->{info}->os(), 'hiveos', q(OS returns 'hiveos')); is($test->{info}->os(), 'hiveos', q(OS returns 'hiveos'));
} }
sub os_ver : Tests(3) { sub os_ver : Tests(4) {
my $test = shift; my $test = shift;
can_ok($test->{info}, 'os_ver'); can_ok($test->{info}, 'os_ver');
is($test->{info}->os_ver(), '6.2r1', q(OS version is expected value)); is($test->{info}->os_ver(), '6.2r1', q(OS version is expected value));
$test->{info}{_description} = 'AP250, HiveOS 10.0r8 build-236132';
is($test->{info}->os_ver(),
'10.0r8', q(10.0r8 is expected os version));
$test->{info}->clear_cache(); $test->{info}->clear_cache();
is($test->{info}->os_ver(), undef, q(No description returns undef os_ver)); is($test->{info}->os_ver(), undef, q(No description returns undef os_ver));
} }