removed tcl-bug, waiting for agents, Ingo

diff --git a/hadaq/cmds.tcl b/hadaq/cmds.tcl
index 1ed4c1d0a6ae39259249e5cb457c513e6f8e136f..780734dbc2bf109337916f20b4e0688fffaccc46 100644 (file)
--- a/hadaq/cmds.tcl
+++ b/hadaq/cmds.tcl
@@ -56,10 +56,15 @@ proc chkAgent {agent} {
 proc connectAgent {agent} {
        global agents
 
-  chkAgent $agent
-       if {"$agents($agent.status)" == "up"} {
-               set agents($agent.addr) [eval c_agent connect $agents($agent.host)]
-       }
+    chkAgent $agent
+    if {"$agents($agent.status)" == "up"} {
+       set agents($agent.addr) [eval c_agent connect $agents($agent.host)]
+    } else {
+       #error "agent $agent not up"
+       while {"$agents($agent.status)" != "up"} {chkAgent $agent}
+       set agents($agent.addr) [eval c_agent connect $agents($agent.host)]
+    }
+       
 }
 
 proc disconnectAgent {agent} {