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:[EMAIL PROTECTED]:/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}
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
