From f634e4dc0da4a2925e4f182dba3f9436370bcd36 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Mon, 31 Mar 2008 09:30:51 +0000
Subject: * src/ejabberd_listener.erl (start_listener): Start also the
 supervisor of the module

SVN Revision: 1260
---
 src/ejabberd_listener.erl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'src')

diff --git a/src/ejabberd_listener.erl b/src/ejabberd_listener.erl
index 51f584c6a..f16cfb0d8 100644
--- a/src/ejabberd_listener.erl
+++ b/src/ejabberd_listener.erl
@@ -179,6 +179,21 @@ accept_ssl(ListenSocket, Module, Opts) ->
 
 
 start_listener(Port, Module, Opts) ->
+    start_module_sup(Module),
+    start_listener_sup(Port, Module, Opts).
+
+start_module_sup(Module) ->
+    Proc = gen_mod:get_module_proc("sup", Module),
+    ChildSpec =
+	{Proc,
+	 {ejabberd_tmp_sup, start_link, [Proc, Module]},
+	 permanent,
+	 infinity,
+	 supervisor,
+	 [ejabberd_tmp_sup]},
+    supervisor:start_child(ejabberd_sup, ChildSpec).
+
+start_listener_sup(Port, Module, Opts) ->
     ChildSpec = {Port,
 		 {?MODULE, start, [Port, Module, Opts]},
 		 transient,
-- 
cgit v1.2.3