3 local server = require "net.http.server";
4 local codes = require "net.http.codes";
5 local termcolours = require "util.termcolours";
7 local show_private = module:get_option_boolean("http_errors_detailed", false);
8 local always_serve = module:get_option_boolean("http_errors_always_show", true);
9 local default_message = { module:get_option_string("http_errors_default_message", "That's all I know.") };
10 local default_messages = {
11 [400] = { "What kind of request do you call that??" };
12 [403] = { "You're not allowed to do that." };
13 [404] = { "Whatever you were looking for is not here. %";
14 "Where did you put it?", "It's behind you.", "Keep looking." };
15 [500] = { "% Check your error log for more info.";
16 "Gremlins.", "It broke.", "Don't look at me." };
19 local messages = setmetatable(module:get_option("http_errors_messages", {}), { __index = default_messages });
25 <meta charset="utf-8">
30 background-color:#F8F8F8;
31 font-family:sans-serif;
39 p+p { font-size: large; font-family: courier }
48 html = html:gsub("%s%s+", "");
51 ["<"] = "<", [">"] = ">", ["&"] = "&",
52 ["'"] = "'", ["\""] = """, ["\n"] = "<br/>",
55 local function tohtml(plain)
56 return (plain:gsub("[<>&'\"\n]", entities));
60 local function get_page(code, extra)
61 local message = messages[code];
62 if always_serve or message then
63 message = message or default_message;
64 return (html:gsub("$(%a+)", {
65 title = rawget(codes, code) or ("Code "..tostring(code));
66 message = message[1]:gsub("%%", function ()
67 return message[math.random(2, math.max(#message,2))];
69 extra = tohtml(extra or "");
74 module:hook_object_event(server, "http-error", function (event)
75 return get_page(event.code, (show_private and event.private_message) or event.message);