home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / Term.pm < prev    next >
Encoding:
Perl POD Document  |  2001-05-24  |  755 b   |  39 lines
  1. # $Id: Term.pm,v 1.4 2001/05/24 07:21:28 btrott Exp $
  2.  
  3. package Net::SSH::Perl::Util::Term;
  4. use strict;
  5.  
  6. sub _prompt {
  7.     my($prompt, $def, $echo) = @_;
  8.     unless ($echo) {
  9.         return _read_passphrase($prompt);
  10.     }
  11.     else {
  12.         print $prompt . ($def ? "[$def] " : "");
  13.         chomp(my $ans = <STDIN>);
  14.         return $ans ? $ans : $def;
  15.     }
  16. }
  17.  
  18. sub _read_passphrase {
  19.     my($prompt) = @_;
  20.     print $prompt;
  21.     require Term::ReadKey;
  22.     Term::ReadKey->import;
  23.     ReadMode('noecho');
  24.     chomp(my $pwd = ReadLine(0));
  25.     ReadMode('restore');
  26.     print "\n";
  27.     $pwd;
  28. }
  29.  
  30. sub _read_yes_or_no {
  31.     my($prompt, $def) = @_;
  32.     print $prompt, " [$def] ";
  33.     chomp(my $ans = <STDIN>);
  34.     $ans = $def unless $ans;
  35.     $ans =~ /^y/i;
  36. }
  37.  
  38. 1;
  39.