Active remote host selection.

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:

diff --git a/imunes.tcl b/imunes.tcl
index 92e698b57c6055c55861981791b15440a470da92..2023fa03d1881f8e2b7a6d6fe4b2c18bbd60b652 100755 (executable)
--- a/imunes.tcl
+++ b/imunes.tcl
@@ -167,9 +167,21 @@ set eid e0
 
 #         IP            port  monitor_port
 set exec_hosts [list \
-    [list 192.168.1.100 2547  2548] \
-    [list 10.0.0.1      1234  5678] \
-    [list 10.10.10.10   9876  5432] ]
+    [list 192.168.1.100 2547  2548 false ] \
+    [list 10.0.0.1      1234  5678 false ] \
+    [list 127.0.0.1     2547  2548 true ] \
+    [list 10.10.10.10   9876  5432 false ] ]
+
+########
+#
+# active hosts should be automatically determined
+# but we read it from exec_hosts list
+#
+####
+set n [llength $exec_hosts]
+for { set i 0 } { $i <= $n } { incr i } {
+    set active_host($i) [lindex [lindex $exec_hosts $i] 3]
+}
 
 #****v* imunes.tcl/editor_only
 # NAME