/deps/mochiweb/support/templates/mochiwebapp_skel/src/mochiapp_web.erl

 1%% @author {{author}}
 2%% @copyright {{year}} {{author}}
 3
 4%% @doc Web server for {{appid}}.
 5
 6-module({{appid}}_web).
 7-author("{{author}}").
 8
 9-export([start/1, stop/0, loop/2]).
10
11%% External API
12
13start(Options) ->
14    {DocRoot, Options1} = get_option(docroot, Options),
15    Loop = fun (Req) ->
16                   ?MODULE:loop(Req, DocRoot)
17           end,
18    mochiweb_http:start([{name, ?MODULE}, {loop, Loop} | Options1]).
19
20stop() ->
21    mochiweb_http:stop(?MODULE).
22
23loop(Req, DocRoot) ->
24    "/" ++ Path = Req:get(path),
25    try
26        case Req:get(method) of
27            Method when Method =:= 'GET'; Method =:= 'HEAD' ->
28                case Path of
29                    _ ->
30                        Req:serve_file(Path, DocRoot)
31                end;
32            'POST' ->
33                case Path of
34                    _ ->
35                        Req:not_found()
36                end;
37            _ ->
38                Req:respond({501, [], []})
39        end
40    catch
41        Type:What ->
42            Report = ["web request failed",
43                      {path, Path},
44                      {type, Type}, {what, What},
45                      {trace, erlang:get_stacktrace()}],
46            error_logger:error_report(Report),
47            %% NOTE: mustache templates need \\ because they are not awesome.
48            Req:respond({500, [{"Content-Type", "text/plain"}],
49                         "request failed, sorry\\n"})
50    end.
51
52%% Internal API
53
54get_option(Option, Options) ->
55    {proplists:get_value(Option, Options), proplists:delete(Option, Options)}.
56
57%%
58%% Tests
59%%
60-ifdef(TEST).
61-include_lib("eunit/include/eunit.hrl").
62
63you_should_write_a_test() ->
64    ?assertEqual(
65       "No, but I will!",
66       "Have you written any tests?"),
67    ok.
68
69-endif.