Fix: provide the port as an integer, not string (EJAB-560)

SVN Revision: 1562

diff --git a/src/web/ejabberd_http.erl b/src/web/ejabberd_http.erl
index c59f3d972cb4bcb0557299fba14203a573c4c0bf..5c15fcd16c77ab76369529448d3526103e9a51a6 100644 (file)
--- a/src/web/ejabberd_http.erl
+++ b/src/web/ejabberd_http.erl
@@ -276,11 +276,11 @@ get_transfer_protocol(SockMod, HostPort) ->
        {gen_tcp, []} ->
            {Host, 80, http};
        {gen_tcp, [Port]} ->
-           {Host, Port, http};
+           {Host, list_to_integer(Port), http};
        {tls, []} ->
            {Host, 443, https};
        {tls, [Port]} ->
-           {Host, Port, https}
+           {Host, list_to_integer(Port), https}
     end.
 
 %% XXX bard: search through request handlers looking for one that