From 9597095b508e5367e219f7186aaa989a6911472f Mon Sep 17 00:00:00 2001 From: Eric Miller <> Date: Wed, 15 Nov 2006 19:38:20 +0000 Subject: [PATCH] Prep 1.05 --- Info/CiscoImage.pm | 36 ++++++++++++++++++------------------ Info/CiscoRTT.pm | 12 ++++++------ 2 files changed, 24 insertions(+), 24 deletions(-) diff --git a/Info/CiscoImage.pm b/Info/CiscoImage.pm index 748f52fd..b0be757b 100644 --- a/Info/CiscoImage.pm +++ b/Info/CiscoImage.pm @@ -3,27 +3,27 @@ package SNMP::Info::CiscoImage; # Copyright (c) 2005 Matt Tuttle # -# 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, # this list of conditions and the following disclaimer. # * 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. use strict; @@ -31,8 +31,8 @@ use strict; use Exporter; use SNMP::Info; -use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/; -$VERSION = '1.04'; +use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; +$VERSION = '1.05'; @SNMP::Info::CiscoImage::ISA = qw/SNMP::Info Exporter/; @SNMP::Info::CiscoImage::EXPORT_OK = qw//; @@ -56,7 +56,7 @@ __END__ =head1 NAME -SNMP::Info::CiscoImage - Perl5 Interface to image strings for Cisco Devices +SNMP::Info::CiscoImage - SNMP Interface to image strings for Cisco Devices =head1 AUTHOR @@ -64,7 +64,7 @@ Matt Tuttle (C) =head1 SYNOPSIS - # Let SNMP::Info determine the correct subclass for you. + # Let SNMP::Info determine the correct subclass for you. my $ci = new SNMP::Info( AutoSpecify => 1, Debug => 1, @@ -72,22 +72,22 @@ Matt Tuttle (C) DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; - my $class = $ci->class(); + my $class = $ci->class(); print "SNMP::Info determined this device to fall under subclass : $class\n"; =head1 DESCRIPTION SNMP::Info::CiscoImage is a subclass of SNMP::Info that provides access to -image strings embedded in an image running on Cisco Devices. +image strings embedded in an image running on Cisco Devices. Use or create in a subclass of SNMP::Info. Do not use directly. =head2 Inherited Classes -none. +None. =head2 Required MIBs diff --git a/Info/CiscoRTT.pm b/Info/CiscoRTT.pm index eccc1075..dbb25bfa 100644 --- a/Info/CiscoRTT.pm +++ b/Info/CiscoRTT.pm @@ -30,7 +30,7 @@ # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. package SNMP::Info::CiscoRTT; -$VERSION = '1.04'; +$VERSION = '1.05'; use strict; @@ -40,7 +40,7 @@ use SNMP::Info; @SNMP::Info::CiscoRTT::ISA = qw/SNMP::Info Exporter/; @SNMP::Info::CiscoRTT::EXPORT_OK = qw//; -use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/; +use vars qw/$VERSION %MIBS %FUNCS %GLOBALS %MUNGE/; %MIBS = ( 'CISCO-RTTMON-MIB' => 'rttMonCtrlAdminOwner', @@ -63,11 +63,11 @@ __END__ =head1 NAME -SNMP::Info::CiscoRTT - Perl5 Interface to Cisco's Round Trip Time MIBs +SNMP::Info::CiscoRTT - SNMP Interface to Cisco's Round Trip Time MIBs =head1 AUTHOR -Alexander Hartmaier (C) +Alexander Hartmaier =head1 SYNOPSIS @@ -82,7 +82,7 @@ Alexander Hartmaier (C) ) or die "Can't connect to DestHost.\n"; - my $class = $rtt->class(); + my $class = $rtt->class(); print "SNMP::Info determined this device to fall under subclass : $class\n"; =head1 DESCRIPTION @@ -110,7 +110,7 @@ MIBs can be found at ftp://ftp.cisco.com/pub/mibs/v2/v2.tar.gz =over -none +None =back