From a7d706f33c822d0719a4ed442e30f67fb7b61c1f Mon Sep 17 00:00:00 2001 From: miljenko Date: Thu, 8 Dec 2005 10:25:32 +0000 Subject: [PATCH] Active remote host selection. Bug found by: Submitted by: Requested by: Reviewed by: Approved by: Obtained from: --- imunes.tcl | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) diff --git a/imunes.tcl b/imunes.tcl index 92e698b..2023fa0 100755 --- 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 -- 2.39.5