From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Thu, 17 Sep 2015 12:39:52 +0000 (+0100)
Subject: cs-adjust-flight: Provide `jobs-list' operation
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=8452dde5169015fcfac1c81b0fd40a6815d99207;p=people%2Fiwj%2Fosstest.git

cs-adjust-flight: Provide `jobs-list' operation

This makes no change to the target flight.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
Acked-by: Ian Campbell <ian.campbell@citrix.com>
---
v2: New patch
---

diff --git a/cs-adjust-flight b/cs-adjust-flight
index 662b8e9d..bc66fc98 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>
@@ -168,6 +169,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;