Author: shadzik
Date: Sun Feb 7 05:21:48 2010
New Revision: 11132
Modified:
toys/stbr/stbr.tcl
Log:
- set timer to 10s
Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl (original)
+++ toys/stbr/stbr.tcl Sun Feb 7 05:21:48 2010
@@ -400,7 +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 {$cntr<1} {incr cntr} {utimer 10 "set cntr 0"; putserv "privmsg $chan
:$nick: I reached my STBR time limit (10sec). 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"
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
