Commit 581c0389 authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

If the user does not specify a sync server, do it for them by picking

the first node in the list. Useful for the linktest stuff, and the
sync server is harmless.
parent c0c6547c
......@@ -261,6 +261,8 @@ Simulator instproc run {} {
}
}
# Default sync server.
set default_sync_server {}
# Mark that a run statement exists
set ran 1
......@@ -311,7 +313,12 @@ Simulator instproc run {} {
# Update the DB
foreach node [lsort [array names node_list]] {
$node updatedb "sql"
if { $default_sync_server == {} } {
set default_sync_server $node
}
}
foreach lan [concat [array names lanlink_list]] {
$lan updatedb "sql"
}
......@@ -333,6 +340,9 @@ Simulator instproc run {} {
if { $sync_server != {} } {
lappend fields "sync_server"
lappend values $sync_server
} elseif { $default_sync_server != {} } {
lappend fields "sync_server"
lappend values $default_sync_server
}
$self spitxml_data "experiments" $fields $values
......
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