From 5edec3222ff14b8200d5b41ed9af3c8d04c27314 Mon Sep 17 00:00:00 2001
From: Ian Jackson <iwj@woking.uk.xensource.com>
Date: Fri, 25 Mar 2011 17:04:14 +0000
Subject: [PATCH] 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

---
 ts-xen-build-check | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

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;
-- 
2.39.5