WHISTLE-533: write PID file on startup of ecallmgr and whistle_apps; …

…remove PID file on graceful stop; ignore pidfiles in git

.gitignore

@@ -3,6 +3,7 @@
 */error_log
 */ebin/*.beam
 */ebin/*.app
+*/priv/*.pid
 .eunit
 ecallmgr/priv/startup.config
 whistle_apps/priv/startup.config

ecallmgr/src/ecallmgr_app.erl

@@ -8,12 +8,15 @@
 %% Helper macro for declaring children of supervisor
 -define(CHILD(I, Type, Ref, Args), {Ref, {I, start_link, [{Ref, Args}]}, permanent, 5000, Type, [I]}).
 
+-define(PIDFILE, [code:priv_dir(ecallmgr), "/ecallmgr.pid"]).
+
 %% ===================================================================
 %% Application callbacks
 %% ===================================================================
 
 start(_StartType, _StartArgs) ->
+    wh_util:write_pid(?PIDFILE),
     ecallmgr:start_link().
 
 stop(_State) ->
-    ok.
+    ok = file:delete(?PIDFILE).

whistle_apps/src/whistle_apps.erl

@@ -19,6 +19,7 @@ start_link() ->
 %% @spec start() -> ok
 %% @doc Start the callmgr server.
 start() ->
+    start_deps(),
     application:start(whistle_apps).
 
 start_deps() ->

whistle_apps/src/whistle_apps_app.erl

@@ -5,12 +5,15 @@
 %% Application callbacks
 -export([start/2, stop/1]).
 
+-define(PIDFILE, [code:priv_dir(whistle_apps), "/whistle_apps.pid"]).
+
 %% ===================================================================
 %% Application callbacks
 %% ===================================================================
 
 start(_StartType, _StartArgs) ->
+    wh_util:write_pid(?PIDFILE),
     whistle_apps:start_link().
 
 stop(_State) ->
-    ok.
+    ok = file:delete(?PIDFILE).