SNMP::Info::Layer3::Tasman - SNMP Interface to Avaya Secure Routers
# 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
- SNMP::Info::Layer3
- SNMP::Info::MAU
- NT-ENTERPRISE-DATA-MIB
- SYSTEM-MIB
- CHASSIS-MIB
- ENVIRONMENT-MIB
- Inherited Classes' MIBs
- 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.