From: Ian Jackson <iwj@woking.uk.xensource.com>
Date: Fri, 25 Mar 2011 17:04:14 +0000 (+0000)
Subject: ts-xen-build-check: reimplementation which does not depend on knowing what *buildjob... 
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=5edec3222ff14b8200d5b41ed9af3c8d04c27314;p=osstest.git

ts-xen-build-check: reimplementation which does not depend on knowing what *buildjob we might want; leave code for old implementation in ts-xen-install for now to avoid conflicts, but should be deleted later
---

diff --git a/ts-xen-build-check b/ts-xen-build-check
index 4bc4b76..97a10f9 100755
--- 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;