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

Rename c_* methods to cdp_* since c_* methods now report all topology.

Browse Source
This commit is contained in:
Eric A. Miller
2012-11-25 21:46:54 -05:00
parent 435bb7dbe2
commit e97693d12d
1 changed files with 78 additions and 78 deletions
Download Patch File Download Diff File Expand all files Collapse all files

156
Info/CDP.pm
View File

@@ -53,37 +53,37 @@ $VERSION = '2.08';
'cdp_run' => 'cdpGlobalRun', 'cdp_run' => 'cdpGlobalRun',
'cdp_interval' => 'cdpGlobalMessageInterval', 'cdp_interval' => 'cdpGlobalMessageInterval',
'cdp_holdtime' => 'cdpGlobalHoldTime', 'cdp_holdtime' => 'cdpGlobalHoldTime',
'cdp_id' => 'cdpGlobalDeviceId', 'cdp_gid' => 'cdpGlobalDeviceId',
); );
%FUNCS = ( %FUNCS = (
'c_index' => 'cdpCacheIfIndex', 'cdp_index' => 'cdpCacheIfIndex',
'c_proto' => 'cdpCacheAddressType', 'cdp_proto' => 'cdpCacheAddressType',
'c_addr' => 'cdpCacheAddress', 'cdp_addr' => 'cdpCacheAddress',
'c_ver' => 'cdpCacheVersion', 'cdp_ver' => 'cdpCacheVersion',
'c_id' => 'cdpCacheDeviceId', 'cdp_id' => 'cdpCacheDeviceId',
'c_port' => 'cdpCacheDevicePort', 'cdp_port' => 'cdpCacheDevicePort',
'c_platform' => 'cdpCachePlatform', 'cdp_platform' => 'cdpCachePlatform',
'c_capabilities' => 'cdpCacheCapabilities', 'cdp_capabilities' => 'cdpCacheCapabilities',
'c_domain' => 'cdpCacheVTPMgmtDomain', 'cdp_domain' => 'cdpCacheVTPMgmtDomain',
'c_vlan' => 'cdpCacheNativeVLAN', 'cdp_vlan' => 'cdpCacheNativeVLAN',
'c_duplex' => 'cdpCacheDuplex', 'cdp_duplex' => 'cdpCacheDuplex',
'c_power' => 'cdpCachePowerConsumption', 'cdp_power' => 'cdpCachePowerConsumption',
'c_pri_mgmt_type'=> 'cdpCachePrimaryMgmtAddrType', 'cdp_pri_mgmt_type'=> 'cdpCachePrimaryMgmtAddrType',
'c_pri_mgmt_addr'=> 'cdpCachePrimaryMgmtAddr', 'cdp_pri_mgmt_addr'=> 'cdpCachePrimaryMgmtAddr',
'c_sec_mgmt_type'=> 'cdpCacheSecondaryMgmtAddrType', 'cdp_sec_mgmt_type'=> 'cdpCacheSecondaryMgmtAddrType',
'c_sec_mgmt_addr'=> 'cdpCacheSecondaryMgmtAddr', 'cdp_sec_mgmt_addr'=> 'cdpCacheSecondaryMgmtAddr',
); );
%MUNGE = ( %MUNGE = (
'c_capabilities' => \&SNMP::Info::munge_caps, 'cdp_capabilities' => \&SNMP::Info::munge_caps,
'c_platform' => \&SNMP::Info::munge_null, 'cdp_platform' => \&SNMP::Info::munge_null,
'c_domain' => \&SNMP::Info::munge_null, 'cdp_domain' => \&SNMP::Info::munge_null,
'c_port' => \&SNMP::Info::munge_null, 'cdp_port' => \&SNMP::Info::munge_null,
'c_id' => \&SNMP::Info::munge_null, 'cdp_id' => \&SNMP::Info::munge_null,
'c_ver' => \&SNMP::Info::munge_null, 'cdp_ver' => \&SNMP::Info::munge_null,
'c_ip' => \&SNMP::Info::munge_ip, 'cdp_ip' => \&SNMP::Info::munge_ip,
'c_power' => \&munge_power, 'cdp_power' => \&munge_power,
); );
@@ -101,63 +101,63 @@ sub hasCDP {
# SNMP v1 clients dont have the globals # SNMP v1 clients dont have the globals
if ( defined $ver and $ver == 1 ) { if ( defined $ver and $ver == 1 ) {
my $c_ip = $cdp->c_ip(); my $cdp_ip = $cdp->cdp_ip();
# See if anything in cdp cache, if so we have cdp # See if anything in cdp cache, if so we have cdp
return 1 if ( defined $c_ip and scalar( keys %$c_ip ) ); return 1 if ( defined $cdp_ip and scalar( keys %$cdp_ip ) );
return; return;
} }
return $cdp->cdp_run(); return $cdp->cdp_run();
} }
sub c_if { sub cdp_if {
my $cdp = shift; my $cdp = shift;
# See if by some miracle Cisco implemented the cdpCacheIfIndex entry # See if by some miracle Cisco implemented the cdpCacheIfIndex entry
my $c_index = $cdp->c_index(); my $cdp_index = $cdp->cdp_index();
return $c_index if defined $c_index; return $cdp_index if defined $cdp_index;
# Nope, didn't think so. Now we fake it. # Nope, didn't think so. Now we fake it.
my $c_ip = $cdp->c_ip(); my $cdp_ip = $cdp->cdp_ip();
unless ( defined $c_ip ) { unless ( defined $cdp_ip ) {
$cdp->error_throw( $cdp->error_throw(
"SNMP::Info::CDP:c_if() - Device doesn't have cdp_ip() data. Can't fake cdp_index()" "SNMP::Info::CDP:cdp_if() - Device doesn't have cdp_ip() data. Can't fake cdp_index()"
); );
return; return;
} }
my %c_if; my %cdp_if;
foreach my $key ( keys %$c_ip ) { foreach my $key ( keys %$cdp_ip ) {
next unless defined $key; next unless defined $key;
my $iid = $key; my $iid = $key;
# Truncate .1 from cdp cache entry # Truncate .1 from cdp cache entry
$iid =~ s/\.\d+$//; $iid =~ s/\.\d+$//;
$c_if{$key} = $iid; $cdp_if{$key} = $iid;
} }
return \%c_if; return \%cdp_if;
} }
sub c_ip { sub cdp_ip {
my $cdp = shift; my $cdp = shift;
my $partial = shift; my $partial = shift;
my $c_addr = $cdp->c_addr($partial) || {}; my $cdp_addr = $cdp->cdp_addr($partial) || {};
my $c_proto = $cdp->c_proto($partial) || {}; my $cdp_proto = $cdp->cdp_proto($partial) || {};
my %c_ip; my %cdp_ip;
foreach my $key ( keys %$c_addr ) { foreach my $key ( keys %$cdp_addr ) {
my $addr = $c_addr->{$key}; my $addr = $cdp_addr->{$key};
my $proto = $c_proto->{$key}; my $proto = $cdp_proto->{$key};
next unless defined $addr; next unless defined $addr;
next if ( defined $proto and $proto ne 'ip' ); next if ( defined $proto and $proto ne 'ip' );
my $ip = join( '.', unpack( 'C4', $addr ) ); my $ip = join( '.', unpack( 'C4', $addr ) );
$c_ip{$key} = $ip; $cdp_ip{$key} = $ip;
} }
return \%c_ip; return \%cdp_ip;
} }
1; 1;
@@ -188,15 +188,15 @@ Max Baker
# Print out a map of device ports with CDP neighbors: # Print out a map of device ports with CDP neighbors:
my $interfaces = $cdp->interfaces(); my $interfaces = $cdp->interfaces();
my $c_if = $cdp->c_if(); my $cdp_if = $cdp->cdp_if();
my $c_ip = $cdp->c_ip(); my $cdp_ip = $cdp->cdp_ip();
my $c_port = $cdp->c_port(); my $cdp_port = $cdp->cdp_port();
foreach my $cdp_key (keys %$c_ip){ foreach my $cdp_key (keys %$cdp_ip){
my $iid = $c_if->{$cdp_key}; my $iid = $cdp_if->{$cdp_key};
my $port = $interfaces->{$iid}; my $port = $interfaces->{$iid};
my $neighbor = $c_ip->{$cdp_key}; my $neighbor = $cdp_ip->{$cdp_key};
my $neighbor_port = $c_port->{$cdp_key}; my $neighbor_port = $cdp_port->{$cdp_key};
print "Port : $port connected to $neighbor / $neighbor_port\n"; print "Port : $port connected to $neighbor / $neighbor_port\n";
} }
@@ -280,7 +280,7 @@ to a hash.
=over =over
=item $cdp->c_capabilities() =item $cdp->cdp_capabilities()
Returns Device Functional Capabilities. Results are munged into an ascii Returns Device Functional Capabilities. Results are munged into an ascii
binary string, 7 digits long, MSB. Each digit represents a bit from the binary string, 7 digits long, MSB. Each digit represents a bit from the
@@ -319,108 +319,108 @@ information.
(C<cdpCacheCapabilities>) (C<cdpCacheCapabilities>)
=item $cdp->c_domain() =item $cdp->cdp_domain()
Returns remote VTP Management Domain as defined in Returns remote VTP Management Domain as defined in
C<CISCO-VTP-MIB::managementDomainName> C<CISCO-VTP-MIB::managementDomainName>
(C<cdpCacheVTPMgmtDomain>) (C<cdpCacheVTPMgmtDomain>)
=item $cdp->c_duplex() =item $cdp->cdp_duplex()
Returns the port duplex status from remote devices. Returns the port duplex status from remote devices.
(C<cdpCacheDuplex>) (C<cdpCacheDuplex>)
=item $cdp->c_id() =item $cdp->cdp_id()
Returns remote device id string Returns remote device id string
(C<cdpCacheDeviceId>) (C<cdpCacheDeviceId>)
=item $cdp->c_if() =item $cdp->cdp_if()
Returns the mapping to the SNMP Interface Table. Returns the mapping to the SNMP Interface Table.
Note that a lot devices don't implement $cdp->c_index(), So if it isn't Note that a lot devices don't implement $cdp->cdp_index(), So if it isn't
around, we fake it. around, we fake it.
In order to map the cdp table entry back to the interfaces() entry, we In order to map the cdp table entry back to the interfaces() entry, we
truncate the last number off of it : truncate the last number off of it :
# it exists, yay. # it exists, yay.
my $c_index = $device->c_index(); my $cdp_index = $device->cdp_index();
return $c_index if defined $c_index; return $cdp_index if defined $cdp_index;
# if not, let's fake it # if not, let's fake it
my $c_ip = $device->c_ip(); my $cdp_ip = $device->cdp_ip();
my %c_if my %cdp_if
foreach my $key (keys %$c_ip){ foreach my $key (keys %$cdp_ip){
$iid = $key; $iid = $key;
## Truncate off .1 from cdp response ## Truncate off .1 from cdp response
$iid =~ s/\.\d+$//; $iid =~ s/\.\d+$//;
$c_if{$key} = $iid; $cdp_if{$key} = $iid;
} }
return \%c_if; return \%cdp_if;
=item $cdp->c_index() =item $cdp->cdp_index()
Returns the mapping to the SNMP2 Interface table for CDP Cache Entries. Returns the mapping to the SNMP2 Interface table for CDP Cache Entries.
Most devices don't implement this, so you probably want to use $cdp->c_if() Most devices don't implement this, so you probably want to use $cdp->cdp_if()
instead. instead.
See c_if() entry. See cdp_if() entry.
(C<cdpCacheIfIndex>) (C<cdpCacheIfIndex>)
=item $cdp->c_ip() =item $cdp->cdp_ip()
If $cdp->c_proto() is supported, returns remote IPV4 address only. Otherwise If $cdp->cdp_proto() is supported, returns remote IPV4 address only. Otherwise
it will return all addresses. it will return all addresses.
(C<cdpCacheAddress>) (C<cdpCacheAddress>)
=item $cdp->c_addr() =item $cdp->cdp_addr()
Returns remote address Returns remote address
(C<cdpCacheAddress>) (C<cdpCacheAddress>)
=item $cdp->c_platform() =item $cdp->cdp_platform()
Returns remote platform id Returns remote platform id
(C<cdpCachePlatform>) (C<cdpCachePlatform>)
=item $cdp->c_port() =item $cdp->cdp_port()
Returns remote port ID Returns remote port ID
(C<cdpDevicePort>) (C<cdpDevicePort>)
=item $cdp->c_proto() =item $cdp->cdp_proto()
Returns remote address type received. Usually IP. Returns remote address type received. Usually IP.
(C<cdpCacheAddressType>) (C<cdpCacheAddressType>)
=item $cdp->c_ver() =item $cdp->cdp_ver()
Returns remote hardware version Returns remote hardware version
(C<cdpCacheVersion>) (C<cdpCacheVersion>)
=item $cdp->c_vlan() =item $cdp->cdp_vlan()
Returns the remote interface native VLAN. Returns the remote interface native VLAN.
(C<cdpCacheNativeVLAN>) (C<cdpCacheNativeVLAN>)
=item $cdp->c_power() =item $cdp->cdp_power()
Returns the amount of power consumed by remote device in milliwatts munged Returns the amount of power consumed by remote device in milliwatts munged
for decimal placement. for decimal placement.