SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Fri Oct 30 15:29:15 2009
New Revision: 10889

Modified:
   toys/stbr/stbr.tcl
Log:
- fix/workaround ac crapyness


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Fri Oct 30 15:29:15 2009
@@ -36,7 +36,9 @@
 
 proc pub:buildstatus {nick host hand chan arg} {
 	global queueparser
-	set acstat [exec $queueparser ac]
+	exec $queueparser ac > ac.stat
+	set file [open ac.stat r]
+	gets $file acstat
 	set tistat [exec $queueparser ti]
 	set thstat [exec $queueparser th]
 	putserv "privmsg #pld :$acstat"