+sub policy_default {
+ my ($cmd, $conf, $repo, $status, $signal) = @_;
+ return NEXT unless $status;
+ return LAST;
+}
+
+sub policy_keep { NEXT }
+
+sub policy_interactive {
+ my ($cmd, $conf, $repo, $status, $signal) = @_;
+ return NEXT unless $status;
+ my %codes = (
+ 'a' => [ LAST, 'aborting' ],
+ 'i' => [ NEXT, 'ignoring' ],
+ 'I' => [ NEXT | SAVE, 'ignoring all' ],
+ 'r' => [ REDO, 'retrying' ],
+ );
+ my $int = { GetControlChars() }->{INTERRUPT};
+ while (1) {
+ print STDERR "[a]bort, [i]gnore, [I]gnore all, [r]etry, open [s]hell ?";
+ ReadMode(4);
+ my $key = ReadKey(0);
+ ReadMode(1);
+ print STDERR "\n";
+ next unless defined $key;
+ if ($key eq $int) {
+ print STDERR "Interrupted, aborting\n";
+ return LAST;
+ } elsif ($key eq 's') {
+ if (defined $shell) {
+ print STDERR 'Opening shell in ', $repo->work, "\n";
+ my $cwd = cwd;
+ $repo->chdir;
+ system { $shell } $shell;
+ chroot $cwd;
+ } else {
+ print STDERR "Couldn't find any shell\n";
+ }
+ } elsif (exists $codes{$key}) {
+ my $code = $codes{$key};
+ print STDERR 'Okay, ', $code->[1], "\n";
+ return $code->[0];
+ }
+ }
+}
+