* src/mod_proxy65/mod_proxy65_service.erl: Implement alternative

to the deprecated function inet:ip_to_bytes (thanks to Evgeniy
Khramtsov)(EJAB-542)

SVN Revision: 1222

diff --git a/ChangeLog b/ChangeLog
index e710155d2e584dc5c94040d8dbc4bc0586d6b209..20f1afde64c7b89cc17e0e80b80b4967a0eb2567 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2008-03-09  Badlop  <badlop@process-one.net>
+
+       * src/mod_proxy65/mod_proxy65_service.erl: Implement alternative
+       to the deprecated function inet:ip_to_bytes (thanks to Evgeniy
+       Khramtsov)(EJAB-542)
+
 2008-03-07  Mickael Remond  <mremond@process-one.net>
 
        * src/eldap/eldap_pool.erl: Improved logging

diff --git a/src/mod_proxy65/mod_proxy65_service.erl b/src/mod_proxy65/mod_proxy65_service.erl
index 78392fa4759437004276fef0b9cf409c34111489..41c3af7d5ed2c0c834a071f6b2e53c3d38809857 100644 (file)
--- a/src/mod_proxy65/mod_proxy65_service.erl
+++ b/src/mod_proxy65/mod_proxy65_service.erl
@@ -201,7 +201,7 @@ parse_options(ServerHost, Opts) ->
                 none -> get_proxy_or_domainip(ServerHost, MyHost);
                 Addr -> Addr
             end,
-    [_ | StrIP] = lists:append([[$. | integer_to_list(X)] || X <- inet:ip_to_bytes(IP)]),
+    StrIP = inet_parse:ntoa(IP),
     StreamAddr = [{"jid", MyHost}, {"host", StrIP}, {"port", integer_to_list(Port)}],
     {IP, #state{myhost      = MyHost,
                serverhost  = ServerHost,