From: Badlop <badlop@process-one.net>
Date: Fri, 22 Mar 2019 13:02:03 +0000 (+0100)
Subject: Fix Register command to respect mod_register's Access option (#2837)
X-Git-Tag: 19.05~118
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=1f2b8adc285c6c67de75986e96d6bd1632ef97fe;p=ejabberd

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

diff --git a/src/ejabberd_admin.erl b/src/ejabberd_admin.erl
index 4dbd0a0be..258671800 100644
--- 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} ->