SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Tue Nov 17 00:22:34 2009
New Revision: 10972

Modified:
   toys/stbr/stbr.tcl
Log:
- also activate checkunfilled just on 1 bot


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Tue Nov 17 00:22:34 2009
@@ -143,10 +143,13 @@
 random $reqbook
 }
 
-bind time - "00 * * * *" checkunfilled
+if {([string match $actconfig $config])} {
+	bind time - "00 * * * *" checkunfilled
+	putlog "STBR: Checkunfilled activated"
+}
 
 proc checkunfilled {nick host hand chan arg} {
-	global unfilled resend queuechan
+	global unfilled resend queuechan logfile
 	putcmdlog "STBR: Looking for unfilled specs..."
 	set time [clock seconds]
 	set unfilledreq [exec sqlite $unfilled "select * from unfilled order by date;"]