prosody-modules: mod_conversejs/mod_conversejs.lua@823156d5885b (annotated)

2661 6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	1	-- mod_conversejs
6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	2	-- Copyright (C) 2017 Kim Alvefur
6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	3
6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	4	local json_encode = require"util.json".encode;
6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	5
3333 43d0e298ddda mod_conversejs: Explicitly depend on mod_http Kim Alvefur <zash@zash.se> parents: 3328 diff changeset	6	module:depends"http";
2661 6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	7	module:depends"bosh";
6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	8
6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	9	local has_ws = pcall(function ()
6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	10	module:depends("websocket");
6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	11	end);
6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	12
3335 d98341bca458 mod_conversejs: Allow overriding CDN URL, or script/css URLs independently Matthew Wild <mwild1@gmail.com> parents: 3333 diff changeset	13	local cdn_url = module:get_option_string("conversejs_cdn", "https://cdn.conversejs.org");
d98341bca458 mod_conversejs: Allow overriding CDN URL, or script/css URLs independently Matthew Wild <mwild1@gmail.com> parents: 3333 diff changeset	14
d98341bca458 mod_conversejs: Allow overriding CDN URL, or script/css URLs independently Matthew Wild <mwild1@gmail.com> parents: 3333 diff changeset	15	local version = module:get_option_string("conversejs_version", "4.0.1");
3351 823156d5885b mod_conversejs: Strip extra slash if version is set to the empty string Kim Alvefur <zash@zash.se> parents: 3341 diff changeset	16	if version ~= "" then version = "/" .. version end
823156d5885b mod_conversejs: Strip extra slash if version is set to the empty string Kim Alvefur <zash@zash.se> parents: 3341 diff changeset	17	local js_url = module:get_option_string("conversejs_script", cdn_url..version.."/dist/converse.min.js");
823156d5885b mod_conversejs: Strip extra slash if version is set to the empty string Kim Alvefur <zash@zash.se> parents: 3341 diff changeset	18	local css_url = module:get_option_string("conversejs_css", cdn_url..version.."/css/converse.min.css");
3335 d98341bca458 mod_conversejs: Allow overriding CDN URL, or script/css URLs independently Matthew Wild <mwild1@gmail.com> parents: 3333 diff changeset	19
d98341bca458 mod_conversejs: Allow overriding CDN URL, or script/css URLs independently Matthew Wild <mwild1@gmail.com> parents: 3333 diff changeset	20	local html_template = ([[
2661 6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	21	<!DOCTYPE html>
3042 48cbf6a3f112 mod_conversejs: Make HTML more well-formed Kim Alvefur <zash@zash.se> parents: 3002 diff changeset	22	<html>
48cbf6a3f112 mod_conversejs: Make HTML more well-formed Kim Alvefur <zash@zash.se> parents: 3002 diff changeset	23	<head>
2661 6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	24	<meta charset="utf-8">
3335 d98341bca458 mod_conversejs: Allow overriding CDN URL, or script/css URLs independently Matthew Wild <mwild1@gmail.com> parents: 3333 diff changeset	25	<link rel="stylesheet" type="text/css" media="screen" href="$css_url"/>
d98341bca458 mod_conversejs: Allow overriding CDN URL, or script/css URLs independently Matthew Wild <mwild1@gmail.com> parents: 3333 diff changeset	26	<script charset="utf-8" src="$js_url"></script>
3328 3114b403362d mod_conversejs: Add a page title Kim Alvefur <zash@zash.se> parents: 3327 diff changeset	27	<title>Prosody IM and Converse.js</title>
3042 48cbf6a3f112 mod_conversejs: Make HTML more well-formed Kim Alvefur <zash@zash.se> parents: 3002 diff changeset	28	</head>
3043 df77580be2f0 mod_conversejs: Appologise for the JavaScript Kim Alvefur <zash@zash.se> parents: 3042 diff changeset	29	<body>
df77580be2f0 mod_conversejs: Appologise for the JavaScript Kim Alvefur <zash@zash.se> parents: 3042 diff changeset	30	<noscript>
df77580be2f0 mod_conversejs: Appologise for the JavaScript Kim Alvefur <zash@zash.se> parents: 3042 diff changeset	31	<h1>Converse.js</h1>
df77580be2f0 mod_conversejs: Appologise for the JavaScript Kim Alvefur <zash@zash.se> parents: 3042 diff changeset	32	<p>I'm sorry, but this XMPP client application won't work without JavaScript.</p>
3044 81b75086a781 mod_conversejs: Suggest some alternative cliets if JavaScript is disabled Kim Alvefur <zash@zash.se> parents: 3043 diff changeset	33	<p>Perhaps you would like to try one of these clients:</p>
81b75086a781 mod_conversejs: Suggest some alternative cliets if JavaScript is disabled Kim Alvefur <zash@zash.se> parents: 3043 diff changeset	34	<dl>
81b75086a781 mod_conversejs: Suggest some alternative cliets if JavaScript is disabled Kim Alvefur <zash@zash.se> parents: 3043 diff changeset	35	<dt>Desktop</dt>
81b75086a781 mod_conversejs: Suggest some alternative cliets if JavaScript is disabled Kim Alvefur <zash@zash.se> parents: 3043 diff changeset	36	<dd><ul>
81b75086a781 mod_conversejs: Suggest some alternative cliets if JavaScript is disabled Kim Alvefur <zash@zash.se> parents: 3043 diff changeset	37	<li><a href="https://gajim.org/">Gajim</a></li>
81b75086a781 mod_conversejs: Suggest some alternative cliets if JavaScript is disabled Kim Alvefur <zash@zash.se> parents: 3043 diff changeset	38	<li><a href="https://poez.io/">Poezio</a></li>
81b75086a781 mod_conversejs: Suggest some alternative cliets if JavaScript is disabled Kim Alvefur <zash@zash.se> parents: 3043 diff changeset	39	<li><a href="https://swift.im/">Swift</a></li>
81b75086a781 mod_conversejs: Suggest some alternative cliets if JavaScript is disabled Kim Alvefur <zash@zash.se> parents: 3043 diff changeset	40	</ul></dd>
81b75086a781 mod_conversejs: Suggest some alternative cliets if JavaScript is disabled Kim Alvefur <zash@zash.se> parents: 3043 diff changeset	41	<dt>Mobile</dt>
81b75086a781 mod_conversejs: Suggest some alternative cliets if JavaScript is disabled Kim Alvefur <zash@zash.se> parents: 3043 diff changeset	42	<dd><ul>
81b75086a781 mod_conversejs: Suggest some alternative cliets if JavaScript is disabled Kim Alvefur <zash@zash.se> parents: 3043 diff changeset	43	<li><a href="https://github.com/siacs/Conversations">Conversations</a></li>
81b75086a781 mod_conversejs: Suggest some alternative cliets if JavaScript is disabled Kim Alvefur <zash@zash.se> parents: 3043 diff changeset	44	<li><a href="https://yaxim.org/">Yaxim</a></li>
81b75086a781 mod_conversejs: Suggest some alternative cliets if JavaScript is disabled Kim Alvefur <zash@zash.se> parents: 3043 diff changeset	45	</ul></dd>
81b75086a781 mod_conversejs: Suggest some alternative cliets if JavaScript is disabled Kim Alvefur <zash@zash.se> parents: 3043 diff changeset	46	</dl>
81b75086a781 mod_conversejs: Suggest some alternative cliets if JavaScript is disabled Kim Alvefur <zash@zash.se> parents: 3043 diff changeset	47	<p><a href="https://xmpp.org/software/clients.html">More clients...</a></p>
3043 df77580be2f0 mod_conversejs: Appologise for the JavaScript Kim Alvefur <zash@zash.se> parents: 3042 diff changeset	48	</noscript>
3316 e714be00aaad mod_conversejs: Factor JavaScript part out of HTML Kim Alvefur <zash@zash.se> parents: 3314 diff changeset	49	<script>%s</script>
3043 df77580be2f0 mod_conversejs: Appologise for the JavaScript Kim Alvefur <zash@zash.se> parents: 3042 diff changeset	50	</body>
3042 48cbf6a3f112 mod_conversejs: Make HTML more well-formed Kim Alvefur <zash@zash.se> parents: 3002 diff changeset	51	</html>
3335 d98341bca458 mod_conversejs: Allow overriding CDN URL, or script/css URLs independently Matthew Wild <mwild1@gmail.com> parents: 3333 diff changeset	52	]]):gsub("$([%w_]+)", { js_url = js_url, css_url = css_url });
2661 6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	53
3316 e714be00aaad mod_conversejs: Factor JavaScript part out of HTML Kim Alvefur <zash@zash.se> parents: 3314 diff changeset	54	js_template = "converse.initialize(%s);";
e714be00aaad mod_conversejs: Factor JavaScript part out of HTML Kim Alvefur <zash@zash.se> parents: 3314 diff changeset	55
3336 4fdd8b77da54 mod_conversejs: Variable rename for clarity (user may override options) Matthew Wild <mwild1@gmail.com> parents: 3335 diff changeset	56	local user_options = module:get_option("conversejs_options");
2923 0ea93da47db9 mod_conversejs: Allow passing arbitrary options trough to Converse.js Kim Alvefur <zash@zash.se> parents: 2698 diff changeset	57
3317 d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	58	local function get_converse_options()
d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	59	local allow_registration = module:get_option_boolean("allow_registration", false);
d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	60	local converse_options = {
d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	61	bosh_service_url = module:http_url("bosh","/http-bind");
d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	62	websocket_url = has_ws and module:http_url("websocket","xmpp-websocket"):gsub("^http", "ws") or nil;
d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	63	authentication = module:get_option_string("authentication") == "anonymous" and "anonymous" or "login";
d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	64	jid = module.host;
d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	65	default_domain = module.host;
d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	66	domain_placeholder = module.host;
d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	67	allow_registration = allow_registration;
d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	68	registration_domain = allow_registration and module.host or nil;
d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	69	};
d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	70
3336 4fdd8b77da54 mod_conversejs: Variable rename for clarity (user may override options) Matthew Wild <mwild1@gmail.com> parents: 3335 diff changeset	71	if type(user_options) == "table" then
4fdd8b77da54 mod_conversejs: Variable rename for clarity (user may override options) Matthew Wild <mwild1@gmail.com> parents: 3335 diff changeset	72	for k,v in pairs(user_options) do
3317 d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	73	converse_options[k] = v;
d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	74	end
d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	75	end
d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	76
d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	77	return converse_options;
d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	78	end
d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	79
3337 5be90562e14b mod_conversejs: Allow custom tags to be inserted into the generated HTML Matthew Wild <mwild1@gmail.com> parents: 3336 diff changeset	80	local add_tags = module:get_option_set("conversejs_tags");
5be90562e14b mod_conversejs: Allow custom tags to be inserted into the generated HTML Matthew Wild <mwild1@gmail.com> parents: 3336 diff changeset	81
5be90562e14b mod_conversejs: Allow custom tags to be inserted into the generated HTML Matthew Wild <mwild1@gmail.com> parents: 3336 diff changeset	82	if add_tags then
5be90562e14b mod_conversejs: Allow custom tags to be inserted into the generated HTML Matthew Wild <mwild1@gmail.com> parents: 3336 diff changeset	83	local tags = {};
5be90562e14b mod_conversejs: Allow custom tags to be inserted into the generated HTML Matthew Wild <mwild1@gmail.com> parents: 3336 diff changeset	84	for tag in add_tags do
5be90562e14b mod_conversejs: Allow custom tags to be inserted into the generated HTML Matthew Wild <mwild1@gmail.com> parents: 3336 diff changeset	85	table.insert(tags, tag);
5be90562e14b mod_conversejs: Allow custom tags to be inserted into the generated HTML Matthew Wild <mwild1@gmail.com> parents: 3336 diff changeset	86	end
5be90562e14b mod_conversejs: Allow custom tags to be inserted into the generated HTML Matthew Wild <mwild1@gmail.com> parents: 3336 diff changeset	87	html_template = html_template:gsub("</head>", table.concat(tags, "\n"):gsub("%%", "%%").."\n</head>");
5be90562e14b mod_conversejs: Allow custom tags to be inserted into the generated HTML Matthew Wild <mwild1@gmail.com> parents: 3336 diff changeset	88	end
5be90562e14b mod_conversejs: Allow custom tags to be inserted into the generated HTML Matthew Wild <mwild1@gmail.com> parents: 3336 diff changeset	89
2661 6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	90	module:provides("http", {
3341 b46bb9392efe mod_conversejs: Set a friendly name for mod_http_index Kim Alvefur <zash@zash.se> parents: 3337 diff changeset	91	title = "Converse.js";
2661 6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	92	route = {
6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	93	GET = function (event)
3317 d6b922191aeb mod_conversejs: Factor out option handling into a function for future reuse Kim Alvefur <zash@zash.se> parents: 3316 diff changeset	94	local converse_options = get_converse_options();
3314 908b2bc05d26 mod_conversejs: Restore accidentally removed configuration option handling Kim Alvefur <zash@zash.se> parents: 3313 diff changeset	95
2923 0ea93da47db9 mod_conversejs: Allow passing arbitrary options trough to Converse.js Kim Alvefur <zash@zash.se> parents: 2698 diff changeset	96	event.response.headers.content_type = "text/html";
3316 e714be00aaad mod_conversejs: Factor JavaScript part out of HTML Kim Alvefur <zash@zash.se> parents: 3314 diff changeset	97	return html_template:format(js_template:format(json_encode(converse_options)));
2661 6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	98	end;
3318 ab67f222d88b mod_conversejs: Add an endpoint returning only initialization snippet Kim Alvefur <zash@zash.se> parents: 3317 diff changeset	99
ab67f222d88b mod_conversejs: Add an endpoint returning only initialization snippet Kim Alvefur <zash@zash.se> parents: 3317 diff changeset	100	["GET /prosody-converse.js"] = function (event)
ab67f222d88b mod_conversejs: Add an endpoint returning only initialization snippet Kim Alvefur <zash@zash.se> parents: 3317 diff changeset	101	local converse_options = get_converse_options();
ab67f222d88b mod_conversejs: Add an endpoint returning only initialization snippet Kim Alvefur <zash@zash.se> parents: 3317 diff changeset	102
ab67f222d88b mod_conversejs: Add an endpoint returning only initialization snippet Kim Alvefur <zash@zash.se> parents: 3317 diff changeset	103	event.response.headers.content_type = "application/javascript";
ab67f222d88b mod_conversejs: Add an endpoint returning only initialization snippet Kim Alvefur <zash@zash.se> parents: 3317 diff changeset	104	return js_template:format(json_encode(converse_options));
ab67f222d88b mod_conversejs: Add an endpoint returning only initialization snippet Kim Alvefur <zash@zash.se> parents: 3317 diff changeset	105	end;
2661 6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	106	}
6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	107	});
6f5c99c9f6cc mod_conversejs: Simple demo module for serving converse.js from internal http server Kim Alvefur <zash@zash.se> parents: diff changeset	108

author	Kim Alvefur <zash@zash.se>
	Thu, 04 Oct 2018 14:40:32 +0200
changeset 3351	823156d5885b
parent 3341	b46bb9392efe
child 3352	f753cf4f7224
permissions	-rw-r--r--