From: hadaq <hadaq>
Date: Tue, 17 Jun 2003 13:51:27 +0000 (+0000)
Subject: removed tcl-bug, waiting for agents, Ingo
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=33339363abe5463d3076c48c3cbf03681bffd6cc;p=daqdata.git

removed tcl-bug, waiting for agents, Ingo
---

diff --git a/hadaq/cmds.tcl b/hadaq/cmds.tcl
index 1ed4c1d..780734d 100644
--- 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} {