diff options
Diffstat (limited to 'lib/orber/src/orber_web_server.erl')
-rw-r--r-- | lib/orber/src/orber_web_server.erl | 190 |
1 files changed, 0 insertions, 190 deletions
diff --git a/lib/orber/src/orber_web_server.erl b/lib/orber/src/orber_web_server.erl deleted file mode 100644 index 3506894df2..0000000000 --- a/lib/orber/src/orber_web_server.erl +++ /dev/null @@ -1,190 +0,0 @@ -%%---------------------------------------------------------------------- -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2001-2015. All Rights Reserved. -%% -%% 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. -%% -%% %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<HTML BGCOLOR=\"#FFFFFF\">\n<HEAD>\n<TITLE>Orber O&D</TITLE>\n</HEAD>\n"). - - --define(HTML_END, "</BODY></HTML>"). - --define(DEBUG_LEVEL, 5). - --record(state, {}). --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)-> - {ok, #state{}}. - -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, "<BODY BGCOLOR=\"#FFFFFF\">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, "<BODY BGCOLOR=\"#FFFFFF\">Internal Error", State}; - {badrpc, Why} -> - orber:dbg("[~p] orber_web:~p(~p);~nbadrpc: ~p", - [?LINE, Function, Args, Why], ?DEBUG_LEVEL), - {reply, "<BODY BGCOLOR=\"#FFFFFF\">Internal Error", State}; - {'EXCEPTION', E} -> - orber:dbg("[~p] orber_web:~p(~p);~nEXCEPTION: ~p", - [?LINE, Function, Args, E], ?DEBUG_LEVEL), - {reply, "<BODY BGCOLOR=\"#FFFFFF\">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, "<BODY BGCOLOR=\"#FFFFFF\"><FONT SIZE=6>Unknown Request</FONT>", State}. - -%%---------------------------------------------------------------------- -%% END OF MODULE -%%---------------------------------------------------------------------- |