# server.erl -rw-r--r-- 1.0 KiB View raw
                                                                                
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
30
31
32
33
#!/usr/bin/env escript
main([]) ->
    AbsPath =
        string:trim(
            filename:absname("output_folder"), trailing, "/."),
    inets:start(),
    Address = {127, 0, 0, 1},
    {ok, Pid} =
        httpd:start_service([{bind_address, Address},
                             {document_root, AbsPath},
                             {server_root, AbsPath},
                             {directory_index, ["home"]},
                             {server_name, "localhost"},
                             {port, 8009},
                             {default_type, "text/html"},
                             {mime_types, mime_types()},
                             {modules, [mod_alias, mod_dir, mod_get]}]),

    receive
        {From, shutdown} ->
            ok = httpd:stop_service(Pid),
            From ! done
    end.

mime_types() ->
    [{"html", "text/html"},
     {"htm", "text/html"},
     {"js", "text/javascript"},
     {"css", "text/css"},
     {"gif", "image/gif"},
     {"jpg", "image/jpeg"},
     {"jpeg", "image/jpeg"},
     {"png", "image/png"}].