cs-adjust-flight: Allow adjusting play flights after start

Specifically, rather than simply bombing out, if the flight already
has steps, we call dbfl_check again with an empty list of OK
blessings.  dbfl_check will then bomb out, unless the flight's
blessing or intended blessing is `play'.  If it doesn't bomb out, we
print a message.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>

diff --git a/cs-adjust-flight b/cs-adjust-flight
index afb81cbebeacacc1eefd4b3aab10a934f187a4d7..4f036f409030fd4aab475fe2be33ceced1276143 100755 (executable)
--- a/cs-adjust-flight
+++ b/cs-adjust-flight
@@ -465,7 +465,11 @@ sub changes () {
            $dbh_tests->prepare("SELECT * FROM steps WHERE flight = ?");
        $steps_q->execute($dstflight);
        my $step = $steps_q->fetchrow_hashref();
-       die "$dstflight already has steps\n".Dumper($step) if $step;
+       if ($step) {
+           warn "$dstflight already has steps\n".Dumper($step) if $step;
+           $mjobdb->dbfl_check($dstflight,[]);
+           print STDERR "changing flight $dstflight anyway\n";
+       }
     }
 
     @changes = @org_changes;