SNMP::Info::Layer3::Tasman(3pm) User Contributed Perl Documentation SNMP::Info::Layer3::Tasman(3pm)

SNMP::Info::Layer3::Tasman - SNMP Interface to Avaya Secure Routers

Eric Miller

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

Subclass for Avaya Secure Routers

See "Required MIBs" in SNMP::Info::Layer3 for its own MIB requirements.

See "Required MIBs" in SNMP::Info::MAU for its own MIB requirements.

These are methods that return scalar values from SNMP

$tasman->vendor()
Returns 'avaya'
$tasman->model()
Tries to get the model from "nnchassisModel" and if not available cross references $tasman->id() to NT-ENTERPRISE-DATA-MIB.

Substitutes 'SR' for 'ntSecureRouter' in the name for readability.

$tasman->os()
Returns 'tasman'
$tasman->os_ver()
Grabs the os version from "nnsysVersion"
$tasman->ps1_type()
("nnenvPwrsupType.1")
$tasman->ps1_status()
("nnenvPwrsupStatus.1")
$tasman->ps2_type()
("nnenvPwrsupType.2")
$tasman->ps2_status()
("nnenvPwrsupStatus.2")
$tasman->nn_sys_ver()
("nnsysVersion.0")
$tasman->nn_ch_model()
("nnchassisModel.0")
$tasman->nn_ch_op_stat()
("nnchassisOperStatus.0")
$tasman->nn_ch_serial()
("nnchassisSerialNumber.0")
$tasman->serial()
Tries both ("nnchassisOperStatus") and ("nnchassisSerialNumber") as oid was redefined between versions.

See documentation in "GLOBALS" in SNMP::Info::Layer3 for details.

See documentation in "GLOBALS" in SNMP::Info::MAU for details.

These are methods that return tables of information in the form of a reference to a hash.

$tasman->i_duplex_admin()
Returns reference to hash of iid to administrative duplex setting.

First checks for fixed gigabit ports which are always full duplex. Next checks the port administrative speed ("portAdminSpeed") which if set to autonegotiate then the duplex will also autonegotiate, otherwise it uses the reported port duplex ("portDuplex").

$tasman->i_speed_admin()
Returns reference to hash of iid to administrative speed setting.

"portAdminSpeed"

These methods emulate ENTITY-MIB Physical Table methods using CHASSIS-MIB.

$tasman->e_index()
Returns reference to hash. Key: IID, Value: Integer.
$tasman->e_class()
Returns reference to hash. Key: IID, Value: General hardware type.
$tasman->e_descr()
Returns reference to hash. Key: IID, Value: Human friendly name
$tasman->e_vendor()
Returns reference to hash. Key: IID, Value: avaya
$tasman->e_serial()
Returns reference to hash. Key: IID, Value: Serial number
$tasman->e_pos()
Returns reference to hash. Key: IID, Value: The relative position among all entities sharing the same parent.
$tasman->e_type()
Returns reference to hash. Key: IID, Value: Type of component/sub-component.
$tasman->e_parent()
Returns reference to hash. Key: IID, Value: The value of e_index() for the entity which 'contains' this entity. A value of zero indicates this entity is not contained in any other entity.
$entity->e_fru()
BOOLEAN. Is a Field Replaceable unit?

See documentation in "TABLE METHODS" in SNMP::Info::Layer3 for details.

See documentation in "TABLE METHODS" in SNMP::Info::MAU for details.

2023-09-30 perl v5.36.0