From: Badlop <badlop@process-one.net>
Date: Fri, 12 Sep 2008 14:31:04 +0000 (+0000)
Subject: Fix: provide the port as an integer, not string (EJAB-560)
X-Git-Tag: v2.1.0~18^2~590
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=81c70c347f66887edebdab8764fed06a459340a9;p=ejabberd

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 c59f3d972..5c15fcd16 100644
--- 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