SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Tue Nov 27 14:52:37 2007
New Revision: 9105

Modified:
   toys/stbr/stbr.tcl
Log:
- by a test-build request wait 5 seconds before sending it to builders (works around the issue when the queue status on page was still "not filled" although it was filled)


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Tue Nov 27 14:52:37 2007
@@ -8,7 +8,7 @@
 set cntr 0
 set cvsroot ":pserver:cvs at cvs.pld-linux.org:/cvsroot"
 set usage "Usage: !stbr \[help\] \[url\] \[no\]upgrade spec1\[:BRANCH\] spec2\[:BRANCH\] ..."
-set nickpass ""
+set nickpass "stbr-bot"
 
 bind notc - "*This nick is owned by someone else*" identify
 bind dcc n identify man_identify 
@@ -88,7 +88,7 @@
 lappend rspecs $spec; append rspecs ":$branch (to $towho)"
 lappend tspecs $spec; append tspecs ":$branch"
 if {([string match test-build $first])} {
-	if {[exec $makereq -t $spec:$branch]==0} {putserv "privmsg $chan :$nick: An error occured. Couldn't send test-build request for $spec to builders."; return 1}
+	if {[utimer 5 "exec $makereq -t $spec:$branch"]==0} {putserv "privmsg $chan :$nick: An error occured. Couldn't send test-build request for $spec to builders."; return 1}
 	exec sqlite $logfile "INSERT INTO application VALUES('$date','$spec','$branch','stbr','$first');"
 } {
 	if {[exec $file $nick $first $spec $branch $towho]==0} {putserv "privmsg $chan :$nick: An error occured. Couldn't send STBR Mail for $spec to $towho."; return 1}