SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Thu Oct 29 23:04:45 2009
New Revision: 10880

Modified:
   toys/stbr/stbr.tcl
Log:
- added sparky's queue_parser.pl to throw out status every minute


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Thu Oct 29 23:04:45 2009
@@ -15,6 +15,7 @@
 set cmdtxt "./scripts/cmd.txt"
 set maintenance "./scripts/maintenance.txt"
 set bannedspec "./scripts/bannedspec.txt"
+set queueparser "./scripts/queue_parser.pl"
 
 bind notc - "*This nickname is owned by someone else*" identify
 bind dcc n identify man_identify 
@@ -31,6 +32,17 @@
 	putlog "Sending Identify to NickServ"
 }
 
+bind time - "* * * * *" pub:buildstatus
+
+proc pub:buildstatus {nick host hand chan arg} {
+	global queueparser
+	set tistat [exec $queueparser ti]
+	set thstat [exec $queueparser th]
+	putserv "privmsg #pld :$tistat"
+	putserv "privmsg #pld :$thstat"
+	putlog "Thrown stats to #pld: $tistat $thstat"
+}
+
 proc help {nick} {
 	global usage
 	putserv "privmsg $nick :$usage"