From 81c70c347f66887edebdab8764fed06a459340a9 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Fri, 12 Sep 2008 14:31:04 +0000
Subject: [PATCH] Fix: provide the port as an integer, not string (EJAB-560)

SVN Revision: 1562
---
 src/web/ejabberd_http.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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