The R13B03 release.OTP_R13B03

1 files changed, 1184 insertions, 0 deletions

diff --git a/lib/tools/src/cover_web.erl b/lib/tools/src/cover_web.erl
new file mode 100644
index 0000000000..69f2f3b1aa
--- /dev/null
+++ b/lib/tools/src/cover_web.erl
@@ -0,0 +1,1184 @@
+%%
+%% %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%
+%%                                                                        
+
+-module(cover_web).
+-author('[email protected]').
+-behaviour(gen_server).
+
+%%Export of configuration function
+-export([configData/0]).
+%% External exports
+-export([init/1, handle_call/3, handle_cast/2, handle_info/2, 
+	 terminate/2, code_change/3]).
+
+-export([start_link/0,start/0,stop/0]).
+-export([menu_frame/2,nodes_frame/2,import_frame/2,
+	 compile_frame/2,result_frame/2]).
+-export([list_dir/2,compile/2,add_node/2,remove_node/2,result/2,
+	 calls/2,coverage/2,import/2]).
+
+-record(state,{dir}).
+
+-include_lib("kernel/include/file.hrl").
+
+%% Timeouts
+-define(DEFAULT_TIME,10000).
+-define(MAX_COMPILE_TIME,60000).
+-define(MAX_ANALYSE_TIME,30000).
+
+%% Colors
+-define(INFO_BG_COLOR,"#C0C0EA").
+
+%%%----------------------------------------------------------------------
+%%% API - called from erlang shell
+%%%----------------------------------------------------------------------
+%% Start webtool and webcover from erlang shell
+start() ->
+    webtool:start(),
+    webtool:start_tools([],"app=webcover"),
+    ok.
+
+%% Stop webtool and webcover from erlang shell
+stop() ->
+    webtool:stop_tools([],"app=webcover"),
+    webtool:stop().
+
+
+
+%%%----------------------------------------------------------------------
+%%% API - called from webtool
+%%%----------------------------------------------------------------------
+start_link() ->
+    gen_server:start_link({local, webcover_server},cover_web, [], []).
+
+
+nodes_frame(Env,Input)->
+    call({nodes_frame,Env,Input}).
+
+add_node(Env,Input)->
+    call({add_node,Env,Input}).
+
+remove_node(Env,Input)->
+    call({remove_node,Env,Input}).
+
+compile_frame(Env,Input)->
+    call({compile_frame,Env,Input}).
+
+list_dir(Env,Input) ->
+    call({list_dir,Env,Input}).
+
+compile(Env,Input)->
+    call({compile,Env,Input},?MAX_COMPILE_TIME).
+
+result_frame(Env,Input)->
+    call({result_frame,Env,Input}).
+
+result(Env,Input) ->
+    call({result,Env,Input},?MAX_ANALYSE_TIME).
+
+calls(Env,Input) ->
+    call({calls,Env,Input}).
+
+coverage(Env,Input) ->
+    call({coverage,Env,Input}).
+
+import_frame(Env,Input)->
+    call({import_frame,Env,Input}).
+
+import(Env,Input)->
+    call({import,Env,Input}).
+
+menu_frame(Env,Input)->
+    call({menu_frame,Env,Input}).
+
+call(Msg) ->
+    call(Msg,?DEFAULT_TIME).
+call(Msg,Time) ->
+    gen_server:call(webcover_server,Msg,Time).
+    
+			    
+
+configData()->
+    {webcover,[{web_data,{"WebCover","/webcover"}},
+               {alias,{"/webcover",code:priv_dir(tools)}},
+	       {alias,{erl_alias,"/webcover/erl",[cover_web]}},
+	       {start,{child,{{local,webcover_server},
+			      {cover_web,start_link,[]},
+			      permanent,100,worker,[cover_web]}}}
+	      ]}.
+
+
+%%%----------------------------------------------------------------------
+%%% Callback functions from gen_server
+%%%----------------------------------------------------------------------
+
+%%----------------------------------------------------------------------
+%% Func: init/1
+%% Returns: {ok, State}          |
+%%          {ok, State, Timeout} |
+%%          ignore               |
+%%          {stop, Reason}
+%%----------------------------------------------------------------------
+init([]) ->
+    cover:start(),
+    CS = whereis(cover_server),
+    link(CS),
+    GL = spawn_link(fun group_leader_proc/0),
+    group_leader(GL,CS),
+
+    %% Must trap exists in order to have terminate/2 executed when
+    %% crashing because of a linked process crash.
+    process_flag(trap_exit,true),
+    {ok,Cwd} = file:get_cwd(),
+    {ok, #state{dir=Cwd}}.
+
+group_leader_proc() ->
+    register(cover_group_leader_proc,self()),
+    group_leader_loop([]).
+group_leader_loop(Warnings) ->
+    receive
+	{io_request,From,ReplyAs,{put_chars,io_lib,Func,[Format,Args]}} ->
+	    Msg = (catch io_lib:Func(Format,Args)),
+	    From ! {io_reply,ReplyAs,ok},
+	    case lists:member(Msg,Warnings) of
+		true -> group_leader_loop(Warnings);
+		false -> group_leader_loop([Msg|Warnings])
+	    end;
+	{io_request,From,ReplyAs,{put_chars,_Encoding,io_lib,Func,[Format,Args]}} ->
+	    Msg = (catch io_lib:Func(Format,Args)),
+	    From ! {io_reply,ReplyAs,ok},
+	    case lists:member(Msg,Warnings) of
+		true -> group_leader_loop(Warnings);
+		false -> group_leader_loop([Msg|Warnings])
+	    end;
+	IoReq when element(1,IoReq)=:= io_request ->
+	    group_leader() ! IoReq,
+	    group_leader_loop(Warnings);
+	{From,get_warnings} ->
+	    Warnings1 = 
+		receive 
+		    {io_request,From,ReplyAs,
+		     {put_chars,io_lib,Func,[Format,Args]}} ->
+			Msg = (catch io_lib:Func(Format,Args)),
+			From ! {io_reply,ReplyAs,ok},
+			case lists:member(Msg,Warnings) of
+			    true -> Warnings;
+			    false -> [Msg|Warnings]
+			end
+		after 0 ->
+			Warnings
+		end,
+	    From ! {warnings,Warnings1},
+	    group_leader_loop([])
+    end.
+
+%%----------------------------------------------------------------------
+%% Func: handle_call/3
+%% Returns: {reply, Reply, State}          |
+%%          {reply, Reply, State, Timeout} |
+%%          {noreply, State}               |
+%%          {noreply, State, Timeout}      |
+%%          {stop, Reason, Reply, State}   | (terminate/2 is called)
+%%          {stop, Reason, State}            (terminate/2 is called)
+%%----------------------------------------------------------------------
+handle_call({nodes_frame,_Env,_Input},_From,State)->
+    {reply,nodes_frame1(),State};
+
+handle_call({add_node,_Env,Input},_From,State)->
+    {reply,do_add_node(Input),State};
+
+handle_call({remove_node,_Env,Input},_From,State)->
+    {reply,do_remove_node(Input),State};
+
+handle_call({compile_frame,_Env,_Input},_From,State)->
+    {reply,compile_frame1(State#state.dir),State};
+
+handle_call({list_dir,_Env,Input},_From,State)->
+    Dir = get_input_data(Input,"path"),
+    case filelib:is_dir(Dir) of
+	true ->
+	    {reply,compile_frame1(Dir),State#state{dir=Dir}};
+	false ->
+	    Err = Dir ++ " is not a directory",
+	    {reply,compile_frame1(State#state.dir,Err),State}
+    end;
+handle_call({compile,_Env,Input},_From,State)->
+    {reply,do_compile(Input,State#state.dir),State};
+
+handle_call({result_frame,_Env,_Input},_From,State)->
+    {reply,result_frame1(),State};
+
+handle_call({result,_Env,Input},_From,State)->
+    {reply,handle_result(Input),State};
+
+handle_call({calls,_Env,Input},_From,State)->
+    {reply,call_page(Input),State};
+
+handle_call({coverage,_Env,Input},_From,State)->
+    {reply,coverage_page(Input),State};
+
+handle_call({import_frame,_Env,_Input},_From,State)->
+    {ok,Cwd} = file:get_cwd(),
+    {reply,import_frame1(Cwd),State};
+
+handle_call({import,_Env,Input},_From,State)->
+    {reply,do_import(Input),State};
+
+handle_call({menu_frame,_Env,_Input},_From,State)->
+    {reply,menu_frame1(),State};
+
+handle_call(_Request, _From, State) ->
+    Reply = bad_request,
+    {reply, Reply, State}.
+
+
+%%----------------------------------------------------------------------
+%% Func: handle_cast/2
+%% Returns: {noreply, State}          |
+%%          {noreply, State, Timeout} |
+%%          {stop, Reason, State}            (terminate/2 is called)
+%%----------------------------------------------------------------------
+handle_cast(_Msg, State) ->
+    {noreply, State}.
+
+%%----------------------------------------------------------------------
+%% Func: handle_info/2
+%% Returns: {noreply, State}          |
+%%          {noreply, State, Timeout} |
+%%          {stop, Reason, State}            (terminate/2 is called)
+%%----------------------------------------------------------------------
+handle_info({'EXIT',_Pid,Reason}, State) ->
+    {stop, Reason, State}.
+
+%%----------------------------------------------------------------------
+%% Func: terminate/2
+%% Purpose: Shutdown the server
+%% Returns: any (ignored by gen_server)
+%%----------------------------------------------------------------------
+terminate(_Reason, _State) ->
+    cover:stop(),
+    ok.
+
+%%--------------------------------------------------------------------
+%% Func: code_change/3
+%% Purpose: Convert process state when code is changed
+%% Returns: {ok, NewState}
+%%--------------------------------------------------------------------
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.
+
+%%%----------------------------------------------------------------------
+%%% Internal functions
+%%%----------------------------------------------------------------------
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%                                                                    %%
+%% The functions that creates the whole pages by collecting all the   %%
+%% neccessary data for each page. These functions are the public      %%
+%% interface.                                                         %%
+%%                                                                    %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%----------------------------------------------------------------------
+%% Returns the page to the left frame
+%%----------------------------------------------------------------------
+menu_frame1()->
+    [header(),html_header(""),menu_body(),html_end()].
+
+%%----------------------------------------------------------------------
+%% Creates the page where the user can add and remove nodes
+%%----------------------------------------------------------------------
+
+nodes_frame1()->
+    nodes_frame1([]).
+nodes_frame1(Err)->
+    [header(),html_header("Add/remove nodes"),nodes_body(Err),html_end()].
+
+%%----------------------------------------------------------------------
+%% Creates the page where the user can cover compile modules
+%%----------------------------------------------------------------------
+
+compile_frame1(Dir)->
+    compile_frame1(Dir,[]).
+compile_frame1(Dir,Err) ->
+    [header(),html_header("Cover compile"),compile_body(Dir,Err),html_end()].
+
+%%----------------------------------------------------------------------
+%% Creates the page where the user can handle results
+%%----------------------------------------------------------------------
+
+result_frame1()->
+    result_frame1([]).
+result_frame1(Err) ->
+    [header(),html_header("Show cover results"),result_body(Err),html_end()].
+
+%%----------------------------------------------------------------------
+%%The beginning of the page that clear the cover information on a cover
+%%compiled module
+%%----------------------------------------------------------------------
+call_page(Input)->
+    [header(),html_header("Code coverage"),call_result(Input),html_end()].
+
+coverage_page(Input)->
+    [header(),html_header("Code coverage"),coverage_result(Input),html_end()].
+
+%%----------------------------------------------------------------------
+%% Creates the page where the user an import files
+%%----------------------------------------------------------------------
+import_frame1(Dir) ->
+    import_frame1(Dir,"").
+import_frame1(Dir,Err) ->
+    [header(),html_header("Import coverdata"),import_body(Dir,Err),html_end()].
+    
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%                                                                    %%
+%% The functions that build the body of the menu frame                %%
+%%                                                                    %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+menu_body() ->
+    Nodes = cover:which_nodes(),
+    Modules = cover:modules(),
+    Imported = cover:imported(),
+    ["<A HREF=\"./nodes_frame\" TARGET=\"main\">Nodes</A><BR>\n",
+     "<A HREF=\"./compile_frame\" TARGET=\"main\">Compile</A><BR>\n",
+     "<A HREF=\"./import_frame\" TARGET=\"main\">Import</A><BR>\n",
+     "<A HREF=\"./result_frame\" TARGET=\"main\">Result</A>\n",
+     "<P><B>Nodes:</B>\n",
+     "<UL>\n",
+     lists:map(fun(N) -> "<LI>"++atom_to_list(N)++"</LI>\n" end,[node()|Nodes]),
+     "</UL>\n",
+     "<P><B>Compiled modules:</B>\n",
+     "<UL>\n",
+     lists:map(fun(M) -> "<LI>"++atom_to_list(M)++"</LI>\n" end,Modules),
+     "</UL>\n",
+     "<P><B>Imported files:</B>\n",
+     "<UL>\n",
+     "<FONT SIZE=-1>\n",
+     lists:map(fun(F) -> 
+		       Short = filename:basename(F),
+		       "<LI TITLE=\""++F++"\">"++Short++"</LI>\n" end,Imported),
+     "</FONT>\n",
+     "</UL>\n"].
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%                                                                    %%
+%% The functions that build the body of the nodes frame               %%
+%%                                                                    %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+nodes_body(Err) ->
+    CN = cover:which_nodes(),
+    Fun = fun(N) -> 
+		  NStr = atom_to_list(N),
+		  ["<OPTION VALUE=",NStr,
+		   " onClick=\"node.value=selected_node.value\">",NStr,
+		   "</OPTION>\n"] 
+	  end,
+    AllNodes = lists:append(lists:map(Fun,nodes()--CN)),
+    CoverNodes = lists:append(lists:map(Fun,CN)),
+
+    [reload_menu_script(Err),
+     "<H1 ALIGN=center>Nodes</H1>\n",
+     "<TABLE BORDER=0 WIDTH=600 ALIGN=center>\n",     
+     "<TR><TD BGCOLOR=",?INFO_BG_COLOR," COLSPAN=2>\n",
+     "<P>You can run cover over several nodes simultaneously. Coverage data\n",
+     "from all involved nodes will be merged during analysis.\n",
+     "<P>Select or enter node names to add or remove here.\n",
+     "</TD></TR>\n",
+     "<TR><TD COLSPAN=2><BR><BR></TD></TR>\n",
+     "<FORM ACTION=\"./add_node\" NAME=add_node>\n",
+     "<TR><TD VALIGN=top>Add node:</TD>\n",
+     "<TD><INPUT TYPE=text NAME=\"node\" SIZE=40 >",
+     "<INPUT TYPE=submit\n",
+     " onClick=\"if(!node.value){node.value=selected_node.value};\" VALUE=Add>"
+     "<BR><SELECT NAME=selected_node TITLE=\"Select node\">\n",
+     AllNodes ++
+     "</SELECT>\n",
+     "</TD></TR>\n"
+     "</FORM>\n",
+     "<TR><TD COLSPAN=2><BR><BR></TD></TR>\n",
+     "<FORM ACTION=\"./remove_node\" NAME=remove_node>\n",
+     "<TR><TD>Remove node:</TD>\n", 
+     "<TD><SELECT NAME=node TITLE=\"Select node\">\n",
+     CoverNodes ++
+     "</SELECT>\n",
+     "<INPUT TYPE=submit VALUE=Remove>"
+     "</TD></TR>\n",
+     "</FORM>",
+     "</TABLE>"].
+          
+
+do_add_node(Input) ->
+    NodeStr = get_input_data(Input, "node"),
+    Node = list_to_atom(NodeStr),
+    case net_adm:ping(Node) of
+	pong ->
+	    cover:start(Node),
+	    nodes_frame1();
+	pang ->
+	    nodes_frame1("Node \\\'" ++ NodeStr ++ "\\\' is not alive")
+    end.
+
+do_remove_node(Input) ->
+    Node = list_to_atom(get_input_data(Input, "node")),
+    cover:stop(Node),
+    nodes_frame1().
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%                                                                     %
+% The functions that is used when the user wants to compile something %
+%                                                                     %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+compile_body(Dir,Err) ->
+    Erls = filelib:wildcard(filename:join(Dir,"*.erl")),
+    Beams = filelib:wildcard(filename:join(Dir,"*.beam")),
+    
+    [reload_menu_script(Err),
+     "<H1 ALIGN=center>Compile</H1>\n",
+     "<TABLE WIDTH=600 ALIGN=center BORDER=0>\n",
+     "<TR><TD COLSPAN=3 BGCOLOR=",?INFO_BG_COLOR,">\n",
+     "Each module which shall be part of the cover analysis must be prepared\n",
+     "or 'cover compiled'. On this page you can select .erl files and/or\n",
+     ".beam files to include in the analysis. If you select a .erl file it\n",
+     "will first be compiled with the Erlang compiler and then prepared for\n",
+     "coverage analysis. If you select a .beam file it will be prepared for\n",
+     "coverage analysis directly.\n",
+     "</TD></TR>\n",
+     "<FORM ACTION=\"./list_dir\" NAME=list_dir>\n",
+     "<TR><TD WIDTH=30% BGCOLOR=",?INFO_BG_COLOR," ROWSPAN=2>\n",
+     "To list a different directory, enter the directory name here.\n",
+     "</TD>\n",
+     "<TH COLSPAN=2><BR>List directory:<BR></TH>\n",
+     "</TR>\n",
+     "<TR><TD ALIGN=center COLSPAN=2>\n",
+     "<INPUT TYPE=text NAME=\"path\" SIZE=40 VALUE=",Dir,">",
+     "<INPUT TYPE=submit VALUE=Ok>",
+     "<BR><BR></TD></TR>\n",
+     "</FORM>\n",
+     "<FORM ACTION=\"./compile\" NAME=compile_selection>\n",
+     "<TR><TD BGCOLOR=",?INFO_BG_COLOR," ROWSPAN=2>\n",
+     "<P>Select one or more .erl or .beam files to prepare for coverage\n"
+     "analysis, and click the \"Compile\" button.\n",
+     "<P>To reload the original file after coverage analysis is complete,\n"
+     "select one or more files and click the \"Uncompile\" button, or\n",
+     "simply click the \"Uncompile all\" button to reload all originals.\n"
+     "</TD>\n",
+     "<TH>.erl files</TH><TH>.beam files</TH></TR>\n",
+     "<TR><TD ALIGN=center VALIGN=top>\n",
+     "<SELECT NAME=erl TITLE=\"Select .erl files to compile\" MULTIPLE=true",
+     " SIZE=15>\n",
+     list_modules(Erls) ++
+     "</SELECT></TD>\n",
+     "<TD ALIGN=center VALIGN=top>\n",
+     "<SELECT NAME=beam TITLE=\"Select .beam files to compile\"MULTIPLE=true",
+     " SIZE=15>\n",
+     list_modules(Beams) ++
+     "</SELECT></TD></TR>\n"
+     "<TR><TD BGCOLOR=",?INFO_BG_COLOR," ROWSPAN=2>\n",
+     "Compile options are only needed for .erl files. The options must be\n"
+     "given e.g. like this: \n"
+     "<FONT SIZE=-1>[{i,\"/my/path/include\"},{i,\"/other/path/\"}]</FONT>\n"
+     "</TD>\n",
+     "<TH COLSPAN=2><BR>Compile options:<BR></TH>\n",
+     "</TR>\n",
+     "<TR><TD COLSPAN=2 ALIGN=center>\n",
+     "<INPUT TYPE=text NAME=\"options\" SIZE=40>\n",
+     "<INPUT TYPE=hidden NAME=\"action\"></TD></TR>\n",
+     "<TR><TD></TD><TD ALIGN=center COLSPAN=2>\n",
+     "<INPUT TYPE=submit onClick=\"action.value=\'compile\';\"VALUE=Compile>",
+     "<INPUT TYPE=submit onClick=\"action.value=\'uncompile\';\" ",
+     "VALUE=Uncompile>",
+     "<INPUT TYPE=submit onClick=\"action.value=\'uncompile_all\';\" ",
+     "VALUE=\"Uncompile all\">",
+     "<BR><INPUT TYPE=reset VALUE=\"Reset form\"></TD></TR>\n",
+     "</FORM>\n",
+     "</TABLE>\n"].
+
+list_modules([File|Files]) ->
+    Mod = filename:basename(File),
+    ["<OPTION VALUE=",File," onDblClick=\"action.value=\'compile\';submit();\">",
+     Mod,"</OPTION>\n" | list_modules(Files)];
+list_modules([]) ->
+    [].
+
+do_compile(Input,Dir) ->
+    {Erls,Beams,Opts,Action} = get_compile_input(parse(Input),[],[]),
+    Errs = 
+	case Action of
+	    "compile" ->
+		do_compile(Erls,Beams,Opts,[]);
+	    "uncompile" ->
+		do_uncompile(Erls++Beams);
+	    "uncompile_all" ->
+		do_uncompile(cover:modules())
+	end,
+    compile_frame1(Dir,Errs).
+
+get_compile_input([{"erl",File}|Input],Erl,Beam) ->
+    get_compile_input(Input,[File|Erl],Beam);
+get_compile_input([{"beam",File}|Input],Erl,Beam) ->
+    get_compile_input(Input,Erl,[File|Beam]);
+get_compile_input([{"options",Opts0},{"action",Action}],Erl,Beam) ->
+    Opts = parse_options(Opts0),
+    {Erl,Beam,Opts,Action}.
+
+do_compile([Erl|Erls],Beams,Opts,Errs) ->
+    case cover:compile_module(Erl,Opts) of
+	{ok,_} ->
+	    do_compile(Erls,Beams,Opts,Errs);
+	{error,File} ->
+	    do_compile(Erls,Beams,Opts,["\\n"++File|Errs])
+    end;
+do_compile([],[Beam|Beams],Opts,Errs) ->
+    case cover:compile_beam(Beam) of
+	{ok,_} ->
+	    do_compile([],Beams,Opts,Errs);
+	{error,{no_abstract_code,File}} ->
+	    do_compile([],Beams,Opts,["\\n"++File++" (no_abstract_code)"|Errs])
+    end;
+do_compile([],[],_,[]) ->
+    [];
+do_compile([],[],_,Errs) ->
+    "Compilation failed for the following files:" ++ Errs.
+
+parse_options(Options)->
+    case erl_scan:string(Options ++".") of
+	{ok,Tokens,_Line} ->
+	    case erl_parse:parse_exprs(Tokens) of
+		{ok,X}->
+		    case lists:map(fun erl_parse:normalise/1, X) of
+			[List] when is_list(List) -> List;
+			List -> List
+		    end;
+		_ ->
+		    []
+	    end;
+	_ ->
+	    []
+    end.
+	    
+
+do_uncompile(Files) ->
+    lists:foreach(
+      fun(File) ->
+	      Module = 
+		  if is_atom(File) -> 
+			  File;
+		     true -> 
+			  ModStr = filename:basename(filename:rootname(File)),
+			  list_to_atom(ModStr)
+		  end,
+	      case code:which(Module) of
+		  cover_compiled ->
+		      code:purge(Module),
+		      case code:load_file(Module) of
+			  {module, Module} ->
+			      ok;
+			  {error, _Reason2} ->
+			      code:delete(Module)
+		      end;
+		  _ ->
+		      ok
+	      end
+      end,
+      Files),
+    [].
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%                                                                     %
+% The functions that builds the body of the page for coverage analysis%
+% 		                                                      %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+result_body(Err) ->
+    [reload_menu_script(Err),
+     "<H1 ALIGN=center>Result</H1>\n",
+     "<TABLE BORDER=0 WIDTH=600 ALIGN=center>\n",
+     "<TR><TD BGCOLOR=",?INFO_BG_COLOR,">\n",
+     "<P>After executing all your tests you can view the result of the\n",
+     "coverage analysis here. For each module you can\n",
+     "<DL>\n",
+     "<DT><B>Analyse to file</B></DT>\n",
+     "<DD>The source code of the module is shown with the number of calls\n",
+     "to each line stated in the left margin. Lines which are never called\n",
+     "are colored red.</DD>\n",
+     "<DT><B>Analyse coverage</B></DT>\n",
+     "<DD>Show the number of covered and uncovered lines in the module.</DD>\n",
+     "<DT><B>Analyse calls</B></DT>\n",
+     "<DD>Show the number of calls in the module.</DD>\n",
+     "<DT><B>Reset module</B></DT>\n",
+     "<DD>Delete all coverage data for the module.</DD>\n",
+     "<DT><B>Export module</B></DT>\n",
+     "<DD>Write all coverage data for the module to a file. The data can\n",
+     "later be imported from the \"Import\" page.</DD>\n",
+     "</DL>\n",
+     "<P>You can also reset or export data for all modules with the\n",
+     "<B>Reset all</B> and <B>Export all</B> actions respectively. For these\n",
+     "two actions there is no need to select a module.\n",
+     "<P>Select module and action from the drop down menus below, and click\n",
+     "the \"Execute\" button.\n",
+     "</TD></TR>\n",
+     "<TR><TD><BR><BR>\n",
+     result_selections(),
+     "</TD></TR></TABLE>"].
+
+result_selections() ->
+    ModList = filter_modlist(cover:modules()++cover:imported_modules(),[]),
+
+    ["<FORM ACTION=\"./result\" NAME=result_selection>\n",
+     "<TABLE WIDTH=\"300\" BORDER=0 ALIGN=center>\n",
+     "<TR><TD ALIGN=left>\n",
+     "Module:\n",
+     "<BR><SELECT NAME=module TITLE=\"Select module\">\n",
+     ModList ++
+     "</SELECT>\n",
+     "</TD>\n",
+     "<TD ALIGN=left>\n",
+     "Action:\n",
+     "<BR><SELECT NAME=action TITLE=\"Select action\">\n",
+     "<OPTION VALUE=\"analyse_to_file\">Analyse to file</OPTION>\n"
+     "<OPTION VALUE=\"coverage\">Analyse coverage</OPTION>\n"
+     "<OPTION VALUE=\"calls\">Analyse calls</OPTION>\n"
+     "<OPTION VALUE=\"reset\">Reset module</OPTION>\n"
+     "<OPTION VALUE=\"reset_all\">Reset all</OPTION>\n"
+     "<OPTION VALUE=\"export\">Export module</OPTION>\n"
+     "<OPTION VALUE=\"export_all\">Export all</OPTION>\n"
+     "</SELECT>\n",
+     "</TD>\n",
+     "<TD ALIGN=center VALIGN=bottom><INPUT TYPE=submit VALUE=Execute>\n"
+     "</TD></TR>\n"
+     "</TABLE>\n",
+     "</FORM>\n"].
+
+filter_modlist([M|Ms],Already) ->
+    case lists:member(M,Already) of
+	true ->
+	    filter_modlist(Ms,Already);
+	false ->
+	    MStr = atom_to_list(M),
+	    ["<OPTION VALUE=",MStr,">",MStr,"</OPTION>\n" |
+		filter_modlist(Ms,[M|Already])]
+    end;
+filter_modlist([],_Already) ->
+    [].
+    
+
+
+handle_result(Input) ->
+    case parse(Input) of
+	[{"module",M},{"action",A}] ->
+	    case A of
+		"analyse_to_file" ->
+		    case cover:analyse_to_file(list_to_atom(M),[html]) of
+			{ok,File} ->
+			    case file:read_file(File) of
+				{ok,HTML}->
+				    file:delete(File),
+				    [header(),
+				     reload_menu_script(""),
+				     binary_to_list(HTML)];
+				_ ->
+				    result_frame1("Can not read file" ++ File)
+			    end;
+			{error,no_source_code_found} ->
+			    result_frame1("No source code found for \\\'" ++
+					  M ++ "\\\'")
+		    end;
+		"calls" ->
+		    call_page(Input);
+		"coverage" ->
+		    coverage_page(Input);
+		"reset" ->
+		    cover:reset(list_to_atom(M)),
+		    result_frame1("Coverage data for \\\'" ++ M ++ 
+				  "\\\' is now reset");
+		"reset_all" ->
+		    cover:reset(),
+		    result_frame1("All coverage data is now reset");
+		"export" ->
+		    ExportFile = generate_filename(M),
+		    cover:export(ExportFile,list_to_atom(M)),
+		    result_frame1("Coverage data for \\\'" ++ M ++ 
+				  "\\\' is now exported to file \\\"" ++
+				  ExportFile ++ "\\\"");
+		"export_all" ->
+		    ExportFile = generate_filename("COVER"),
+		    cover:export(ExportFile),
+		    result_frame1(
+		      "All coverage data is now exported to file \\\"" ++
+		      ExportFile ++ "\\\"")
+	    end;
+	[{"action",_A}] ->
+	    result_frame1("No module is selected")
+    end.
+
+generate_filename(Prefix) ->
+    {ok,Cwd} = file:get_cwd(),
+    filename:join(Cwd,Prefix ++ "_" ++ ts() ++ ".coverdata").
+    
+ts() ->
+    {{Y,M,D},{H,Min,S}} = calendar:now_to_local_time(now()),
+    io_lib:format("~4.4.0w~2.2.0w~2.2.0w-~2.2.0w~2.2.0w~2.2.0w",
+		  [Y,M,D,H,Min,S]).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%                                                                     %
+% The functions that builds the body of the page that shows the calls %
+% 		                                                      %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+call_result(Input)->
+    Mod = list_to_atom(get_input_data(Input, "module")),
+    case cover:analyse(Mod,calls) of
+	{error,_}->
+	    error_body();
+	{ok,_} ->
+	    call_result2(Mod,Input)
+    end.
+
+call_result2(Mod,Input)->
+    Result = 
+	case get_input_data(Input,"what") of
+	    "mod" ->
+		call_result(mod,Mod);
+	    "func" ->
+		call_result(func,Mod);
+	    "clause" ->
+		call_result(clause,Mod);
+	    _->
+		call_result(all,Mod)
+	end,
+    result_choice("calls",Mod) ++ Result.
+
+result_choice(Level,Mod)->
+    ModStr=atom_to_list(Mod),
+    [reload_menu_script(""),
+     "<TABLE WIDTH=100%><TR>\n",
+     "<TD><A HREF=./",Level,"?module=",ModStr,"&what=all>All Data</A></TD>\n",
+     "<TD><A HREF=./",Level,"?module=",ModStr,"&what=mod>Module</A></TD>\n",
+     "<TD><A HREF=./",Level,"?module=",ModStr,"&what=func>Function</A></TD>\n",
+     "<TD><A HREF=./",Level,"?module=",ModStr,"&what=clause>Clause</A></TD>\n",
+     "</TR></TABLE><BR>\n"].
+
+call_result(Mode,Module)->
+    Content = 
+	case Mode of
+	    mod->
+		format_cover_call(cover:analyse(Module,calls,module),mod);
+	    func->
+		format_cover_call(cover:analyse(Module,calls,function),func);
+	    clause->
+		format_cover_call(cover:analyse(Module,calls,clause),clause);
+	    _->
+		format_cover_call(cover:analyse(Module,calls,module),mod) ++
+		   format_cover_call(cover:analyse(Module,calls,function),func)++
+		   format_cover_call(cover:analyse(Module,calls,clause),clause)
+	end,
+    getModDate(Module,date())++"<BR>"++
+    "<TABLE WIDTH=\"100%\" BORDER=1>"
+                ++ Content ++"</TABLE>".
+
+
+format_cover_call({error,_},_)->
+    ["<TR><TD>\n",
+     "<BR><BR><BR><BR>\n",
+     "<FONT SIZE=5>The selected module is not Cover Compiled</FONT>\n",
+     "<BR>\n",
+     "</TD></TR>\n"];
+
+format_cover_call({ok,{Mod,Calls}},mod)->
+    ["<TR BGCOLOR=\"#8899AA\"><TD COLSPAN=5><B>Module calls</B></TD></TR>\n", 
+     "<TR><TD COLSPAN=4><I>Module</I></TD>",
+     "<TD ALIGN=\"right\"><I>Number of calls</I></TD></TR>\n",
+     "<TR><TD COLSPAN=4>" ++ atom_to_list(Mod) ++"</TD>"
+     "<TD ALIGN=\"right\">" ++ integer_to_list(Calls)++"</TD></TR>\n"];
+
+format_cover_call({ok,Calls},func)->
+    ["<TR BGCOLOR=\"#8899AA\"><TD COLSPAN=5><B>Function calls</B></TD></TR>\n",
+     "<TR><TD><I>Module</I></TD><TD><I>Function</I></TD>",
+     "<TD COLSPAN=2 ALIGN=\"right\"><I>Arity</I></TD>",
+     "<TD ALIGN=\"right\"><I>Number of calls </I></TD></TR>\n",
+     lists:append(
+       lists:map(
+	 fun({{Mod,Func,Arity},Nr_of_calls})->
+		 ["<TR><TD WIDTH=\"20%\">"++ atom_to_list(Mod)++"</TD>\n",
+		  "<TD WIDTH=\"20%\" >" ++ atom_to_list(Func) ++" </TD>\n",
+		  "<TD COLSPAN=2 WIDTH=\"40%\" ALIGN=\"right\">",
+		  integer_to_list(Arity), 
+		  "</TD>\n",
+		  "<TD WIDTH=\"20%\" ALIGN=\"right\">",
+		  integer_to_list(Nr_of_calls), 
+		  "</TD></TR>\n"]
+	 end,
+	 Calls))];
+
+format_cover_call({ok,Calls},clause)->
+    ["<TR BGCOLOR=\"#8899AA\"><TD COLSPAN=5><B>Clause calls</B></TD></TR>\n",
+     "<TR><TD><I>Module</I></TD><TD><I>Function</I></TD>",
+     "<TD ALIGN=\"right\"><I>Arity</I></TD>",
+     "<TD ALIGN=\"right\"><I>Ordinal</I></TD>",
+     "<TD ALIGN=\"right\"><I>Number of calls</I></TD></TR>\n",
+     lists:append(
+       lists:map(
+	 fun({{Mod,Func,Arity,Ord},Nr_of_calls})->
+		 ["<TR><TD WIDTH=\"20%\" >", atom_to_list(Mod), "</TD>\n",  
+		  "<TD WIDTH=\"20%\" >", atom_to_list(Func), "</TD>\n",
+		  "<TD WIDTH=\"20%\" ALIGN=\"right\">",
+		  integer_to_list(Arity),
+		  "</TD>\n",
+		  "<TD WIDTH=\"20%\" ALIGN=\"right\">",
+		  integer_to_list(Ord),
+		  "</TD>\n",
+		  "<TD WIDTH=\"20%\" ALIGN=\"right\">",
+		  integer_to_list(Nr_of_calls),
+		  "</TD></TR>\n"]
+	 end,
+	 Calls))].
+
+
+error_body()->
+    ["<TABLE WIDTH=\"100%\" BORDER=1>\n",
+     "<TR ALIGN=\"center\">\n",
+     "<TD>\n",
+     "<BR><BR><BR><BR><BR><BR>\n",
+     "<FONT SIZE=5>The selected module is not Cover Compiled</FONT>\n",
+     "<BR>\n",
+     "</TD>\n",
+     "</TR>\n",
+     "</TABLE>\n"].
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%                                                                     %
+% The functions that builds the body of the page that shows coverage  %
+% 		                                                      %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+coverage_result(Input)->
+    Mod = list_to_atom(get_input_data(Input, "module")),
+    case cover:analyse(Mod,coverage) of
+	{error,_}->
+	    error_body();
+	{ok,_} ->
+	    coverage_result2(Mod,Input)
+    end.
+
+coverage_result2(Mod,Input)->
+    Result = 
+	case get_input_data(Input,"what") of
+	    "mod" ->
+		coverage_result(mod,Mod);
+	    "func" ->
+		coverage_result(func,Mod);
+	    "clause" ->
+		coverage_result(clause,Mod);
+	    _->
+		coverage_result(all,Mod)
+	end,
+    result_choice("coverage",Mod) ++ Result.
+
+coverage_result(Mode,Module)->
+    Content = 
+	case Mode of
+	    mod->
+		format_cover_coverage(cover:analyse(Module,coverage,module),
+				      mod);
+	    func->
+		format_cover_coverage(cover:analyse(Module,coverage,function),
+				      func);
+	    clause->
+		format_cover_coverage(cover:analyse(Module,coverage,clause),
+				      clause);
+	    _->
+		format_cover_coverage(cover:analyse(Module,coverage,module),
+				      mod) ++
+		   format_cover_coverage(cover:analyse(Module,coverage,function),
+					 func)++
+		   format_cover_coverage(cover:analyse(Module,coverage,clause),
+					 clause)
+	      end,
+    getModDate(Module,date())++"<BR>"++
+    "<TABLE WIDTH=\"100%\" BORDER=1>"
+                ++ Content ++"</TABLE>".
+
+getModDate(Module,{Year,Mon,Day})->
+    "<TABLE>
+      <TR>
+        <TD>Module:</TD> 
+        <TD>" ++ atom_to_list(Module) ++ "</TD> 
+      </TR>
+     <TR>
+        <TD>Date:</TD> 
+        <TD>" ++ integer_to_list(Day) ++ "/" ++ 
+                 integer_to_list(Mon) ++"&nbsp;-&nbsp;"++ 
+                 integer_to_list(Year)  ++ 
+       "</TD> 
+     </TR>
+   </TABLE>".
+
+
+format_cover_coverage({error,_},_)->
+     "<TR><TD>
+      <BR><BR><BR><BR>
+      <FONT SIZE=5>The selected module is not Cover Compiled</FONT>
+      <BR>  
+      </TD></TR>";
+
+
+format_cover_coverage({ok,{Mod,{Cov,Not_cov}}},mod)->
+    ["<TR BGCOLOR=\"#8899AA\"><TD COLSPAN=6><B>Module coverage</B></TD></TR>\n",
+     "<TR><TD COLSPAN=4><I>Module</I></TD>\n",
+     "<TD ALIGN=\"right\"><I>Covered</I></TD>\n"
+     "<TD ALIGN=\"RIGHT\" NOWRAP=\"true\"><I>Not Covered</I></TD>\n",
+     "</TR>\n",
+     "<TR><TD COLSPAN=4>", atom_to_list(Mod), "</TD>\n"
+     "<TD ALIGN=\"right\">", integer_to_list(Cov), "</TD>\n"
+     "<TD ALIGN=\"right\" >", integer_to_list(Not_cov), "</TD></TR>\n"];
+
+format_cover_coverage({ok,Cov_res},func)->
+    ["<TR BGCOLOR=\"#8899AA\"><TD COLSPAN=6><B>Function coverage</B></TD>\n",
+     "</TR>\n",
+     "<TR><TD><I>Module</I></TD><TD><I>Function</I></TD>",
+     "<TD ALIGN=\"right\"><I>Arity</I></TD>",
+     "<TD COLSPAN=2 ALIGN=\"right\"><I>Covered</I></TD>",
+     "<TD ALIGN=\"right\" STYLE=\"white-space:nowrap\"><I>Not Covered</I></TD>",
+     "</TR>\n",
+     lists:append(
+       lists:map(
+	 fun({{Mod,Func,Arity},{Cov,Not_cov}})->
+		 ["<TR><TD WIDTH=\"20%\" >"++ atom_to_list(Mod) ++" </TD>\n",
+		  "<TD WIDTH=\"20%\" >" ++ atom_to_list(Func) ++"</TD>\n",
+		  "<TD WIDTH=\"40%\" ALIGN=\"right\">",
+		  integer_to_list(Arity),
+		  "</TD>\n",  
+		  "<TD WIDTH=\"40%\" ALIGN=\"right\" COLSPAN=2>",
+		  integer_to_list(Cov),
+		  "</TD>\n"
+		  "<TD WIDTH=\"20%\" ALIGN=\"right\">",
+		  integer_to_list(Not_cov),
+		  "</TD></TR>\n"]
+	 end,
+	 Cov_res))];
+
+format_cover_coverage({ok,Cov_res},clause)->
+    ["<TR BGCOLOR=\"#8899AA\"><TD COLSPAN=6><B>Clause coverage</B></TD></TR>\n",
+     "<TR><TD><I>Module</I></TD><TD><I>Function</I></TD>\n",
+     "<TD ALIGN=\"right\"><I>Arity</I></TD>\n",
+     "<TD ALIGN=\"right\"><I>Ordinal<I></TD>\n",
+     "<TD ALIGN=\"right\">Covered</TD>\n",
+     "<TD ALIGN=\"right\" STYLE=\"white-space:nowrap\">Not Covered</TD></TR>\n",
+     lists:append(
+       lists:map(
+	 fun({{Mod,Func,Arity,Ord},{Cov,Not_cov}})->
+		 ["<TR><TD WIDTH=\"20%\" >"++ atom_to_list(Mod) ++"</TD>\n",  
+		  "<TD WIDTH=\"20%\" >" ++ atom_to_list(Func) ++" </TD>\n",
+		  "<TD WIDTH=\"20%\" ALIGN=\"right\">",
+		  integer_to_list(Arity),
+		  "</TD>\n"
+		  "<TD WIDTH=\"20%\" ALIGN=\"right\">",
+		  integer_to_list(Ord),
+		  "</TD>\n"
+		  "<TD WIDTH=\"20%\" ALIGN=\"right\">",
+		  integer_to_list(Cov),
+		  "</TD>\n"
+		  "<TD WIDTH=\"20%\" ALIGN=\"right\">",
+		  integer_to_list(Not_cov),
+		  "</TD></TR>\n"]
+	 end,
+	 Cov_res))].
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%                                                                     %
+% The functions that builds the body of the import page               %
+% 		                                                      %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+import_body(Dir,Err) ->
+    [reload_menu_script(Err),
+     "<H1 ALIGN=center>Import</H1>\n",
+     "<TABLE BORDER=0 WIDTH=600 ALIGN=center>\n",     
+     "<TR><TD BGCOLOR=",?INFO_BG_COLOR,">\n",
+     "<P>You can import coverage data from a previous analysis. If you do so\n",
+     "the imported data will be merged with the current coverage data.\n",
+     "<P>You can export data from the current analysis from the \"Result\"\n",
+     "page.\n",
+     "<P>Select the file to import here.\n",
+     "</TD></TR>\n",
+     "<TR><TD ALIGN=center><BR><BR>\n",
+     "<FORM NAME=change_import_dir METHOD=post ACTION=\"./import\">\n",
+     "<B>Change directory:</B><BR>\n",
+     "<INPUT TYPE=text NAME=\"file\" SIZE=30 VALUE=",Dir,">",
+     "<INPUT TYPE=hidden NAME=dir VALUE=",Dir,">\n",
+     "<INPUT TYPE=submit VALUE=Ok><BR>\n",
+     "</FORM>\n",
+     browse_import(Dir),
+     "</TABLE>"].
+
+browse_import(Dir) ->
+    {ok,List} = file:list_dir(Dir),
+    Sorted = lists:reverse(lists:sort(List)),
+    {Dirs,Files} = filter_files(Dir,Sorted,[],[]),
+    ["<FORM NAME=browse_import METHOD=post ACTION=\"./import\">\n"
+     "<SELECT NAME=file TITLE=\"Select import file\" SIZE=10>\n",
+     "<OPTION VALUE=\"..\" onDblClick=submit()>../</OPTION>\n",
+     Dirs,
+     Files,
+     "</SELECT>\n",
+     "<INPUT TYPE=hidden NAME=dir VALUE=",Dir,">\n",
+     "<BR><INPUT TYPE=submit VALUE=Ok>\n"
+     "</FORM>\n"].
+
+filter_files(Dir,[File|Files],Ds,Fs) ->
+    case filename:extension(File) of
+	".coverdata" ->
+	    Fs1 = ["<OPTION VALUE=",File," onDblClick=submit()>",
+		   File,"</OPTION>\n" | Fs],
+	    filter_files(Dir,Files,Ds,Fs1);
+	_ ->
+	    FullName = filename:join(Dir,File),
+	    case filelib:is_dir(FullName) of
+		true ->
+		    Ds1 = ["<OPTION VALUE=",File," onDblClick=submit()>",
+			   File,"/</OPTION>\n" | Ds],
+		    filter_files(Dir,Files,Ds1,Fs);
+		false ->
+		    filter_files(Dir,Files,Ds,Fs)
+	    end
+    end;
+filter_files(_Dir,[],Ds,Fs) ->
+    {Ds,Fs}.
+
+
+
+
+do_import(Input) ->
+    case parse(Input) of
+	[{"file",File0},{"dir",Dir}] ->
+	    File = filename:join(Dir,File0),
+	    case filelib:is_dir(File) of
+		true ->
+		    import_frame1(File);
+		false ->
+		    case filelib:is_file(File) of
+			true ->
+			    case cover:import(File) of
+				ok ->
+				    import_frame1(Dir);
+				{error,{cant_open_file,ExportFile,_Reason}} ->
+				    import_frame1(Dir,
+						  "Error importing file\\n\\\"" 
+						  ++ ExportFile ++ "\\\"")
+			    end;
+			false ->
+			    import_frame1(Dir,
+					  "Error importing file\\n\\\"" ++ 
+					  File ++ "\\\"")
+		    end
+	    end;
+	[{"dir",Dir}] ->
+	    import_frame1(Dir,"No file is selected")
+    end.
+	    
+
+    
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%                                                                     %
+% Different private helper functions                                   %
+% 		                                                      %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%Create the Header for the page If we now the mimetype use that type %%
+%%otherwise use text                                                  %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  
+header() ->
+    header("text/html").
+header(MimeType) ->
+    "Pragma:no-cache\r\n" ++
+    "Content-type: " ++ MimeType ++ "\r\n\r\n".
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%    
+%%Create the Htmlheader set the title of the page                     %%       
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+html_header(Title) ->    
+    "<HTML>\n" ++
+	"<HEAD>\n" ++
+	"<TITLE>" ++ Title ++  "</TITLE>\n" ++
+	"</HEAD>\n"
+	"<BODY BGCOLOR=\"#FFFFFF\">\n".
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Close the body- and Html tags                                      %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+html_end()->
+    "</BODY></HTML>".
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% A script which reloads the menu frame and possibly pops up an alert%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+reload_menu_script(Err) ->
+    ["<SCRIPT>\n",
+     "function reloadMenu()\n",
+     "  {\n",
+     "    parent.menu.document.location.href=\"./menu_frame\";\n",
+     case Err of
+	 "" -> "";
+	 _ -> "    alert(\""++Err++"\");\n"
+     end,
+     case get_warnings() of
+	 [] -> 
+	     "";
+	 Warnings -> 
+	     "    alert(\""++fix_newline(lists:flatten(Warnings))++"\");\n"
+     end,
+     "  }\n",
+     "</SCRIPT>\n",
+     "<BODY onLoad=reloadMenu() BGCOLOR=\"#FFFFFF\">"].
+
+fix_newline([$\n|Rest]) ->
+    [$\\,$n|fix_newline(Rest)];
+fix_newline([$"|Rest]) ->
+    [$\\,$"|fix_newline(Rest)];
+fix_newline([Char|Rest]) ->
+    [Char|fix_newline(Rest)];
+fix_newline([]) ->
+    [].
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Control the input data and return the intresting values or error   %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+get_input_data(Input,Key)->
+    case lists:keysearch(Key,1,parse(Input)) of
+	{value,{Key,Value}} ->
+	    Value;
+	false ->
+	    undefined
+    end.
+
+parse(Input) ->
+    httpd:parse_query(Input).
+
+
+get_warnings() ->
+    cover_group_leader_proc ! {self(), get_warnings},
+    receive {warnings,Warnings} ->
+	    Warnings
+    end.