From: adefaria <adefaria@adefaria-lt.audience.local>
Date: Fri, 20 Jun 2014 18:43:35 +0000 (-0700)
Subject: Added GetPassword routine
X-Git-Url: https://defaria.com/gitweb/?a=commitdiff_plain;h=b04ccb7ff71f4c535d365e2d439d3f1cc4c2678b;p=clearscm.git

Added GetPassword routine
---

diff --git a/lib/Utils.pm b/lib/Utils.pm
index 1bed47b..74fe13c 100644
--- a/lib/Utils.pm
+++ b/lib/Utils.pm
@@ -311,7 +311,41 @@ Returns:
 
 sub GetPassword (;$) {
   my ($prompt) = @_;
-  
+
+=pod
+
+=head2 GetPassword (;$prompt)
+
+Prompt for a password
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item $prompt
+
+Prompt string to use (Default: "Password:")
+
+=back
+
+=for html </blockquote>
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item $password
+
+=back
+
+=for html </blockquote>
+
+=cut  
+
   $prompt ||= 'Password';
   
   my $password;
@@ -901,6 +935,8 @@ L<FindBin>
 
 L<POSIX>
 
+L<Term::ReadKey>
+
 =head2 ClearSCM Perl Modules
 
 =for html <p><a href="/php/scm_man.php?file=lib/Display.pm">Display</a></p>