Commit ded8d816 authored by Leigh Stoller's avatar Leigh Stoller

Minor change to previous revision.

parent 9a23a669
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment