Author: shadzik
Date: Sun May 13 07:23:29 2007
New Revision: 8516
Modified:
toys/stbr/stbr.tcl
Log:
- fix time limit, now works properly
Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl (original)
+++ toys/stbr/stbr.tcl Sun May 13 07:23:29 2007
@@ -30,6 +30,8 @@
set log [clock format $time -format "%d.%m.%Y %H:%M"]; lappend log "$nick
requested build for $rspecs to $first"; append log " ";
puts $lfile $log
close $lfile
-putserv "privmsg $chan :$nick: Sent STBR Mail to $first for $rspecs."; return
1}
+putserv "privmsg $chan :$nick: Sent STBR Mail to $first for $rspecs."
+if {$cntr<1} {incr cntr} {utimer 30 "set cntr 0"; return 1}
+}
putlog "Send To Builder Request TCL v0.2 by shadzik loaded."
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
