trunkstore_app.erl

-module(trunkstore_app).

-behaviour(application).

%% Application callbacks
-export([start/2, stop/1, update_views/0, setup_views/0]).

-include("ts.hrl").

%% ===================================================================
%% Application callbacks
%% ===================================================================

-spec(start/2 :: (StartType :: term(), StartArgs :: term()) -> tuple(ok, pid()) | tuple(error, term())).
start(_StartType, _StartArgs) ->
    setup_views(),
    setup_base_docs(),
    case trunkstore:start_link() of
	{ok, P} -> {ok, P};
	{error,{already_started, P}} -> {ok, P};
	{error, _}=E -> E
    end.

stop(_State) ->
    ok.

setup_views() ->
    lists:foreach(fun(File) ->
			  couch_mgr:load_doc_from_file(?TS_DB, trunkstore, File)
		  end, ?TS_COUCH_DESIGN_DOCS).

update_views() ->
    lists:foreach(fun(File) ->
			  case couch_mgr:update_doc_from_file(?TS_DB, trunkstore, File) of
			      {ok, _} -> logger:format_log(info, "Updating ~s: success~n", [File]);
			      {error, Reason} -> logger:format_log(info, "Updating ~s: error ~p~n", [File, Reason])
			  end
		  end, ?TS_COUCH_DESIGN_DOCS),
    ts_acctmgr:update_views().


setup_base_docs() ->
    lists:foreach(fun(File) -> couch_mgr:load_doc_from_file(?TS_DB, trunkstore, File) end, ?TS_COUCH_BASE_DOCS).