From 25585c0bb8feed7706904974f0cbb26b87c8ce10 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Mon, 14 Jul 2008 23:26:18 +0000
Subject: [PATCH] turn lputs off by default

---
 hostside/multiplex | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/hostside/multiplex b/hostside/multiplex
index 9d9ac78..d5aaf12 100755
--- a/hostside/multiplex
+++ b/hostside/multiplex
@@ -86,6 +86,8 @@ proc nargs {l {n 0}} {
 proc cmderr {ecode emsg} { error $emsg "" [list TRAIN CMDERR $ecode] }
 
 proc lputs {m} {
+    global lputs
+    if {!$lputs} return
     if {[regexp \
  {^\<[<&] picioh (?:in msg|out) 8[89a-f]|^\<[<&] picio (?:in pong|out ping)} \
             $m]} \
@@ -582,7 +584,7 @@ proc realtime-failed {k m} {
     } else {
 	catch { close $realtime }
     }
-    puts "<<\$ $k : $m"
+    lputs "<<\$ $k : $m"
     catch { unset realtime }
     if {[catch {
 	set sef [open +realtime.stderr r]
@@ -816,10 +818,11 @@ proc binding {addr blist} {
 
 proc startup {} {
     global queueing executing testmode realtime port urandom serchan
-    global dev_railway libdir
+    global dev_railway libdir lputs
     catch { close $master }; catch { unset master }
 
     setting testmode 0 {[01]}
+    setting lputs 0 {[01]}
     parse-argv {}
     
     uplevel #0 source $libdir/multiplex-config
-- 
2.30.2