Orber O&D

%%---------------------------------------------------------------------- %% %% %CopyrightBegin% %% %% Copyright Ericsson AB 2001-2009. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in %% compliance with the License. You should have received a copy of the %% Erlang Public License along with this software. If not, it can be %% retrieved online at http://www.erlang.org/. %% %% Software distributed under the License is distributed on an "AS IS" %% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See %% the License for the specific language governing rights and limitations %% under the License. %% %% %CopyrightEnd% %% %% %%---------------------------------------------------------------------- %% File : orber_web_server.erl %% Purpose : %%---------------------------------------------------------------------- -module(orber_web_server). -behaviour(gen_server). -export([init/1,handle_call/3,handle_cast/2,handle_info/2]). -export([terminate/2,code_change/3]). -export([start/0,stop/0,start_link/0]). -export([config_data/0, menu/2, configure/2, info/2, nameservice/2, default_selection/2, ifr_select/2, ifr_data/2, create/2, delete_ctx/2, add_ctx/2, delete_obj/2, flash_msg/2]). %%---------------------------------------------------------------------- %%-------------- Defines & Includes ------------------------------------ %%---------------------------------------------------------------------- -define(HTML_HEADER, "Cache-Control:no-cache\r\nPragma:no-cache\r\nExpires:Thu, 01 Dec 1994 16:00:00 GMT\r\nContent-type: text/html\r\n\r\n\n\nOrber O&D\n\n"). -define(HTML_END, ""). -define(DEBUG_LEVEL, 5). -record(state, {ts}). -include("ifr_objects.hrl"). %%---------------------------------------------------------------------- %%-------------- External API ------------------------------------------ %%---------------------------------------------------------------------- %% Function : start/start_link/stop %% Returns : %% Description: %%---------------------------------------------------------------------- start_link()-> gen_server:start_link({local,?MODULE},?MODULE,[],[]). start()-> gen_server:start({local,?MODULE},?MODULE,[],[]). stop()-> gen_server:call(?MODULE,stop,1000). %%---------------------------------------------------------------------- %% Function : config_data %% Returns : %% Description: %%---------------------------------------------------------------------- config_data()-> {orber,[{web_data,{"OrberWeb","/orber/main_frame.html"}}, {alias,{"/orber", code:priv_dir(orber)}}, {start,{child,{{local,?MODULE},{?MODULE,start_link,[]}, permanent,100,worker,[?MODULE]}}}, {alias,{erl_alias,"/orber_erl",[orber_web_server]}} ]}. menu(Env,Input) -> Args = httpd:parse_query(Input), [?HTML_HEADER, gen_server:call(?MODULE, {menu, Env, Args}), ?HTML_END]. configure(Env,Input) -> Args = httpd:parse_query(Input), [?HTML_HEADER, gen_server:call(?MODULE, {configure, Env, Args}), ?HTML_END]. nameservice(Env,Input) -> Args = httpd:parse_query(Input), [?HTML_HEADER, gen_server:call(?MODULE, {nameservice, Env, Args}), ?HTML_END]. info(Env,Input) -> Args = httpd:parse_query(Input), [?HTML_HEADER, gen_server:call(?MODULE, {info, Env, Args}), ?HTML_END]. default_selection(Env,Input) -> Args = httpd:parse_query(Input), [?HTML_HEADER, gen_server:call(?MODULE, {default_selection, Env, Args}), ?HTML_END]. flash_msg(Env, Input) -> Args = httpd:parse_query(Input), [?HTML_HEADER, gen_server:call(?MODULE, {nameservice, Env, Args}), ?HTML_END]. ifr_select(Env, Input) -> Args = httpd:parse_query(Input), [?HTML_HEADER, gen_server:call(?MODULE, {ifr_select, Env, Args}), ?HTML_END]. ifr_data(Env, Input) -> Args = httpd:parse_query(Input), [?HTML_HEADER, gen_server:call(?MODULE, {ifr_data, Env, Args}), ?HTML_END]. create(Env, Input) -> Args = httpd:parse_query(Input), [?HTML_HEADER, gen_server:call(?MODULE, {create, Env, Args}), ?HTML_END]. delete_ctx(Env, Input) -> Args = httpd:parse_query(Input), [?HTML_HEADER, gen_server:call(?MODULE, {delete_ctx, Env, Args}), ?HTML_END]. add_ctx(Env, Input) -> Args = httpd:parse_query(Input), [?HTML_HEADER, gen_server:call(?MODULE, {add_ctx, Env, Args}), ?HTML_END]. delete_obj(Env, Input) -> Args = httpd:parse_query(Input), [?HTML_HEADER, gen_server:call(?MODULE, {delete_obj, Env, Args}), ?HTML_END]. %%---------------------------------------------------------------------- %%-------------- Callback Functions ------------------------------------ %%---------------------------------------------------------------------- %% Function : MISC gen_server specific callback functions %% Returns : %% Description: %%---------------------------------------------------------------------- init(_Arg)-> {M, S, U} = now(), TS = M*1000000000000 + S*1000000 + U, {ok, #state{ts = TS}}. terminate(_,_State)-> ok. handle_cast(_,State)-> {noreply,State}. handle_info(_,State)-> {noreply,State}. code_change(_Old_vsn,State,_Extra)-> {ok,State}. %%---------------------------------------------------------------------- %% Function : handle_call %% Returns : %% Description: %%---------------------------------------------------------------------- handle_call({Function, Env, Args}, _From, State)-> case catch orber_web:Function(Env, Args) of {'EXIT', R} -> orber:dbg("[~p] orber_web:~p(~p);~nEXIT: ~p", [?LINE, Function, Args, R], ?DEBUG_LEVEL), {reply, "Internal Error", State}; {'EXIT', R1, R2} -> orber:dbg("[~p] orber_web:~p(~p);~nEXIT: ~p~n~p", [?LINE, Function, Args, R1, R2], ?DEBUG_LEVEL), {reply, "Internal Error", State}; {badrpc, Why} -> orber:dbg("[~p] orber_web:~p(~p);~nbadrpc: ~p", [?LINE, Function, Args, Why], ?DEBUG_LEVEL), {reply, "Internal Error", State}; {'EXCEPTION', E} -> orber:dbg("[~p] orber_web:~p(~p);~nEXCEPTION: ~p", [?LINE, Function, Args, E], ?DEBUG_LEVEL), {reply, "Internal Error", State}; {error, Data} -> orber:dbg("[~p] orber_web:~p(~p); ~nReason: ~p", [?LINE, Function, Args, Data], ?DEBUG_LEVEL), {reply, Data, State}; Reply -> {reply, Reply, State} end; handle_call(stop, _From, State)-> {stop, normal, ok, State}; handle_call(What, _From, State)-> orber:dbg("[~p] orber_web_server:handle_call(~p);", [?LINE, What], ?DEBUG_LEVEL), {reply, "Unknown Request", State}. %%---------------------------------------------------------------------- %% END OF MODULE %%----------------------------------------------------------------------