From mboxrd@z Thu Jan  1 00:00:00 1970
From: Ian Jackson <ian.jackson@eu.citrix.com>
Subject: [OSSTEST PATCH 22/33] cs-adjust-flight: Provide
	`jobs-list' operation
Date: Thu, 17 Sep 2015 18:37:49 +0100
Message-ID: <1442511480-32587-23-git-send-email-ian.jackson@eu.citrix.com>
References: <1442511480-32587-1-git-send-email-ian.jackson@eu.citrix.com>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7bit
Return-path: <xen-devel-bounces@lists.xen.org>
Received: from mail6.bemta3.messagelabs.com ([195.245.230.39])
	by lists.xen.org with esmtp (Exim 4.72)
	(envelope-from <prvs=695a74e14=Ian.Jackson@citrix.com>)
	id 1Zcd8U-0006U8-3M
	for xen-devel@lists.xenproject.org; Thu, 17 Sep 2015 17:38:18 +0000
In-Reply-To: <1442511480-32587-1-git-send-email-ian.jackson@eu.citrix.com>
List-Unsubscribe: <http://lists.xen.org/cgi-bin/mailman/options/xen-devel>,
	<mailto:xen-devel-request@lists.xen.org?subject=unsubscribe>
List-Post: <mailto:xen-devel@lists.xen.org>
List-Help: <mailto:xen-devel-request@lists.xen.org?subject=help>
List-Subscribe: <http://lists.xen.org/cgi-bin/mailman/listinfo/xen-devel>,
	<mailto:xen-devel-request@lists.xen.org?subject=subscribe>
Sender: xen-devel-bounces@lists.xen.org
Errors-To: xen-devel-bounces@lists.xen.org
To: xen-devel@lists.xenproject.org
Cc: Ian Jackson <Ian.Jackson@eu.citrix.com>, Ian Campbell <ian.campbell@citrix.com>
List-Id: xen-devel@lists.xenproject.org

This makes no change to the target flight.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
---
v2: New patch
---
 cs-adjust-flight |   11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/cs-adjust-flight b/cs-adjust-flight
index 9e011c6..136ba5b 100755
--- a/cs-adjust-flight
+++ b/cs-adjust-flight
@@ -8,6 +8,7 @@
 # <change>:
 #   copy <flight>
 #   copy-jobs <flight> <job-spec>
+#   jobs-list <job-spec>
 #   runvar-set <job-spec> <var-spec> <value>
 #   runvar-del <job-spec> <var-spec>
 #   runvar-change <job-spec> <var-spec> <old-value> <new-value>
@@ -167,6 +168,16 @@ sub change__copy {
     copy_jobs($srcflight, '/.');
 }
 
+sub change__jobs_list {
+    die unless @changes >= 1;
+    my $jobspec = shift @changes;
+    for_jobs($dstflight, $jobspec, sub {
+	my ($job) = @_;
+	print $job, "\n" or die $!;
+	1;
+	     });
+}
+
 sub change__copy_jobs {
     die unless @changes >= 2;
     my $srcflight = shift @changes;
-- 
1.7.10.4