SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Sat Oct 31 04:13:31 2009
New Revision: 10908

Modified:
   toys/stbr/stbr.tcl
Log:
- some cosmetics on party line messages


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Sat Oct 31 04:13:31 2009
@@ -16,6 +16,7 @@
 set maintenance "./scripts/maintenance.txt"
 set bannedspec "./scripts/bannedspec.txt"
 set queueparser "./scripts/queue_parser.pl"
+set queuechan "#pld"
 
 bind notc - "*This nickname is owned by someone else*" identify
 bind dcc n identify man_identify 
@@ -39,22 +40,22 @@
 }
 
 proc putqueue {ver} {
-	global queueparser
+	global queueparser queuechan
 	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"
+		putserv "privmsg $queuechan :$l"
+		putlog "STBR: Found status: $ver: $l"
 	}
 	close $qfile
 }
 
 proc pub:buildstatus {nick host hand chan arg} {
+	putlog "STBR: Searching for status..."
 	putqueue ac
 	putqueue ti
 	putqueue th
 	putqueue aidath
-	putlog "Searched for status"
 }
 
 proc help {nick} {