riak / src / riak_event_guard.erl

%% This file is provided to you 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
%% KIND, either express or implied.  See the License for the
%% specific language governing permissions and limitations
%% under the License.    

%% @doc A wrapper server for connecting riak_eventer handlers to the gen_event.


-export([init/1, handle_info/2]).


%% @spec start_link() -> {ok, pid()}
%% @doc The usual gen_server start_link mechanism.
start_link() -> gen_server:start_link({local, ?MODULE}, ?MODULE, [], []).

% @private
init([]) ->
    case gen_event:start_link({local,riak_event}) of
        {ok, Pid} -> {ok, Pid};
        {error,{already_started,Pid}} -> {ok, Pid};
        X -> {stop, {error_in_init, X}}

%% @spec add_handler(HandlerMod :: atom(), Arg :: term()) ->
%%       ok | {error, Error :: term()}
%% @doc Attach a new HandlerMod to riak events, started with Arg.
add_handler(HandlerMod, Arg) ->
    gen_server:call(?MODULE, {add_handler, HandlerMod, Arg}).

%% @private
handle_call({add_handler, HandlerMod, Arg},_From,State) -> 
    {ok, MyRing} = riak_ring_manager:get_my_ring(),
    Eventers0 = case riak_ring:get_meta(eventers, MyRing) of
        undefined -> [];
        {ok, X} -> sets:to_list(X)
    Eventers = sets:add_element(node(), sets:from_list(
                 [X || X <- Eventers0, net_adm:ping(X) =:= pong])),
    NewRing = riak_ring:update_meta(eventers, Eventers, MyRing),
    Reply = gen_event:swap_sup_handler(riak_event,
                                       {{HandlerMod,{node(),now()}}, swap},
                                       {{HandlerMod,{node(),now()}}, Arg}),
    {reply, Reply, State}.

%% @private
handle_info({gen_event_EXIT, HandlerMod, Reason},State) ->
    %% gen_event manager sends this message if a handler was added using
    %% gen_event:add_sup_handler/3 or gen_event:swap_sup_handler/3 functions
    riak_eventer:notify(riak_event_guard, gen_event_exit,{HandlerMod, Reason}),

%% @private
handle_cast(_,State) -> {noreply,State}.
%% @private
code_change(_OldVsn, State, _Extra) -> {ok, State}.
%% @private
terminate(_Reason,_State)  -> ok.
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.