From 33339363abe5463d3076c48c3cbf03681bffd6cc Mon Sep 17 00:00:00 2001
From: hadaq <hadaq>
Date: Tue, 17 Jun 2003 13:51:27 +0000
Subject: [PATCH] removed tcl-bug, waiting for agents, Ingo

---
 hadaq/cmds.tcl | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

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} {
-- 
2.43.0