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

- Document munge_power()

Browse Source 
- Move munge_caps() and munge_null() to Info.pm
This commit is contained in:
Eric Miller
2008-07-15 02:15:59 +00:00
parent ca9caf6e12
commit aa58a2ba56
1 changed files with 42 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
Info/CDP.pm
View File

@@ -72,33 +72,17 @@ $VERSION = '1.09';
); );
%MUNGE = ( %MUNGE = (
'c_capabilities' => \&munge_caps, 'c_capabilities' => \&SNMP::Info::munge_caps,
'c_platform' => \&munge_null, 'c_platform' => \&SNMP::Info::munge_null,
'c_domain' => \&munge_null, 'c_domain' => \&SNMP::Info::munge_null,
'c_port' => \&munge_null, 'c_port' => \&SNMP::Info::munge_null,
'c_id' => \&munge_null, 'c_id' => \&SNMP::Info::munge_null,
'c_ver' => \&munge_null, 'c_ver' => \&SNMP::Info::munge_null,
'c_ip' => \&SNMP::Info::munge_ip, 'c_ip' => \&SNMP::Info::munge_ip,
'c_power' => \&munge_power, 'c_power' => \&munge_power,
); );
# munge_null() - removes nulls (\0)
sub munge_null {
my $text = shift || return;
$text =~ s/\0//g;
return $text;
}
sub munge_caps {
my $caps = shift;
return unless defined $caps;
my $bits = substr(unpack("B*",$caps),-7);
return $bits;
}
sub munge_power { sub munge_power {
my $power = shift; my $power = shift;
my $decimal = substr($power, -3); my $decimal = substr($power, -3);
@@ -218,7 +202,8 @@ CDP is a Layer 2 protocol that supplies topology information of devices that
also speak CDP, mostly switches and routers. CDP is implemented in Cisco and also speak CDP, mostly switches and routers. CDP is implemented in Cisco and
some HP devices. some HP devices.
Create or use a device subclass that inherits this class. Do not use directly. 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. Check the return value to see if that data is held by the device.
@@ -251,8 +236,8 @@ Accounts for SNMP version 1 devices which may have CDP but not cdp_run()
=item $cdp->cdp_run() =item $cdp->cdp_run()
Is CDP enabled on this device? Note that a lot of Cisco devices that implement Is CDP enabled on this device? Note that a lot of Cisco devices that
CDP don't implement this value. @#%$! implement CDP don't implement this value. @#%$!
(C<cdpGlobalRun>) (C<cdpGlobalRun>)
@@ -302,17 +287,23 @@ From L<http://www.cisco.com/univercd/cc/td/doc/product/lan/trsrb/frames.htm#1884
=item (0x40) - Provides level 1 functionality. =item (0x40) - Provides level 1 functionality.
=item (0x20) - The bridge or switch does not forward IGMP Report packets on non router ports. =item (0x20) - The bridge or switch does not forward IGMP Report packets on
non router ports.
=item (0x10) - Sends and receives packets for at least one network layer protocol. If the device is routing the protocol, this bit should not be set. =item (0x10) - Sends and receives packets for at least one network layer
protocol. If the device is routing the protocol, this bit should not be set.
=item (0x08) - Performs level 2 switching. The difference between this bit and bit 0x02 is that a switch does not run the Spanning-Tree Protocol. This device is assumed to be deployed in a physical loop-free topology. =item (0x08) - Performs level 2 switching. The difference between this bit
and bit 0x02 is that a switch does not run the Spanning-Tree Protocol. This
device is assumed to be deployed in a physical loop-free topology.
=item (0x04) - Performs level 2 source-route bridging. A source-route bridge would set both this bit and bit 0x02. =item (0x04) - Performs level 2 source-route bridging. A source-route bridge
would set both this bit and bit 0x02.
=item (0x02) - Performs level 2 transparent bridging. =item (0x02) - Performs level 2 transparent bridging.
=item (0x01) - Performs level 3 routing for at least one network layer protocol. =item (0x01) - Performs level 3 routing for at least one network layer
protocol.
=back =back
@@ -344,11 +335,11 @@ Returns remote device id string
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 around, Note that a lot devices don't implement $cdp->c_index(), So if it isn't
we fake it. around, we fake it.
In order to map the cdp table entry back to the interfaces() entry, we truncate In order to map the cdp table entry back to the interfaces() entry, we
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 $c_index = $device->c_index();
@@ -422,6 +413,23 @@ Returns the remote interface native VLAN.
(C<cdpCacheNativeVLAN>) (C<cdpCacheNativeVLAN>)
=item $cdp->c_power()
Returns the amount of power consumed by remote device in milliwatts munged
for decimal placement.
(C<cdpCachePowerConsumption>)
=back
=head1 Data Munging Callback Subroutines
=over
=item munge_power()
Inserts a decimal at the proper location.
=back =back
=cut =cut