SVN: toys/stbr/stbr.tcl
shadzik
shadzik at pld-linux.org
Thu Apr 30 20:58:32 CEST 2009
Author: shadzik
Date: Thu Apr 30 20:58:32 2009
New Revision: 10349
Modified:
toys/stbr/stbr.tcl
Log:
- fixed two ugly bugs
Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl (original)
+++ toys/stbr/stbr.tcl Thu Apr 30 20:58:32 2009
@@ -145,9 +145,9 @@
set developer [exec sqlite $logfile "select recipient from application where spec='$spec' and date='$date';"]
set email ""; append email $developer; append email "@pld-linux.org"
putcmdlog "Deleting entry for: $spec on $date. Sending mail to $developer"
- exec sqlite $logfile "DELETE FROM application where spec='$spec' and date='$date';"
- exec sqlite $logfile "DELETE FROM stbr where date='$date';"
- exec $cancellation $spec $email $hand
+ exec sqlite $logfile "DELETE FROM application where spec='$spec' and date='$date';" &
+ exec sqlite $logfile "DELETE FROM stbr where date='$date';" &
+ exec $cancellation $spec $email $hand &
putserv "privmsg $chan :$nick: Request deleted. Cancellation e-mail sent to $developer"
}
}
@@ -202,7 +202,7 @@
if {[utimer 5 "exec $makereq -d $dist -t $spec:$branch >/dev/null 2>&1"]==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','$second','$dist');"
} {
- if {[exec $script $dist $nick $second $pkg/$spec $branch $towho]==0} {putserv "privmsg $chan :$nick: An error occured. Couldn't send STBR Mail for $spec to $towho."; return 1}
+ if {[exec $script $dist $nick $second $pkg/$spec $branch $towho &]==0} {putserv "privmsg $chan :$nick: An error occured. Couldn't send STBR Mail for $spec to $towho."; return 1}
exec sqlite $logfile "INSERT INTO application VALUES('$date','$spec','$branch','$towho','$second','$dist');"
}
}
More information about the pld-cvs-commit
mailing list