poolparty 0.2.6 → 0.2.18

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

@@ -0,0 +1,242 @@
+%% script generated at {2008,10,23} {20,39,52}
+{script,
+    {"node","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.2/ebin",
+          "/opt/local/lib/erlang/lib/stdlib-1.15.2/ebin"]},
+     {primLoad,[error_handler]},
+     {kernel_load_completed},
+     {progress,kernel_load_completed},
+     {path,["/opt/local/lib/erlang/lib/kernel-2.12.2/ebin"]},
+     {primLoad,
+         [zlib,wrap_log_reader,user_sup,user_drv,user,seq_trace,rpc,
+          ram_file,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_aux,
+          code,auth,application_starter,application_master,
+          application_controller,application]},
+     {path,["/opt/local/lib/erlang/lib/stdlib-1.15.2/ebin"]},
+     {primLoad,
+         [zip,win32reg,timer,sys,supervisor_bridge,supervisor,string,
+          sofs,slave,shell_default,shell,sets,regexp,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.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,
+          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/auser/Sites/work/citrusbyte/internal/gems/pool-party/poolparty/lib/erlang/messenger/ebin"]},
+     {primLoad,[utils,pm_node_supervisor,pm_node,node_app]},
+     {progress,modules_loaded},
+     {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,[]}},
+     {kernelProcess,error_logger,{error_logger,start_link,[]}},
+     {kernelProcess,application_controller,
+         {application_controller,start,
+             [{application,kernel,
+                  [{description,"ERTS  CXC 138 10"},
+                   {vsn,"2.12.2"},
+                   {id,[]},
+                   {modules,
+                       [application,application_controller,application_master,
+                        application_starter,auth,code,code_aux,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,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.2"},
+                   {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,regexp,sets,shell,
+                        shell_default,slave,sofs,string,supervisor,
+                        supervisor_bridge,sys,timer,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.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,
+                  [{description,"SASL  CXC 138 11"},
+                   {vsn,"2.1.5.2"},
+                   {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,node,
+                  [{description,"Node Server for PoolParty"},
+                   {vsn,"0.1"},
+                   {id,[]},
+                   {modules,[node_app,pm_node,pm_node_supervisor,utils]},
+                   {registered,[pm_node,pm_node_supervisor]},
+                   {applications,[kernel,stdlib]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {start_phases,[]},
+                   {maxT,infinity},
+                   {maxP,infinity},
+                   {mod,{node_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,[node,permanent]}},
+     {apply,{c,erlangrc,[]}},
+     {progress,started}]}.

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

@@ -0,0 +1,39 @@
+-module (master_app).
+-behaviour(application).
+
+%% Application callbacks
+-export([start/2, stop/1]).
+
+%%====================================================================
+%% Application callbacks
+%%====================================================================
+%%--------------------------------------------------------------------
+%% Function: start(Type, StartArgs) -> {ok, Pid} |
+%%                                     {ok, Pid, State} |
+%%                                     {error, Reason}
+%% Description: This function is called whenever an application
+%% is started using application:start/1,2, and should start the processes
+%% of the application. If the application is structured according to the
+%% OTP design principles as a supervision tree, this means starting the
+%% top supervisor of the tree.
+%%--------------------------------------------------------------------
+start(_Type, StartArgs) ->
+  case pm_master_supervisor:start_link(StartArgs) of
+    {ok, Pid} -> 
+      {ok, Pid};
+    Error ->
+      Error
+  end.
+
+%%--------------------------------------------------------------------
+%% Function: stop(State) -> void()
+%% Description: This function is called whenever an application
+%% has stopped. It is intended to be the opposite of Module:start/2 and
+%% should do any necessary cleaning up. The return value is ignored.
+%%--------------------------------------------------------------------
+stop(_State) ->
+  ok.
+
+%%====================================================================
+%% Internal functions
+%%====================================================================

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

@@ -0,0 +1,39 @@
+-module (node_app).
+-behaviour(application).
+
+%% Application callbacks
+-export([start/2, stop/1]).
+
+%%====================================================================
+%% Application callbacks
+%%====================================================================
+%%--------------------------------------------------------------------
+%% Function: start(Type, StartArgs) -> {ok, Pid} |
+%%                                     {ok, Pid, State} |
+%%                                     {error, Reason}
+%% Description: This function is called whenever an application
+%% is started using application:start/1,2, and should start the processes
+%% of the application. If the application is structured according to the
+%% OTP design principles as a supervision tree, this means starting the
+%% top supervisor of the tree.
+%%--------------------------------------------------------------------
+start(_Type, StartArgs) ->
+  case pm_node_supervisor:start_link(StartArgs) of
+    {ok, Pid} -> 
+      {ok, Pid};
+    Error ->
+      Error
+  end.
+
+%%--------------------------------------------------------------------
+%% Function: stop(State) -> void()
+%% Description: This function is called whenever an application
+%% has stopped. It is intended to be the opposite of Module:start/2 and
+%% should do any necessary cleaning up. The return value is ignored.
+%%--------------------------------------------------------------------
+stop(_State) ->
+  ok.
+
+%%====================================================================
+%% Internal functions
+%%====================================================================

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

@@ -0,0 +1,19 @@
+-module (pm_client).
+-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).
+% Send the command Cmd to the pm_master process
+send_cmd(Cmd) ->	pm_master:fire_cmd(Cmd).
+% Reconfigure the cloud
+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().
+% Terminate the cloud messenger
+% This sends a shutdown to the whole cloud
+shutdown() -> pm_master:shutdown_cloud().

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

@@ -0,0 +1,57 @@
+-module(pm_cluster).
+
+-ifdef(EUNIT).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+-export ([slaves/1, slaves/0]).
+-export ([get_live_nodes/0,refresh_live_nodes/0]).
+-export ([send_call/2, master/0]).
+
+send_call(Type, Args) ->
+	Nodes = get_live_nodes(),
+	rpc:multicall(Nodes, pm_node, Type, [Args]).
+
+master() ->
+	{erlang:node()}.
+
+slaves([]) ->
+	ok;
+
+slaves([Host|Hosts]) ->
+	Args = erl_system_args(),
+	NodeName = "pp_cluster",
+	{ok, Node} = slave:start_link(Host, NodeName, Args),
+	io:format("Erlang node started = [~p]~n", [Node]),
+	slaves(Hosts).
+
+slaves() ->
+	get_live_nodes().
+
+erl_system_args()->
+	Shared = case init:get_argument(shared) of
+		error -> " ";
+		{ok,[[]]} -> " -shared "
+	end,
+	lists:append(
+		["-rsh ssh -setcookie", 
+		atom_to_list(erlang:get_cookie()),
+		Shared, " +Mea r10b "
+	]).
+
+refresh_live_nodes() ->
+	String = ". /etc/profile && server-list-active -c name",
+	Nodes = string:tokens(os:cmd(String), "\n\t"),
+	io:format("nodes: ~p~n", [Nodes]),
+	lists:map(
+		fun(No) ->
+			io:format("pinging ~p~n", [list_to_atom(lists:append("pp_cluster@",No))]),
+			net_adm:ping(list_to_atom(lists:append("@pp_cluster", No)))
+		end,
+		Nodes),
+	ok.
+% Get the live nodes
+get_live_nodes() ->
+	nodes().
+%% Do not forget to start erlang with a command like:
+%% erl -rsh ssh -sname clustmaster

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

@@ -0,0 +1,21 @@
+% Handles generic events
+-module (pm_event_handler).
+-export ([make/0, add_handler/1, event/1]).
+
+% Make a new event handler
+make() ->
+	register(?MODULE, spawn(fun() -> handle_events(fun no_op/1) end )).
+
+add_handler(Fun) ->
+	whereis(?MODULE) ! {add, Fun}.
+
+event(X) -> whereis(?MODULE) ! {event, X}.
+
+handle_events(Fun) ->
+	receive
+		{event, Any} ->
+			(catch Fun(Any)),
+			handle_events(Fun)
+	end.
+
+no_op(_) -> void.

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

@@ -0,0 +1,118 @@
+%%%-------------------------------------------------------------------
+%%% File    : pm_master.erl
+%%% Author  : Ari Lerner <arilerner@mac.com>
+%%% The client is a running process that will run on the master node
+%%% and spawn requests to the pm_nodes and compile the responses
+%%% for use within the poolparty network
+%%%-------------------------------------------------------------------
+-module(pm_master).
+-behaviour(gen_server).
+
+%% API
+-export([start_link/0]).
+
+%% gen_server callbacks
+-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
+         terminate/2, code_change/3]).
+-record(state, {}).
+-define(SERVER, ?MODULE).
+
+% Client function definitions
+-export ([get_load/1, reconfigure_cloud/0, fire_cmd/1]).
+-export ([shutdown_cloud/0]).
+
+%%====================================================================
+%% API
+%%====================================================================
+%%--------------------------------------------------------------------
+%% Function: start_link() -> {ok,Pid} | ignore | {error,Error}
+%% Description: Starts the server
+%%--------------------------------------------------------------------
+start_link() ->
+  gen_server:start_link({global, ?SERVER}, ?MODULE, [], []).
+
+%%====================================================================
+%% gen_server callbacks
+%%====================================================================
+
+%%--------------------------------------------------------------------
+%% Function: init(Args) -> {ok, State} |
+%%                         {ok, State, Timeout} |
+%%                         ignore               |
+%%                         {stop, Reason}
+%% Description: Initiates the server
+%%--------------------------------------------------------------------
+init([]) ->
+  {ok, #state{}}.
+
+%%--------------------------------------------------------------------
+%% Function: %% handle_call(Request, From, State) -> {reply, Reply, State} |
+%%                                      {reply, Reply, State, Timeout} |
+%%                                      {noreply, State} |
+%%                                      {noreply, State, Timeout} |
+%%                                      {stop, Reason, Reply, State} |
+%%                                      {stop, Reason, State}
+%% Description: Handling call messages
+%%--------------------------------------------------------------------
+handle_call(_Request, _From, State) ->
+  Reply = ok,
+  {reply, Reply, State}.
+
+%%--------------------------------------------------------------------
+%% Function: handle_cast(Msg, State) -> {noreply, State} |
+%%                                      {noreply, State, Timeout} |
+%%                                      {stop, Reason, State}
+%% Description: Handling cast messages
+%%--------------------------------------------------------------------
+handle_cast(_Msg, State) ->
+  {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% Function: handle_info(Info, State) -> {noreply, State} |
+%%                                       {noreply, State, Timeout} |
+%%                                       {stop, Reason, State}
+%% Description: Handling all non call/cast messages
+%%--------------------------------------------------------------------
+handle_info(_Info, State) ->
+  {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% Function: terminate(Reason, State) -> void()
+%% Description: This function is called by a gen_server when it is about to
+%% terminate. It should be the opposite of Module:init/1 and do any necessary
+%% cleaning up. When it returns, the gen_server terminates with Reason.
+%% The return value is ignored.
+%%--------------------------------------------------------------------
+terminate(_Reason, _State) ->
+  ok.
+
+%%--------------------------------------------------------------------
+%% Func: code_change(OldVsn, State, Extra) -> {ok, NewState}
+%% Description: Convert process state when code is changed
+%%--------------------------------------------------------------------
+code_change(_OldVsn, State, _Extra) ->
+  {ok, State}.
+
+%%--------------------------------------------------------------------
+%%% Internal functions
+%%--------------------------------------------------------------------
+
+% pm_master:get_load("0", "cpu").
+get_load(Type) ->
+	{Loads, _} = pm_cluster:send_call(get_load_for_type, [Type]),
+	{utils:convert_responses_to_int_list(Loads)}.
+
+% Send reconfigure tasks to every node
+reconfigure_cloud() ->
+	pm_cluster:send_call(run_reconfig, []),
+	{ok}.
+
+% Fire the given command on all nodes
+fire_cmd(Cmd) ->
+	pm_cluster:send_call(fire_cmd, [Cmd]),
+	{ok}.
+
+% Shutdown
+shutdown_cloud() ->
+	pm_cluster:send_call(stop, []),
+	{ok}.

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

@@ -0,0 +1,40 @@
+% This supervisor is responsible for monitoring the 
+% client service
+
+-module (pm_master_supervisor).
+-behaviour(supervisor).
+
+-export([start/0, start_in_shell_for_testing/0, start_link/1, init/1]).
+
+-ifdef(EUNIT).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+start() ->
+	spawn(fun() ->
+			supervisor:start_link({local, ?MODULE}, ?MODULE, _Arg = [])
+		end).
+
+start_in_shell_for_testing() ->
+	{ok, Pid} = supervisor:start_link({local, ?MODULE}, ?MODULE, _Arg = []),
+	unlink(Pid).
+
+start_link(Args) ->
+	supervisor:start_link({local, ?MODULE}, ?MODULE, Args).	
+
+init([]) ->
+	RestartStrategy = one_for_one,
+	MaxRestarts = 3, % 1000
+	MaxTimeBetRestarts = 30, % 3600
+
+	SupFlags = {RestartStrategy, MaxRestarts, MaxTimeBetRestarts},
+
+	LoadServers = [
+		{pm_master1, 
+			{pm_master, start_link, []}, 
+			permanent, 5000, worker, 
+			[pm_master]
+		}
+	],
+
+	{ok, {SupFlags, LoadServers}}.