builds: Create a function that generates a list of all manual builds

Change-Id: Ib7869f89c9ccec727bc9ed691cd1ee120c1ec7ae

2 files changed, 14 insertions, 3 deletions

diff --git a/tools/builds.pm b/tools/builds.pm
index a1b45733d8..e123f903e1 100644
--- a/tools/builds.pm
+++ b/tools/builds.pm
@@ -16,7 +16,7 @@ $releasenotes="/wiki/ReleaseNotes315";
 #    icon => 'modelname3',               # optional (uses modelname3's icon)
 #    voice => 'modelname4'               # optional (uses modelname4's voice)
 #    release => '3.14',                  # optional (final release version, if different from above)
-#    manualok => 1,                      # optional (builds manual even if target is not stable)
+#    manualok => 1,                      # optional (defaults 1 for status 3 and 0 for rest)
 # }
 
 %builds = (
@@ -512,7 +512,18 @@ sub usablebuilds {
     my @list;
 
     for my $b (sort byname keys %builds) {
-        push @list, $b if ($builds{$b}{status} >= 2 || defined($builds{$b}{manualok}));
+        push @list, $b if ($builds{$b}{status} >= 2);
+    }
+
+    return @list;
+}
+
+sub manualbuilds {
+    my @list;
+
+    for my $b (sort byname keys %builds) {
+        push @list, $b if (($builds{$b}{status} >= 2 && !defined($builds{$builds{$b}{manualok}})) ||
+			   (defined($builds{$builds{$b}{manualok}}) && ($builds{$builds{$b}{manualok}} > 0)));
     }
 
     return @list;
diff --git a/tools/release/manuals.pl b/tools/release/manuals.pl
index d85ed48ff2..3493aac86d 100755
--- a/tools/release/manuals.pl
+++ b/tools/release/manuals.pl
@@ -74,6 +74,6 @@ sub buildit {
 
 `mkdir -p $outdir`;
 
-for my $b (&usablebuilds) {
+for my $b (&manualbuilds) {
     runone($b);
 }