From 2ebfd4090a8dd74741b23f16b574bac08ca986b3 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Sat, 6 Nov 2010 20:48:15 +0100
Subject: [PATCH] Fix register

---
 src/mod_register.erl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/mod_register.erl b/src/mod_register.erl
index c4eff1a32..a1140b712 100644
--- a/src/mod_register.erl
+++ b/src/mod_register.erl
@@ -542,7 +542,7 @@ is_strong_password(Server, Password) ->
 %%% ip_access management
 %%%
 
-may_remove_resource({U, S, _} = From) ->
+may_remove_resource({U, S, _}) ->
 	{U, S, ""};
 may_remove_resource(From) ->
     From.
@@ -595,7 +595,8 @@ parse_ip_netmask(S) ->
 check_ip_access(_Source, []) ->
     allow;
 check_ip_access({User, Server, Resource}, IPAccess) ->
-    case ejabberd_sm:get_user_ip(User, Server, Resource) of
+    JID = exmpp_jid:make(User, Server, Resource),
+    case ejabberd_sm:get_user_ip(JID) of
 	{IPAddress, _PortNumber} -> check_ip_access(IPAddress, IPAccess);
 	_ -> true
     end;