check if architecture exists for selected suite

diff --git a/bin/wanna-build b/bin/wanna-build
index 1fb5b901fab48469bb6b5759083d1b5f51a34579..477d5f4782871dce9cc6a3dd338968193096cc9d 100755 (executable)
--- a/bin/wanna-build
+++ b/bin/wanna-build
@@ -348,6 +348,10 @@ if (isin($op_mode, qw<forget-user merge-v3 import>) && defined @conf::admin_user
 }
 if (!isin($op_mode, qw<distribution-architectures distribution-aliases>)) {
     die "need an architecture" unless $arch;
 }
 if (!isin($op_mode, qw<distribution-architectures distribution-aliases>)) {
     die "need an architecture" unless $arch;

+    my $rows = $dbh->selectall_hashref('SELECT distribution as d from distribution_architectures where architecture=? and distribution=?', [qw<d>], undef, ($arch, $distribution)) if $distribution;
+    $rows = $dbh->selectall_hashref('SELECT distribution as d from distribution_architectures where architecture=?', [qw<d>], undef, ($arch,)) unless $rows;
+    die "architecture ($arch) does not exist (at least not for $distribution)" if !keys %$rows and $distribution;
+    die "architecture ($arch) does not exist" if !keys %$rows;

 }
 
        SWITCH: foreach ($op_mode) {
 }
 
        SWITCH: foreach ($op_mode) {