diff options
| author | Mickaël Rémond <mickael.remond@process-one.net> | 2005-04-19 14:25:31 +0000 |
|---|---|---|
| committer | Mickaël Rémond <mickael.remond@process-one.net> | 2005-04-19 14:25:31 +0000 |
| commit | 361985f034fc6e948da42577c45b872f8e12e28a (patch) | |
| tree | bb4d8ba9c6843e742c591431ae20361b050dfdb8 | |
| parent | Backup recommandation (diff) | |
Fixes a bug on the web interface: On user creation screen the user creation was using the function try_register/2 instead of the new one try_register/3; The link to the message queue were also missing the server.
SVN Revision: 321
| -rw-r--r-- | src/web/ejabberd_web_admin.erl | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/src/web/ejabberd_web_admin.erl b/src/web/ejabberd_web_admin.erl index 90d0a9a92..7bd69861c 100644 --- a/src/web/ejabberd_web_admin.erl +++ b/src/web/ejabberd_web_admin.erl @@ -1143,23 +1143,22 @@ list_users(Query, Lang) -> list_users_parse_query(Query) -> case lists:keysearch("addnewuser", 1, Query) of {value, _} -> - {value, {_, User}} = + {value, {_, JIDString}} = lists:keysearch("newusername", 1, Query), {value, {_, Password}} = lists:keysearch("newuserpassword", 1, Query), - case jlib:nodeprep(User) of + case jlib:string_to_jid(JIDString) of error -> error; - "" -> - error; - _ -> - ejabberd_auth:try_register(User, Password), + #jid{user = User, server = Server} -> + ejabberd_auth:try_register(User, Server, Password), ok end; false -> nothing end. + list_users_in_diapason(Diap, Lang) -> Users = ejabberd_auth:dirty_get_registered_users(), SUsers = lists:sort([{S, U} || {U, S} <- Users]), @@ -1181,7 +1180,7 @@ list_given_users(Users, Prefix, Lang) -> fun(SU = {Server, User}) -> US = {User, Server}, QueueLen = length(mnesia:dirty_read({offline_msg, US})), - FQueueLen = [?AC(Prefix ++ "user/" ++ User ++ "/queue/", + FQueueLen = [?AC(Prefix ++ "user/" ++ User ++ "@" ++ Server ++ "/queue/", integer_to_list(QueueLen))], FLast = case ejabberd_sm:get_user_resources(User, Server) of |