%%%---------------------------------------------------------------------- %%% File : yaws_404.erl %%% Author : Claes Wikstrom %%% Purpose : %%% Created : 4 Nov 2002 by Claes Wikstrom %%%---------------------------------------------------------------------- -module(yaws_404). -author('klacke@hyber.org'). -include("../include/yaws.hrl"). -include("../include/yaws_api.hrl"). -export([out404/3, out404/1, crashmsg/3]). %% The default error 404 error delivery module %% This function can be used to generate %% a special page on 404's (it doesn't even have to be a 404) out404(Arg) -> out404(Arg, get(gc), get(sc)). out404(Arg, GC, SC) -> Req = Arg#arg.req, {abs_path, Path} = Req#http_request.path, B = not_found_body(Path, GC, SC), [{status, 404}, {header, {content_type, "text/html"}}, {header, {connection, "close"}}, {html, B}]. not_found_body(Path, _GC, SC) -> L = ["" "" "404 Not Found" "" "

Not Found

" "The requested URL ", yaws_api:htmlize(Path), " was not found on this server.

" "

", yaws:address(), " " ], list_to_binary(L). %% possibility to customize crash messages, % while developing %% it's extremely convenient to get the crash messages in the browser, %% however not in production :-) crashmsg(_Arg, _SC, L) -> {ehtml, [{h2, [], "Internal error, yaws code crashed"}, {br}, {hr}, {pre, [], L}, {hr}]}.