File

+
−-- Generate net/http/codes.lua from IANA HTTP status code registry
+
−if not pcall(require, "prosody.loader") then
+
−	pcall(require, "loader");
+
−end
+
−
+
−local xml = require "prosody.util.xml";
+
−local registry = xml.parse(io.read("*a"), { allow_processing_instructions = true });
+
−
+
−io.write([[
+
−
+
−local response_codes = {
+
−	-- Source: http://www.iana.org/assignments/http-status-codes
+
−]]);
+
−
+
−for record in registry:get_child("registry"):childtags("record") do
+
−	-- Extract values
+
−	local value = record:get_child_text("value");
+
−	local description = record:get_child_text("description");
+
−	local ref = record:get_child_text("xref");
+
−	local code = tonumber(value);
+
−
+
−	-- Space between major groups
+
−	if code and code % 100 == 0 then
+
−		io.write("\n");
+
−	end
+
−
+
−	-- Reserved and Unassigned entries should be not be included
+
−	if description == "Reserved" or description == "Unassigned" or description == "(Unused)" then
+
−		code = nil;
+
−	end
+
−
+
−	-- Non-empty references become comments
+
−	if ref and ref:find("%S") then
+
−		ref = " -- " .. ref;
+
−	else
+
−		ref = "";
+
−	end
+
−
+
−	io.write((code and "\t[%d] = %q;%s\n" or "\t-- [%s] = %q;%s\n"):format(code or value, description, ref));
+
−end
+
−
+
−io.write([[};
+
−
+
−for k,v in pairs(response_codes) do response_codes[k] = k.." "..v; end
+
−return setmetatable(response_codes, { __index = function(_, k) return k.." Unassigned"; end })
+
−]]);