Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: 28c4815280
Fetching contributors…

Cannot retrieve contributors at this time

66 lines (48 sloc) 2.079 kB
% Keeps a map of url prefix -> module/handler
% so plugins can register to handle certain web requests.
-module(playdar_http_registry).
-behaviour(gen_server).
%% API
-export([start_link/0, get_handler/1, register_handler/2, register_handler/3,
register_handler/4, get_all/0]).
%% gen_server callbacks
-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
terminate/2, code_change/3]).
-record(state, {db}).
%% API
start_link() ->
gen_server:start_link({local, ?MODULE}, ?MODULE, [], []).
get_handler(Url) ->
gen_server:call(?MODULE, {get_handler, Url}).
register_handler(Urlprefix, Fun) -> register_handler(Urlprefix, Fun, "", "").
register_handler(Urlprefix, Fun, MenuText) -> register_handler(Urlprefix, Fun, MenuText, "").
register_handler(Urlprefix, Fun, MenuText, MenuUrl) ->
gen_server:cast(?MODULE, {register, Urlprefix, Fun, MenuUrl, MenuText}).
get_all() -> gen_server:call(?MODULE, all).
%% gen_server callbacks
init([]) ->
P = ets:new(db, []),
% hardcoded handlers that ship by default:
register_handler("api", fun playdar_http_api:http_req/2, "Handles core Playdar API"),
register_handler("logger", fun playdar_logger:http_req/2, "View log output in realtime", "/logger"),
{ok, #state{db=P}}.
handle_call(all, _From, State) ->
R = [ [{prefix, P},{menu_url, Murl},{menu_text,Mtxt}] || {P,_,Murl, Mtxt} <- ets:tab2list(State#state.db) ],
{reply, R, State};
handle_call({get_handler, Url}, _From, State) ->
case ets:lookup(State#state.db, prefix(Url)) of
[{_,Fun,_,_}] when is_function(Fun) -> {reply, Fun, State};
_ -> {reply, undefined, State}
end.
handle_cast({register, Urlprefix, Fun, MenuUrl, MenuText}, State) ->
ets:insert(State#state.db, {Urlprefix, Fun, MenuUrl, MenuText}),
{noreply, State}.
handle_info(_Info, State) ->
{noreply, State}.
terminate(_Reason, _State) ->
ok.
code_change(_OldVsn, State, _Extra) ->
{ok, State}.
%%% Internal functions
% Eg: /api/?method=foo -> api
prefix(Url) -> hd(string:tokens(Url,"/")).
Jump to Line
Something went wrong with that request. Please try again.