SVN: toys/stbr/stbr.tcl
sparky
sparky at pld-linux.org
Fri Oct 30 23:15:07 CET 2009
Author: sparky
Date: Fri Oct 30 23:15:07 2009
New Revision: 10899
Modified:
toys/stbr/stbr.tcl
Log:
- reverted shadzik's change
Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl (original)
+++ toys/stbr/stbr.tcl Fri Oct 30 23:15:07 2009
@@ -38,14 +38,12 @@
proc putqueue {ver} {
global queueparser
- exec $queueparser $ver > ${ver}.stat
- set file [open ${ver}.stat r]
- gets $file parsed
- set lines [split $parsed "\n"]
- foreach l $lines {
+ exec $queueparser $ver > queue.txt
+ set qfile [open queue.txt r]
+ while {[gets $qfile l] >= 0} {
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} {
More information about the pld-cvs-commit
mailing list