Minor change to previous revision.

ded8d816 · Leigh B. Stoller · 9a23a669 · ded8d816
Commit ded8d816 authored Jun 05, 2009 by Leigh B. Stoller
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 4 deletions

tbsetup/snmpit.proxynew.in tbsetup/snmpit.proxynew.in +5 -4

No files found.
--- a/tbsetup/snmpit.proxynew.in
+++ b/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