ts-xen-build-check: reimplementation which does not depend on knowing what *buildjob...

diff --git a/ts-xen-build-check b/ts-xen-build-check
index 4bc4b76778fc743bf4b6d3de94d83733de10cbc2..97a10f9183bea4ac1d3eba003069b5e3e3aecf21 100755 (executable)
--- a/ts-xen-build-check
+++ b/ts-xen-build-check
@@ -1,2 +1,20 @@
-#!/bin/sh
-exec ./ts-xen-install --check "$@"
+#!/usr/bin/perl -w
+
+use Osstest;
+readconfig();
+
+die if @ARGV && $ARGV[0] =~ m/^-/;
+
+logm("checking builds ...");
+
+foreach my $k (sort keys %r) {
+    next unless $k =~ m/^(?:.*_)?([^_]+)buildjob$/;
+    my $part= $1;
+    my $path= "path_${part}dist";
+    logm("checking $k $path");
+    get_stashed($path, $r{$k});
+}
+
+logm("all ok.");
+
+exit 0;