Performance improvement by join with nov01 -- mm

diff --git a/hadaq/hadaq_init.tcl b/hadaq/hadaq_init.tcl
index f8d3acfbef9d9ae2d33b2a173ae82e60ae070168..78b6332b5616bb33a2a928fadee0ce78db8032b7 100644 (file)
--- a/hadaq/hadaq_init.tcl
+++ b/hadaq/hadaq_init.tcl
@@ -16,16 +16,8 @@ foreach i [agent cat] {
        }
 
        if {[lindex $argv 0] == "stop" || [lindex $argv 0] == "restart"} {
-               set f [open "|rsh $host -l $user \"$psCmd\"" r]
-               while {[gets $f line] >= 0} {
-                       set cmd [lindex $line 1]
-                       if {![string match {*_manage} $cmd] && [string match {daq_*} $cmd] || [string match {./daq_*} $cmd]} {
-                               puts $line
-                               set pid [lindex $line 0]
-                               catch {eval exec "rsh $host -l $user sh -c {'kill $pid'}"}
-                       }
-               }
-               close $f
+               set cmd "kill `$psCmd | awk '\$2 ~ /daq_/ { print \$1 }'`"
+               catch {exec rsh $host -l $user "$cmd"}
        }
 
        if {[lindex $argv 0] == "start" || [lindex $argv 0] == "restart"} {