summaryrefslogtreecommitdiff
path: root/src/catlfish_app.erl
blob: 9c9bdad730d51a7a43332b2458025c7af7a3709d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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.