auser-poolparty 0.2.16 → 0.2.20

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

@@ -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: 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

@@ -0,0 +1,9 @@
+[
+ {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

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

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

@@ -1,6 +1,6 @@
-%% script generated at {2008,10,23} {2,11,55}
+%% script generated at {2008,10,25} {16,17,48}
 {script,
-    {"pm_master_rel","0.1"},
+    {"master","0.1"},
     [{preLoaded,
          [erlang,erl_prim_loader,prim_file,prim_inet,init,otp_ring0]},
      {progress,preloaded},
@@ -39,6 +39,27 @@
           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.5/ebin"]},
+     {primLoad,
+         [tftp_sup,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.1.1/ebin"]},
+     {primLoad,[crypto_sup,crypto_server,crypto_app,crypto]},
      {path,["/opt/local/lib/erlang/lib/sasl-2.1.5.2/ebin"]},
      {primLoad,
          [systools_relup,systools_rc,systools_make,systools_lib,
@@ -52,6 +73,8 @@
      {path,
          ["/opt/local/lib/erlang/lib/kernel-2.12.2/ebin",
           "/opt/local/lib/erlang/lib/stdlib-1.15.2/ebin",
+          "/opt/local/lib/erlang/lib/inets-5.0.5/ebin",
+          "/opt/local/lib/erlang/lib/crypto-1.5.1.1/ebin",
           "/opt/local/lib/erlang/lib/sasl-2.1.5.2/ebin",
           "/Users/auser/Sites/work/citrusbyte/internal/gems/pool-party/poolparty/lib/erlang/messenger/ebin"]},
      {kernelProcess,heart,{heart,start,[]}},
@@ -124,6 +147,54 @@
                    {start_phases,undefined},
                    {maxT,infinity},
                    {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,inets,
+                  [{description,"INETS  CXC 138 49"},
+                   {vsn,"5.0.5"},
+                   {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_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.1.1"},
+                   {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,
@@ -163,6 +234,8 @@
      {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,[master,permanent]}},
      {apply,{c,erlangrc,[]}},

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

@@ -1,6 +1,6 @@
-%% script generated at {2008,10,23} {2,11,55}
+%% script generated at {2008,10,25} {16,17,48}
 {script,
-    {"pm_node_rel","0.1"},
+    {"node","0.1"},
     [{preLoaded,
          [erlang,erl_prim_loader,prim_file,prim_inet,init,otp_ring0]},
      {progress,preloaded},
@@ -39,6 +39,27 @@
           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.5/ebin"]},
+     {primLoad,
+         [tftp_sup,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.1.1/ebin"]},
+     {primLoad,[crypto_sup,crypto_server,crypto_app,crypto]},
      {path,["/opt/local/lib/erlang/lib/sasl-2.1.5.2/ebin"]},
      {primLoad,
          [systools_relup,systools_rc,systools_make,systools_lib,
@@ -52,6 +73,8 @@
      {path,
          ["/opt/local/lib/erlang/lib/kernel-2.12.2/ebin",
           "/opt/local/lib/erlang/lib/stdlib-1.15.2/ebin",
+          "/opt/local/lib/erlang/lib/inets-5.0.5/ebin",
+          "/opt/local/lib/erlang/lib/crypto-1.5.1.1/ebin",
           "/opt/local/lib/erlang/lib/sasl-2.1.5.2/ebin",
           "/Users/auser/Sites/work/citrusbyte/internal/gems/pool-party/poolparty/lib/erlang/messenger/ebin"]},
      {kernelProcess,heart,{heart,start,[]}},
@@ -124,6 +147,54 @@
                    {start_phases,undefined},
                    {maxT,infinity},
                    {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,inets,
+                  [{description,"INETS  CXC 138 49"},
+                   {vsn,"5.0.5"},
+                   {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_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.1.1"},
+                   {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,
@@ -163,6 +234,8 @@
      {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,[node,permanent]}},
      {apply,{c,erlangrc,[]}},

data/lib/erlang/messenger/src/pm_client.erl

@@ -1,9 +1,11 @@
 -module (pm_client).
--export ([send_cmd/1, reconfigure_cloud/0, get_load/1, get_live_nodes/0]).
-
+-export ([init/0, send_cmd/1, reconfigure_cloud/0, get_load/1, get_live_nodes/0]).
+-export ([shutdown/0]).
 % Run commands on the running master process
 % erl -pa ./ebin/ -run pm_client get_load cpu -run init stop -noshell
 
+% Connect to the master
+init() -> net_adm:ping(master@master).
 % Send the command Cmd to the pm_master process
 send_cmd(Cmd) ->	pm_master:fire_cmd(Cmd).
 % Reconfigure the cloud
@@ -11,4 +13,7 @@ reconfigure_cloud() -> pm_master:reconfigure_cloud().
 % Get the load on the cloud of type Type
 get_load(Type) -> pm_master:get_load(Type).
 % Get a list of the live nodes
-get_live_nodes() -> pm_master:get_live_nodes().
+get_live_nodes() -> pm_master:get_live_nodes().
+% Terminate the cloud messenger
+% This sends a shutdown to the whole cloud
+shutdown() -> pm_master:shutdown_cloud().