poolparty 0.2.18 → 0.2.69

data/lib/erlang/messenger/lib/eunit/src/.svn/text-base/file_monitor.erl.svn-base

@@ -0,0 +1,409 @@
+%% This library is free software; you can redistribute it and/or modify
+%% it under the terms of the GNU Lesser General Public License as
+%% published by the Free Software Foundation; either version 2 of the
+%% License, or (at your option) any later version.
+%%
+%% This library is distributed in the hope that it will be useful, but
+%% WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+%% Lesser General Public License for more details.
+%%
+%% You should have received a copy of the GNU Lesser General Public
+%% License along with this library; if not, write to the Free Software
+%% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
+%% USA
+%%
+%% $Id$ 
+%%
+%% @private (for now)
+%% @author Richard Carlsson <richardc@it.uu.se>
+%% @copyright 2006 Richard Carlsson
+%% @doc Erlang file monitoring service
+
+%% The behaviour of this service is inspired by the open source FAM
+%% daemon [http://oss.sgi.com/projects/fam/].
+
+-module(file_monitor).
+
+-export([start/0, start/1, start/2, stop/0, stop/1, monitor_file/2,
+	 monitor_file/3, monitor_dir/2, monitor_dir/3, demonitor/1,
+	 demonitor/2]).
+
+-export([main/1]).    %% private
+
+-include_lib("kernel/include/file.hrl").
+
+-define(POLL_TIME, 5000). % default; change with option poll_time
+-define(SERVER, file_monitor).
+
+%% NOTE: paths should be absolute, but this is not checked
+
+%% We don't change the paths, e.g. from relative to absolute, but we
+%% make sure that the path is a flat string and return it to the caller.
+
+monitor_file(Path, Pid) ->
+    monitor_file(?SERVER, Path, Pid).
+
+monitor_file(Server, Path, Pid) ->
+    monitor(Server, file, filename:flatten(Path), Pid).
+
+monitor_dir(Path, Pid) ->
+    monitor_dir(?SERVER, Path, Pid).
+
+monitor_dir(Server, Path, Pid) ->
+    monitor(Server, dir, filename:flatten(Path), Pid).
+
+monitor(Server, Type, Path, Pid) when is_pid(Pid) ->
+    {ok, Ref} = command(Server, {monitor, {Type, Path}, Pid}),
+    {ok, Path, Ref}.
+
+demonitor(Ref) ->
+    demonitor(?SERVER, Ref).
+
+demonitor(Server, Ref) ->
+    ok = command(Server, {demonitor, Ref}).
+
+
+command(Server, Cmd) ->
+    ServerPid = ensure_started(Server),
+    ServerPid ! {command, self(), Cmd},
+    receive
+	{ServerPid, Result} -> Result
+    end.
+
+
+stop() ->
+    stop(?SERVER).
+
+stop(Server) ->
+    Server ! stop,
+    ok.
+	    
+ensure_started(Name) when is_atom(Name) ->
+    start(Name, []);
+ensure_started(Pid) when is_pid(Pid) ->
+    Pid.
+
+start() ->
+    start([]).
+
+start(Options) ->
+    start(?SERVER, Options).
+
+start(Name, Options) ->
+    case whereis(Name) of
+	undefined ->
+	    Parent = self(),
+	    Pid = spawn(fun () -> server_init(Name, Parent, Options) end),
+	    receive
+		{Pid, ok} -> Pid;
+		{Pid, error} -> throw(no_server)
+	    end;
+	Pid -> Pid
+    end.
+
+-record(state, {name, time, dirs, files, clients, refs}).
+
+server_init(undefined = Name, Parent, Options) ->
+    %% anonymous server
+    server_init_1(Name, Parent, Options);
+server_init(Name, Parent, Options) ->
+    case catch register(Name, self()) of
+	true ->
+	    server_init_1(Name, Parent, Options);
+	_ ->
+	    Parent ! {self(), error},
+	    exit(failed)
+    end.
+
+server_init_1(Name, Parent, Options) ->
+    Parent ! {self(), ok},
+    server(set_timer(init_state(Name, Options))).
+
+init_state(Name, Options) ->
+    Time = case proplists:get_value(poll_time, Options) of
+	       N when is_integer(N), N >= 100 -> N;
+	       _ -> ?POLL_TIME
+	   end,
+    #state{name = Name,
+	   time = Time,
+	   dirs = dict:new(),
+	   files = dict:new(),
+	   clients = dict:new(),
+	   refs = dict:new()}.
+
+server(St) -> ?MODULE:main(St).
+
+%% @private
+main(St) ->
+    receive
+	{command, From, {monitor, Object, Pid}} when is_pid(Pid) ->
+	    {Ref, St1} = new_monitor(Object, Pid, St),
+	    server_reply(From, {ok, Ref}),
+	    server(add_client(Pid, St1));
+	{command, From, {demonitor, Ref}} ->
+	    server_reply(From, ok),
+	    server(delete_monitor(Ref, St));
+	stop ->
+	    exit(normal);
+	time ->
+	    server(set_timer(poll(St)));
+	{'DOWN', _Ref, process, Pid, _Info} ->
+	    server(purge_pid(Pid, del_client(Pid, St)));
+	_ ->
+	    server(St)
+    end.
+
+server_reply(To, Msg) ->
+    To ! {self(), Msg}.
+
+set_timer(St) ->
+    erlang:send_after(St#state.time, self(), time),
+    St.
+
+
+%% client monitoring (once a client, always a client - until death)
+
+add_client(Pid, St) ->
+    case dict:is_key(Pid, St#state.clients) of
+	true ->
+	    St;
+	false ->
+	    Ref = erlang:monitor(process, Pid),
+	    St#state{clients = dict:store(Pid, Ref, St#state.clients)}
+    end.
+
+del_client(Pid, St) ->
+    case dict:find(Pid, St#state.clients) of
+	{ok, Ref} ->
+	    erlang:demonitor(Ref, [flush]),
+	    St#state{clients = dict:erase(Pid, St#state.clients)};
+	error ->
+	    St
+    end.
+
+
+-record(monitor, {pid, reference}).
+
+-record(entry, {info = undefined, files = [], monitors = sets:new()}).
+
+new_monitor(Object, Pid, St) ->
+    Ref = make_ref(),
+    Monitor = #monitor{pid = Pid, reference = Ref},
+    new_monitor(Object, Monitor, Ref,
+		St#state{refs = dict:store(Ref, {Pid, Object},
+					   St#state.refs)}).
+
+%% We must separate the namespaces for files and dirs, since we can't
+%% trust the users to keep them distinct; there may be simultaneous file
+%% and dir monitors for the same path.
+
+new_monitor({file, Path}, Monitor, Ref, St) ->
+    {Ref, St#state{files = add_monitor(Path, Monitor, file,
+				       St#state.files)}};
+new_monitor({dir, Path}, Monitor, Ref, St) ->
+    {Ref, St#state{dirs = add_monitor(Path, Monitor, dir,
+				      St#state.dirs)}}.
+
+%% Adding a new monitor forces an immediate poll of the file, such that
+%% previous monitors only see any real change, while the new monitor
+%% either gets {exists, ...} or {error, ...}.
+
+add_monitor(Path, Monitor, Type, Dict) ->
+    Entry = case dict:find(Path, Dict) of
+		{ok, OldEntry} -> poll_file(Path, OldEntry, Type);
+		error -> new_entry(Path, Type)
+	    end,
+    event(#entry{}, dummy_entry(Entry, Monitor), Type, Path),
+    NewEntry = Entry#entry{monitors =
+			   sets:add_element(Monitor,
+					    Entry#entry.monitors)},
+    dict:store(Path, NewEntry, Dict).
+
+dummy_entry(Entry, Monitor) ->
+    Entry#entry{monitors = sets:add_element(Monitor, sets:new())}.
+
+new_entry(Path, Type) ->
+    refresh_entry(Path, #entry{monitors = sets:new()}, Type).
+
+%% deleting a monitor by reference
+
+delete_monitor(Ref, St) ->
+    case dict:find(Ref, St#state.refs) of
+	{ok, {_Pid, Object}} ->
+	    St1 = St#state{refs = dict:erase(Ref, St#state.refs)},
+	    delete_monitor_1(Ref, Object, St1);
+	error ->
+	    St
+    end.
+
+delete_monitor_1(Ref, {file, Path}, St) ->
+    St#state{files = delete_monitor_2(Path, Ref, St#state.files)};
+delete_monitor_1(Ref, {dir, Path}, St) ->
+    St#state{dirs = delete_monitor_2(Path, Ref, St#state.dirs)}.
+
+delete_monitor_2(Path, Ref, Dict) ->
+    case dict:find(Path, Dict) of
+	{ok, Entry} -> 
+	    purge_empty_sets(
+	      dict:store(Path, purge_monitor_ref(Ref, Entry), Dict));
+	error ->
+	    Dict
+    end.
+
+purge_monitor_ref(Ref, Entry) ->
+    Entry#entry{monitors =
+		sets:filter(fun (#monitor{reference = R})
+				when R == Ref -> false;
+				(_) -> true
+			    end,
+			    Entry#entry.monitors)}.
+
+%% purging monitors belonging to dead clients
+
+purge_pid(Pid, St) ->
+    Files = dict:map(fun (_Path, Entry) ->
+			     purge_monitor_pid(Pid, Entry)
+		     end,
+		     St#state.files),
+    Dirs = dict:map(fun (_Path, Entry) ->
+			    purge_monitor_pid(Pid, Entry)
+		    end,
+		    St#state.dirs),
+    Refs = dict:filter(fun (_Ref, {P, _})
+			   when P == Pid -> false;
+			   (_, _) -> true
+		       end,
+		       St#state.refs),
+    St#state{refs = Refs,
+	     files = purge_empty_sets(Files),
+	     dirs = purge_empty_sets(Dirs)}.
+
+purge_monitor_pid(Pid, Entry) ->
+    Entry#entry{monitors =
+		sets:filter(fun (#monitor{pid = P})
+				when P == Pid -> false;
+				(_) -> true
+			    end,
+			    Entry#entry.monitors)}.
+
+purge_empty_sets(Dict) ->
+    dict:filter(fun (_Path, Entry) ->
+			sets:size(Entry#entry.monitors) > 0
+		end, Dict).
+
+
+%% generating events upon state changes
+
+%% Message formats:
+%%   {exists, Path, Type, #file_info{}, Files}
+%%   {changed, Path, Type, #file_info{}, Files}
+%%   {error, Path, Type, Info}
+%%
+%% Type is dir or file. If Type is file, Files is always []. If Type is
+%% dir, Files is a list of {added, FileName} and {deleted, FileName},
+%% where FileName is relative to dir, without any path component.
+%%
+%% When a new monitor is installed for a path, an initial {exists,...}
+%% or {error,...} message will be sent to the monitor owner.
+%%
+%% Subsequent events will be either {changed,...} or {error,...}.
+
+event(#entry{info = Info}, #entry{info = Info}, _Type, _Path) ->
+    %% no change in state
+    ok;
+event(#entry{info = undefined}, #entry{info = NewInfo}=Entry,
+      Type, Path)
+  when not is_atom(NewInfo) ->
+    %% file or directory exists, for a fresh monitor
+    Files = [{added, F} || F <- Entry#entry.files],
+    cast({exists, Path, Type, NewInfo, Files}, Entry#entry.monitors);
+event(_OldEntry, #entry{info = NewInfo}=Entry, Type, Path)
+  when is_atom(NewInfo) ->
+    %% file is not available
+    cast({error, Path, Type, NewInfo}, Entry#entry.monitors);
+event(_OldEntry, Entry, file, Path) ->
+    %% a normal file has changed
+    cast({changed, Path, file, Entry#entry.info, []},
+	 Entry#entry.monitors);
+event(#entry{info = OldInfo}, #entry{info = NewInfo}=Entry, dir, Path)
+  when is_atom(OldInfo) ->
+    %% a directory has suddenly become available
+    Files = [{added, F} || F <- Entry#entry.files],
+    cast({changed, Path, dir, NewInfo, Files}, Entry#entry.monitors);
+event(OldEntry, #entry{info = NewInfo}=Entry, dir, Path) ->
+    %% a directory has changed
+    Files = diff_lists(Entry#entry.files, OldEntry#entry.files),
+    cast({changed, Path, dir, NewInfo, Files}, Entry#entry.monitors).
+
+
+poll(St) ->
+    St#state{files = dict:map(fun (Path, Entry) ->
+				      poll_file(Path, Entry, file)
+			      end,
+			      St#state.files),
+	     dirs = dict:map(fun (Path, Entry) ->
+				     poll_file(Path, Entry, dir)
+			     end,
+			     St#state.dirs)}.
+
+poll_file(Path, Entry, Type) ->
+    NewEntry = refresh_entry(Path, Entry, Type),
+    event(Entry, NewEntry, Type, Path),
+    NewEntry.
+
+refresh_entry(Path, Entry, Type) ->
+    Info = get_file_info(Path),
+    Files = case Type of
+		dir when not is_atom(Info) -> get_dir_files(Path);	    
+		_ -> []
+	    end,
+    Entry#entry{info = Info, files = Files}.
+
+
+%% We clear some fields of the file_info so that we only trigger on real
+%% changes; see the //kernel/file.erl manual and file.hrl for details.
+
+get_file_info(Path) ->
+    case file:read_file_info(Path) of
+	{ok, Info} ->
+	    Info#file_info{access = undefined,
+			   atime  = undefined};
+	{error, Error} ->
+	    Error  % posix error code as atom
+    end.
+
+%% Listing the members of a directory; note that it yields the empty
+%% list if it fails - this is not the place for error detection.
+
+get_dir_files(Path) ->
+    case file:list_dir(Path) of
+	{ok, Files} -> lists:sort(Files);
+	{error, _} -> []
+    end.
+
+%% both lists must be sorted for this diff to work
+
+diff_lists([F1 | Fs1], [F2 | _]=Fs2) when F1 < F2 ->
+    [{added, F1} | diff_lists(Fs1, Fs2)];
+diff_lists([F1 | _]=Fs1, [F2 | Fs2]) when F1 > F2 ->
+    [{deleted, F2} | diff_lists(Fs1, Fs2)];
+diff_lists([_ | Fs1], [_ | Fs2]) ->
+    diff_lists(Fs1, Fs2);
+diff_lists([F | Fs1], Fs2) ->
+    [{added, F} | diff_lists(Fs1, Fs2)];
+diff_lists(Fs1, [F | Fs2]) ->
+    [{deleted, F} | diff_lists(Fs1, Fs2)];
+diff_lists([], []) ->
+    [].
+
+
+%% Multicasting events to clients
+
+cast(Msg, Monitors) ->
+    sets:fold(fun (#monitor{pid = Pid, reference = Ref}, Msg) ->
+		      %%erlang:display({file_monitor, Ref, Msg}),
+		      Pid ! {file_monitor, Ref, Msg},
+		      Msg  % note that this is a fold, not a map
+	      end,
+	      Msg, Monitors).

data/lib/erlang/messenger/pm_client_rel-0.1.script

@@ -0,0 +1,238 @@
+%% script generated at {2008,11,23} {3,48,11}
+{script,
+    {"client","0.1"},
+    [{preLoaded,[erlang,erl_prim_loader,prim_file,prim_inet,init,otp_ring0]},
+     {progress,preloaded},
+     {path,
+         ["/opt/local/lib/erlang/lib/kernel-2.12.5/ebin",
+          "/opt/local/lib/erlang/lib/stdlib-1.15.5/ebin"]},
+     {primLoad,[error_handler]},
+     {kernel_load_completed},
+     {progress,kernel_load_completed},
+     {path,["/opt/local/lib/erlang/lib/kernel-2.12.5/ebin"]},
+     {primLoad,
+         [zlib,wrap_log_reader,user_sup,user_drv,user,seq_trace,rpc,ram_file,
+          prim_zip,pg2,packages,os,net_kernel,net_adm,net,kernel_config,
+          kernel,inet_udp,inet_tcp_dist,inet_tcp,inet_sctp,inet_res,
+          inet_parse,inet_hosts,inet_gethost_native,inet_dns,inet_db,
+          inet_config,inet6_udp,inet6_tcp_dist,inet6_tcp,inet,
+          hipe_unified_loader,heart,group,global_search,global_group,global,
+          gen_udp,gen_tcp,gen_sctp,file_server,file_io_server,file,erts_debug,
+          error_logger,erl_reply,erl_epmd,erl_distribution,erl_ddll,
+          erl_boot_server,dist_util,dist_ac,disk_log_sup,disk_log_server,
+          disk_log_1,disk_log,code_server,code,auth,application_starter,
+          application_master,application_controller,application]},
+     {path,["/opt/local/lib/erlang/lib/stdlib-1.15.5/ebin"]},
+     {primLoad,
+         [zip,win32reg,unicode,timer,sys,supervisor_bridge,supervisor,string,
+          sofs,slave,shell_default,shell,sets,regexp,re,random,queue,qlc_pt,
+          qlc,proplists,proc_lib,pool,pg,otp_internal,ordsets,orddict,
+          ms_transform,math,log_mf_h,lists,lib,io_lib_pretty,io_lib_fread,
+          io_lib_format,io_lib,io,gen_server,gen_fsm,gen_event,gen,gb_trees,
+          gb_sets,filename,filelib,file_sorter,eval_bits,ets,escript,
+          error_logger_tty_h,error_logger_file_h,erl_tar,erl_scan,erl_pp,
+          erl_posix_msg,erl_parse,erl_lint,erl_internal,erl_expand_records,
+          erl_eval,erl_compile,erl_bits,epp,edlin_expand,edlin,digraph_utils,
+          digraph,dict,dets_v9,dets_v8,dets_utils,dets_sup,dets_server,dets,
+          calendar,c,beam_lib,base64,array]},
+     {path,["/opt/local/lib/erlang/lib/inets-5.0.12/ebin"]},
+     {primLoad,
+         [tftp_sup,tftp_logger,tftp_lib,tftp_file,tftp_engine,tftp_binary,
+          tftp,mod_trace,mod_security_server,mod_security,mod_responsecontrol,
+          mod_range,mod_log,mod_include,mod_htaccess,mod_head,mod_get,mod_esi,
+          mod_disk_log,mod_dir,mod_cgi,mod_browser,mod_auth_server,
+          mod_auth_plain,mod_auth_mnesia,mod_auth_dets,mod_auth,mod_alias,
+          mod_actions,inets_sup,inets_service,inets_app,inets,httpd_util,
+          httpd_sup,httpd_socket,httpd_script_env,httpd_response,
+          httpd_request_handler,httpd_request,httpd_misc_sup,httpd_manager,
+          httpd_log,httpd_instance_sup,httpd_file,httpd_example,httpd_esi,
+          httpd_conf,httpd_cgi,httpd_acceptor_sup,httpd_acceptor,httpd,
+          httpc_sup,httpc_response,httpc_request,httpc_profile_sup,
+          httpc_manager,httpc_handler_sup,httpc_handler,http_util,http_uri,
+          http_transport,http_response,http_request,http_cookie,http_chunk,
+          http,ftp_sup,ftp_response,ftp_progress,ftp]},
+     {path,["/opt/local/lib/erlang/lib/crypto-1.5.3/ebin"]},
+     {primLoad,[crypto_sup,crypto_server,crypto_app,crypto]},
+     {path,["/opt/local/lib/erlang/lib/sasl-2.1.5.4/ebin"]},
+     {primLoad,
+         [systools_relup,systools_rc,systools_make,systools_lib,systools,
+          sasl_report_tty_h,sasl_report_file_h,sasl_report,sasl,
+          release_handler_1,release_handler,rb_format_supp,rb,overload,
+          misc_supp,format_lib_supp,erlsrv,alarm_handler]},
+     {path,
+         ["/Users/petegolibersuch/Development/ruby/poolparty/lib/erlang/messenger/ebin"]},
+     {primLoad,
+         [utils,pm_client_supervisor,pm_client,client_server,client_app]},
+     {progress,modules_loaded},
+     {path,
+         ["/opt/local/lib/erlang/lib/kernel-2.12.5/ebin",
+          "/opt/local/lib/erlang/lib/stdlib-1.15.5/ebin",
+          "/opt/local/lib/erlang/lib/inets-5.0.12/ebin",
+          "/opt/local/lib/erlang/lib/crypto-1.5.3/ebin",
+          "/opt/local/lib/erlang/lib/sasl-2.1.5.4/ebin",
+          "/Users/petegolibersuch/Development/ruby/poolparty/lib/erlang/messenger/ebin"]},
+     {kernelProcess,heart,{heart,start,[]}},
+     {kernelProcess,error_logger,{error_logger,start_link,[]}},
+     {kernelProcess,application_controller,
+         {application_controller,start,
+             [{application,kernel,
+                  [{description,"ERTS  CXC 138 10"},
+                   {vsn,"2.12.5"},
+                   {id,[]},
+                   {modules,
+                       [application,application_controller,application_master,
+                        application_starter,auth,code,packages,code_server,
+                        dist_util,erl_boot_server,erl_distribution,
+                        erl_prim_loader,erl_reply,erlang,error_handler,
+                        error_logger,file,file_server,file_io_server,
+                        prim_file,prim_zip,global,global_group,global_search,
+                        group,heart,hipe_unified_loader,inet6_tcp,
+                        inet6_tcp_dist,inet6_udp,inet_config,inet_hosts,
+                        inet_gethost_native,inet_tcp_dist,init,kernel,
+                        kernel_config,net,net_adm,net_kernel,os,ram_file,rpc,
+                        user,user_drv,user_sup,disk_log,disk_log_1,
+                        disk_log_server,disk_log_sup,dist_ac,erl_ddll,
+                        erl_epmd,erts_debug,gen_tcp,gen_udp,gen_sctp,
+                        prim_inet,inet,inet_db,inet_dns,inet_parse,inet_res,
+                        inet_tcp,inet_udp,inet_sctp,pg2,seq_trace,
+                        wrap_log_reader,zlib,otp_ring0]},
+                   {registered,
+                       [application_controller,erl_reply,auth,boot_server,
+                        code_server,disk_log_server,disk_log_sup,
+                        erl_prim_loader,error_logger,file_server_2,
+                        fixtable_server,global_group,global_name_server,heart,
+                        init,kernel_config,kernel_sup,net_kernel,net_sup,rex,
+                        user,os_server,ddll_server,erl_epmd,inet_db,pg2]},
+                   {applications,[]},
+                   {included_applications,[]},
+                   {env,[{error_logger,tty}]},
+                   {start_phases,undefined},
+                   {maxT,infinity},
+                   {maxP,infinity},
+                   {mod,{kernel,[]}}]}]}},
+     {progress,init_kernel_started},
+     {apply,
+         {application,load,
+             [{application,stdlib,
+                  [{description,"ERTS  CXC 138 10"},
+                   {vsn,"1.15.5"},
+                   {id,[]},
+                   {modules,
+                       [array,base64,beam_lib,c,calendar,dets,dets_server,
+                        dets_sup,dets_utils,dets_v8,dets_v9,dict,digraph,
+                        digraph_utils,edlin,edlin_expand,epp,eval_bits,
+                        erl_bits,erl_compile,erl_eval,erl_expand_records,
+                        erl_internal,erl_lint,erl_parse,erl_posix_msg,erl_pp,
+                        erl_scan,erl_tar,error_logger_file_h,
+                        error_logger_tty_h,escript,ets,file_sorter,filelib,
+                        filename,gb_trees,gb_sets,gen,gen_event,gen_fsm,
+                        gen_server,io,io_lib,io_lib_format,io_lib_fread,
+                        io_lib_pretty,lib,lists,log_mf_h,math,ms_transform,
+                        orddict,ordsets,otp_internal,pg,pool,proc_lib,
+                        proplists,qlc,qlc_pt,queue,random,re,regexp,sets,
+                        shell,shell_default,slave,sofs,string,supervisor,
+                        supervisor_bridge,sys,timer,unicode,win32reg,zip]},
+                   {registered,
+                       [timer_server,rsh_starter,take_over_monitor,
+                        pool_master,dets]},
+                   {applications,[kernel]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {start_phases,undefined},
+                   {maxT,infinity},
+                   {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,inets,
+                  [{description,"INETS  CXC 138 49"},
+                   {vsn,"5.0.12"},
+                   {id,[]},
+                   {modules,
+                       [inets,inets_sup,inets_app,inets_service,ftp,
+                        ftp_progress,ftp_response,ftp_sup,http,httpc_handler,
+                        httpc_handler_sup,httpc_manager,httpc_profile_sup,
+                        httpc_request,httpc_response,httpc_sup,http_cookie,
+                        http_uri,http_chunk,http_request,http_response,
+                        http_transport,http_util,httpd,httpd_acceptor,
+                        httpd_acceptor_sup,httpd_cgi,httpd_conf,httpd_esi,
+                        httpd_example,httpd_file,httpd_instance_sup,httpd_log,
+                        httpd_manager,httpd_misc_sup,httpd_request,
+                        httpd_request_handler,httpd_response,httpd_script_env,
+                        httpd_socket,httpd_sup,httpd_util,mod_actions,
+                        mod_alias,mod_auth,mod_auth_dets,mod_auth_mnesia,
+                        mod_auth_plain,mod_auth_server,mod_browser,mod_cgi,
+                        mod_dir,mod_disk_log,mod_esi,mod_get,mod_head,
+                        mod_htaccess,mod_include,mod_log,mod_range,
+                        mod_responsecontrol,mod_security,mod_security_server,
+                        mod_trace,tftp,tftp_binary,tftp_engine,tftp_file,
+                        tftp_lib,tftp_logger,tftp_sup]},
+                   {registered,[inets_sup,httpc_manager]},
+                   {applications,[kernel,stdlib]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {start_phases,undefined},
+                   {maxT,infinity},
+                   {maxP,infinity},
+                   {mod,{inets_app,[]}}]}]}},
+     {apply,
+         {application,load,
+             [{application,crypto,
+                  [{description,"CRYPTO version 1"},
+                   {vsn,"1.5.3"},
+                   {id,[]},
+                   {modules,[crypto,crypto_app,crypto_sup,crypto_server]},
+                   {registered,[crypto_sup,crypto_server]},
+                   {applications,[kernel,stdlib]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {start_phases,undefined},
+                   {maxT,infinity},
+                   {maxP,infinity},
+                   {mod,{crypto_app,[]}}]}]}},
+     {apply,
+         {application,load,
+             [{application,sasl,
+                  [{description,"SASL  CXC 138 11"},
+                   {vsn,"2.1.5.4"},
+                   {id,[]},
+                   {modules,
+                       [sasl,alarm_handler,format_lib_supp,misc_supp,overload,
+                        rb,rb_format_supp,release_handler,release_handler_1,
+                        erlsrv,sasl_report,sasl_report_tty_h,
+                        sasl_report_file_h,systools,systools_make,systools_rc,
+                        systools_relup,systools_lib]},
+                   {registered,
+                       [sasl_sup,alarm_handler,overload,release_handler]},
+                   {applications,[kernel,stdlib]},
+                   {included_applications,[]},
+                   {env,[{sasl_error_logger,tty},{errlog_type,all}]},
+                   {start_phases,undefined},
+                   {maxT,infinity},
+                   {maxP,infinity},
+                   {mod,{sasl,[]}}]}]}},
+     {apply,
+         {application,load,
+             [{application,client,
+                  [{description,"Client Server for PoolParty"},
+                   {vsn,"0.1"},
+                   {id,[]},
+                   {modules,
+                       [client_app,pm_client,client_server,
+                        pm_client_supervisor,utils]},
+                   {registered,[client_server,pm_client_supervisor]},
+                   {applications,[kernel,stdlib]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {start_phases,[]},
+                   {maxT,infinity},
+                   {maxP,infinity},
+                   {mod,{client_app,[]}}]}]}},
+     {progress,applications_loaded},
+     {apply,{application,start_boot,[kernel,permanent]}},
+     {apply,{application,start_boot,[stdlib,permanent]}},
+     {apply,{application,start_boot,[inets,permanent]}},
+     {apply,{application,start_boot,[crypto,permanent]}},
+     {apply,{application,start_boot,[sasl,permanent]}},
+     {apply,{application,start_boot,[client,permanent]}},
+     {apply,{c,erlangrc,[]}},
+     {progress,started}]}.