Author: sparky
Date: Fri Oct 30 23:17:00 2009
New Revision: 10900
Modified:
toys/stbr/stbr.tcl
Log:
- use separate intermediate files
Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl (original)
+++ toys/stbr/stbr.tcl Fri Oct 30 23:17:00 2009
@@ -38,8 +38,8 @@
proc putqueue {ver} {
global queueparser
- exec $queueparser $ver > queue.txt
- set qfile [open queue.txt r]
+ exec $queueparser $ver > ${ver}.stat
+ set qfile [open ${ver}.stat r]
while {[gets $qfile l] >= 0} {
putserv "privmsg #pld :$l"
putlog "Thrown stats to #pld: $ver: $l"
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
