Fix memory and port leak when TLS is enabled in HTTP (thanks to Brian Cully)(EJAB...

SVN Revision: 2790

diff --git a/src/web/ejabberd_http.erl b/src/web/ejabberd_http.erl
index bff4b4d45cc8b7ae8060546b0a73307784211d8b..085c5c3a3cf2100218e238649029f5ac90b99e83 100644 (file)
--- a/src/web/ejabberd_http.erl
+++ b/src/web/ejabberd_http.erl
@@ -35,6 +35,9 @@
         receive_headers/1,
         url_encode/1]).
 
+%% Callbacks
+-export([init/2]).
+
 -include("ejabberd.hrl").
 -include("jlib.hrl").
 -include("ejabberd_http.hrl").
@@ -79,7 +82,10 @@
 start(SockData, Opts) ->
     supervisor:start_child(ejabberd_http_sup, [SockData, Opts]).
 
-start_link({SockMod, Socket}, Opts) ->
+start_link(SockData, Opts) ->
+    {ok, proc_lib:spawn_link(ejabberd_http, init, [SockData, Opts])}.
+
+init({SockMod, Socket}, Opts) ->
     TLSEnabled = lists:member(tls, Opts),
     TLSOpts = lists:filter(fun({certfile, _}) -> true;
                              (_) -> false