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