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

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

diff --git a/cs-adjust-flight b/cs-adjust-flight
index 9030e92c9fd326d69d39c3e2b8bc03990bb7cbfa..834e2c87f31f56dc51b411cbad2e3b81607365a0 100755 (executable)
--- a/cs-adjust-flight
+++ b/cs-adjust-flight
@@ -9,6 +9,7 @@
 #   copy <flight>
 #   copy-jobs <flight> <job-spec>
 #   jobs-list <job-spec>
+#   jobs-del <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>
@@ -187,6 +188,13 @@ sub change__jobs_list {
             });
 }
 
+sub change__jobs_del {
+    die unless @changes >= 1;
+    my $jobspec = shift @changes;
+    prep_rm_jobs();
+    for_jobs($dstflight, $jobspec, \&do_rm_job, 1);
+}
+
 sub change__copy_jobs {
     die unless @changes >= 2;
     my $srcflight = shift @changes;