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 the SNMP::Info::Layer3 manpage for its own MIB requirements.
These are methods that return scalar value from SNMP
model()
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.
vendor()
Returns 'nortel'
os()
Returns 'alteon'
os_ver()
Returns the software version reported by agSoftwareVersion
tftp_action()
(agTftpAction)
tftp_host()
(agTftpServer)
tftp_file()
(agTftpCfgFileName)
tftp_result()
(agTftpLastActionStatus)
See documentation in GLOBALS in the SNMP::Info::Layer3 manpage for details.
These are methods that return tables of information in the form of a reference to a hash.
interfaces()
Returns reference to the map between IID and physical port.
Utilizes description for network interfaces. Ports are determined by
formula (ifIndex mod 256).
i_duplex()
Returns reference to hash. Maps port operational duplexes to IIDs.
i_duplex_admin()
Returns reference to hash. Maps port admin duplexes to IIDs.
i_vlan()
Returns a mapping between ifIndex and the PVID or default VLAN.
i_vlan_membership()
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";
}
v_index()
Returns VLAN IDs
v_name()
Human-entered name for vlans.
i_name()
Maps (agPortCurCfgPortName) to port and returns the human set port name if
exists.
bp_index()
Returns a mapping between ifIndex and the Bridge Table.
See documentation in TABLE METHODS in the SNMP::Info::Layer3 manpage for details.