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

pod cleanup

Browse Source
This commit is contained in:
inphobia
2019-01-19 05:55:28 +01:00
parent 19cdb388e5
commit a59572b392
19 changed files with 33 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
LICENSE
View File

@@ -6,7 +6,7 @@ Original Code
Copyright (c) 2002,2003 Regents of the University of California
All rights reserved.
Redistribution and use in source and binary forms, with or without
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met:
* Redistributions of source code must retain the above copyright notice,
@@ -14,17 +14,17 @@ modification, are permitted provided that the following conditions are met:
* Redistributions in binary form must reproduce the above copyright notice,
this list of conditions and the following disclaimer in the documentation
and/or other materials provided with the distribution.
* Neither the name of the University of California, Santa Cruz nor the
names of its contributors may be used to endorse or promote products
* Neither the name of the University of California, Santa Cruz nor the
names of its contributors may be used to endorse or promote products
derived from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

12
lib/SNMP/Info/Layer2/HPVC.pm
View File

@@ -188,22 +188,10 @@ See documentation in L<SNMP::Info::Layer2/"GLOBALS"> for details.
These are methods that return tables of information in the form of a reference
to a hash.
=head2 Overrides
=over
=back
=head2 Table Methods imported from SNMP::Info::Layer2
See documentation in L<SNMP::Info::Layer2/"TABLE METHODS"> for details.
=head1 MUNGES
=over
=back
=head1 SET METHODS
These are methods that provide SNMP set functionality for overridden methods

6
lib/SNMP/Info/Layer2/Kentrox.pm
View File

@@ -168,12 +168,6 @@ See documentation in L<SNMP::Info::Layer2/"GLOBALS"> for details.
These are methods that return tables of information in the form of a reference
to a hash.
=head2 Overrides
=over
=back
=head2 Table Methods imported from SNMP::Info::Layer2
See documentation in L<SNMP::Info::Layer2/"TABLE METHODS"> for details.

6
lib/SNMP/Info/Layer3/BlueCoatSG.pm
View File

@@ -154,12 +154,6 @@ See documentation in L<SNMP::Info::Layer3/"GLOBALS"> for details.
These are methods that return tables of information in the form of a reference
to a hash.
=head2 Overrides
=over
=back
=head2 Table Methods imported from SNMP::Info::Layer3
See documentation in L<SNMP::Info::Layer3/"TABLE METHODS"> for details.

4
lib/SNMP/Info/Layer3/CiscoFWSM.pm
View File

@@ -196,10 +196,6 @@ See documentation in L<SNMP::Info::Layer3/"GLOBALS"> for details.
These are methods that return tables of information in the form of a reference
to a hash.
=over
=back
=head2 Overrides
=over

4
lib/SNMP/Info/Layer3/Lantronix.pm
View File

@@ -246,10 +246,6 @@ See documentation in L<SNMP::Info::Layer3/"GLOBALS"> for details.
These are methods that return tables of information in the form of a reference
to a hash.
=over
=back
=head2 Overrides
=over

6
lib/SNMP/Info/Layer3/Mikrotik.pm
View File

@@ -179,6 +179,7 @@ Returns the value of C<mtxrLicVersion>.
Returns the value of RouterOS level C<mtxrLicLevel>
=item $mikrotik->board_temp()
=item $mikrotik->cpu_temp()
Returns the appropriate temperature values
@@ -206,13 +207,8 @@ to a hash.
None.
=over
=back
=head2 Table Methods imported from SNMP::Info::Layer3
See documentation in L<SNMP::Info::Layer3> for details.
=cut

6
lib/SNMP/Info/Layer3/SonicWALL.pm
View File

@@ -175,12 +175,6 @@ See documentation in L<SNMP::Info::Layer3/"GLOBALS"> for details.
These are methods that return tables of information in the form of a reference
to a hash.
=head2 Overrides
=over
=back
=head2 Table Methods imported from SNMP::Info::Layer3
See documentation in L<SNMP::Info::Layer3/"TABLE METHODS"> for details.

12
lib/SNMP/Info/Layer7/APC.pm
View File

@@ -214,22 +214,10 @@ See documentation in L<SNMP::Info::Layer7/"GLOBALS"> for details.
These are methods that return tables of information in the form of a reference
to a hash.
=head2 Overrides
=over
=back
=head2 Table Methods imported from SNMP::Info::Layer7
See documentation in L<SNMP::Info::Layer7/"TABLE METHODS"> for details.
=head1 MUNGES
=over
=back
=head1 SET METHODS
These are methods that provide SNMP set functionality for overridden methods

2
t/00_load.t
View File

@@ -1,5 +1,5 @@
#!/usr/bin/perl
# 00-load.t - Test loading of SNMP::Info
# 00-load.t - Test loading of SNMP::Info
# $Id$
use strict;

2
xt/00_local_docininfo.t
View File

@@ -35,7 +35,7 @@ sub check_version {
# Make sure that this package is listed in Info.pm
fail($_) unless $content =~ m/^\s*package\s+(\S+)\s*;/m;
my $package = $1;
return if $package eq 'SNMP::Info';

20
xt/00_local_prereq.t
View File

@@ -20,12 +20,12 @@ Net-SNMP not found. Net-SNMP installs the perl modules SNMP and
SNMP::Session.
Versions 4.2.1 to 5.3 the Perl modules are not distributed on CPAN, you must
install from the distribution.
install from the distribution.
Install Net-SNMP from http://net-snmp.sourceforge.net and make sure you run
configure with the --with-perl-modules switch!
Note to Redhat Users: Redhat, in its infinite wisdom, does not install the
Note to Redhat Users: Redhat, in its infinite wisdom, does not install the
Perl modules as part of their 8.0 RPMS. Please uninstall them and install the
newest version by hand.
@@ -48,20 +48,20 @@ SKIP: {
my ($ver_maj,$ver_min,$ver_rev) = split(/\./,$VERSION);
ok ($ver_maj >= 4, 'Net-SNMP ver 4 or higher');
if ($ver_maj == 4 and $ver_min == 2 and $ver_rev == 0){
print STDERR << "end_420";
SNMP module version 4.2.0 found. Please triple check that you have
version 4.2.0 of Net-SNMP installed, and that you did not accidently install
the SNMP module found on CPAN. All newer versions are bundled with
Net-SNMP, and are not available on CPAN. Please find them at
http://net-snmp.sourceforge.net . Make sure you run configure with the
the SNMP module found on CPAN. All newer versions are bundled with
Net-SNMP, and are not available on CPAN. Please find them at
http://net-snmp.sourceforge.net . Make sure you run configure with the
--with-perl-modules switch.
end_420
}
if( $ver_maj == 5 and $ver_min == 0 and $ver_rev == 1 ){
print STDERR << "end_501";
@@ -71,7 +71,7 @@ Perl module of Net-SNMP 5.0.1 is buggy. Please upgrade.
end_501
}
if(( $ver_maj == 5 and $ver_min == 3 and $ver_rev == 1 ) or
( $ver_maj == 5 and $ver_min == 2 and $ver_rev == 3 )) {
print STDERR << "end_bulkwalk";
@@ -81,13 +81,13 @@ Perl module of Net-SNMP Versions 5.3.1 and 5.2.3 have issues with bulkwalk,
turn off bulkwalk. Please upgrade.
end_bulkwalk
}
}
}
print STDERR << "end_mibs";
Make sure you download and install the MIBS needed for SNMP::Info.
Make sure you download and install the MIBS needed for SNMP::Info.
See Man page or perldoc for SNMP::Info.
end_mibs

8
xt/lib/Test/SNMP/Info.pm
View File

@@ -463,7 +463,7 @@ sub ip_index : Tests(4) {
can_ok($test->{info}, 'ip_index');
my $cache_data = {
'_old_ip_index' => 1,
'_old_ip_index' => 1,
'_new_ip_index' => 1,
'_new_ip_type' => 1,
'store' => {
@@ -498,7 +498,7 @@ sub ip_table : Tests(4) {
can_ok($test->{info}, 'ip_table');
my $cache_data = {
'_old_ip_table' => 1,
'_old_ip_table' => 1,
'_new_ip_index' => 1,
'_new_ip_type' => 1,
'store' => {
@@ -533,7 +533,7 @@ sub ip_netmask : Tests(4) {
can_ok($test->{info}, 'ip_netmask');
my $cache_data = {
'_old_ip_netmask' => 1,
'_old_ip_netmask' => 1,
'_new_ip_prefix' => 1,
'_new_ip_type' => 1,
'store' => {
@@ -908,7 +908,7 @@ sub resolve_desthost : Tests(6) {
'udp6:fe80:0:0:0:2d0:b7ff:fe21:c6c0',
q(Net-SNMP example IPv6 address returns with 'udp6:' prefix)
);
dies_ok { SNMP::Info::resolve_desthost('1.2.3.4.5') } 'Bad IP dies';
}

2
xt/lib/Test/SNMP/Info/Bridge.pm
View File

@@ -60,7 +60,7 @@ sub qb_fdb_index : Tests(3) {
my $test = shift;
can_ok( $test->{info}, 'qb_fdb_index' );
my $expected = { 0 => 1, 3 => 91, 1 => 112, 2 => 113 };
cmp_deeply( $test->{info}->qb_fdb_index(), $expected, q(FDB to VLAN index returned expected values));

4
xt/lib/Test/SNMP/Info/LLDP.pm
View File

@@ -377,9 +377,9 @@ sub lldp_cap : Tests(4) {
can_ok($test->{info}, 'lldp_cap');
my $expected = ['bridge', 'router'];
my $caps = $test->{info}->lldp_cap();
cmp_set($caps->{'0.6.1'}, $expected,
q(Caps emumerated correctly));

2
xt/lib/Test/SNMP/Info/Layer2/Aironet.pm
View File

@@ -74,7 +74,7 @@ sub setup : Tests(setup) {
2 => '802.11G Radio',
3 => '802.11A Radio',
4 => 'PowerPCElvis Ethernet',
},
},
},
};

2
xt/lib/Test/SNMP/Info/Layer2/Sixnet.pm
View File

@@ -78,7 +78,7 @@ sub model : Tests(5) {
$test->{info}{_id} = '.100.3.6.1.4.1.20540.2.1';
is($test->{info}->model(), '.100.3.6.1.4.1.20540.2.1',
q(Model is expected value when id doesn't translate));
$test->{info}->clear_cache();
is($test->{info}->model(), undef, q(No data returns undef model));
}

2
xt/lib/Test/SNMP/Info/Layer3/Arista.pm
View File

@@ -44,7 +44,7 @@ sub startup : Tests(startup => 1) {
sub setup : Tests(setup) {
my $test = shift;
$test->SUPER::setup;
# Start with a common cache that will serve most tests
my $d_string = 'Arista Networks EOS version 4.10.4 ';
$d_string .= 'running on an Arista Networks DCS-7048T-A';

4
xt/lib/Test/SNMP/Info/PowerEthernet.pm
View File

@@ -43,7 +43,7 @@ sub setup : Tests(setup) {
'_peth_port_class' => 1,
'store' => {
'peth_port_status' => {'1.1' => 'searching', '1.3' => 'otherFault', '1.24' => 'deliveringPower'},
'peth_port_class' => {'1.1' => 'class0', '1.3' => 'class0', '1.24' => 'class3'},
'peth_port_class' => {'1.1' => 'class0', '1.3' => 'class0', '1.24' => 'class3'},
},
};
$test->{info}->cache($cache_data);
@@ -80,4 +80,4 @@ sub peth_port_neg_power : Tests(3) {
{}, q(No data returns empty hash));
}
1;
1;