SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Mon May 14 18:06:07 2007
New Revision: 8525

Modified:
   toys/stbr/stbr.tcl
Log:
- do not count help message to time limit


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Mon May 14 18:06:07 2007
@@ -22,13 +22,13 @@
 proc pub:stbr {nick host hand chan arg} {
 global file back cntr logfile towho red green endc bold endb cvsurl endcvs enda
 putcmdlog "#$hand# Noticed Send To Build Request Mail command";
-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}
 set first [lindex $arg 0]
 set second [lindex $arg 1]
 set specs ""; append specs $second; append specs " "; append specs [lrange $arg 2 end]
 set rspecs ""
 set logspecs ""
 if {!([string match th-ready $first] || [string match th-test $first])} {putserv "privmsg $chan :$nick: Usage: !stbr th-{ready|test} spec1 spec2 ..."; 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 length $second]<2)} {putserv "privmsg $chan :$nick: Usage: !stbr th-{ready|test} spec1 spec2 ..."; return 0}
 foreach spec $specs {
 if {!([string match *.spec $spec])} { append spec ".spec"}