auser-poolparty 0.2.15 → 0.2.16

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

@@ -0,0 +1,169 @@
+%% script generated at {2008,10,23} {2,11,55}
+{script,
+    {"pm_node_rel","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/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/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,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,[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,14 @@
+-module (pm_client).
+-export ([send_cmd/1, reconfigure_cloud/0, get_load/1, get_live_nodes/0]).
+
+% Run commands on the running master process
+% erl -pa ./ebin/ -run pm_client get_load cpu -run init stop -noshell
+
+% 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().

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

@@ -28,4 +28,7 @@ erl_system_args()->
 		Shared, " +Mea r10b "
 	]).
 %% Do not forget to start erlang with a command like:
-%% erl -rsh ssh -sname clustmaster
+%% erl -rsh ssh -sname clustmaster
+
+basic_test_() ->
+	?_assert(true).

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

@@ -1,27 +1,119 @@
-% 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
+%%%-------------------------------------------------------------------
+%%% 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).
 
--module (pm_master).
+%% API
+-export([start_link/0]).
 
--ifdef(EUNIT).
--include_lib("eunit/include/eunit.hrl").
--endif.
+%% 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/2]).
+-export ([get_load/1, reconfigure_cloud/0, fire_cmd/1, get_live_nodes/0]).
+
+%%====================================================================
+%% API
+%%====================================================================
+%%--------------------------------------------------------------------
+%% Function: start_link() -> {ok,Pid} | ignore | {error,Error}
+%% Description: Starts the server
+%%--------------------------------------------------------------------
+start_link() ->
+  gen_server:start_link({local, ?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(Index, Type) ->
-	Pid = get_pid_from_index(Index),
-	gen_server:call(Pid, get_load_for_type, [Type]).
-
-% Private methods
-get_pid_from_index(Index) ->
-	String = lists:append(["pm_node", Index]),
-	io:format("Looking for ~p~n", [String]),
-	whereis(str).
-
-% Tests
-basic_test_() ->
-	?_assert(get_pid_from_index == 0).
+get_load(Type) ->
+	Nodes = get_live_nodes(),
+	{Loads, _} = rpc:multicall(Nodes, pm_node, get_load_for_type, [Type]),
+	{utils:convert_responses_to_int_list(Loads)}.
+
+% Send reconfigure tasks to every node
+reconfigure_cloud() ->
+	Nodes = get_live_nodes(),
+	{_, _} = rpc:multicall(Nodes, pm_node, run_reconfig, []),
+	{ok}.
+
+% Fire the given command on all nodes
+fire_cmd(Cmd) ->
+	Nodes = get_live_nodes(),
+	{_, _} = rpc:multicall(Nodes, pm_node, fire_cmd, [Cmd]),
+	{ok}.
+
+% Get the live nodes
+get_live_nodes() ->
+	nodes().

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

@@ -2,7 +2,39 @@
 % 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.
+-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}}.

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

@@ -1,79 +1,125 @@
-%%%***************************************
-%%% 
-%%% PoolParty node-server
-%%% Author: Ari Lerner <ari.the.lerner@gmail.com>
-%%% 
-%%% Description: This server runs on the poolparty nodes
-%%% 
-%%%***************************************
-
-% The name of our module
--module (pm_node).
-
--ifdef(EUNIT).
--include_lib("eunit/include/eunit.hrl").
--endif.
-
-% We are using the gen_server behaviour
--behaviour (gen_server).
--export ([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]).
+%%%-------------------------------------------------------------------
+%%% File    : pm_node.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_node).
+-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 ([start_link/1, stop/0]).
--export ([get_load_for_type/2]).
+-export ([stop/0]).
+-export ([get_load_for_type/1, fire_cmd/1, run_reconfig/0]).
 
-% Client Function API Calls
-get_load_for_type(From, Type) ->
-	io:format("Getting load for "++Type++" on ~p~n", [From]),
-	String = string:concat("server-get-load -m ",Type),
-	gen_server:reply(From, {load, os:cmd(String)}).
+%%====================================================================
+%% API
+%%====================================================================
+%%--------------------------------------------------------------------
+%% Function: start_link() -> {ok,Pid} | ignore | {error,Error}
+%% Description: Starts the server
+%% 
+%% Starts the timer to fire off a ping to the master to let the master
+%% know that it is alive
+%% 
+%% Fires a ping every 10 seconds
+%%--------------------------------------------------------------------
+start_link() ->
+	utils:start_timer(10000, fun() -> net_adm:ping(master@auser) end),
+  gen_server:start_link({local, ?SERVER}, ?MODULE, [], []).
 
-start_link(Index) ->
-	io:format("Starting pm_node~p...~n", [Index]),
-	String = list_to_atom(string:concat("pm_node", Index)),
-	gen_server:start_link({global, String}, String, [], []).
+%%====================================================================
+%% gen_server callbacks
+%%====================================================================
 
-stop() ->
-	gen_server:cast(?MODULE, stop).
-		
-% Load monitor methods
-% 	TODO: Make this dynamic
-% get_system_load() ->
-
-% Gen server callbacks
-% Sends the response and state back
-init([]) -> 
+%%--------------------------------------------------------------------
+%% Function: init(Args) -> {ok, State} |
+%%                         {ok, State, Timeout} |
+%%                         ignore               |
+%%                         {stop, Reason}
+%% Description: Initiates the server
+%%--------------------------------------------------------------------
+init([]) ->
 	process_flag(trap_exit, true),
-	{ok, []}.
-
-% Handle synchronous messages
-% Signature:
-%  handle_call(_Request, _From, State) ->
-% 	{reply, ignored, State} 
-% 
-% Gets the load on the server
-handle_call({get_load, Type}, From, State) ->
-	spawn(?MODULE, get_load_for_type, [From, Type]),
-	{noreply, State};
-handle_call(_Request, _From, State) -> % The catch-all
-	{reply, ignored, State}.
-
-% Handle asynchronous messages
-handle_cast(stop, State) ->
-	{stop, normal, State};	
+  {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}.
+  {noreply, State}.
 
-% Handle other messages	
+%%--------------------------------------------------------------------
+%% Function: handle_info(Info, State) -> {noreply, State} |
+%%                                       {noreply, State, Timeout} |
+%%                                       {stop, Reason, State}
+%% Description: Handling all non call/cast messages
+%%--------------------------------------------------------------------
 handle_info(_Info, State) ->
 	io:format("Info message received from: ~p~n", [_Info]),
 	{noreply, State}.
 
-% Exit
-terminate(_Reason, State) ->
-	io:format("Server is stopping...~n"),
-	{ok, 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) ->
+	utils:stop_timer(),
+  ok.
 
-% If the code changes
+%%--------------------------------------------------------------------
+%% Func: code_change(OldVsn, State, Extra) -> {ok, NewState}
+%% Description: Convert process state when code is changed
+%%--------------------------------------------------------------------
 code_change(_OldVsn, State, _Extra) ->
-  {ok, State}.
+  {ok, State}.
+
+%%--------------------------------------------------------------------
+%%% Internal functions
+%%--------------------------------------------------------------------
+
+% Get the load for the type sent...
+get_load_for_type(Type) ->
+	String = string:concat(". /etc/profile && server-get-load -m ",Type),
+	{os:cmd(String)}.
+
+% Rerun the configuration
+run_reconfig() ->	{os:cmd(". /etc/profile && server-rerun")}.
+
+% Allows us to fire off any command (allowed by poolparty on the check)
+fire_cmd(Cmd) ->
+	String = ". /etc/profile && server-fire-cmd \""++Cmd++"\"",
+	io:format("Sending command "++String),
+	{os:cmd(String)}.
+
+% Stop the pm_node entirely
+stop() ->
+	gen_server:cast(?MODULE, stop).