Minor change to previous revision.

tbsetup/snmpit.proxynew.in

@@ -20,6 +20,7 @@ sub usage()
 }
 my $optlist  = "dnp:e:";
 my $debug    = 1;
+my $dlevel   = 1;
 my $impotent = 0;
 my $exitval  = 0;
 my $output;
@@ -476,7 +477,7 @@ sub SetupVlans($)
     }
     # Not doing stacks yet.
     my $stackopt = "";
-    my $debugopt = ($debug ? "-v" : "");
+    my $debugopt = ($debug ? "-v $dlevel" : "");
     
     # Now call snmpit to create the actual vlans.
     if ($debug) {
@@ -610,7 +611,7 @@ sub DestroyVlans($)
 	my $stack    = $vlan->GetStack();
 	# Not doing stacks yet;
 	my $stackopt = "";
-	my $debugopt = ($debug ? "-v" : "");
+	my $debugopt = ($debug ? "-v $dlevel" : "");
 
 	if ($debug) {
 	    print STDERR "Running 'snmpit $stackopt -r $pid $eid $outer_id'\n";
@@ -725,7 +726,7 @@ sub Trunk($)
 	    fatal("Trunk: Improper stack argument: $stack");
 	}
     }
-    my $debugopt = ($debug ? "-v" : "");
+    my $debugopt = ($debug ? "-v $dlevel" : "");
 
     $port =~ /^(.+):(.+)/;
     my ($node, $card) = ($1,$2);
@@ -833,7 +834,7 @@ sub PortControl($)
 
     # Not doing stacks yet;
     my $stack    = "Experimental";
-    my $debugopt = ($debug ? "-v" : "");
+    my $debugopt = ($debug ? "-v $dlevel" : "");
 
     #
     # Check the ports. Must be valid format and belong to node reserved