Commit 2e837c31 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Minor bug fix.

parent 6971916b
...@@ -1486,6 +1486,8 @@ sub GetTicketAuxAux($$$$$$$$$) ...@@ -1486,6 +1486,8 @@ sub GetTicketAuxAux($$$$$$$$$)
my $ifacenum = 1; my $ifacenum = 1;
my $vindex = 0; my $vindex = 0;
my $trivial_ok = 1; my $trivial_ok = 1;
# Avoid multiple insertions for this setting.
my $sharedvlansetting = 0;
if (!defined($lanname)) { if (!defined($lanname)) {
$response = GeniResponse->Create(GENIRESPONSE_BADARGS, undef, $response = GeniResponse->Create(GENIRESPONSE_BADARGS, undef,
...@@ -1839,7 +1841,7 @@ sub GetTicketAuxAux($$$$$$$$$) ...@@ -1839,7 +1841,7 @@ sub GetTicketAuxAux($$$$$$$$$)
# Watch for shared lans; we have to add the lan entries for them. # Watch for shared lans; we have to add the lan entries for them.
my $shared_vlan = GeniXML::GetSharedLanName($linkref); my $shared_vlan = GeniXML::GetSharedLanName($linkref);
if (defined($shared_vlan)) { if (defined($shared_vlan) && !$sharedvlansetting) {
# This is the magic for libvtop. # This is the magic for libvtop.
$virtexperiment->NewTableRow("virt_lan_settings", $virtexperiment->NewTableRow("virt_lan_settings",
{"vname" => $lanname, {"vname" => $lanname,
...@@ -1850,6 +1852,7 @@ sub GetTicketAuxAux($$$$$$$$$) ...@@ -1850,6 +1852,7 @@ sub GetTicketAuxAux($$$$$$$$$)
$bandwidth = 0; $bandwidth = 0;
$latency = 0.0; $latency = 0.0;
$lossrate = 0.0; $lossrate = 0.0;
$sharedvlansetting = 1;
} }
stitch: stitch:
......
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