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

POD fixes to pass tests

Browse Source
This commit is contained in:
Carlos Vicente
2010-09-22 23:18:22 +00:00
parent bdf5a80868
commit cacb0777b7
7 changed files with 132 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Info/Airespace.pm
View File

@@ -1118,6 +1118,9 @@ switch.
Returns 00000011. Class emulates Layer 2 functionality for Thin APs through Returns 00000011. Class emulates Layer 2 functionality for Thin APs through
proprietary MIBs. proprietary MIBs.
=item $airespace->at_netaddr()
=item $airespace->at_paddr()
=item $airespace->serial() =item $airespace->serial()
(C<agentInventorySerialNumber>) (C<agentInventorySerialNumber>)

91
Info/Ipv6.pm
View File

@@ -90,7 +90,7 @@ $VERSION = '2.01';
sub ipv6_n2p_mac { sub ipv6_n2p_mac {
my $info = shift; my $info = shift;
my $return; my $return;
my $phys_addr = &test_methods( $info, { my $phys_addr = &_test_methods( $info, {
ip_n2p_phys_addr => IPMIB, ip_n2p_phys_addr => IPMIB,
c_inet_phys_addr => CISCO, c_inet_phys_addr => CISCO,
i6_n2p_phys_addr => IPV6MIB, i6_n2p_phys_addr => IPV6MIB,
@@ -110,14 +110,14 @@ sub ipv6_n2p_mac {
} }
} }
} }
printf("%s: data comes from %s.\n", &my_sub_name, $info->method_used() ) if $info->debug(); printf("%s: data comes from %s.\n", &_my_sub_name, $info->_method_used() ) if $info->debug();
return $return; return $return;
} }
sub ipv6_n2p_addr { sub ipv6_n2p_addr {
my $info = shift; my $info = shift;
my $return; my $return;
my $net_addr = &test_methods( $info, { my $net_addr = &_test_methods( $info, {
ip_n2p_phys_addr => IPMIB, ip_n2p_phys_addr => IPMIB,
c_inet_phys_addr => CISCO, c_inet_phys_addr => CISCO,
i6_n2p_phys_addr => IPV6MIB, i6_n2p_phys_addr => IPV6MIB,
@@ -139,14 +139,14 @@ sub ipv6_n2p_addr {
} }
} }
} }
printf("%s: data comes from %s.\n", &my_sub_name, $info->method_used() ) if $info->debug(); printf("%s: data comes from %s.\n", &_my_sub_name, $info->_method_used() ) if $info->debug();
return $return; return $return;
} }
sub ipv6_n2p_if { sub ipv6_n2p_if {
my $info = shift; my $info = shift;
my $return; my $return;
my $phys_addr = &test_methods( $info, { my $phys_addr = &_test_methods( $info, {
ip_n2p_phys_addr => IPMIB, ip_n2p_phys_addr => IPMIB,
c_inet_phys_addr => CISCO, c_inet_phys_addr => CISCO,
i6_n2p_phys_addr => IPV6MIB, i6_n2p_phys_addr => IPV6MIB,
@@ -166,14 +166,14 @@ sub ipv6_n2p_if {
} }
} }
} }
printf("%s: data comes from %s.\n", &my_sub_name, $info->method_used() ) if $info->debug(); printf("%s: data comes from %s.\n", &_my_sub_name, $info->_method_used() ) if $info->debug();
return $return; return $return;
} }
sub ipv6_n2p_type { sub ipv6_n2p_type {
my $info = shift; my $info = shift;
my $return; my $return;
my $phys_type = &test_methods( $info, { my $phys_type = &_test_methods( $info, {
ip_n2p_phys_type => IPMIB, ip_n2p_phys_type => IPMIB,
c_inet_phys_type => CISCO, c_inet_phys_type => CISCO,
i6_n2p_phys_type => IPV6MIB, i6_n2p_phys_type => IPV6MIB,
@@ -193,14 +193,14 @@ sub ipv6_n2p_type {
} }
} }
} }
printf("%s: data comes from %s.\n", &my_sub_name, $info->method_used() ) if $info->debug(); printf("%s: data comes from %s.\n", &_my_sub_name, $info->_method_used() ) if $info->debug();
return $return; return $return;
} }
sub ipv6_n2p_state { sub ipv6_n2p_state {
my $info = shift; my $info = shift;
my $return; my $return;
my $phys_state = &test_methods( $info, { my $phys_state = &_test_methods( $info, {
ip_n2p_phys_state => IPMIB, ip_n2p_phys_state => IPMIB,
c_inet_phys_state => CISCO, c_inet_phys_state => CISCO,
i6_n2p_phys_state => IPV6MIB, i6_n2p_phys_state => IPV6MIB,
@@ -220,14 +220,14 @@ sub ipv6_n2p_state {
} }
} }
} }
printf("%s: data comes from %s.\n", &my_sub_name, $info->method_used() ) if $info->debug(); printf("%s: data comes from %s.\n", &_my_sub_name, $info->_method_used() ) if $info->debug();
return $return; return $return;
} }
sub ipv6_index { sub ipv6_index {
my $info = shift; my $info = shift;
my $return; my $return;
my $ipv6_index = &test_methods( $info, { my $ipv6_index = &_test_methods( $info, {
ip_addr6_index => IPMIB, ip_addr6_index => IPMIB,
c_addr6_index => CISCO, c_addr6_index => CISCO,
}); });
@@ -240,14 +240,14 @@ sub ipv6_index {
} }
} }
} }
printf("%s: data comes from %s.\n", &my_sub_name, $info->method_used() ) if $info->debug(); printf("%s: data comes from %s.\n", &_my_sub_name, $info->_method_used() ) if $info->debug();
return $return; return $return;
} }
sub ipv6_type { sub ipv6_type {
my $info = shift; my $info = shift;
my $return; my $return;
my $ipv6_type = &test_methods( $info, { my $ipv6_type = &_test_methods( $info, {
ip_addr6_type => IPMIB, ip_addr6_type => IPMIB,
c_addr6_type => CISCO, c_addr6_type => CISCO,
}); });
@@ -260,14 +260,14 @@ sub ipv6_type {
} }
} }
} }
printf("%s: data comes from %s.\n", &my_sub_name, $info->method_used() ) if $info->debug(); printf("%s: data comes from %s.\n", &_my_sub_name, $info->_method_used() ) if $info->debug();
return $return; return $return;
} }
sub ipv6_pfx_origin { sub ipv6_pfx_origin {
my $info = shift; my $info = shift;
my $return; my $return;
my $ipv6_pfx_origin = &test_methods( $info, { my $ipv6_pfx_origin = &_test_methods( $info, {
ip_pfx_origin => IPMIB, ip_pfx_origin => IPMIB,
c_pfx_origin => CISCO, c_pfx_origin => CISCO,
}); });
@@ -280,11 +280,11 @@ sub ipv6_pfx_origin {
} }
} }
} }
printf("%s: data comes from %s.\n", &my_sub_name, $info->method_used() ) if $info->debug(); printf("%s: data comes from %s.\n", &_my_sub_name, $info->_method_used() ) if $info->debug();
return $return; return $return;
} }
sub method_used { sub _method_used {
my $info = shift; my $info = shift;
my $return = 'none of the MIBs'; my $return = 'none of the MIBs';
if (defined $info::METHOD) { if (defined $info::METHOD) {
@@ -299,7 +299,7 @@ sub method_used {
return $return; return $return;
} }
sub test_methods { sub _test_methods {
my $info = shift; my $info = shift;
my $test = shift; my $test = shift;
my $return = {}; my $return = {};
@@ -313,18 +313,11 @@ sub test_methods {
return $return; return $return;
} }
sub my_sub_name { sub _my_sub_name {
my @callinfo = caller(1); my @callinfo = caller(1);
return $callinfo[3]; return $callinfo[3];
} }
=item munge_physaddr()
Takes an octet stream (HEX-STRING) and returns a colon separated ASCII hex
string.
=cut
sub munge_physaddr { sub munge_physaddr {
my $addr = shift; my $addr = shift;
return unless defined $addr; return unless defined $addr;
@@ -339,12 +332,13 @@ __END__
=head1 NAME =head1 NAME
SNMP::Info::Ipv6 - SNMP Interface for mapping IPv6 addresses to MACs and interfaces, using information from SNMP::Info::Ipv6 - SNMP Interface for obtaining configured IPv6 addresses and
mapping IPv6 addresses to MACs and interfaces, using information from
F<IP-MIB>, F<IPV6-MIB> and/or F<CISCO-IETF-IP-MIB>. F<IP-MIB>, F<IPV6-MIB> and/or F<CISCO-IETF-IP-MIB>.
=head1 AUTHOR =head1 AUTHOR
Jeroen van Ingen Jeroen van Ingen and Carlos Vicente
=head1 SYNOPSIS =head1 SYNOPSIS
@@ -398,7 +392,35 @@ none.
These are methods that return tables of information in the form of a reference These are methods that return tables of information in the form of a reference
to a hash. to a hash.
=head2 Internet Address Translation table =head2 Internet Address Table
=over
=item $info->ipv6_n2p_addr()
=item $info->ipv6_n2p_if()
=item $info->ipv6_n2p_mac()
=item $info->ipv6_n2p_state()
=item $info->ipv6_n2p_type()
=item $info->ipv6_index()
Maps an IPv6 address to an interface C<ifIndex>
=item $info->ipv6_type()
Maps an IPv6 address to its type (unicast, anycast, etc.)
=item $info->ipv6_pfx_origin()
Maps an IPv6 prefix with its origin (manual, well-known, dhcp, etc.)
=back
=head2 Internet Address Translation Table
=over =over
@@ -408,4 +430,15 @@ Maps an address of type C<cInetNetToMediaNetAddressType> on interface C<ifIndex>
=back =back
=head1 MUNGES
=over
=item munge_physaddr()
Takes an octet stream (HEX-STRING) and returns a colon separated ASCII hex
string.
=back
=cut =cut

24
Info/Layer2/Airespace.pm
View File

@@ -234,14 +234,14 @@ See documentation in L<SNMP::Info::Bridge/"GLOBALS"> for details.
These are methods that return tables of information in the form of a reference These are methods that return tables of information in the form of a reference
to a hash. to a hash.
=over
=item cd11_mac()
=back
=head2 Overrides =head2 Overrides
=over
=item None
=back
=head2 Table Methods imported from SNMP::Info::Airespace =head2 Table Methods imported from SNMP::Info::Airespace
See documentation in L<SNMP::Info::Airespace/"TABLE METHODS"> for details. See documentation in L<SNMP::Info::Airespace/"TABLE METHODS"> for details.
@@ -254,4 +254,16 @@ See documentation in L<SNMP::Info::CDP/"TABLE METHODS"> for details.
See documentation in L<SNMP::Info::Bridge/"TABLE METHODS"> for details. See documentation in L<SNMP::Info::Bridge/"TABLE METHODS"> for details.
=head1 MUNGES
=over
=item munge_64bits()
=item munge_cd11_rateset()
=item munge_cd11_txrate()
=back
=cut =cut

13
Info/Layer2/HP.pm
View File

@@ -970,4 +970,17 @@ Munge for c_id which handles CDP and LLDP.
=back =back
=head1 SET METHODS
These are methods that provide SNMP set functionality for overridden methods
or provide a simpler interface to complex set operations. See
L<SNMP::Info/"SETTING DATA VIA SNMP"> for general information on set
operations.
=over
=item set_i_vlan()
=item set_i_vlan_tagged()
=cut =cut

13
Info/Layer2/HP4000.pm
View File

@@ -705,4 +705,17 @@ See documentation in L<SNMP::Info::Layer2/"TABLE METHODS"> for details.
See documentation in L<SNMP::Info::MAU/"TABLE METHODS"> for details. See documentation in L<SNMP::Info::MAU/"TABLE METHODS"> for details.
=head1 SET METHODS
These are methods that provide SNMP set functionality for overridden methods
or provide a simpler interface to complex set operations. See
L<SNMP::Info/"SETTING DATA VIA SNMP"> for general information on set
operations.
=over
=item set_i_vlan()
=item set_i_vlan_tagged()
=cut =cut

4
Info/Layer3/C3550.pm
View File

@@ -556,6 +556,8 @@ See documentation in L<SNMP::Info::CiscoImage/"GLOBALS"> for details.
These are methods that return tables of information in the form of a reference These are methods that return tables of information in the form of a reference
to a hash. to a hash.
=over
=item $c3550->c_if() =item $c3550->c_if()
Returns reference to hash. Key: iid Value: local device port (interfaces) Returns reference to hash. Key: iid Value: local device port (interfaces)
@@ -586,6 +588,8 @@ chassis component associated with the remote system.
Returns reference to hash. Key: iid Value: Remote Device Type Returns reference to hash. Key: iid Value: Remote Device Type
=back
=head2 Overrides =head2 Overrides
=over =over

19
Info/Layer3/Juniper.pm
View File

@@ -311,6 +311,25 @@ Returns LLDP information.
=back =back
=head2 Forwarding Table (C<dot1dTpFdbEntry>)
=over
=item $juniper->fw_mac()
Returns reference to hash of forwarding table MAC Addresses
(C<dot1dTpFdbAddress>)
=item $juniper->fw_port()
Returns reference to hash of forwarding table entries port interface
identifier (iid)
(C<dot1dTpFdbPort>)
=back
=head2 Table Methods imported from SNMP::Info::Layer3 =head2 Table Methods imported from SNMP::Info::Layer3
See documentation in L<SNMP::Info::Layer3/"TABLE METHODS"> for details. See documentation in L<SNMP::Info::Layer3/"TABLE METHODS"> for details.