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

Add -n for no bulkwalk.

Browse Source 
Allow -x to be specified multiple times to go with Info.pm's new
 Debug=2 output.
This commit is contained in:
Bill Fenner
2007-02-15 23:11:43 +00:00
parent 1b0c212a95
commit 7ad7d1e338
1 changed files with 25 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
t/test_class.pl
View File

@@ -13,7 +13,7 @@ use lib '/usr/local/netdisco';
use SNMP::Info; use SNMP::Info;
use Getopt::Long; use Getopt::Long;
use strict; use strict;
use vars qw/$Class $Dev $Comm $Ver @Dump %Dumped $Debug/; use vars qw/$Class $Dev $Comm $Ver @Dump %Dumped $Debug %args $NoBulk/;
# Default Values # Default Values
$Class = ''; $Class = '';
@@ -22,14 +22,16 @@ $Comm = '';
$Ver = 2; $Ver = 2;
@Dump = (); @Dump = ();
$Debug = 0; $Debug = 0;
$NoBulk = 0;
GetOptions ('c|class=s' => \$Class, GetOptions ('c|class=s' => \$Class,
'd|dev=s' => \$Dev, 'd|dev=s' => \$Dev,
's|comm=s' => \$Comm, 's|comm=s' => \$Comm,
'v|ver=i' => \$Ver, 'v|ver=i' => \$Ver,
'h|help' => \&usage, 'h|help' => \&usage,
'p|print=s' => \@Dump, 'p|print=s' => \@Dump,
'x|debug' => \$Debug, 'x|debug+' => \$Debug,
'n|nobulk' => \$NoBulk,
); );
&usage unless ($Dev and $Comm); &usage unless ($Dev and $Comm);
@@ -44,12 +46,18 @@ print "Class $Class loaded.\n";
print "Dumping : ",join(',',@Dump),"\n" if scalar @Dump; print "Dumping : ",join(',',@Dump),"\n" if scalar @Dump;
%args = ();
if ($NoBulk) {
$args{BulkWalk} = 0;
}
my $dev = new $Class( 'AutoSpecify' => 0, my $dev = new $Class( 'AutoSpecify' => 0,
'AutoVerBack' => 0, 'AutoVerBack' => 0,
'Version' => $Ver, 'Version' => $Ver,
'Debug' => $Debug, 'Debug' => $Debug,
'DestHost' => $Dev, 'DestHost' => $Dev,
'Community' => $Comm 'Community' => $Comm,
%args
) or die "\n"; ) or die "\n";
print "Connected to $Dev.\n"; print "Connected to $Dev.\n";
@@ -166,12 +174,14 @@ sub usage {
print << "end_usage"; print << "end_usage";
test_class - Test a device against an SNMP::Info class test_class - Test a device against an SNMP::Info class
-c --class Layer2::Catalyst -c --class Layer2::Catalyst
-d --dev myswitch -d --dev myswitch
-s --comm public -s --comm public
-v --ver 2 -v --ver 2
-p --print i_blah -p --print i_blah
-p --print i_blah2 -p --print i_blah2
-x --debug debugging flag
-n --nobulk disable bulkwalk
end_usage end_usage
exit; exit;