poolparty 0.2.84 → 1.2.2

data/lib/erlang/messenger/lib/eunit/src/file_monitor.erl

@@ -1,409 +0,0 @@
-%% 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: file_monitor.erl 250 2008-08-23 09:12:02Z rcarlsson $ 
-%%
-%% @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/lib/eunit/sys.config

@@ -1,9 +0,0 @@
-[
- {kernel,
-  [{error_logger, 
-    {file, "priv/eunit.log"}}]},
- {sasl,
-  [{sasl_error_logger, false},
-   {error_logger_mf_dir, "."},
-   {error_logger_mf_maxfiles, 20},
-   {error_logger_mf_maxbytes, 1000000}]}].

data/lib/erlang/messenger/lib/eunit/vsn.mk

@@ -1 +0,0 @@
-EUNIT_VSN = 2.0 beta 1

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

@@ -1,238 +0,0 @@
-%% 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}]}.