forked from webmachine/webmachine
/
webmachine_error_handler.erl
95 lines (84 loc) · 4.27 KB
/
webmachine_error_handler.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
85
86
87
88
89
90
91
92
93
94
%% @author Justin Sheehy <justin@basho.com>
%% @author Andy Gross <andy@basho.com>
%% @author Jeremy Latt <jeremy@basho.com>
%% @copyright 2007-2008 Basho Technologies
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
%% You may obtain a copy of the License at
%%
%% http://www.apache.org/licenses/LICENSE-2.0
%%
%% Unless required by applicable law or agreed to in writing, software
%% distributed under the License is distributed on an "AS IS" BASIS,
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
%% See the License for the specific language governing permissions and
%% limitations under the License.
%% @doc Some fairly minimal error message formatters.
-module(webmachine_error_handler).
-author('Justin Sheehy <justin@basho.com>').
-author('Andy Gross <andy@basho.com>').
-author('Jeremy Latt <jeremy@basho.com>').
-export([render_error/3]).
render_error(Code, Req, Reason) ->
case Req:has_response_body() of
{true,_} -> Req:response_body();
{false,_} -> render_error_body(Code, Req:trim_state(), Reason)
end.
render_error_body(404, Req, _Reason) ->
{ok, ReqState} = Req:add_response_header("Content-Type", "text/html"),
{<<"<HTML><HEAD><TITLE>404 Not Found</TITLE></HEAD><BODY><H1>Not Found</H1>The requested document was not found on this server.<P><HR><ADDRESS>mochiweb+webmachine web server</ADDRESS></BODY></HTML>">>, ReqState};
render_error_body(500, Req, Reason) ->
{ok, ReqState} = Req:add_response_header("Content-Type", "text/html"),
{Path,_} = Req:path(),
case Reason of
{error, {exit, normal, _Stack}} ->
%% webmachine_request did an exit(normal), so suppress this
%% message. This usually happens when a chunked upload is
%% interrupted by network failure.
ok;
_ ->
error_logger:error_msg("webmachine error: path=~p~n~p~n", [Path, Reason])
end,
STString = io_lib:format("~p", [Reason]),
ErrorStart = "<html><head><title>500 Internal Server Error</title></head><body><h1>Internal Server Error</h1>The server encountered an error while processing this request:<br><pre>",
ErrorEnd = "</pre><P><HR><ADDRESS>mochiweb+webmachine web server</ADDRESS></body></html>",
ErrorIOList = [ErrorStart,STString,ErrorEnd],
{erlang:iolist_to_binary(ErrorIOList), ReqState};
render_error_body(501, Req, _Reason) ->
{ok, ReqState} = Req:add_response_header("Content-Type", "text/html"),
{Method,_} = Req:method(),
error_logger:error_msg("Webmachine does not support method ~p~n",
[Method]),
ErrorStr = io_lib:format("<html><head><title>501 Not Implemented</title>"
"</head><body><h1>Not Implemented</h1>"
"The server does not support the ~p method.<br>"
"<P><HR><ADDRESS>mochiweb+webmachine web server"
"</ADDRESS></body></html>",
[Method]),
{erlang:iolist_to_binary(ErrorStr), ReqState};
render_error_body(503, Req, _Reason) ->
{ok, ReqState} = Req:add_response_header("Content-Type", "text/html"),
error_logger:error_msg("Webmachine cannot fulfill"
" the request at this time"),
ErrorStr = "<html><head><title>503 Service Unavailable</title>"
"</head><body><h1>Service Unavailable</h1>"
"The server is currently unable to handle "
"the request due to a temporary overloading "
"or maintenance of the server.<br>"
"<P><HR><ADDRESS>mochiweb+webmachine web server"
"</ADDRESS></body></html>",
{list_to_binary(ErrorStr), ReqState};
render_error_body(Code, Req, Reason) ->
{ok, ReqState} = Req:add_response_header("Content-Type", "text/html"),
ReasonPhrase = httpd_util:reason_phrase(Code),
Body = ["<html><head><title>",
integer_to_list(Code),
" ",
ReasonPhrase,
"</title></head><body><h1>",
ReasonPhrase,
"</h1>",
Reason,
"<p><hr><address>mochiweb+webmachine web server</address></body></html>"],
{iolist_to_binary(Body), ReqState}.