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

Use orig_ attrib, remove redundant items.

Browse Source 
Support partial table fetches on overridden table methods.
Pod updates.
This commit is contained in:
Eric Miller
2006-08-30 17:01:55 +00:00
parent eb8328c36d
commit 8b0ffdf079
1 changed files with 19 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
Info/Layer2/Allied.pm
View File

@@ -28,13 +28,12 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Layer2::Allied; package SNMP::Info::Layer2::Allied;
$VERSION = '1.04'; $VERSION = '1.05';
# $Id$ # $Id$
use strict; use strict;
use Exporter; use Exporter;
use SNMP::Info::Layer2; use SNMP::Info::Layer2;
use SNMP::Info::Layer1;
@SNMP::Info::Layer2::Allied::ISA = qw/SNMP::Info::Layer2 Exporter/; @SNMP::Info::Layer2::Allied::ISA = qw/SNMP::Info::Layer2 Exporter/;
@SNMP::Info::Layer2::Allied::EXPORT_OK = qw//; @SNMP::Info::Layer2::Allied::EXPORT_OK = qw//;
@@ -45,11 +44,10 @@ use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/;
%SNMP::Info::Layer2::GLOBALS %SNMP::Info::Layer2::GLOBALS
); );
%FUNCS = (%SNMP::Info::Layer2::FUNCS, %FUNCS = (
%SNMP::Info::Layer2::FUNCS,
'ip_adresses'=> 'atNetAddress', 'ip_adresses'=> 'atNetAddress',
'ip_mac' => 'atPhysAddress', 'ip_mac' => 'atPhysAddress',
'i_name' => 'ifName',
'i_up2' => 'ifOperStatus',
); );
%MIBS = ( %MIBS = (
@@ -58,7 +56,8 @@ use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/;
'AtiStackInfo-MIB' => 'atiswitchEnhancedStacking', 'AtiStackInfo-MIB' => 'atiswitchEnhancedStacking',
); );
%MUNGE = (%SNMP::Info::Layer2::MUNGE, %MUNGE = (
%SNMP::Info::Layer2::MUNGE,
); );
sub vendor { sub vendor {
@@ -89,7 +88,7 @@ sub model {
return undef; return undef;
} }
sub ip { sub root_ip {
my $allied = shift; my $allied = shift;
my $ip_hash = $allied->ip_addresses(); my $ip_hash = $allied->ip_addresses();
my $ip; my $ip;
@@ -117,9 +116,9 @@ sub mac{
sub i_up { sub i_up {
my $allied = shift; my $allied = shift;
my $partial = shift;
my $i_up = SNMP::Info::Layer1::i_up($allied); my $i_up = SNMP::Info::Layer1::i_up($allied, $partial);
#my $i_up2 = $allied->i_up2() || {};
foreach my $port (keys %$i_up){ foreach my $port (keys %$i_up){
my $up = $i_up->{$port}; my $up = $i_up->{$port};
@@ -153,7 +152,7 @@ Max Baker, Dmitry Sergienko <dmitry@trifle.net>
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
my $class = $l1->class(); my $class = $allied->class();
print "SNMP::Info determined this device to fall under subclass : $class\n"; print "SNMP::Info determined this device to fall under subclass : $class\n";
=head1 DESCRIPTION =head1 DESCRIPTION
@@ -166,7 +165,7 @@ inherited methods.
=over =over
=item SNMP::Info::Layer1 =item SNMP::Info::Layer2
=back =back
@@ -178,12 +177,12 @@ inherited methods.
Download for your device from http://www.allied-telesyn.com/allied/support/ Download for your device from http://www.allied-telesyn.com/allied/support/
=item Inherited Classes
MIBs listed in SNMP::Info::Layer1 and its inherited classes.
=back =back
=head2 Inherited MIBs
See L<SNMP::Info::Layer2/"Required MIBs"> for its MIB requirements.
=head1 GLOBALS =head1 GLOBALS
These are methods that return scalar value from SNMP These are methods that return scalar value from SNMP
@@ -206,7 +205,7 @@ Culls Version from description()
=item $allied->root_ip() =item $allied->root_ip()
Returns IP Address of Managed Hub. Returns IP Address of Managed Device.
(B<actualIpAddr>) (B<actualIpAddr>)
@@ -216,9 +215,9 @@ Trys to cull out AT-nnnnX out of the description field.
=back =back
=head2 Global Methods imported from SNMP::Info::Layer1 =head2 Globals imported from SNMP::Info::Layer2
See documentation in SNMP::Info::Layer1 for details. See L<SNMP::Info::Layer2/"GLOBALS"> for details.
=head1 TABLE ENTRIES =head1 TABLE ENTRIES
@@ -226,10 +225,6 @@ See documentation in SNMP::Info::Layer1 for details.
=over =over
=item $allied->i_name()
Returns reference to map of IIDs to human-set port name.
=item $allied->i_up() =item $allied->i_up()
Returns reference to map of IIDs to link status. Changes Returns reference to map of IIDs to link status. Changes
@@ -237,10 +232,8 @@ the values of ati_up() to 'up' and 'down'.
=back =back
=head2 Allied MIB =head2 Table Methods imported from SNMP::Info::Layer2
=over See L<SNMP::Info::Layer2/"TABLE ENTRIES"> for details.
=back
=cut =cut