X-Git-Url: https://git.sthu.org/?a=blobdiff_plain;f=caff%2Fcaff;h=dd74de713e7d963d779e02de22bdaf3ea679bef3;hb=2f00a2a8a2e736cfa6521e6c513996acc6c0ce83;hp=a804dbca3bcbbad5e2eac71b2b3d4f400491fb7e;hpb=d7e01f3b7fde1dbd12ae0bbabdbdbfdbebe74f0d;p=pgp-tools.git

diff --git a/caff/caff b/caff/caff
index a804dbc..dd74de7 100755
--- a/caff/caff
+++ b/caff/caff
@@ -438,12 +438,22 @@ sub readwrite_gpg($$$$$%) {
 
 sub ask($$;$$) {
 	my ($question, $default, $forceyes, $forceno) = @_;
-	return $default if $forceyes and $forceno;
-	return 1 if $forceyes;
-	return 0 if $forceno;
 	my $answer;
 	while (1) {
 		print $question,' ',($default ? '[Y/n]' : '[y/N]'), ' ';
+		if ($forceyes && $forceno) {
+			print "$default (from config/command line)\n";
+			return $default;
+		};
+		if ($forceyes) {
+			print "YES (from config/command line)\n";
+			return 1;
+		};
+		if ($forceno) {
+			print "NO (from config/command line)\n";
+			return 0;
+		};
+
 		$answer = <STDIN>;
 		chomp $answer;
 		last if ((defined $answer) && (length $answer <= 1));