1 files changed, 46 insertions, 0 deletions
diff --git a/apps/couch/src/couch_config_event.erl b/apps/couch/src/couch_config_event.erl
new file mode 100644
index 00000000..e353c7d8
--- /dev/null
+++ b/apps/couch/src/couch_config_event.erl
@@ -0,0 +1,46 @@
+-module(couch_config_event).
+-behaviour(gen_event).
+-export([init/1, handle_event/2, handle_call/2, handle_info/2, terminate/2, 
+    code_change/3]).
+
+-export([start_link/0, register/2]).
+
+-include("couch_db.hrl").
+
+start_link() ->
+    gen_event:start_link({local, ?MODULE}).
+
+register(Fun, Pid) ->
+    gen_event:add_handler(?MODULE, {?MODULE, Fun}, [Fun, Pid]).
+
+init([Fun, Pid]) ->
+    Ref = erlang:monitor(process, Pid),
+    {ok, {Fun, Ref}}.
+
+handle_event({config_change,Sec,_,_,_}, {F,_}=St) when is_function(F,1) ->
+    catch F(Sec),
+    {ok, St};
+handle_event({config_change,Sec,K,_,_}, {F,_}=St) when is_function(F,2) ->
+    catch F(Sec,K),
+    {ok, St};
+handle_event({config_change,Sec,K,V,_}, {F,_}=St) when is_function(F,3) ->
+    catch F(Sec,K,V),
+    {ok, St};
+handle_event({config_change,Sec,K,V,Write}, {F,_}=St) when is_function(F,4) ->
+    catch F(Sec,K,V,Write),
+    {ok, St}.
+
+handle_call(_Request, St) ->
+    {ok, ok, St}.
+
+handle_info({'DOWN', Ref, _, _, _}, {_, Ref}) ->
+    remove_handler;
+handle_info(_Info, St) ->
+    {ok, St}.
+
+terminate(Reason, St) ->
+    ?LOG_INFO("config_event handler ~p terminating with ~p", [St, Reason]),
+    ok.
+
+code_change(_OldVsn, St, _Extra) ->
+    {ok, St}.