From aab70fc0666f62cd23828232806a344af352be03 Mon Sep 17 00:00:00 2001 From: Evgeniy Khramtsov Date: Wed, 26 Jun 2013 12:29:50 +1000 Subject: Fix external authentication --- src/extauth.erl | 20 +++++++------------- 1 file changed, 7 insertions(+), 13 deletions(-) (limited to 'src') diff --git a/src/extauth.erl b/src/extauth.erl index 0403b56b4..23a409ce5 100644 --- a/src/extauth.erl +++ b/src/extauth.erl @@ -70,28 +70,28 @@ get_process_name(Host, Integer) -> eauth). check_password(User, Server, Password) -> - call_port(Server, ["auth", User, Server, Password]). + call_port(Server, [<<"auth">>, User, Server, Password]). is_user_exists(User, Server) -> - call_port(Server, ["isuser", User, Server]). + call_port(Server, [<<"isuser">>, User, Server]). set_password(User, Server, Password) -> - call_port(Server, ["setpass", User, Server, Password]). + call_port(Server, [<<"setpass">>, User, Server, Password]). try_register(User, Server, Password) -> case call_port(Server, - ["tryregister", User, Server, Password]) + [<<"tryregister">>, User, Server, Password]) of true -> {atomic, ok}; false -> {error, not_allowed} end. remove_user(User, Server) -> - call_port(Server, ["removeuser", User, Server]). + call_port(Server, [<<"removeuser">>, User, Server]). remove_user(User, Server, Password) -> call_port(Server, - ["removeuser3", User, Server, Password]). + [<<"removeuser3">>, User, Server, Password]). call_port(Server, Msg) -> LServer = jlib:nameprep(Server), @@ -154,13 +154,7 @@ flush_buffer_and_forward_messages(Pid) -> after 0 -> true end. -join(List, Sep) -> - lists:foldl(fun (A, "") -> A; - (A, Acc) -> Acc ++ Sep ++ A - end, - "", List). - -encode(L) -> join(L, ":"). +encode(L) -> str:join(L, <<":">>). decode([0, 0]) -> false; decode([0, 1]) -> true. -- cgit v1.2.3