projects
/
clearscm.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
904f72b
)
Added GetPassword routine
author
adefaria
<adefaria@adefaria-lt.audience.local>
Fri, 20 Jun 2014 18:43:35 +0000
(11:43 -0700)
committer
adefaria
<adefaria@adefaria-lt.audience.local>
Fri, 20 Jun 2014 18:43:35 +0000
(11:43 -0700)
lib/Utils.pm
patch
|
blob
|
history
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) = @_;
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;
$prompt ||= 'Password';
my $password;
@@
-901,6
+935,8
@@
L<FindBin>
L<POSIX>
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>
=head2 ClearSCM Perl Modules
=for html <p><a href="/php/scm_man.php?file=lib/Display.pm">Display</a></p>