SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Fri Oct 30 23:09:54 2009
New Revision: 10898

Modified:
   toys/stbr/stbr.tcl
Log:
- put status to file, fixes ac issue


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Fri Oct 30 23:09:54 2009
@@ -38,12 +38,14 @@
 
 proc putqueue {ver} {
 	global queueparser
-	exec $queueparser $ver > queue.txt
-	set qfile [open queue.txt r]
-	while {[gets $qfile l] >= 0} {
+	exec $queueparser $ver > ${ver}.stat
+	set file [open ${ver}.stat r]
+	gets $file parsed	
+	set lines [split $parsed "\n"]
+	foreach l $lines {
 		putserv "privmsg #pld :$l"
-		putlog "Thrown stats to #pld: $ver: $l"
 	}
+	putlog "Thrown stats to #pld: $ver: $parsed"
 }
 
 proc pub:buildstatus {nick host hand chan arg} {