SVN: toys/stbr/stbr.tcl

[shadzik]

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."