# SNMP::Info::Layer2::ECI - SNMP Interface to ECI Devices # # Copyright (c) 2020 by 135. package SNMP::Info::Layer2::ECI; use strict; use warnings; use Exporter; use SNMP::Info::Layer2; @SNMP::Info::Layer2::ECI::ISA = qw/SNMP::Info::Layer2 Exporter/; @SNMP::Info::Layer2::ECI::EXPORT_OK = qw//; our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE); $VERSION = '3.70-135'; # This will be filled in with the device's index into the EntPhysicalEntry # table by the serial() function. # our $index = undef; %MIBS = ( %SNMP::Info::Layer2::MIBS, ); %GLOBALS = ( %SNMP::Info::Layer2::GLOBALS, 'serial_oid' => 'transmission.94.1.1.2.1.1.1', ); %FUNCS = ( %SNMP::Info::Layer2::FUNCS, ); %MUNGE = ( %SNMP::Info::Layer2::MUNGE, ); sub vendor { return 'eci'; } sub os { return 'eci-os'; } sub os_ver { my $obj = shift; return 'unknown'; } sub model { my $obj = shift; return $obj->description; } 1; __END__ =head1 NAME SNMP::Info::Layer2::ECI - SNMP Interface to ECI Devices =head1 SYNOPSIS # Let SNMP::Info determine the correct subclass for you. my $obj = new SNMP::Info( AutoSpecify => 1, Debug => 1, DestHost => 'myrouter', Community => 'public', Version => 2 ) or die "Can't connect to DestHost.\n"; my $class = $obj->class(); print "SNMP::Info determined this device to fall under subclass : $class\n"; =head1 DESCRIPTION Subclass for ECI Devices running IOS-like software =head2 Inherited Classes =over =item SNMP::Info::Layer2 =back =head1 GLOBALS These are methods that return scalar value from SNMP =over =item $obj->vendor() Returns 'eci' =item $obj->os() Returns 'eci-os' =item $obj->layers() Ensures that layer two is reported, at least. =item $obj->os_ver() Returns the software version. =item $obj->model Returns the model extracted. =item $obj->serial() Returns serial number. =cut =back