blob: f4b67ad2518fa2fc50f4d2a6d6c32564a865b2f6 (
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.
|
