forked from ostinelli/misultin
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathmisultin_rest_utf8.erl
84 lines (67 loc) · 3.5 KB
/
misultin_rest_utf8.erl
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
% ==========================================================================================================
% MISULTIN - Example: RESTful support.
%
% >-|-|-(°>
%
% Copyright (C) 2011, Roberto Ostinelli <[email protected]>
% All rights reserved.
%
% BSD License
%
% Redistribution and use in source and binary forms, with or without modification, are permitted provided
% that the following conditions are met:
%
% * Redistributions of source code must retain the above copyright notice, this list of conditions and the
% following disclaimer.
% * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and
% the following disclaimer in the documentation and/or other materials provided with the distribution.
% * Neither the name of the authors nor the names of its contributors may be used to endorse or promote
% products derived from this software without specific prior written permission.
%
% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED
% WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
% PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR
% ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
% TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
% HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
% NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
% POSSIBILITY OF SUCH DAMAGE.
% ==========================================================================================================
% point your browser to http://localhost:8080/users/こんにちは and you should see:
% This is こんにちは's page.
-module(misultin_rest_utf8).
-export([start/1, stop/0]).
% start misultin http server
start(Port) ->
misultin:start_link([{port, Port}, {loop, fun(Req) -> handle_http(Req) end}]).
% stop misultin
stop() ->
misultin:stop().
% callback function called on incoming http request
handle_http(Req) ->
% dispatch to rest
handle(Req:get(method), Req:resource([lowercase, urldecode]), Req).
% ---------------------------- \/ handle rest --------------------------------------------------------------
% handle a GET on /
handle('GET', [], Req) ->
template(Req, "Main home page.");
% handle a GET on /users
handle('GET', ["users"], Req) ->
template(Req, "Main users root.");
% handle a GET on /users/{username}
handle('GET', ["users", UserName], Req) ->
template(Req, ["This is ", UserName, "'s page."]);
% handle a GET on /users/{username}/messages
handle('GET', ["users", UserName, "messages"], Req) ->
template(Req, ["This is ", UserName, "'s messages page."]);
% handle the 404 page not found
handle(_, _, Req) ->
template(Req, "Page not found.").
% ---------------------------- /\ handle rest --------------------------------------------------------------
% ---------------------------- \/ template -----------------------------------------------------------------
% returns the template
template(Req, Content) ->
Req:ok([{"Content-Type", "text/html"}], ["<head>
<meta http-equiv = \"content-type\" content=\"text/html; charset=UTF-8\">
</head><body>", Content, "</body></html>"]).
% ---------------------------- /\ template -----------------------------------------------------------------