doc updates, fix namespace snmp_connect_ip()

This commit is contained in:
Eric Miller
2006-04-07 02:31:20 +00:00
parent f0e0b9063c
commit 8bed2081b9

49
Info.pm
View File

@@ -34,7 +34,10 @@ SNMP::Info - Version 1.0
=head1 AUTHOR =head1 AUTHOR
SNMP::Info was created at UCSC for the netdisco project (www.netdisco.org) SNMP::Info was created at UCSC for the netdisco project (www.netdisco.org)
and is written and maintained by Max Baker. and was orginally written by Max Baker.
Currently being maintained by team of Open Source authors headed by Eric Miller
and Bill Fenner.
=head1 SYNOPSIS =head1 SYNOPSIS
@@ -72,16 +75,22 @@ and is written and maintained by Max Baker.
# Print out physical port name, not snmp iid # Print out physical port name, not snmp iid
my $port = $interfaces->{$iid}; my $port = $interfaces->{$iid};
print "$port: ";
print "$duplex duplex" if defined $duplex;
# The CDP Table has table entries different than the interface tables. # The CDP Table has table entries different than the interface tables.
# So we use c_if to get the map from cdp table to interface table. # So we use c_if to get the map from cdp table to interface table.
my %c_map = reverse %$c_if; my %c_map = reverse %$c_if;
my $c_key = $c_map{$iid}; my $c_key = $c_map{$iid};
unless (defined $c_key) {
print "\n\n";
next;
}
my $neighbor_ip = $c_ip->{$c_key}; my $neighbor_ip = $c_ip->{$c_key};
my $neighbor_port = $c_port->{$c_key}; my $neighbor_port = $c_port->{$c_key};
print "$port: $duplex duplex"; print " connected to $neighbor_ip / $neighbor_port\n" if defined $neighbor_ip;
print " connected to $neighbor_ip / $neighbor_port\n" if defined $remote_ip;
print "\n"; print "\n";
} }
@@ -219,7 +228,7 @@ BRIDGE-MIB (RFC1286). QBRIDGE-MIB. Inherited by devices with Layer2 support.
=item SNMP::Info::CDP =item SNMP::Info::CDP
CISCO-CDP-MIB. Cisco Discovery Protocol (CDP) Support. Inherited by devices serving Layer2 or Layer3. CISCO-CDP-MIB. Cisco Discovery Protocol (CDP) Support. Inherited by Cisco and HP devices.
=item SNMP::Info::CiscoImage =item SNMP::Info::CiscoImage
@@ -341,9 +350,9 @@ Depreciated. Use BayStack.
=item SNMP::Info::Layer2::Baystack =item SNMP::Info::Layer2::Baystack
Subclass for Nortel/Bay Baystack switches. This includes 303, 304, 350, 380, Subclass for Nortel/Bay Ethernet Switch/Baystack switches. This includes 303,
410, 420, 425, 450, 460, 470, 5510, 5520, 5530, Business Policy Switch (BPS) and 304, 350, 380, 410, 420, 425, 450, 460, 470, 5510, 5520, 5530, Business Policy
probably others. Switch (BPS) and probably others.
=item SNMP::Info::Layer2::C1900 =item SNMP::Info::Layer2::C1900
@@ -414,8 +423,8 @@ Subclass for Nortel Alteon Ace Director series L2-7 switches.
=item SNMP::Info::Layer3::BayRS =item SNMP::Info::Layer3::BayRS
Subclass for Nortel BayRS routers. This includes BCN, BLN, ASN, ARN, Subclass for Nortel Multiprotocol/BayRS routers. This includes BCN, BLN, ASN,
and AN routers. ARN, AN, 2430, and 5430 routers.
=item SNMP::Info::Layer3::C3550 =item SNMP::Info::Layer3::C3550
@@ -436,7 +445,7 @@ This is a simple wrapper around Layer3 for IOS devices. It adds on CiscoVTP.
=item SNMP::Info::Layer3::Contivity =item SNMP::Info::Layer3::Contivity
Subclass for Nortel Contivity VPN concentrators. Subclass for Nortel Contivity/VPN Routers.
=item SNMP::Info::Layer3::Extreme =item SNMP::Info::Layer3::Extreme
@@ -452,13 +461,18 @@ Requires FOUNDRY-SN-ROOT-MIB.
See SNMP::Info::Layer3::Foundry for more info. See SNMP::Info::Layer3::Foundry for more info.
=item SNMP::Info::Layer3::Passport =item SNMP::Info::Layer3::Juniper
Subclass for Nortel Passport 8000 series and Accelar series switches. Subclass for Juniper devices.
=item SNMP::Info::Layer3::N1600 =item SNMP::Info::Layer3::N1600
Subclass for Nortel 1600 series switches. Subclass for Nortel Ethernet Routing Switch 1600 series.
=item SNMP::Info::Layer3::Passport
Subclass for Nortel Ethernet Routing Switch/Passport 8000 series and Accelar
series switches.
=back =back
@@ -468,7 +482,7 @@ Subclass for Nortel 1600 series switches.
Thanks for testing and coding help (in no particular order) to : Thanks for testing and coding help (in no particular order) to :
Andy Ford, Brian Wilson, Jean-Philippe Luiggi, D<>na Watanabe, Bradley Baetz, Andy Ford, Brian Wilson, Jean-Philippe Luiggi, D<>na Watanabe, Bradley Baetz,
Eric Miller, and people listed on the Netdisco README! Mike Hunter, Justin Hunter, Brian Chow and people listed on the Netdisco README!
=head1 USAGE =head1 USAGE
@@ -788,12 +802,13 @@ Algorithm for Subclass Detection:
Cisco Generic L3 IOS device -> SNMP::Info::Layer3::Cisco Cisco Generic L3 IOS device -> SNMP::Info::Layer3::Cisco
Extreme -> SNMP::Info::Layer3::Extreme Extreme -> SNMP::Info::Layer3::Extreme
Foundry -> SNMP::Info::Layer3::Foundry Foundry -> SNMP::Info::Layer3::Foundry
Juniper -> SNMP::Info::Layer3::Juniper
Nortel Passport/Accelar LAN -> SNMP::Info::Layer3::Passport Nortel Passport/Accelar LAN -> SNMP::Info::Layer3::Passport
Nortel/Bay Baystack -> SNMP::Info::Layer2::Baystack Nortel/Bay Baystack -> SNMP::Info::Layer2::Baystack
Alteon Ace Director -> SNMP::Info::Layer3::AlteonAD Alteon Ace Director -> SNMP::Info::Layer3::AlteonAD
Nortel Contivity -> SNMP::Info::Layer3::Contivity Nortel Contivity -> SNMP::Info::Layer3::Contivity
Nortel BayRS Router -> SNMP::Info::Layer3::BayRS Nortel BayRS Router -> SNMP::Info::Layer3::BayRS
Elsif Layer2 (no Layer3) -> SNMP::Info::Layer2 Elsif Layer2 (no Layer3) -> SNMP::Info::Layer2
Aironet - IOS Devices -> SNMP::Info::Layer2::Aironet Aironet - IOS Devices -> SNMP::Info::Layer2::Aironet
Catalyst 1900 -> SNMP::Info::Layer2::C1900 Catalyst 1900 -> SNMP::Info::Layer2::C1900
Catalyst 2900XL,2950,3500XL -> SNMP::Info::Layer2::C2900 Catalyst 2900XL,2950,3500XL -> SNMP::Info::Layer2::C2900
@@ -2580,13 +2595,13 @@ sub _show_attr {
return $store->{$attr}; return $store->{$attr};
} }
=item _snmp_connect_ip() =item $info->snmp_connect_ip()
Returns true or false based upon snmp connectivity to an IP. Returns true or false based upon snmp connectivity to an IP.
=cut =cut
sub _snmp_connect_ip { sub snmp_connect_ip {
my $self = shift; my $self = shift;
my $ip = shift; my $ip = shift;
my $ver = $self->snmp_ver(); my $ver = $self->snmp_ver();