fixes from testing session

[trains.git] / hostside / eventrun.procs

diff --git a/hostside/eventrun.procs b/hostside/eventrun.procs
index 168a8569cf459fc95c4bb17262c4de4a2f5efb70..fa2739ad99ddbd736735e2d785cc83047ea36450 100644 (file)
--- a/hostside/eventrun.procs
+++ b/hostside/eventrun.procs
@@ -6,28 +6,30 @@ exec xsetroot -solid #00000f
 set trainscmd {
     set -x
     savelog -c 7 bessar.log
-#    (set -ex
+    (set -ex
     cd /u/ian/things/trains-bessar/hostside
     ./stopgap-controller | ./gui-displayer -
-#    ) 2>&1 | tee bessar.log
+    ) 2>&1 | tee >(tail -10000 >bessar.log)
 }
 
 proc trains_start {} {
     global trainsf trainscmd
     trains_stop
-    set cmdl [list sh -ec $trainscmd 2>@ stderr]
+    set cmdl [list bash -ec $trainscmd 2>@ stderr]
     set trainsf [open |$cmdl w]
     fconfigure $trainsf -buffering none -blocking no
 }
 
-proc tw {s} {
+proc tw {args} {
     global trainsf
     if {![info exists trainsf]} return
     if {[catch {
-       puts $trainsf $s
+       puts $trainsf $args
     } emsg]} {
        puts stderr "tw: $emsg"
        trains_stop
+    } else {
+       puts "tw: $args"
     }
 }