ldapsh-cvs

[<po...@us...>]

Update of /cvsroot/ldapsh/ldapsh
In directory sc8-pr-cvs1:/tmp/cvs-serv22160

Modified Files:
	ldapsh 
Log Message:
Add helper routines to ask user for text or boolean values (patch 629799)

Index: ldapsh
===================================================================
RCS file: /cvsroot/ldapsh/ldapsh/ldapsh,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** ldapsh	27 May 2003 12:06:32 -0000	1.14
--- ldapsh	27 May 2003 12:08:28 -0000	1.15
***************
*** 253,256 ****
--- 253,288 ----
  }
  
+ sub _askText($) {
+     my ($prompt) = @_;
+     my $oldMinLine = $Term->MinLine(undef);
+     my $response = $Term->readline($prompt);
+     $Term->MinLine($oldMinLine);
+     return $response || "";
+ }
+ 
+ sub _askBool($$) {
+     my ($prompt, $default) = @_;
+     my $choice;
+     my $retval;
+     if ($default) {
+ 	$choice = " [Y/n] ";
+     } else {
+ 	$choice = " [y/N] ";
+     }
+     my $oldMinLine = $Term->MinLine(undef);
+     my $response = $Term->readline($prompt.$choice);
+     $Term->MinLine($oldMinLine);
+     $response ||= "";
+     if ($response =~ /^y/i) {
+ 	$retval = 1;
+     } elsif ($response =~ /^n/i) {
+ 	$retval = 0;
+     } else {
+ 	$retval = $default || 0;
+     }
+ 
+     return $retval;
+ }
+ 
  sub _debug(@) {
      printf STDERR "\nvvvvvvvvvvvvvvvv\n" . join('', map {"'$_'\n"} @_) . "^^^^^^^^^^^^^^^^\n";