aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/ssh/src/ssh_io.erl22
1 files changed, 13 insertions, 9 deletions
diff --git a/lib/ssh/src/ssh_io.erl b/lib/ssh/src/ssh_io.erl
index 6be5ea25bb..5e335c2063 100644
--- a/lib/ssh/src/ssh_io.erl
+++ b/lib/ssh/src/ssh_io.erl
@@ -31,7 +31,7 @@ read_line(Prompt, Ssh) ->
format("~s", [listify(Prompt)]),
proplists:get_value(user_pid, Ssh) ! {self(), question},
receive
- Answer ->
+ Answer when is_list(Answer) ->
Answer
end.
@@ -44,7 +44,7 @@ yes_no(Prompt, Ssh) ->
y -> yes;
n -> no;
- Answer ->
+ Answer when is_list(Answer) ->
case trim(Answer) of
"y" -> yes;
"n" -> no;
@@ -62,20 +62,24 @@ read_password(Prompt, Opts) when is_list(Opts) ->
format("~s", [listify(Prompt)]),
proplists:get_value(user_pid, Opts) ! {self(), user_password},
receive
- "" ->
- read_password(Prompt, Opts);
- Answer ->
- Answer
+ Answer when is_list(Answer) ->
+ case trim(Answer) of
+ "" ->
+ read_password(Prompt, Opts);
+ Pwd ->
+ Pwd
+ end
end.
+format(Fmt, Args) ->
+ io:format(Fmt, Args).
+
+%%%================================================================
listify(A) when is_atom(A) -> atom_to_list(A);
listify(L) when is_list(L) -> L;
listify(B) when is_binary(B) -> binary_to_list(B).
-format(Fmt, Args) ->
- io:format(Fmt, Args).
-
trim(Line) when is_list(Line) ->
lists:reverse(trim1(lists:reverse(trim1(Line))));