135/snmp-info
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

almost done whitespace cleanup

Browse Source
This commit is contained in:
inphobia
2019-01-19 05:30:20 +01:00
parent e356189010
commit 16285ce2eb
10 changed files with 101 additions and 101 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/SNMP/Info/CiscoStack.pm
View File

@@ -439,7 +439,7 @@ C<portAdminSpeed>
Example: Example:
my %if_map = reverse %{$stack->interfaces()}; my %if_map = reverse %{$stack->interfaces()};
$stack->set_i_duplex_admin('auto', $if_map{'FastEthernet0/1'}) $stack->set_i_duplex_admin('auto', $if_map{'FastEthernet0/1'})
or die "Couldn't change port duplex. ",$stack->error(1); or die "Couldn't change port duplex. ",$stack->error(1);
=back =back

30
lib/SNMP/Info/FDP.pm
View File

@@ -132,10 +132,10 @@ Bruce Rodger, Max Baker
=head1 SYNOPSIS =head1 SYNOPSIS
my $fdp = new SNMP::Info ( my $fdp = new SNMP::Info (
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'router', DestHost => 'router',
Community => 'public', Community => 'public',
Version => 2 Version => 2
); );
@@ -161,7 +161,7 @@ Bruce Rodger, Max Baker
=head1 DESCRIPTION =head1 DESCRIPTION
SNMP::Info::FDP is a subclass of SNMP::Info that provides an object oriented SNMP::Info::FDP is a subclass of SNMP::Info that provides an object oriented
interface to FDP information through SNMP. interface to FDP information through SNMP.
FDP is a Layer 2 protocol that supplies topology information of FDP is a Layer 2 protocol that supplies topology information of
@@ -172,7 +172,7 @@ virtually identical. FDP is implemented in Brocade (Foundry) devices.
Create or use a device subclass that inherits this class. Do not use Create or use a device subclass that inherits this class. Do not use
directly. directly.
Each device implements a subset of the global and cache entries. Each device implements a subset of the global and cache entries.
Check the return value to see if that data is held by the device. Check the return value to see if that data is held by the device.
=head2 Inherited Classes =head2 Inherited Classes
@@ -186,7 +186,7 @@ None.
=item F<FOUNDRY-SN-SWITCH-GROUP-MIB> =item F<FOUNDRY-SN-SWITCH-GROUP-MIB>
Needs a reasonably recent MIB. Works OK with B2R07604A.mib, but doesn't Needs a reasonably recent MIB. Works OK with B2R07604A.mib, but doesn't
work with B2R07600C. work with B2R07600C.
=back =back
@@ -198,13 +198,13 @@ These are methods that return scalar values from SNMP
=item $fdp->hasFDP() =item $fdp->hasFDP()
Is FDP is active in this device? Is FDP is active in this device?
Accounts for SNMP version 1 devices which may have FDP but not fdp_run() Accounts for SNMP version 1 devices which may have FDP but not fdp_run()
=item $fdp->fdp_run() =item $fdp->fdp_run()
Is FDP enabled on this device? Is FDP enabled on this device?
(C<fdpGlobalRun>) (C<fdpGlobalRun>)
@@ -216,7 +216,7 @@ Interval in seconds at which FDP messages are generated.
=item $fdp->fdp_holdtime() =item $fdp->fdp_holdtime()
Time in seconds that FDP messages are kept. Time in seconds that FDP messages are kept.
(C<fdpGlobalHoldTime>) (C<fdpGlobalHoldTime>)
@@ -236,13 +236,13 @@ Interval in seconds at which FDP messages are generated.
=item $fdp->fdp_holdtime() =item $fdp->fdp_holdtime()
Time in seconds that FDP messages are kept. Time in seconds that FDP messages are kept.
(C<fdpGlobalHoldTime>) (C<fdpGlobalHoldTime>)
=item $fdp->fdp_id() =item $fdp->fdp_id()
Returns FDP device ID. Returns FDP device ID.
This is the device id broadcast via FDP to other devices, and is what is This is the device id broadcast via FDP to other devices, and is what is
retrieved from remote devices with $fdp->id(). retrieved from remote devices with $fdp->id().
@@ -334,9 +334,9 @@ Returns remote IP address
(C<fdpCacheAddress>) (C<fdpCacheAddress>)
=item $fdp->fdp_platform() =item $fdp->fdp_platform()
Returns remote platform id Returns remote platform id
(C<fdpCachePlatform>) (C<fdpCachePlatform>)
@@ -352,13 +352,13 @@ Returns remote address type received. Usually IP.
(C<fdpCacheAddressType>) (C<fdpCacheAddressType>)
=item $fdp->fdp_ver() =item $fdp->fdp_ver()
Returns remote hardware version Returns remote hardware version
(C<fdpCacheVersion>) (C<fdpCacheVersion>)
=item $fdp->fdp_cache_type() =item $fdp->fdp_cache_type()
Returns type of entry received, either FDP or CDP. Returns type of entry received, either FDP or CDP.

2
lib/SNMP/Info/IEEE802dot11.pm
View File

@@ -203,7 +203,7 @@ Eric Miller
DestHost => 'myswitch', DestHost => 'myswitch',
Community => 'public', Community => 'public',
Version => 2 Version => 2
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";

8
lib/SNMP/Info/IEEE802dot3ad.pm
View File

@@ -82,10 +82,10 @@ sub agg_ports_lag {
for ( my $i = 0; $i <= scalar(@$portlist); $i++ ) { for ( my $i = 0; $i <= scalar(@$portlist); $i++ ) {
my $ifindex = $i+1; my $ifindex = $i+1;
if ( exists($index->{$i+1}) and defined($index->{$i+1}) ) { if ( exists($index->{$i+1}) and defined($index->{$i+1}) ) {
$ifindex = $index->{$i+1}; $ifindex = $index->{$i+1};
} }
$ret->{$ifindex} = $idx if ( @$portlist[$i] ); $ret->{$ifindex} = $idx if ( @$portlist[$i] );
} }
} }
return $ret; return $ret;
@@ -105,14 +105,14 @@ SNMP::Info Developers
=head1 SYNOPSIS =head1 SYNOPSIS
# Let SNMP::Info determine the correct subclass for you. # Let SNMP::Info determine the correct subclass for you.
my $info = new SNMP::Info( my $info = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'myrouter', DestHost => 'myrouter',
Community => 'public', Community => 'public',
Version => 2 Version => 2
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
my $class = $info->class(); my $class = $info->class();

46
lib/SNMP/Info/IPv6.pm
View File

@@ -48,15 +48,15 @@ $VERSION = '3.64';
%MIBS = ( %MIBS = (
'IP-MIB' => 'ipv6InterfaceTableLastChange', 'IP-MIB' => 'ipv6InterfaceTableLastChange',
'IPV6-MIB' => 'ipv6IfTableLastChange', 'IPV6-MIB' => 'ipv6IfTableLastChange',
'CISCO-IETF-IP-MIB' => 'cInetNetToMediaNetAddress', 'CISCO-IETF-IP-MIB' => 'cInetNetToMediaNetAddress',
); );
%GLOBALS = (); %GLOBALS = ();
%FUNCS = ( %FUNCS = (
'ip_n2p_phys_addr' => 'ipNetToPhysicalPhysAddress', # IP-MIB 'ip_n2p_phys_addr' => 'ipNetToPhysicalPhysAddress', # IP-MIB
'c_inet_phys_addr' => 'cInetNetToMediaPhysAddress', # CISCO-IETF-IP-MIB 'c_inet_phys_addr' => 'cInetNetToMediaPhysAddress', # CISCO-IETF-IP-MIB
'i6_n2p_phys_addr' => 'ipv6NetToMediaPhysAddress', # IPV6-MIB 'i6_n2p_phys_addr' => 'ipv6NetToMediaPhysAddress', # IPV6-MIB
@@ -70,10 +70,10 @@ $VERSION = '3.64';
'i6_n2p_phys_state' => 'ipv6IfNetToMediaState', # IPV6-MIB 'i6_n2p_phys_state' => 'ipv6IfNetToMediaState', # IPV6-MIB
'ip_pfx_origin' => 'ipAddressPrefixOrigin', # IP-MIB 'ip_pfx_origin' => 'ipAddressPrefixOrigin', # IP-MIB
'c_pfx_origin' => 'cIpAddressPfxOrigin', # CISCO-IETF-IP-MIB 'c_pfx_origin' => 'cIpAddressPfxOrigin', # CISCO-IETF-IP-MIB
'ip_addr6_pfx' => 'ipAddressPrefix', # IP-MIB 'ip_addr6_pfx' => 'ipAddressPrefix', # IP-MIB
'c_addr6_pfx' => 'cIpAddressPrefix', # CISCO-IETF-IP-MIB 'c_addr6_pfx' => 'cIpAddressPrefix', # CISCO-IETF-IP-MIB
# Commented out are not-accessible according to MIB # Commented out are not-accessible according to MIB
#'ip_addr6_pfxlen' => 'ipAddressPrefixLength', # IP-MIB #'ip_addr6_pfxlen' => 'ipAddressPrefixLength', # IP-MIB
@@ -81,7 +81,7 @@ $VERSION = '3.64';
'i6_addr_pfxlen' => 'ipv6AddrPfxLength', # IPV6-MIB 'i6_addr_pfxlen' => 'ipv6AddrPfxLength', # IPV6-MIB
'ip_addr6_index' => 'ipAddressIfIndex', # IP-MIB 'ip_addr6_index' => 'ipAddressIfIndex', # IP-MIB
'c_addr6_index' => 'cIpAddressIfIndex', # CISCO-IETF-IP-MIB 'c_addr6_index' => 'cIpAddressIfIndex', # CISCO-IETF-IP-MIB
'ip_addr6_type' => 'ipAddressType', # IP-MIB 'ip_addr6_type' => 'ipAddressType', # IP-MIB
'c_addr6_type' => 'cIpAddressType', # CISCO-IETF-IP-MIB 'c_addr6_type' => 'cIpAddressType', # CISCO-IETF-IP-MIB
@@ -106,8 +106,8 @@ sub ipv6_n2p_mac {
foreach my $row (keys %$phys_addr) { foreach my $row (keys %$phys_addr) {
if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) { if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) {
my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4; my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4;
if ($info::METHOD == IPV6MIB) { if ($info::METHOD == IPV6MIB) {
# IPV6-MIB doesn't include the addrtype in the index; # IPV6-MIB doesn't include the addrtype in the index;
# also, address syntax is IPv6Address (fixed 16 bytes) and not InetAddress (length field followed by address bytes) # also, address syntax is IPv6Address (fixed 16 bytes) and not InetAddress (length field followed by address bytes)
$v6addr = join('.', $addrtype, $addrsize, $v6addr); $v6addr = join('.', $addrtype, $addrsize, $v6addr);
$addrtype = 2; $addrtype = 2;
@@ -133,8 +133,8 @@ sub ipv6_n2p_addr {
foreach my $row (keys %$net_addr) { foreach my $row (keys %$net_addr) {
if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) { if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) {
my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4; my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4;
if ($info::METHOD == IPV6MIB) { if ($info::METHOD == IPV6MIB) {
# IPV6-MIB doesn't include the addrtype in the index; # IPV6-MIB doesn't include the addrtype in the index;
# also, address syntax is IPv6Address (fixed 16 bytes) and not InetAddress (length field followed by address bytes) # also, address syntax is IPv6Address (fixed 16 bytes) and not InetAddress (length field followed by address bytes)
$v6addr = join('.', $addrtype, $addrsize, $v6addr); $v6addr = join('.', $addrtype, $addrsize, $v6addr);
$addrtype = 2; $addrtype = 2;
@@ -142,7 +142,7 @@ sub ipv6_n2p_addr {
if ($addrtype == 2) { # IPv6 if ($addrtype == 2) { # IPv6
my $v6_packed = pack("C*", split(/\./, $v6addr)); my $v6_packed = pack("C*", split(/\./, $v6addr));
if (length($v6_packed) == 15) { if (length($v6_packed) == 15) {
# Workaround for some some IP-MIB implementations, eg on Cisco Nexus: no explicit addrsize, # Workaround for some some IP-MIB implementations, eg on Cisco Nexus: no explicit addrsize,
# so what we've collected in that variable is actually the first byte of the address. # so what we've collected in that variable is actually the first byte of the address.
$v6_packed = pack('C', $addrsize) . $v6_packed; $v6_packed = pack('C', $addrsize) . $v6_packed;
} }
@@ -177,8 +177,8 @@ sub ipv6_n2p_if {
foreach my $row (keys %$phys_addr) { foreach my $row (keys %$phys_addr) {
if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) { if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) {
my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4; my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4;
if ($info::METHOD == IPV6MIB) { if ($info::METHOD == IPV6MIB) {
# IPV6-MIB doesn't include the addrtype in the index; # IPV6-MIB doesn't include the addrtype in the index;
# also, address syntax is IPv6Address (fixed 16 bytes) and not InetAddress (length field followed by address bytes) # also, address syntax is IPv6Address (fixed 16 bytes) and not InetAddress (length field followed by address bytes)
$v6addr = join('.', $addrtype, $addrsize, $v6addr); $v6addr = join('.', $addrtype, $addrsize, $v6addr);
$addrtype = 2; $addrtype = 2;
@@ -204,8 +204,8 @@ sub ipv6_n2p_type {
foreach my $row (keys %$phys_type) { foreach my $row (keys %$phys_type) {
if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) { if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) {
my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4; my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4;
if ($info::METHOD == IPV6MIB) { if ($info::METHOD == IPV6MIB) {
# IPV6-MIB doesn't include the addrtype in the index; # IPV6-MIB doesn't include the addrtype in the index;
# also, address syntax is IPv6Address (fixed 16 bytes) and not InetAddress (length field followed by address bytes) # also, address syntax is IPv6Address (fixed 16 bytes) and not InetAddress (length field followed by address bytes)
$v6addr = join('.', $addrtype, $addrsize, $v6addr); $v6addr = join('.', $addrtype, $addrsize, $v6addr);
$addrtype = 2; $addrtype = 2;
@@ -231,8 +231,8 @@ sub ipv6_n2p_state {
foreach my $row (keys %$phys_state) { foreach my $row (keys %$phys_state) {
if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) { if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) {
my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4; my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4;
if ($info::METHOD == IPV6MIB) { if ($info::METHOD == IPV6MIB) {
# IPV6-MIB doesn't include the addrtype in the index; # IPV6-MIB doesn't include the addrtype in the index;
# also, address syntax is IPv6Address (fixed 16 bytes) and not InetAddress (length field followed by address bytes) # also, address syntax is IPv6Address (fixed 16 bytes) and not InetAddress (length field followed by address bytes)
$v6addr = join('.', $addrtype, $addrsize, $v6addr); $v6addr = join('.', $addrtype, $addrsize, $v6addr);
$addrtype = 2; $addrtype = 2;
@@ -442,14 +442,14 @@ Jeroen van Ingen and Carlos Vicente
=head1 SYNOPSIS =head1 SYNOPSIS
# Let SNMP::Info determine the correct subclass for you. # Let SNMP::Info determine the correct subclass for you.
my $info = new SNMP::Info( my $info = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'myswitch', DestHost => 'myswitch',
Community => 'public', Community => 'public',
Version => 2 Version => 2
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
my $class = $info->class(); my $class = $info->class();
@@ -457,12 +457,12 @@ Jeroen van Ingen and Carlos Vicente
=head1 DESCRIPTION =head1 DESCRIPTION
The SNMP::Info::IPv6 class implements functions to for mapping IPv6 addresses The SNMP::Info::IPv6 class implements functions to for mapping IPv6 addresses
to MAC addresses, interfaces and more. It will use data from the F<IP-MIB>, to MAC addresses, interfaces and more. It will use data from the F<IP-MIB>,
F<IPV6-MIB>, or the F<CISCO-IETF-IP-MIB>, whichever is supported by the F<IPV6-MIB>, or the F<CISCO-IETF-IP-MIB>, whichever is supported by the
device. device.
This class is inherited by Info::Layer3 to provide IPv6 node tracking across This class is inherited by Info::Layer3 to provide IPv6 node tracking across
device classes. device classes.
For debugging purposes you can call this class directly as you would For debugging purposes you can call this class directly as you would
@@ -519,7 +519,7 @@ Maps an IPv6 address to its type (unicast, anycast, etc.)
Maps an IPv6 prefix with its origin (manual, well-known, dhcp, etc.) Maps an IPv6 prefix with its origin (manual, well-known, dhcp, etc.)
=item $info->ipv6_addr_prefix() =item $info->ipv6_addr_prefix()
Maps IPv6 addresses with their prefixes Maps IPv6 addresses with their prefixes
@@ -545,7 +545,7 @@ Maps an address of type C<cInetNetToMediaNetAddressType> on interface C<ifIndex>
=head1 MUNGES =head1 MUNGES
=over =over
=item munge_physaddr() =item munge_physaddr()

50
lib/SNMP/Info/LLDP.pm
View File

@@ -141,7 +141,7 @@ sub lldp_if {
next unless $port; next unless $port;
# Local LLDP port may not equate to ifIndex, see LldpPortNumber # Local LLDP port may not equate to ifIndex, see LldpPortNumber
# TEXTUAL-CONVENTION in LLDP-MIB. Cross reference lldpLocPortDesc # TEXTUAL-CONVENTION in LLDP-MIB. Cross reference lldpLocPortDesc
# with ifDescr and ifAlias to get ifIndex, prefer ifDescr over # with ifDescr and ifAlias to get ifIndex, prefer ifDescr over
# ifAlias because using cross ref with description is correct # ifAlias because using cross ref with description is correct
# behavior according to the LLDP-MIB. Some devices (eg H3C gear) # behavior according to the LLDP-MIB. Some devices (eg H3C gear)
@@ -455,10 +455,10 @@ Eric Miller
=head1 SYNOPSIS =head1 SYNOPSIS
my $lldp = new SNMP::Info ( my $lldp = new SNMP::Info (
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'router', DestHost => 'router',
Community => 'public', Community => 'public',
Version => 2 Version => 2
); );
@@ -484,7 +484,7 @@ Eric Miller
=head1 DESCRIPTION =head1 DESCRIPTION
SNMP::Info::LLDP is a subclass of SNMP::Info that provides an object oriented SNMP::Info::LLDP is a subclass of SNMP::Info that provides an object oriented
interface to LLDP information through SNMP. interface to LLDP information through SNMP.
LLDP is a Layer 2 protocol that allows a network device to advertise its LLDP is a Layer 2 protocol that allows a network device to advertise its
@@ -520,7 +520,7 @@ These are methods that return scalar values from SNMP
=item $lldp->hasLLDP() =item $lldp->hasLLDP()
Is LLDP is active in this device? Is LLDP is active in this device?
Note: LLDP may be active, but nothing in C<lldpRemoteSystemsData> Tables so Note: LLDP may be active, but nothing in C<lldpRemoteSystemsData> Tables so
the device would not return any useful topology information. the device would not return any useful topology information.
@@ -531,7 +531,7 @@ The string value used to identify the system name of the local system. If the
local agent supports IETF RFC 3418, C<lldpLocSysName> object should have the local agent supports IETF RFC 3418, C<lldpLocSysName> object should have the
same value of C<sysName> object. same value of C<sysName> object.
Nulls are removed before the value is returned. Nulls are removed before the value is returned.
(C<lldpLocSysName>) (C<lldpLocSysName>)
@@ -545,7 +545,7 @@ Nulls are removed before the value is returned.
(C<lldpLocSysDesc>) (C<lldpLocSysDesc>)
=item $lldp->lldp_sys_cap() =item $lldp->lldp_sys_cap()
Returns which system capabilities are enabled on the local system. Results Returns which system capabilities are enabled on the local system. Results
are munged into an ascii binary string, LSB. Each digit represents a bit are munged into an ascii binary string, LSB. Each digit represents a bit
@@ -595,8 +595,8 @@ with the remote system.
=item $lldp->lldp_if() =item $lldp->lldp_if()
Returns the mapping to the SNMP Interface Table. Tries to cross reference Returns the mapping to the SNMP Interface Table. Tries to cross reference
(C<lldpLocPortDesc>) with (C<ifDescr>) and (C<ifAlias>) to get (C<ifIndex>), (C<lldpLocPortDesc>) with (C<ifDescr>) and (C<ifAlias>) to get (C<ifIndex>),
if unable defaults to (C<lldpRemLocalPortNum>). if unable defaults to (C<lldpRemLocalPortNum>).
=item $lldp->lldp_ip() =item $lldp->lldp_ip()
@@ -611,7 +611,7 @@ use lldp_addr if you don't care about return address type.
=item $lldp->lldp_mac() =item $lldp->lldp_mac()
Returns remote (management) MAC address, if known. Returns for all other Returns remote (management) MAC address, if known. Returns for all other
address types, use lldp_addr if you don't care about return address type. address types, use lldp_addr if you don't care about return address type.
=item $lldp->lldp_addr() =item $lldp->lldp_addr()
@@ -632,13 +632,13 @@ Returns remote port ID
Tries to return something useful from C<lldp_rem_sysdesc()> or Tries to return something useful from C<lldp_rem_sysdesc()> or
C<lldp_rem_sysname()>. C<lldp_rem_sysname()>.
=item $lldp->lldp_cap() =item $lldp->lldp_cap()
Returns hash of arrays with each array containing the system capabilities Returns hash of arrays with each array containing the system capabilities
supported by the remote system. Possible elements in the array are supported by the remote system. Possible elements in the array are
enumerated from C<LldpSystemCapabilitiesMap>. enumerated from C<LldpSystemCapabilitiesMap>.
=item $lldp->lldp_media_cap() =item $lldp->lldp_media_cap()
Returns hash of arrays with each array containing the media capabilities Returns hash of arrays with each array containing the media capabilities
supported by the remote system. Possible elements in the array are supported by the remote system. Possible elements in the array are
@@ -683,7 +683,7 @@ the remote system.
Returns the string value used to identify the description of the given port Returns the string value used to identify the description of the given port
associated with the remote system. associated with the remote system.
Nulls are removed before the value is returned. Nulls are removed before the value is returned.
(C<lldpRemPortDesc>) (C<lldpRemPortDesc>)
@@ -692,7 +692,7 @@ Nulls are removed before the value is returned.
Returns the string value used to identify the system name of the remote Returns the string value used to identify the system name of the remote
system. system.
Nulls are removed before the value is returned. Nulls are removed before the value is returned.
(C<lldpRemSysName>) (C<lldpRemSysName>)
@@ -701,70 +701,70 @@ Nulls are removed before the value is returned.
Returns the string value used to identify the system description of the Returns the string value used to identify the system description of the
remote system. remote system.
Nulls are removed before the value is returned. Nulls are removed before the value is returned.
(C<lldpRemSysDesc>) (C<lldpRemSysDesc>)
=item $lldp->lldp_rem_hw_rev() =item $lldp->lldp_rem_hw_rev()
Returns the string value used to identify the hardware revision of the Returns the string value used to identify the hardware revision of the
remote system. Nulls are removed before the value is returned. remote system. Nulls are removed before the value is returned.
(C<lldpXMedRemHardwareRev>) (C<lldpXMedRemHardwareRev>)
=item $lldp->lldp_rem_fw_rev() =item $lldp->lldp_rem_fw_rev()
Returns the string value used to identify the firmware revision of the Returns the string value used to identify the firmware revision of the
remote system. Nulls are removed before the value is returned. remote system. Nulls are removed before the value is returned.
(C<lldpXMedRemHardwareRev>) (C<lldpXMedRemHardwareRev>)
=item $lldp->lldp_rem_sw_rev() =item $lldp->lldp_rem_sw_rev()
Returns the string value used to identify the software revision of the Returns the string value used to identify the software revision of the
remote system. Nulls are removed before the value is returned. remote system. Nulls are removed before the value is returned.
(C<lldpXMedRemSoftwareRev>) (C<lldpXMedRemSoftwareRev>)
=item $lldp->lldp_rem_serial() =item $lldp->lldp_rem_serial()
Returns the string value used to identify the serial number of the Returns the string value used to identify the serial number of the
remote system. Nulls are removed before the value is returned. remote system. Nulls are removed before the value is returned.
(C<lldpXMedRemSerialNum>) (C<lldpXMedRemSerialNum>)
=item $lldp->lldp_rem_vendor() =item $lldp->lldp_rem_vendor()
Returns the string value used to identify the manufacturer of the Returns the string value used to identify the manufacturer of the
remote system. Nulls are removed before the value is returned. remote system. Nulls are removed before the value is returned.
(C<lldpXMedRemMfgName>) (C<lldpXMedRemMfgName>)
=item $lldp->lldp_rem_asset() =item $lldp->lldp_rem_asset()
Returns the string value used to identify the asset number of the Returns the string value used to identify the asset number of the
remote system. Nulls are removed before the value is returned. remote system. Nulls are removed before the value is returned.
(C<lldpXMedRemAssetID>) (C<lldpXMedRemAssetID>)
=item $lldp->lldp_rem_model() =item $lldp->lldp_rem_model()
Returns the string value used to identify the model of the Returns the string value used to identify the model of the
remote system. Nulls are removed before the value is returned. remote system. Nulls are removed before the value is returned.
(C<lldpXMedRemModelName>) (C<lldpXMedRemModelName>)
=item $lldp->lldp_rem_media_cap_spt() =item $lldp->lldp_rem_media_cap_spt()
Returns which media capabilities are supported on the remote system. Results Returns which media capabilities are supported on the remote system. Results
are munged into an ascii binary string, LSB. are munged into an ascii binary string, LSB.
=item $lldp->lldp_rem_media_cap() =item $lldp->lldp_rem_media_cap()
Returns which media capabilities are enabled on the remote system. Results Returns which media capabilities are enabled on the remote system. Results
are munged into an ascii binary string, LSB. are munged into an ascii binary string, LSB.
=item $lldp->lldp_rem_sys_cap() =item $lldp->lldp_rem_sys_cap()
Returns which system capabilities are enabled on the remote system. Results Returns which system capabilities are enabled on the remote system. Results
are munged into an ascii binary string, LSB. Each digit represents a bit are munged into an ascii binary string, LSB. Each digit represents a bit

14
lib/SNMP/Info/Layer1.pm
View File

@@ -172,14 +172,14 @@ Max Baker
=head1 SYNOPSIS =head1 SYNOPSIS
# Let SNMP::Info determine the correct subclass for you. # Let SNMP::Info determine the correct subclass for you.
my $l1 = new SNMP::Info( my $l1 = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'myswitch', DestHost => 'myswitch',
Community => 'public', Community => 'public',
Version => 1 Version => 1
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
my $class = $l1->class(); my $class = $l1->class();
@@ -203,15 +203,15 @@ This class is usually used as a superclass for more specific device classes
listed under SNMP::Info::Layer1::* Please read all docs under SNMP::Info listed under SNMP::Info::Layer1::* Please read all docs under SNMP::Info
first. first.
Provides abstraction to the configuration information obtainable from a Provides abstraction to the configuration information obtainable from a
Layer1 device through SNMP. Information is stored in a number of MIBs. Layer1 device through SNMP. Information is stored in a number of MIBs.
For speed or debugging purposes you can call the subclass directly, but not For speed or debugging purposes you can call the subclass directly, but not
after determining a more specific class using the method above. after determining a more specific class using the method above.
my $l1 = new SNMP::Info::Layer1(...); my $l1 = new SNMP::Info::Layer1(...);
=head2 Inherited Classes =head2 Inherited Classes
=over =over
@@ -219,7 +219,7 @@ after determining a more specific class using the method above.
=back =back
=head2 Required MIBs =head2 Required MIBs
=over =over
@@ -242,7 +242,7 @@ These are methods that return scalar value from SNMP
=item $l1->ports_managed() =item $l1->ports_managed()
Gets the number of ports under the interface mib Gets the number of ports under the interface mib
(C<ifNumber>) (C<ifNumber>)

10
lib/SNMP/Info/Layer2.pm
View File

@@ -169,14 +169,14 @@ Max Baker
=head1 SYNOPSIS =head1 SYNOPSIS
# Let SNMP::Info determine the correct subclass for you. # Let SNMP::Info determine the correct subclass for you.
my $l2 = new SNMP::Info( my $l2 = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'myswitch', DestHost => 'myswitch',
Community => 'public', Community => 'public',
Version => 2 Version => 2
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
my $class = $l2->class(); my $class = $l2->class();
@@ -199,11 +199,11 @@ This class is usually used as a superclass for more specific device classes
listed under SNMP::Info::Layer2::* Please read all docs under SNMP::Info listed under SNMP::Info::Layer2::* Please read all docs under SNMP::Info
first. first.
Provides abstraction to the configuration information obtainable from a Provides abstraction to the configuration information obtainable from a
Layer2 device through SNMP. Information is stored in a number of MIBs. Layer2 device through SNMP. Information is stored in a number of MIBs.
For speed or debugging purposes you can call the subclass directly, but not For speed or debugging purposes you can call the subclass directly, but not
after determining a more specific class using the method above. after determining a more specific class using the method above.
my $l2 = new SNMP::Info::Layer2(...); my $l2 = new SNMP::Info::Layer2(...);
@@ -243,7 +243,7 @@ These are methods that return scalar value from SNMP
=item $l2->model() =item $l2->model()
Cross references $l2->id() with product IDs in the Cross references $l2->id() with product IDs in the
Cisco MIBs. Cisco MIBs.
For HP devices, removes C<'hpswitch'> from the name For HP devices, removes C<'hpswitch'> from the name

26
lib/SNMP/Info/Layer3.pm
View File

@@ -351,14 +351,14 @@ Max Baker
=head1 SYNOPSIS =head1 SYNOPSIS
# Let SNMP::Info determine the correct subclass for you. # Let SNMP::Info determine the correct subclass for you.
my $l3 = new SNMP::Info( my $l3 = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'myswitch', DestHost => 'myswitch',
Community => 'public', Community => 'public',
Version => 2 Version => 2
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
my $class = $l3->class(); my $class = $l3->class();
@@ -381,11 +381,11 @@ This class is usually used as a superclass for more specific device classes
listed under SNMP::Info::Layer3::* Please read all docs under SNMP::Info listed under SNMP::Info::Layer3::* Please read all docs under SNMP::Info
first. first.
Provides generic methods for accessing SNMP data for Layer 3 network devices. Provides generic methods for accessing SNMP data for Layer 3 network devices.
Includes support for Layer2+3 devices. Includes support for Layer2+3 devices.
For speed or debugging purposes you can call the subclass directly, but not For speed or debugging purposes you can call the subclass directly, but not
after determining a more specific class using the method above. after determining a more specific class using the method above.
my $l3 = new SNMP::Info::Layer3(...); my $l3 = new SNMP::Info::Layer3(...);
@@ -461,7 +461,7 @@ Returns the BGP identifier of the local system
=item $l3->bgp_local_as() =item $l3->bgp_local_as()
Returns the local autonomous system number Returns the local autonomous system number
(C<bgpLocalAs.0>) (C<bgpLocalAs.0>)
@@ -533,13 +533,13 @@ to a hash.
=item $l3->interfaces() =item $l3->interfaces()
Returns the map between SNMP Interface Identifier (iid) and physical port Returns the map between SNMP Interface Identifier (iid) and physical port
name. name.
Only returns those iids that have a description listed in $l3->i_description() Only returns those iids that have a description listed in $l3->i_description()
=item $l3->i_name() =item $l3->i_name()
Returns reference to hash of iid to human set name. Returns reference to hash of iid to human set name.
Defaults to C<ifName>, but checks for an C<ifAlias> Defaults to C<ifName>, but checks for an C<ifAlias>
@@ -547,8 +547,8 @@ Defaults to C<ifName>, but checks for an C<ifAlias>
Returns reference to hash of iid to current link duplex setting. Returns reference to hash of iid to current link duplex setting.
Maps $l3->el_index() to $l3->el_duplex, then culls out Maps $l3->el_index() to $l3->el_duplex, then culls out
full,half, or auto and sets the map to that value. full,half, or auto and sets the map to that value.
See L<SNMP::Info::Etherlike> for the el_index() and el_duplex() methods. See L<SNMP::Info::Etherlike> for the el_index() and el_duplex() methods.
@@ -560,7 +560,7 @@ See L<SNMP::Info::Etherlike> for the el_index() and el_duplex() methods.
=item $l3->at_index() =item $l3->at_index()
Returns reference to hash. Maps ARP table entries to Interface IIDs Returns reference to hash. Maps ARP table entries to Interface IIDs
(C<ipNetToMediaIfIndex>) (C<ipNetToMediaIfIndex>)
@@ -569,7 +569,7 @@ the deprecated C<atIfIndex>.
=item $l3->at_paddr() =item $l3->at_paddr()
Returns reference to hash. Maps ARP table entries to MAC addresses. Returns reference to hash. Maps ARP table entries to MAC addresses.
(C<ipNetToMediaPhysAddress>) (C<ipNetToMediaPhysAddress>)
@@ -578,7 +578,7 @@ the deprecated C<atPhysAddress>.
=item $l3->at_netaddr() =item $l3->at_netaddr()
Returns reference to hash. Maps ARP table entries to IP addresses. Returns reference to hash. Maps ARP table entries to IP addresses.
(C<ipNetToMediaNetAddress>) (C<ipNetToMediaNetAddress>)

14
lib/SNMP/Info/Layer7.pm
View File

@@ -66,7 +66,7 @@ sub model {
my $id = $l7->id(); my $id = $l7->id();
my $model = &SNMP::translateObj($id); my $model = &SNMP::translateObj($id);
# Neoteris (Juniper IVE) # Neoteris (Juniper IVE)
$model =~ s/^ive//i; $model =~ s/^ive//i;
return $model; return $model;
@@ -113,14 +113,14 @@ Jeroen van Ingen
=head1 SYNOPSIS =head1 SYNOPSIS
# Let SNMP::Info determine the correct subclass for you. # Let SNMP::Info determine the correct subclass for you.
my $l7 = new SNMP::Info( my $l7 = new SNMP::Info(
AutoSpecify => 1, AutoSpecify => 1,
Debug => 1, Debug => 1,
DestHost => 'myswitch', DestHost => 'myswitch',
Community => 'public', Community => 'public',
Version => 1 Version => 1
) )
or die "Can't connect to DestHost.\n"; or die "Can't connect to DestHost.\n";
my $class = $l7->class(); my $class = $l7->class();
@@ -144,15 +144,15 @@ This class is usually used as a superclass for more specific device classes
listed under SNMP::Info::Layer7::* Please read all docs under SNMP::Info listed under SNMP::Info::Layer7::* Please read all docs under SNMP::Info
first. first.
Provides abstraction to the configuration information obtainable from a Provides abstraction to the configuration information obtainable from a
Layer7 device through SNMP. Information is stored in a number of MIBs. Layer7 device through SNMP. Information is stored in a number of MIBs.
For speed or debugging purposes you can call the subclass directly, but not For speed or debugging purposes you can call the subclass directly, but not
after determining a more specific class using the method above. after determining a more specific class using the method above.
my $l7 = new SNMP::Info::Layer7(...); my $l7 = new SNMP::Info::Layer7(...);
=head2 Inherited Classes =head2 Inherited Classes
=over =over
@@ -160,7 +160,7 @@ after determining a more specific class using the method above.
=back =back
=head2 Required MIBs =head2 Required MIBs
=over =over