SBO::Lib::Util: add prompt() routine to handle prompting the user for input

1 files changed, 32 insertions, 0 deletions

diff --git a/SBO-Lib/lib/SBO/Lib/Util.pm b/SBO-Lib/lib/SBO/Lib/Util.pm
index 72cbe29..4139f0a 100644
--- a/SBO-Lib/lib/SBO/Lib/Util.pm
+++ b/SBO-Lib/lib/SBO/Lib/Util.pm
@@ -46,6 +46,7 @@ our @EXPORT_OK = (
     open_fh
     open_read
     print_failures
+    prompt
     script_error
     show_version
     slurp
@@ -341,6 +342,37 @@ sub print_failures {
   }
 }
 
+=head2 prompt
+
+  exit unless prompt "Should we continue?", default => "yes";
+
+C<prompt()> prompts the user for an answer, optinally specifying a default of
+C<yes> or C<no>. If the default has been specified it returns a true value in
+case 'yes' was selected, and a false value if 'no' was selected. Otherwise it
+returns whatever the user answered.
+
+=cut
+
+sub prompt {
+  my ($q, %opts) = @_;
+  my $def = $opts{default};
+  $q = sprintf '%s [%s] ', $q, $def eq 'yes' ? 'y' : 'n' if defined $def;
+
+  print $q;
+
+  my $res = readline STDIN;
+
+  if (defined $def) {
+    return 1 if $res =~ /^y/i;
+    return 0 if $res =~ /^n/i;
+    return $def eq 'yes' if $res =~ /^\n/;
+
+    # if none of the above matched, we ask again
+    goto &prompt;
+  }
+  return $res;
+}
+
 =head2 read_config
 
   read_config();