Commit 6247a153 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Add some debugging.

parent b5ba4d46
#!/usr/bin/perl -w
#
# Copyright (c) 2000-2013 University of Utah and the Flux Group.
# Copyright (c) 2000-2015 University of Utah and the Flux Group.
#
# {{{EMULAB-LGPL
#
......@@ -55,7 +55,7 @@ use Exporter;
convertPortFromString convertPortsFromStrings
mapVlansToSwitches mapStaleVlansToSwitches
getTrunksForVlan getExperimentTrunksForVlan
setSwitchTrunkPath mapPortsToSwitches
setSwitchTrunkPath mapPortsToSwitches findAndDumpLan
);
use English;
......@@ -69,6 +69,7 @@ use strict;
use SNMP;
use Port;
use Carp qw(cluck);
use Data::Dumper;
my $TBOPS = libtestbed::TB_OPSEMAIL;
......@@ -2014,6 +2015,16 @@ sub uniq_ports(@) {
return @pts;
}
sub findAndDumpLan($)
{
my ($lan_id) = @_;
my $lan = Lan->Lookup($lan_id);
return
if (!defined($lan));
print STDERR Dumper($lan->{'LAN'}) . "\n";
}
# End with true
1;
......
#!/usr/bin/perl -w
#
# Copyright (c) 2000-2013 University of Utah and the Flux Group.
# Copyright (c) 2000-2015 University of Utah and the Flux Group.
# Copyright (c) 2004-2009 Regents, University of California.
#
# {{{EMULAB-LGPL
......@@ -487,6 +487,9 @@ sub newVlanNumber($$$) {
"*** desired vlan tag $number for vlan $vlan_id already in " .
"use" . ($vlan_using_tag ? " by vlan $vlan_using_tag" : "") .
"\n";
if ($vlan_using_tag) {
snmpit_lib::findAndDumpLan($vlan_using_tag);
}
# Indicates no tag assigned.
return 0;
}
......
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