Added BULKWALK patch from b.baetz
This commit is contained in:
@@ -3,6 +3,8 @@ ChangeLog $Id$
|
|||||||
|
|
||||||
verison 0.9 ()
|
verison 0.9 ()
|
||||||
+ Added i_lastchange() per suggestion of Nicolai Petri
|
+ Added i_lastchange() per suggestion of Nicolai Petri
|
||||||
|
+ Added BULKWALK patch by Bradley Baetz - This should
|
||||||
|
greatly speed up requests on SNMPv2c devices.
|
||||||
|
|
||||||
version 0.8 (03/21/04)
|
version 0.8 (03/21/04)
|
||||||
+ Added Q-BRIDGE-MIB support to SNMP::Info::Bridge
|
+ Added Q-BRIDGE-MIB support to SNMP::Info::Bridge
|
||||||
|
|||||||
16
Info.pm
16
Info.pm
@@ -2091,10 +2091,24 @@ sub _load_attr {
|
|||||||
}
|
}
|
||||||
my $localstore = undef;
|
my $localstore = undef;
|
||||||
|
|
||||||
|
# Use BULKWALK if we can because its faster
|
||||||
|
my $vars;
|
||||||
|
if ($ver != 1 && !$errornum) {
|
||||||
|
($vars) = $sess->bulkwalk(0, 20, $var);
|
||||||
|
$errornum = $sess->{ErrorNum};
|
||||||
|
}
|
||||||
|
|
||||||
while (! $errornum ){
|
while (! $errornum ){
|
||||||
|
# SNMP v1 use GETNEXT instead of BULKWALK
|
||||||
|
if ($ver == 1) {
|
||||||
$sess->getnext($var);
|
$sess->getnext($var);
|
||||||
$errornum = $sess->{ErrorNum};
|
$errornum = $sess->{ErrorNum};
|
||||||
#print "$var->[0] $var->[1] $var->[2] $var->[3]\n";
|
} else {
|
||||||
|
$var = shift @$vars;
|
||||||
|
last unless $var;
|
||||||
|
}
|
||||||
|
|
||||||
|
# Check if we've left the requested subtree
|
||||||
last if $var->[0] ne $leaf;
|
last if $var->[0] ne $leaf;
|
||||||
my $iid = $var->[1];
|
my $iid = $var->[1];
|
||||||
my $val = $var->[2];
|
my $val = $var->[2];
|
||||||
|
|||||||
Reference in New Issue
Block a user