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