This makes no change to the target flight.
Signed-off-by: Ian Jackson <ian.jack...@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
_______________________________________________
Xen-devel mailing list
Xen-devel@lists.xen.org
http://lists.xen.org/xen-devel
