
SNMP::Info::Layer3::AlteonAD - SNMP Interface to Nortel Alteon Layer 2-7 Switches.

Eric Miller

# Let SNMP::Info determine the correct subclass for you.
my $alteon = new SNMP::Info(
AutoSpecify => 1,
Debug => 1,
DestHost => 'myswitch',
Community => 'public',
Version => 2
)
or die "Can't connect to DestHost.\n";
my $class = $alteon->class();
print "SNMP::Info determined this device to fall under subclass : $class\n";

Abstraction subclass for Nortel Alteon Series Layer 2-7 load balancing switches and Nortel BladeCenter Layer2-3 GbE Switch Modules.
For speed or debugging purposes you can call the subclass directly, but not after determining a more specific class using the method above.
my $alteon = new SNMP::Info::Layer3::AlteonAD(...);
See "Required MIBs" in SNMP::Info::Layer3 for its own MIB requirements.

These are methods that return scalar value from SNMP
Returns model type. Checks $alteon->id() against the ALTEON-ROOT-MIB and then parses out aceswitch, replaces acedirector with AD, and replaces copperModule/fiberModule with BladeCenter GbESM.
Returns 'nortel'
Returns 'alteon'
Returns the software version reported by agSoftwareVersion
(agTftpAction)
(agTftpServer)
(agTftpCfgFileName)
(agTftpLastActionStatus)
See documentation in "GLOBALS" in SNMP::Info::Layer3 for details.

These are methods that return tables of information in the form of a reference to a hash.
Returns reference to the map between IID and physical port.
Utilizes description for network interfaces. Ports are determined by formula (ifIndex mod 256).
Returns reference to hash. Maps port operational duplexes to IIDs.
Returns reference to hash. Maps port admin duplexes to IIDs.
Returns a mapping between ifIndex and the PVID or default VLAN.
Returns reference to hash of arrays: key = ifIndex, value = array of VLAN IDs. These are the VLANs which are members of the egress list for the port.
Example:
my $interfaces = $alteon->interfaces();
my $vlans = $alteon->i_vlan_membership();
foreach my $iid (sort keys %$interfaces) {
my $port = $interfaces->{$iid};
my $vlan = join(',', sort(@{$vlans->{$iid}}));
print "Port: $port VLAN: $vlan\n";
}
Returns VLAN IDs
Human-entered name for vlans.
Maps (agPortCurCfgPortName) to port and returns the human set port name if exists.
Returns a mapping between ifIndex and the Bridge Table.
See documentation in "TABLE METHODS" in SNMP::Info::Layer3 for details.