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

[ 1670413 ] CDP.pm -- power drawn support (Justin Hunter)

Browse Source
This commit is contained in:
Eric Miller
2007-04-03 02:53:52 +00:00
parent 9d37614f66
commit bb9e6f5101
1 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Info/CDP.pm
View File

@@ -67,7 +67,8 @@ use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/;
'c_capabilities' => 'cdpCacheCapabilities',
'c_domain' => 'cdpCacheVTPMgmtDomain',
'c_vlan' => 'cdpCacheNativeVLAN',
'c_duplex' => 'cdpCacheDuplex'
'c_duplex' => 'cdpCacheDuplex',
'c_power' => 'cdpCachePowerConsumption',
);
%MUNGE = (
@@ -77,7 +78,9 @@ use vars qw/$VERSION $DEBUG %FUNCS %GLOBALS %MIBS %MUNGE $INIT/;
'c_port' => \&munge_null,
'c_id' => \&munge_null,
'c_ver' => \&munge_null,
'c_ip' => \&SNMP::Info::munge_ip
'c_ip' => \&SNMP::Info::munge_ip,
'c_power' => \&munge_power,
);
# munge_null() - removes nulls (\0)
@@ -94,9 +97,15 @@ sub munge_caps {
my $bits = substr(unpack("B*",$caps),-7);
return $bits;
}
sub munge_power {
my $power = shift;
my $decimal = substr($power, -3);
$power =~ s/$decimal$/\.$decimal/;
return $power;
}
sub hasCDP {
my $cdp = shift;