From b04ccb7ff71f4c535d365e2d439d3f1cc4c2678b Mon Sep 17 00:00:00 2001
From: adefaria <adefaria@adefaria-lt.audience.local>
Date: Fri, 20 Jun 2014 11:43:35 -0700
Subject: [PATCH] Added GetPassword routine

---
 lib/Utils.pm | 38 +++++++++++++++++++++++++++++++++++++-
 1 file changed, 37 insertions(+), 1 deletion(-)

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>
-- 
2.17.1