/deps/webmachine/src/webmachine_error_handler.erl

https://code.google.com/p/zotonic/ · Erlang · 72 lines · 45 code · 10 blank · 17 comment · 1 complexity · 1dfc645ef61cc4dff4fb0136f51f0a8d MD5 · raw file 

    

  1. %% @author Justin Sheehy <justin@basho.com>
    2. 

  2. %% @author Andy Gross <andy@basho.com>
    3. 

  3. %% @author Jeremy Latt <jeremy@basho.com>
    4. 

  4. %% @copyright 2007-2008 Basho Technologies
    5. 

  5. %%
    6. 

  6. %%    Licensed under the Apache License, Version 2.0 (the "License");
    7. 

  7. %%    you may not use this file except in compliance with the License.
    8. 

  8. %%    You may obtain a copy of the License at
    9. 

  9. %%
    10. 

  10. %%        http://www.apache.org/licenses/LICENSE-2.0
    11. 

  11. %%
    12. 

  12. %%    Unless required by applicable law or agreed to in writing, software
    13. 

  13. %%    distributed under the License is distributed on an "AS IS" BASIS,
    14. 

  14. %%    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
    15. 

  15. %%    See the License for the specific language governing permissions and
    16. 

  16. %%    limitations under the License.
    17. 

  17. 

  18. 

  19. %% @doc Some fairly minimal error message formatters.
    20. 

  20. 

  21. -module(webmachine_error_handler).
    22. 

  22. -author('Justin Sheehy <justin@basho.com>').
    23. 

  23. -author('Andy Gross <andy@basho.com>').
    24. 

  24. -author('Jeremy Latt <jeremy@basho.com>').
    25. 

  25. 

  26. -export([render_error/3]).
    27. 

  27. 

  28. render_error(Code, ReqData, Reason) ->
    29. 

  29.     case webmachine_request:has_response_body(ReqData) of
    30. 

  30.         {true,_} -> {webmachine_request:response_body(ReqData), ReqData};
    31. 

  31.         {false,_} -> render_error_body(Code, ReqData, Reason)
    32. 

  32.     end.
    33. 

  33. 

  34. render_error_body(404, ReqData, _Reason) ->
    35. 

  35.     ReqData1 = wrq:set_resp_header("Content-Type", "text/html", ReqData),
    36. 

  36.     {<<"<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>">>, ReqData1};
    37. 

  37. 

  38. render_error_body(500, ReqData, Reason) ->
    39. 

  39.     ReqData1 = wrq:set_resp_header("Content-Type", "text/html", ReqData),
    40. 

  40.     Path = wrq:path(ReqData),
    41. 

  41.     error_logger:error_msg("webmachine error: path=~p~n~p~n", [Path, Reason]),
    42. 

  42.     STString = io_lib:format("~p", [Reason]),
    43. 

  43.     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>",
    44. 

  44.     ErrorEnd = "</pre><P><HR><ADDRESS>mochiweb+webmachine web server</ADDRESS></body></html>",
    45. 

  45.     ErrorIOList = [ErrorStart,STString,ErrorEnd],
    46. 

  46.     {erlang:iolist_to_binary(ErrorIOList), ReqData1};
    47. 

  47. 

  48. render_error_body(501, ReqData, _Reason) ->
    49. 

  49.     ReqData1 = wrq:set_resp_header("Content-Type", "text/html", ReqData),
    50. 

  50.     Method = wrq:method(ReqData),
    51. 

  51.     error_logger:error_msg("Webmachine does not support method ~p~n", [Method]),
    52. 

  52.     ErrorStr = io_lib:format("<html><head><title>501 Not Implemented</title>"
    53. 

  53.                              "</head><body><h1>Internal Server Error</h1>"
    54. 

  54.                              "The server does not support the ~p method.<br>"
    55. 

  55.                              "<P><HR><ADDRESS>mochiweb+webmachine web server"
    56. 

  56.                              "</ADDRESS></body></html>",
    57. 

  57.                              [Method]),
    58. 

  58.     {erlang:iolist_to_binary(ErrorStr), ReqData1};
    59. 

  59. 

  60. render_error_body(503, ReqData, _Reason) ->
    61. 

  61.     ReqData1 = wrq:set_resp_header("Content-Type", "text/html", ReqData),
    62. 

  62.     error_logger:error_msg("Webmachine cannot fulfill"
    63. 

  63.                            " the request at this time"),
    64. 

  64.     ErrorStr = "<html><head><title>503 Service Unavailable</title>"
    65. 

  65.                "</head><body><h1>Service Unavailable</h1>"
    66. 

  66.                "The server is currently unable to handle "
    67. 

  67.                "the request due to a temporary overloading "
    68. 

  68.                "or maintenance of the server.<br>"
    69. 

  69.                "<P><HR><ADDRESS>mochiweb+webmachine web server"
    70. 

  70.                "</ADDRESS></body></html>",
    71. 

  71.     {list_to_binary(ErrorStr), ReqData1}.
    72.