Author: shadzik
Date: Tue Oct 13 13:40:50 2009
New Revision: 10773
Modified:
toys/stbr/stbr.tcl
Log:
- don't show options when there's nothing to show
Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl (original)
+++ toys/stbr/stbr.tcl Tue Oct 13 13:40:50 2009
@@ -277,8 +277,13 @@
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 {($bconds_with == "") && ($bconds_without == "") && ($defines == "")} {
+lappend rspecs $spec; append rspecs ":$branch (to $towho)"
+lappend tspecs $spec; append tspecs ":$branch"
+} else {
lappend rspecs $spec; append rspecs ":$branch (to $towho, options:
$bconds_with $bconds_without $defines)"
lappend tspecs $spec; append tspecs ":$branch (options: $bconds_with
$bconds_without $defines)"
+}
if {([string match test-build $second])} {
if {[utimer 5 "exec $makereq -d $dist -t $bconds_with $bconds_without
$defines $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');"
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
