confirm what will be done

1 files changed, 11 insertions, 1 deletions

diff --git a/bin/buildssrht-preupload b/bin/buildssrht-preupload
index 075af545..e974dae6 100755
--- a/bin/buildssrht-preupload
+++ b/bin/buildssrht-preupload
@@ -27,8 +27,10 @@ use API::GitForge qw(forge_access_token);
 use Getopt::Long;
 use Git::Wrapper;
 use Cwd;
+use Term::UI;
 
-my $git = Git::Wrapper->new(getcwd);
+my $term = Term::ReadLine->new("brand");
+my $git  = Git::Wrapper->new(getcwd);
 
 my $user = "~spwhitton";    # TODO could fetch from API
 my $dist = "unstable";
@@ -61,6 +63,14 @@ my ($commit) = $git->rev_parse({ verify => 1 }, "HEAD");
 $git->for_each_ref({ contains => $branch }, "refs/remotes/$remote")
   or die "remote $remote doesn't appear to have a copy of your HEAD";
 
+exit
+  unless $term->ask_yn(
+    prompt =>
+"will run the build for $branch cloning from $remote with note \"$note\", "
+      . "dist $dist, with --quilt=$quilt",
+    default => "y"
+  );
+
 my $schroot = "$dist-amd64-sbuild";
 my $changes = "${source}_${version}_multi.changes";