Added GetPassword routine

diff --git a/lib/Utils.pm b/lib/Utils.pm
index 1bed47b..74fe13c 100644 (file)
--- 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>