From 7ad7d1e33890d462a2762b1877eefb181ae0c4e7 Mon Sep 17 00:00:00 2001
From: Bill Fenner <>
Date: Thu, 15 Feb 2007 23:11:43 +0000
Subject: [PATCH] Add -n for no bulkwalk. Allow -x to be specified multiple
 times to go with Info.pm's new  Debug=2 output.

---
 t/test_class.pl | 40 +++++++++++++++++++++++++---------------
 1 file changed, 25 insertions(+), 15 deletions(-)

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