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

ver 0.7 prep

Browse Source
This commit is contained in:
Max Baker
2003-08-14 18:24:56 +00:00
parent 4e52756a41
commit 766f14d2bf
22 changed files with 111 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
COPYRIGHT
View File

@@ -1,3 +1,8 @@
All code from version 0.7 on
Copyright (c) 2003 Max Baker
All rights reserved.
Original Code
Copyright (c) 2002,2003 Regents of the University of California Copyright (c) 2002,2003 Regents of the University of California
All rights reserved. All rights reserved.

2
ChangeLog
View File

@@ -1,7 +1,7 @@
SNMP::Info - Perl5 OO Interface to Network Devices and SNMP MIBs SNMP::Info - Perl5 OO Interface to Network Devices and SNMP MIBs
ChangeLog $Id$ ChangeLog $Id$
version 0.7 () version 0.7 (08/14/03)
* Added Class for Catalyst 6500 Series - Layer3::C6500 * Added Class for Catalyst 6500 Series - Layer3::C6500
* Added CiscoVTP support to 3550,2900, and Catalyst classes * Added CiscoVTP support to 3550,2900, and Catalyst classes
* Extracted VLAN stuff from Layer2::Catalyst to SNMP::Info::CiscoVTP * Extracted VLAN stuff from Layer2::Catalyst to SNMP::Info::CiscoVTP

33
Info.pm
View File

@@ -1,6 +1,8 @@
# SNMP::Info - Max Baker <max@warped.org> # SNMP::Info - Max Baker <max@warped.org>
# $Id$ # $Id$
# #
# Portions Copyright (c) 2003 Max Baker
# All rights reserved.
# Copyright (c) 2002-3, Regents of the University of California # Copyright (c) 2002-3, Regents of the University of California
# All rights reserved. # All rights reserved.
# #
@@ -27,13 +29,14 @@ SNMP::Info - Object Oriented Perl5 Interface to Network devices and MIBs through
=head1 VERSION =head1 VERSION
SNMP::Info - Version 0.6 SNMP::Info - Version 0.7
=head1 AUTHOR =head1 AUTHOR
Max Baker (C<max@warped.org>) Max Baker
SNMP::Info was created at UCSC for the netdisco project (www.netdisco.org) SNMP::Info was created at UCSC for the netdisco project (www.netdisco.org)
and is now maintained by Max Baker.
=head1 SYNOPSIS =head1 SYNOPSIS
@@ -186,6 +189,28 @@ by running
cd /usr/local/share/snmp/mibs cd /usr/local/share/snmp/mibs
tar xvfz /path/to/v1.tar.gz BRIDGE-MIB.my SNMP-REPEATER-MIB.my ESSWITCH-MIB.my tar xvfz /path/to/v1.tar.gz BRIDGE-MIB.my SNMP-REPEATER-MIB.my ESSWITCH-MIB.my
=item Fix CISCO-TC-MIB
There is a problem with the Cisco file F<CISCO-TC.my> which
is included from lots of other MIBs. Make the following changes
if you run into errors about C<Unsigned32> in this file.
Edit F</usr/local/share/snmp/mibs/CISCO-TC.my>
Comment out line 192 that says C<SMI Unsigned32> with two dashes.
-- SMI Unsigned32
Add C<Unsigned32> to the imports after line 19:
IMPORTS
MODULE-IDENTITY,
Gauge32,
Integer32,
Counter64,
Unsigned32,
FROM SNMPv2-SMI
=item More Specific MIBs =item More Specific MIBs
Some non-cisco subclasses will need MIBs other than the basic one available from Cisco. Some non-cisco subclasses will need MIBs other than the basic one available from Cisco.
@@ -2151,6 +2176,10 @@ sub AUTOLOAD {
=head1 COPYRIGHT AND LICENCE =head1 COPYRIGHT AND LICENCE
Portions
Copyright (c) 2003 Max Baker - All rights reserved.
Original Code
Copyright (c) 2002-3, Regents of the University of California Copyright (c) 2002-3, Regents of the University of California
All rights reserved. All rights reserved.

2
Info/Bridge.pm
View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Bridge; package SNMP::Info::Bridge;
$VERSION = 0.6; $VERSION = 0.7;
# $Id$ # $Id$
use strict; use strict;

2
Info/CDP.pm
View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::CDP; package SNMP::Info::CDP;
$VERSION = 0.6; $VERSION = 0.7;
# $Id$ # $Id$
use strict; use strict;

2
Info/CiscoStats.pm
View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::CiscoStats; package SNMP::Info::CiscoStats;
$VERSION = 0.6; $VERSION = 0.7;
# $Id$ # $Id$
use strict; use strict;

2
Info/Entity.pm
View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Entity; package SNMP::Info::Entity;
$VERSION = 0.6; $VERSION = 0.7;
# $Id$ # $Id$
use strict; use strict;

2
Info/EtherLike.pm
View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::EtherLike; package SNMP::Info::EtherLike;
$VERSION = 0.6; $VERSION = 0.7;
# $Id$ # $Id$
use strict; use strict;

2
Info/Layer1.pm
View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer1; package SNMP::Info::Layer1;
$VERSION = 0.6; $VERSION = 0.7;
# $Id$ # $Id$
use strict; use strict;

2
Info/Layer1/Allied.pm
View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer1::Allied; package SNMP::Info::Layer1::Allied;
$VERSION = 0.6; $VERSION = 0.7;
# $Id$ # $Id$
use strict; use strict;

2
Info/Layer1/Asante.pm
View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer1::Asante; package SNMP::Info::Layer1::Asante;
$VERSION = 0.6; $VERSION = 0.7;
# $Id$ # $Id$
use strict; use strict;

2
Info/Layer2/Aironet.pm
View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer2::Aironet; package SNMP::Info::Layer2::Aironet;
$VERSION = 0.6; $VERSION = 0.7;
# $Id$ # $Id$
use strict; use strict;

2
Info/Layer2/Bay.pm
View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer2::Bay; package SNMP::Info::Layer2::Bay;
$VERSION = 0.6; $VERSION = 0.7;
# $Id$ # $Id$
use strict; use strict;

2
Info/Layer2/C1900.pm
View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer2::C1900; package SNMP::Info::Layer2::C1900;
$VERSION = 0.6; $VERSION = 0.7;
# $Id$ # $Id$
use strict; use strict;

2
Info/Layer2/HP.pm
View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer2::HP; package SNMP::Info::Layer2::HP;
$VERSION = 0.6; $VERSION = 0.7;
# $Id$ # $Id$
use strict; use strict;

2
Info/Layer3.pm
View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer3; package SNMP::Info::Layer3;
$VERSION = 0.6; $VERSION = 0.7;
# $Id$ # $Id$
use strict; use strict;

2
Info/Layer3/Aironet.pm
View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer3::Aironet; package SNMP::Info::Layer3::Aironet;
$VERSION = 0.6; $VERSION = 0.7;
# $Id$ # $Id$
use strict; use strict;

2
Info/Layer3/Foundry.pm
View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer3::Foundry; package SNMP::Info::Layer3::Foundry;
$VERSION = 0.6; $VERSION = 0.7;
# $Id$ # $Id$
use strict; use strict;

2
Info/MAU.pm
View File

@@ -28,7 +28,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::MAU; package SNMP::Info::MAU;
$VERSION = 0.6; $VERSION = 0.7;
# $Id$ # $Id$
use strict; use strict;

6
MANIFEST
View File

@@ -4,12 +4,15 @@ Info.pm
Info/Bridge.pm Info/Bridge.pm
Info/CDP.pm Info/CDP.pm
Info/CiscoStats.pm Info/CiscoStats.pm
Info/CiscoStack.pm
Info/CiscoVTP.pm
Info/Entity.pm Info/Entity.pm
Info/EtherLike.pm Info/EtherLike.pm
Info/Layer1.pm Info/Layer1.pm
Info/Layer1/Allied.pm Info/Layer1/Allied.pm
Info/Layer1/Asante.pm Info/Layer1/Asante.pm
Info/Layer2.pm Info/Layer2.pm
Info/Layer2/Aironet.pm
Info/Layer2/Bay.pm Info/Layer2/Bay.pm
Info/Layer2/C1900.pm Info/Layer2/C1900.pm
Info/Layer2/C2900.pm Info/Layer2/C2900.pm
@@ -18,6 +21,7 @@ Info/Layer2/HP.pm
Info/Layer3.pm Info/Layer3.pm
Info/Layer3/Aironet.pm Info/Layer3/Aironet.pm
Info/Layer3/C3550.pm Info/Layer3/C3550.pm
Info/Layer3/C6500.pm
Info/Layer3/Foundry.pm Info/Layer3/Foundry.pm
Info/MAU.pm Info/MAU.pm
MANIFEST MANIFEST
@@ -25,3 +29,5 @@ Makefile.PL
README README
t/prereq.t t/prereq.t
t/test_class.pl t/test_class.pl
t/make_dev_matrix.pl
DeviceMatrix.txt

3
Makefile.PL
View File

@@ -21,5 +21,6 @@ WriteMakefile(
sub MY::postamble { " sub MY::postamble { "
.PHONY: readme .PHONY: readme
readme: readme: README
README: Info.pm
pod2text -l Info.pm > README" } pod2text -l Info.pm > README" }

62
README
View File

@@ -5,14 +5,14 @@ NAME
VERSION VERSION
SNMP::Info - Version 0.6 SNMP::Info - Version 0.7
AUTHOR AUTHOR
Max Baker ("max@warped.org") Max Baker
SNMP::Info was created at UCSC for the netdisco project SNMP::Info was created at UCSC for the netdisco project
(www.netdisco.org) (www.netdisco.org) and is now maintained by Max Baker.
SYNOPSIS SYNOPSIS
@@ -160,6 +160,27 @@ DESCRIPTION
cd /usr/local/share/snmp/mibs cd /usr/local/share/snmp/mibs
tar xvfz /path/to/v1.tar.gz BRIDGE-MIB.my SNMP-REPEATER-MIB.my ESSWITCH-MIB.my tar xvfz /path/to/v1.tar.gz BRIDGE-MIB.my SNMP-REPEATER-MIB.my ESSWITCH-MIB.my
Fix CISCO-TC-MIB
There is a problem with the Cisco file CISCO-TC.my which is
included from lots of other MIBs. Make the following changes if
you run into errors about "Unsigned32" in this file.
Edit /usr/local/share/snmp/mibs/CISCO-TC.my
Comment out line 192 that says "SMI Unsigned32" with two dashes.
-- SMI Unsigned32
Add "Unsigned32" to the imports after line 19:
IMPORTS
MODULE-IDENTITY,
Gauge32,
Integer32,
Counter64,
Unsigned32,
FROM SNMPv2-SMI
More Specific MIBs More Specific MIBs
Some non-cisco subclasses will need MIBs other than the basic Some non-cisco subclasses will need MIBs other than the basic
one available from Cisco. one available from Cisco.
@@ -302,6 +323,11 @@ DESCRIPTION
SNMP::Info::Layer3::C3550 SNMP::Info::Layer3::C3550
Subclass for Cisco Catalyst 3550 2/3 switches running IOS. Subclass for Cisco Catalyst 3550 2/3 switches running IOS.
Thanks
Thanks for testing and coding help (in no particular order) to : Andy
Ford, Brian Wilson, Jean-Philippe Luiggi, D<>na Watanabe
USAGE USAGE
Constructor Constructor
@@ -393,13 +419,15 @@ USAGE
Layer3 Support -> SNMP::Info::Layer3 Layer3 Support -> SNMP::Info::Layer3
Aironet (non IOS) -> SNMP::Info::Layer3::Aironet Aironet (non IOS) -> SNMP::Info::Layer3::Aironet
Catalyst 3550 -> SNMP::Info::Layer3::C3550 Catalyst 3550 -> SNMP::Info::Layer3::C3550
Catalyst 6500 -> SNMP::Info::Layer3::C6500
Foundry -> SNMP::Info::Layer3::Foundry Foundry -> SNMP::Info::Layer3::Foundry
Elsif Layer2 (no Layer3) -> SNMP::Info::Layer2 Elsif Layer2 (no Layer3) -> SNMP::Info::Layer2
Aironet (Cisco) AP1100 -> SNMP::Info::Layer2::Aironet Aironet (Cisco) AP1100 -> SNMP::Info::Layer2::Aironet
Bay Networks -> SNMP::Info::Layer2::Bay Bay Networks -> SNMP::Info::Layer2::Bay
Catalyst 1900 -> SNMP::Info::Layer2::C1900 Catalyst 1900 -> SNMP::Info::Layer2::C1900
Catalyst 2900XL (IOS) -> SNMP::Info::Layer2::C2900 Catalyst 2900XL/2950(IOS) -> SNMP::Info::Layer2::C2900
Catalyst WS-C (2926,5xxx,6xxx) -> SNMP::Info::Layer2::Catalyst Catalyst 3550/3548 -> SNMP::Info::Layer3::C3550
Catalyst WS-C 2926,5xxx -> SNMP::Info::Layer2::Catalyst
HP Procurve -> SNMP::Info::Layer2::HP HP Procurve -> SNMP::Info::Layer2::HP
Elsif Layer1 Support -> SNMP::Info::Layer1 Elsif Layer1 Support -> SNMP::Info::Layer1
Allied -> SNMP::Info::Layer1::Allied Allied -> SNMP::Info::Layer1::Allied
@@ -988,27 +1016,35 @@ SNMP::INFO INTERNALS
Makes human friendly speed ratings using %SPEED_MAP Makes human friendly speed ratings using %SPEED_MAP
%SPEED_MAP = ( %SPEED_MAP = (
'56000' => '56 kbps',
'64000' => '64 kbps', '64000' => '64 kbps',
'1500000' => '1.5 Mbps', '1500000' => '1.5 Mbps',
'1536000' => 'T1',
'1544000' => 'T1', '1544000' => 'T1',
'2000000' => '2.0 Mbps', '2000000' => '2.0 Mbps',
'2048000' => '2.048 Mbps', '2048000' => '2.048 Mbps',
'3072000' => 'Dual T1',
'3088000' => 'Dual T1',
'4000000' => '4.0 Mbps', '4000000' => '4.0 Mbps',
'10000000' => '10 Mbps', '10000000' => '10 Mbps',
'11000000' => '11 Mbps', '11000000' => '11 Mbps',
'20000000' => '20 Mbps', '20000000' => '20 Mbps',
'16000000' => '16 Mbps', '16000000' => '16 Mbps',
'45000000' => 'DS3', '44736000' => 'T3',
'45000000' => '45 Mbps',
'45045000' => 'DS3', '45045000' => 'DS3',
'64000000' => '64 Mbps', '64000000' => '64 Mbps',
'100000000' => '100 Mbps', '100000000' => '100 Mbps',
'149760000' => 'OC-1' '149760000' => 'ATM on OC-3',
'155000000' => 'OC-1' '155000000' => 'OC-3',
'155519000' => 'OC-3',
'155520000' => 'OC-3',
'400000000' => '400 Mbps', '400000000' => '400 Mbps',
'599040000' => 'ATM on OC-12',
'622000000' => 'OC-12', '622000000' => 'OC-12',
'599040000' => 'OC-12', '622080000' => 'OC-12',
'1000000000' => '1.0 Gbps', '1000000000' => '1.0 Gbps',
); )
munge_ip() munge_ip()
Takes a binary IP and makes it dotted ASCII Takes a binary IP and makes it dotted ASCII
@@ -1141,8 +1177,10 @@ SNMP::INFO INTERNALS
COPYRIGHT AND LICENCE COPYRIGHT AND LICENCE
Copyright (c) 2002-3, Regents of the University of California All rights Portions Copyright (c) 2003 Max Baker - All rights reserved.
reserved.
Original Code Copyright (c) 2002-3, 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 modification, are permitted provided that the following conditions are