diff --git a/lib/SNMP/Info/CiscoStack.pm b/lib/SNMP/Info/CiscoStack.pm index c74b2c55..e37bb2e7 100644 --- a/lib/SNMP/Info/CiscoStack.pm +++ b/lib/SNMP/Info/CiscoStack.pm @@ -439,7 +439,7 @@ C Example: 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); =back diff --git a/lib/SNMP/Info/FDP.pm b/lib/SNMP/Info/FDP.pm index 17e779a7..d880c2fb 100644 --- a/lib/SNMP/Info/FDP.pm +++ b/lib/SNMP/Info/FDP.pm @@ -132,10 +132,10 @@ Bruce Rodger, Max Baker =head1 SYNOPSIS - my $fdp = new SNMP::Info ( + my $fdp = new SNMP::Info ( AutoSpecify => 1, Debug => 1, - DestHost => 'router', + DestHost => 'router', Community => 'public', Version => 2 ); @@ -161,7 +161,7 @@ Bruce Rodger, Max Baker =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. 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 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. =head2 Inherited Classes @@ -186,7 +186,7 @@ None. =item F Needs a reasonably recent MIB. Works OK with B2R07604A.mib, but doesn't -work with B2R07600C. +work with B2R07600C. =back @@ -198,13 +198,13 @@ These are methods that return scalar values from SNMP =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() =item $fdp->fdp_run() -Is FDP enabled on this device? +Is FDP enabled on this device? (C) @@ -216,7 +216,7 @@ Interval in seconds at which FDP messages are generated. =item $fdp->fdp_holdtime() -Time in seconds that FDP messages are kept. +Time in seconds that FDP messages are kept. (C) @@ -236,13 +236,13 @@ Interval in seconds at which FDP messages are generated. =item $fdp->fdp_holdtime() -Time in seconds that FDP messages are kept. +Time in seconds that FDP messages are kept. (C) -=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 retrieved from remote devices with $fdp->id(). @@ -334,9 +334,9 @@ Returns remote IP address (C) -=item $fdp->fdp_platform() +=item $fdp->fdp_platform() -Returns remote platform id +Returns remote platform id (C) @@ -352,13 +352,13 @@ Returns remote address type received. Usually IP. (C) -=item $fdp->fdp_ver() +=item $fdp->fdp_ver() Returns remote hardware version (C) -=item $fdp->fdp_cache_type() +=item $fdp->fdp_cache_type() Returns type of entry received, either FDP or CDP. diff --git a/lib/SNMP/Info/IEEE802dot11.pm b/lib/SNMP/Info/IEEE802dot11.pm index acd5a0cf..866ebe48 100644 --- a/lib/SNMP/Info/IEEE802dot11.pm +++ b/lib/SNMP/Info/IEEE802dot11.pm @@ -203,7 +203,7 @@ Eric Miller DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; diff --git a/lib/SNMP/Info/IEEE802dot3ad.pm b/lib/SNMP/Info/IEEE802dot3ad.pm index a449803a..fd95ef03 100644 --- a/lib/SNMP/Info/IEEE802dot3ad.pm +++ b/lib/SNMP/Info/IEEE802dot3ad.pm @@ -82,10 +82,10 @@ sub agg_ports_lag { for ( my $i = 0; $i <= scalar(@$portlist); $i++ ) { my $ifindex = $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] ); - } + } } return $ret; @@ -105,14 +105,14 @@ SNMP::Info Developers =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( AutoSpecify => 1, Debug => 1, DestHost => 'myrouter', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $info->class(); diff --git a/lib/SNMP/Info/IPv6.pm b/lib/SNMP/Info/IPv6.pm index 00c292c5..5d1db9d2 100644 --- a/lib/SNMP/Info/IPv6.pm +++ b/lib/SNMP/Info/IPv6.pm @@ -48,15 +48,15 @@ $VERSION = '3.64'; -%MIBS = ( +%MIBS = ( 'IP-MIB' => 'ipv6InterfaceTableLastChange', 'IPV6-MIB' => 'ipv6IfTableLastChange', - 'CISCO-IETF-IP-MIB' => 'cInetNetToMediaNetAddress', + 'CISCO-IETF-IP-MIB' => 'cInetNetToMediaNetAddress', ); %GLOBALS = (); -%FUNCS = ( +%FUNCS = ( 'ip_n2p_phys_addr' => 'ipNetToPhysicalPhysAddress', # IP-MIB 'c_inet_phys_addr' => 'cInetNetToMediaPhysAddress', # CISCO-IETF-IP-MIB 'i6_n2p_phys_addr' => 'ipv6NetToMediaPhysAddress', # IPV6-MIB @@ -70,10 +70,10 @@ $VERSION = '3.64'; 'i6_n2p_phys_state' => 'ipv6IfNetToMediaState', # IPV6-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 - 'c_addr6_pfx' => 'cIpAddressPrefix', # CISCO-IETF-IP-MIB + 'c_addr6_pfx' => 'cIpAddressPrefix', # CISCO-IETF-IP-MIB # Commented out are not-accessible according to MIB #'ip_addr6_pfxlen' => 'ipAddressPrefixLength', # IP-MIB @@ -81,7 +81,7 @@ $VERSION = '3.64'; 'i6_addr_pfxlen' => 'ipv6AddrPfxLength', # IPV6-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 'c_addr6_type' => 'cIpAddressType', # CISCO-IETF-IP-MIB @@ -106,8 +106,8 @@ sub ipv6_n2p_mac { foreach my $row (keys %$phys_addr) { if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) { my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4; - if ($info::METHOD == IPV6MIB) { - # IPV6-MIB doesn't include the addrtype in the index; + if ($info::METHOD == IPV6MIB) { + # 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) $v6addr = join('.', $addrtype, $addrsize, $v6addr); $addrtype = 2; @@ -133,8 +133,8 @@ sub ipv6_n2p_addr { foreach my $row (keys %$net_addr) { if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) { my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4; - if ($info::METHOD == IPV6MIB) { - # IPV6-MIB doesn't include the addrtype in the index; + if ($info::METHOD == IPV6MIB) { + # 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) $v6addr = join('.', $addrtype, $addrsize, $v6addr); $addrtype = 2; @@ -142,7 +142,7 @@ sub ipv6_n2p_addr { if ($addrtype == 2) { # IPv6 my $v6_packed = pack("C*", split(/\./, $v6addr)); 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. $v6_packed = pack('C', $addrsize) . $v6_packed; } @@ -177,8 +177,8 @@ sub ipv6_n2p_if { foreach my $row (keys %$phys_addr) { if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) { my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4; - if ($info::METHOD == IPV6MIB) { - # IPV6-MIB doesn't include the addrtype in the index; + if ($info::METHOD == IPV6MIB) { + # 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) $v6addr = join('.', $addrtype, $addrsize, $v6addr); $addrtype = 2; @@ -204,8 +204,8 @@ sub ipv6_n2p_type { foreach my $row (keys %$phys_type) { if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) { my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4; - if ($info::METHOD == IPV6MIB) { - # IPV6-MIB doesn't include the addrtype in the index; + if ($info::METHOD == IPV6MIB) { + # 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) $v6addr = join('.', $addrtype, $addrsize, $v6addr); $addrtype = 2; @@ -231,8 +231,8 @@ sub ipv6_n2p_state { foreach my $row (keys %$phys_state) { if ($row =~ /^(\d+)\.(\d+)\.(\d+)\.([\d\.]+)$/) { my $ifindex = $1; my $addrtype = $2; my $addrsize = $3; my $v6addr = $4; - if ($info::METHOD == IPV6MIB) { - # IPV6-MIB doesn't include the addrtype in the index; + if ($info::METHOD == IPV6MIB) { + # 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) $v6addr = join('.', $addrtype, $addrsize, $v6addr); $addrtype = 2; @@ -442,14 +442,14 @@ Jeroen van Ingen and Carlos Vicente =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( AutoSpecify => 1, Debug => 1, DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; my $class = $info->class(); @@ -457,12 +457,12 @@ Jeroen van Ingen and Carlos Vicente =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, F, or the F, whichever is supported by the 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. 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.) -=item $info->ipv6_addr_prefix() +=item $info->ipv6_addr_prefix() Maps IPv6 addresses with their prefixes @@ -545,7 +545,7 @@ Maps an address of type C on interface C =head1 MUNGES -=over +=over =item munge_physaddr() diff --git a/lib/SNMP/Info/LLDP.pm b/lib/SNMP/Info/LLDP.pm index 087ed205..cbe14e96 100644 --- a/lib/SNMP/Info/LLDP.pm +++ b/lib/SNMP/Info/LLDP.pm @@ -141,7 +141,7 @@ sub lldp_if { next unless $port; # 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 # ifAlias because using cross ref with description is correct # behavior according to the LLDP-MIB. Some devices (eg H3C gear) @@ -455,10 +455,10 @@ Eric Miller =head1 SYNOPSIS - my $lldp = new SNMP::Info ( + my $lldp = new SNMP::Info ( AutoSpecify => 1, Debug => 1, - DestHost => 'router', + DestHost => 'router', Community => 'public', Version => 2 ); @@ -484,7 +484,7 @@ Eric Miller =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. 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() -Is LLDP is active in this device? +Is LLDP is active in this device? Note: LLDP may be active, but nothing in C Tables so 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 object should have the same value of C object. -Nulls are removed before the value is returned. +Nulls are removed before the value is returned. (C) @@ -545,7 +545,7 @@ Nulls are removed before the value is returned. (C) -=item $lldp->lldp_sys_cap() +=item $lldp->lldp_sys_cap() Returns which system capabilities are enabled on the local system. Results 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() -Returns the mapping to the SNMP Interface Table. Tries to cross reference -(C) with (C) and (C) to get (C), +Returns the mapping to the SNMP Interface Table. Tries to cross reference +(C) with (C) and (C) to get (C), if unable defaults to (C). =item $lldp->lldp_ip() @@ -611,7 +611,7 @@ use lldp_addr if you don't care about return address type. =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. =item $lldp->lldp_addr() @@ -632,13 +632,13 @@ Returns remote port ID Tries to return something useful from C or C. -=item $lldp->lldp_cap() +=item $lldp->lldp_cap() Returns hash of arrays with each array containing the system capabilities supported by the remote system. Possible elements in the array are enumerated from C. -=item $lldp->lldp_media_cap() +=item $lldp->lldp_media_cap() Returns hash of arrays with each array containing the media capabilities 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 associated with the remote system. -Nulls are removed before the value is returned. +Nulls are removed before the value is returned. (C) @@ -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 system. -Nulls are removed before the value is returned. +Nulls are removed before the value is returned. (C) @@ -701,70 +701,70 @@ Nulls are removed before the value is returned. Returns the string value used to identify the system description of the remote system. -Nulls are removed before the value is returned. +Nulls are removed before the value is returned. (C) =item $lldp->lldp_rem_hw_rev() 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) =item $lldp->lldp_rem_fw_rev() 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) =item $lldp->lldp_rem_sw_rev() 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) =item $lldp->lldp_rem_serial() 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) =item $lldp->lldp_rem_vendor() 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) =item $lldp->lldp_rem_asset() 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) =item $lldp->lldp_rem_model() 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) -=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 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 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 are munged into an ascii binary string, LSB. Each digit represents a bit diff --git a/lib/SNMP/Info/Layer1.pm b/lib/SNMP/Info/Layer1.pm index cebacc4c..9b6c2dcc 100644 --- a/lib/SNMP/Info/Layer1.pm +++ b/lib/SNMP/Info/Layer1.pm @@ -172,14 +172,14 @@ Max Baker =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( AutoSpecify => 1, Debug => 1, DestHost => 'myswitch', Community => 'public', Version => 1 - ) + ) or die "Can't connect to DestHost.\n"; 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 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. 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(...); -=head2 Inherited Classes +=head2 Inherited Classes =over @@ -219,7 +219,7 @@ after determining a more specific class using the method above. =back -=head2 Required MIBs +=head2 Required MIBs =over @@ -242,7 +242,7 @@ These are methods that return scalar value from SNMP =item $l1->ports_managed() -Gets the number of ports under the interface mib +Gets the number of ports under the interface mib (C) diff --git a/lib/SNMP/Info/Layer2.pm b/lib/SNMP/Info/Layer2.pm index 96d5089e..2db206ac 100644 --- a/lib/SNMP/Info/Layer2.pm +++ b/lib/SNMP/Info/Layer2.pm @@ -169,14 +169,14 @@ Max Baker =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( AutoSpecify => 1, Debug => 1, DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; 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 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. 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(...); @@ -243,7 +243,7 @@ These are methods that return scalar value from SNMP =item $l2->model() -Cross references $l2->id() with product IDs in the +Cross references $l2->id() with product IDs in the Cisco MIBs. For HP devices, removes C<'hpswitch'> from the name diff --git a/lib/SNMP/Info/Layer3.pm b/lib/SNMP/Info/Layer3.pm index 7425d13b..d738a5be 100644 --- a/lib/SNMP/Info/Layer3.pm +++ b/lib/SNMP/Info/Layer3.pm @@ -351,14 +351,14 @@ Max Baker =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( AutoSpecify => 1, Debug => 1, DestHost => 'myswitch', Community => 'public', Version => 2 - ) + ) or die "Can't connect to DestHost.\n"; 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 first. -Provides generic methods for accessing SNMP data for Layer 3 network devices. -Includes support for Layer2+3 devices. +Provides generic methods for accessing SNMP data for Layer 3 network devices. +Includes support for Layer2+3 devices. 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(...); @@ -461,7 +461,7 @@ Returns the BGP identifier of the local system =item $l3->bgp_local_as() -Returns the local autonomous system number +Returns the local autonomous system number (C) @@ -533,13 +533,13 @@ to a hash. =item $l3->interfaces() 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() =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, but checks for an C @@ -547,8 +547,8 @@ Defaults to C, but checks for an C Returns reference to hash of iid to current link duplex setting. -Maps $l3->el_index() to $l3->el_duplex, then culls out -full,half, or auto and sets the map to that value. +Maps $l3->el_index() to $l3->el_duplex, then culls out +full,half, or auto and sets the map to that value. See L for the el_index() and el_duplex() methods. @@ -560,7 +560,7 @@ See L for the el_index() and el_duplex() methods. =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) @@ -569,7 +569,7 @@ the deprecated C. =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) @@ -578,7 +578,7 @@ the deprecated C. =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) diff --git a/lib/SNMP/Info/Layer7.pm b/lib/SNMP/Info/Layer7.pm index 107b3206..d5b95cd8 100644 --- a/lib/SNMP/Info/Layer7.pm +++ b/lib/SNMP/Info/Layer7.pm @@ -66,7 +66,7 @@ sub model { my $id = $l7->id(); my $model = &SNMP::translateObj($id); - # Neoteris (Juniper IVE) + # Neoteris (Juniper IVE) $model =~ s/^ive//i; return $model; @@ -113,14 +113,14 @@ Jeroen van Ingen =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( AutoSpecify => 1, Debug => 1, DestHost => 'myswitch', Community => 'public', Version => 1 - ) + ) or die "Can't connect to DestHost.\n"; 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 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. 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(...); -=head2 Inherited Classes +=head2 Inherited Classes =over @@ -160,7 +160,7 @@ after determining a more specific class using the method above. =back -=head2 Required MIBs +=head2 Required MIBs =over