diff options
author | Jan Lehnardt <jan@apache.org> | 2008-08-20 14:18:05 +0000 |
---|---|---|
committer | Jan Lehnardt <jan@apache.org> | 2008-08-20 14:18:05 +0000 |
commit | 83af9a01292b5324de651ed90199f61be8d9eae7 (patch) | |
tree | cce4408d58132b37f620e033ccc0c2fac57d93ae /src/couchdb/couch_db_update_notifier_sup.erl | |
parent | 4700dd67f03c020c3799a4bf161eadfacbf420cb (diff) |
add missing files
git-svn-id: https://svn.apache.org/repos/asf/incubator/couchdb/trunk@687339 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'src/couchdb/couch_db_update_notifier_sup.erl')
-rw-r--r-- | src/couchdb/couch_db_update_notifier_sup.erl | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/src/couchdb/couch_db_update_notifier_sup.erl b/src/couchdb/couch_db_update_notifier_sup.erl new file mode 100644 index 00000000..8902498d --- /dev/null +++ b/src/couchdb/couch_db_update_notifier_sup.erl @@ -0,0 +1,50 @@ +% Licensed under the Apache License, Version 2.0 (the "License"); you may not +% use this file except in compliance with the License. You may obtain a copy of +% the License at +% +% http://www.apache.org/licenses/LICENSE-2.0 +% +% Unless required by applicable law or agreed to in writing, software +% distributed under the License is distributed on an "AS IS" BASIS, WITHOUT +% WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the +% License for the specific language governing permissions and limitations under +% the License. + +% +% This causes an OS process to spawned and it is notified every time a database +% is updated. +% +% The notifications are in the form of a the database name sent as a line of +% text to the OS processes stdout. +% + +-module(couch_db_update_notifier_sup). + +-behaviour(supervisor). + +-export([start_link/0,init/1]). + +start_link() -> + supervisor:start_link({local, couch_db_update_notifier_sup}, + couch_db_update_notifier_sup, []). + +init([]) -> + Self = self(), + ok = couch_config:register( + fun({"Update Notification", _}) -> + exit(Self, reload_config) + end), + + UpdateNotifierExes = couch_config:lookup_match( + {{"Update Notification", '$1'}, '$2'}, []), + + {ok, + {{one_for_one, 10, 3600}, + lists:map(fun({Name, UpdateNotifierExe}) -> + {Name, + {couch_db_update_notifier, start_link, [UpdateNotifierExe]}, + permanent, + 1000, + supervisor, + [couch_db_update_notifier]} + end, UpdateNotifierExes)}}.
\ No newline at end of file |