SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Sun Feb  7 02:35:56 2010
New Revision: 11131

Modified:
   toys/stbr/stbr.tcl
Log:
- don't block too early


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Sun Feb  7 02:35:56 2010
@@ -322,7 +322,6 @@
 	putserv "privmsg $chan :$nick: $usage"; return 0
 }
 if {([string length $third]<2)} {putserv "privmsg $chan :$nick: $usage"; return 0}
-if {$cntr<1} {incr cntr} {utimer 30 "set cntr 0"; putserv "privmsg $chan :$nick: I reached my STBR time limit (30sec). Please try later."; return 0}
 if {([string match noupgrade $second])} {set second "test-build"}
 foreach spec $specs {
 if {([string match */* $spec])} {
@@ -401,6 +400,7 @@
 if {($towho == 0)} {putserv "privmsg $chan :$nick: There is no such spec ($spec) on branch $branch in PLD's repository."; return 0}
 set isbanned [banned_spec $spec]
 if {($isbanned == 0)} {putserv "privmsg $chan :$nick: $spec is banned from being STBRed."; return 0}
+if {$cntr<1} {incr cntr} {utimer 30 "set cntr 0"; putserv "privmsg $chan :$nick: I reached my STBR time limit (30sec). Please try later."; return 0}
 if {($bconds_with == "") && ($bconds_without == "") && ($defines == "")} {
 lappend rspecs $spec; append rspecs ":$branch (to $towho)"
 lappend tspecs $spec; append tspecs ":$branch"