SVN: toys/stbr/stbr.tcl

[shadzik]

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');"