From 0864e8a24f58e5337a2a71e568820c1438ec01ad Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Tue, 16 Jun 2009 13:52:37 +0000
Subject: [PATCH] Fix error creating ETS table if enabled in several vhosts
 (EJAB-551). Unregister the command when stopping the module.

SVN Revision: 2188
---
 src/web/mod_http_fileserver.erl | 29 +++++++++++++++++++++++------
 1 file changed, 23 insertions(+), 6 deletions(-)

diff --git a/src/web/mod_http_fileserver.erl b/src/web/mod_http_fileserver.erl
index 990bc5fe6..aa85de904 100644
--- a/src/web/mod_http_fileserver.erl
+++ b/src/web/mod_http_fileserver.erl
@@ -165,25 +165,38 @@ loop(Filename) ->
 %%% BEHAVIOUR CALLBACKS
 %%%----------------------------------------------------------------------
 
+%% TODO: Improve this module to allow each virtual host to have a different
+%% options. See http://support.process-one.net/browse/EJAB-561
 start(_Host, Opts) ->
-    ejabberd_ctl:register_commands([{"reopen-weblog", "reopen http fileserver log file"}],
-				   ?MODULE, ctl_process),
+    case ets:info(mod_http_fileserver, name) of
+	undefined ->
+	    start2(_Host, Opts);
+	_ ->
+	    ok
+    end.
+
+start2(_Host, Opts) ->
     case gen_mod:get_opt(docroot, Opts, undefined) of
         undefined ->
             {'EXIT', {missing_document_root, ?MODULE}};
         DocRoot ->
             case filelib:is_dir(DocRoot) of
                 true ->
-		    % XXX WARNING, using a single ets table name will
-		    % not work with virtual hosts
+		    %% XXX WARNING, using a single ets table name will
+		    %% not work with virtual hosts
                     ets:new(mod_http_fileserver, [named_table, public]),
                     ets:insert(mod_http_fileserver, [{docroot, DocRoot}]),
 		    case gen_mod:get_opt(accesslog, Opts, undefined) of
 			undefined ->
 			    ok;
 			Filename ->
-			    % XXX same remark as above for proc name
-			    register(mod_http_fileserver_server, spawn(?MODULE, loop, [Filename])),
+			    %% XXX same remark as above for proc name
+    			    ejabberd_ctl:register_commands(
+			      [{"reopen-weblog",
+				"reopen http fileserver log file"}],
+			      ?MODULE, ctl_process),
+			    register(mod_http_fileserver_server,
+				     spawn(?MODULE, loop, [Filename])),
 			    open_file(Filename)
 		    end;
                 _Else ->
@@ -200,6 +213,10 @@ stop(_Host) ->
 		[] ->
 		    ok;
 		[{accessfile, AccessFile}] ->
+		    ejabberd_ctl:unregister_commands(
+		      [{"reopen-weblog",
+			"reopen http fileserver log file"}],
+		      ?MODULE, ctl_process),
 		    mod_http_fileserver_server ! stop,
 		    file:close(AccessFile)
 	    end,