Fix Register command to respect mod_register's Access option (#2837)

diff --git a/src/ejabberd_admin.erl b/src/ejabberd_admin.erl
index 4dbd0a0be97469335ef6aa32d8c63e1bc6861024..2586718001f8debbc24d42f58043d16a7e2b55fb 100644 (file)
--- a/src/ejabberd_admin.erl
+++ b/src/ejabberd_admin.erl
@@ -478,7 +478,8 @@ update_module(ModuleNameString) ->
 %%%
 
 register(User, Host, Password) ->
-    case ejabberd_auth:try_register(User, Host, Password) of
+    {ok, IPRaw} = inet_parse:address(binary_to_list(<<"::ffff:127.0.0.1">>)),
+    case mod_register:try_register(User, Host, Password, IPRaw, <<"en">>) of
        ok ->
            {ok, io_lib:format("User ~s@~s successfully registered", [User, Host])};
        {error, exists} ->