prosody-modules: mod_http_index/mod_http_index.lua@3e4d15ae2133 (annotated)

1573 0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	1	local st = require "util.stanza";
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	2	local url = require"socket.url";
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	3
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	4	module:depends"http";
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	5
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	6	-- local dump = require"util.serialization".new"dump".serialize;
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	7
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	8	local function template(data)
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	9	--[[ DOC
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	10	Like util.template, but deals with plain text
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	11	Returns a closure that is called with a table of values
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	12	{name} is substituted for values["name"] and is XML escaped
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	13	{name!} is substituted without XML escaping
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	14	{name?} is optional and is replaced with an empty string if no value exists
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	15	]]
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	16	return function(values)
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	17	return (data:gsub("{([^}]-)(%p?)}", function (name, opt)
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	18	local value = values[name];
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	19	if value then
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	20	if opt ~= "!" then
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	21	return st.xml_escape(value);
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	22	end
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	23	return value;
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	24	elseif opt == "?" then
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	25	return "";
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	26	end
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	27	end));
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	28	end
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	29	end
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	30
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	31	-- TODO Move templates into files
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	32	local base = template(template[[
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	33	<!DOCTYPE html>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	34	<html>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	35	<head>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	36	<meta charset="utf-8">
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	37	<meta name="viewport" content="width=device-width, initial-scale=1">
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	38	<meta name="generator" value="prosody/{prosody_version} mod_{mod_name}">
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	39	<link rel="canonical" href="{canonical}">
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	40	<title>{title}</title>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	41	<style>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	42	body{background-color:#eeeeec;margin:1ex 0;padding-bottom:3em;font-family:Arial,Helvetica,sans-serif;}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	43	header,footer{margin:1ex 1em;}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	44	footer{font-size:smaller;color:#babdb6;}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	45	.content{background-color:white;padding:1em;list-style-position:inside;}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	46	nav{font-size:large;margin:1ex 1ex;clear:both;line-height:1.5em;}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	47	nav a{padding: 1ex;text-decoration:none;}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	48	@media screen and (min-width: 460px) {
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	49	nav{font-size:x-large;margin:1ex 1em;}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	50	}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	51	a:link,a:visited{color:#2e3436;text-decoration:none;}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	52	a:link:hover,a:visited:hover{color:#3465a4;}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	53	ul,ol{padding:0;}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	54	li{list-style:none;}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	55	hr{visibility:hidden;clear:both;}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	56	br{clear:both;}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	57	li:hover time{opacity:1;}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	58	</style>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	59	</head>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	60	<body>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	61	<header>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	62	<h1>{title}</h1>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	63	{header!}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	64	</header>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	65	<hr>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	66	<div class="content">
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	67	{body!}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	68	</div>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	69	<hr>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	70	<footer>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	71	{footer!}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	72	<br>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	73	<div class="powered-by">Prosody {prosody_version?}</div>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	74	</footer>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	75	</body>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	76	</html>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	77	]] { prosody_version = prosody.version, mod_name = module.name });
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	78
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	79	local canonical = module:http_url(nil, "/");
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	80	local page_template = template(base{
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	81	canonical = canonical;
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	82	title = "HTTP stuff";
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	83	header = "";
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	84	body = [[
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	85	<nav>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	86	<ul>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	87	{lines!}
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	88	</ul>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	89	</nav>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	90	]];
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	91	footer = "";
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	92	});
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	93	local line_template = template[[
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	94	<li><a href="{url}" title="{module}">{name}</a></li>
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	95	]];
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	96
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	97	local function relative(base, link)
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	98	base = url.parse(base);
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	99	link = url.parse(link);
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	100	for k,v in pairs(base) do
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	101	if link[k] == v then
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	102	link[k] = nil;
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	103	end
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	104	end
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	105	return url.build(link);
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	106	end
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	107
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	108	local function handler(event)
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	109	local items = module:get_host_items("http-provider");
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	110	local item;
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	111	for i = 1, #items do
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	112	item = items[i];
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	113	if module.name ~= item._provided_by then
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	114	items[i] = line_template{
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	115	name = item.name;
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	116	module = "mod_" .. item._provided_by;
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	117	url = relative(canonical, module:http_url(item.name, item.default_path));
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	118	};
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	119	else
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	120	items[i] = "";
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	121	end
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	122	end
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	123	event.response.headers.content_type = "text/html";
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	124	return page_template{
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	125	lines = table.concat(items);
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	126	};
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	127	end
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	128
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	129	module:provides("http", {
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	130	route = {
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	131	["GET /"] = handler;
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	132	};
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	133	default_path = "/";
0d8cc6971cdb mod_http_index: Generates an index of local HTTP apps Kim Alvefur <zash@zash.se> parents: diff changeset	134	});

author	Kim Alvefur <zash@zash.se>
	Sun, 25 Jan 2015 13:04:02 +0100
changeset 1593	3e4d15ae2133
parent 1573	0d8cc6971cdb
permissions	-rw-r--r--