SVN: toys/stbr: queue_parser.pl stbr.tcl

[paszczus]

Author: paszczus
Date: Fri Oct 30 12:52:38 2009
New Revision: 10884

Modified:
   toys/stbr/queue_parser.pl
   toys/stbr/stbr.tcl
Log:
- show queuestatus also for Ac

Modified: toys/stbr/queue_parser.pl
==============================================================================
--- toys/stbr/queue_parser.pl	(original)
+++ toys/stbr/queue_parser.pl	Fri Oct 30 12:52:38 2009
@@ -16,6 +16,7 @@
 $line = ucfirst lc $line;
 
 my %queue_uri = (
+	Ac => 'http://ep09.pld-linux.org/~buildsrc/queue.gz',
 	Th => 'http://ep09.pld-linux.org/~builderth/queue.gz',
 	Ti => 'http://ep09.pld-linux.org/~builderti/queue.gz',
 );

Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Fri Oct 30 12:52:38 2009
@@ -36,11 +36,13 @@
 
 proc pub:buildstatus {nick host hand chan arg} {
 	global queueparser
+	set acstat [exec $queueparser ac]
 	set tistat [exec $queueparser ti]
 	set thstat [exec $queueparser th]
+	putserv "privmsg #pld :$acstat"
 	putserv "privmsg #pld :$tistat"
 	putserv "privmsg #pld :$thstat"
-	putlog "Thrown stats to #pld: $tistat $thstat"
+	putlog "Thrown stats to #pld: $acstat $tistat $thstat"
 }
 
 proc help {nick} {