From 90af53429cce94dee753441b780a9cf050f5fced Mon Sep 17 00:00:00 2001
From: Magnus Ahltorp <map@kth.se>
Date: Fri, 19 Sep 2014 18:25:53 +0200
Subject: Release management

---
 src/catlfish_app.erl | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 src/catlfish_app.erl

(limited to 'src/catlfish_app.erl')

diff --git a/src/catlfish_app.erl b/src/catlfish_app.erl
new file mode 100644
index 0000000..f4b67ad
--- /dev/null
+++ b/src/catlfish_app.erl
@@ -0,0 +1,29 @@
+-module(catlfish_app).
+
+-behaviour(application).
+
+%% Application callbacks
+-export([start/2, stop/1]).
+
+%% ===================================================================
+%% Application callbacks
+%% ===================================================================
+
+dummy() ->
+    receive
+    after
+        infinity ->
+            none
+    end.
+
+start(_StartType, _StartArgs) ->
+    io:format("starting catlfish~n", []),
+    InetsResult = inets:start(httpd, [{proplist_file, "httpd_props.conf"}]),
+    io:format("catlfish: tried to start inets service:~p~n", [InetsResult]),
+    Pid = spawn(fun () ->
+                        dummy()
+                end),
+    {ok, Pid}.
+
+stop(_State) ->
+    ok.
-- 
cgit v1.1