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} { _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
