prosody-modules: mod_muc_log/mod_muc_log.lua@fc7055efd568 (annotated)

47 99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	1	-- Copyright (C) 2009 Thilo Cestonaro
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	2	--
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	3	-- This project is MIT/X11 licensed. Please see the
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	4	-- COPYING file in the source package for more information.
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	5	--
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	6	local prosody = prosody;
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	7	local splitJid = require "util.jid".split;
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	8	local bareJid = require "util.jid".bare;
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	9	local config_get = require "core.configmanager".get;
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	10	local httpserver = require "net.httpserver";
56 e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	11	local serialize = require "util.serialization".serialize;
62 0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	12	local datamanager = require "util.datamanager";
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	13	local data_load, data_store, data_getpath = datamanager.load, datamanager.store, datamanager.getpath;
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	14	local datastore = "muc_log";
85 83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	15	local muc_host = module:get_host();
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	16	local config = {};
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	17
56 e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	18
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	19	--[[ LuaFileSystem
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	20	* URL: http://www.keplerproject.org/luafilesystem/index.html
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	21	* Install: luarocks install luafilesystem
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	22	* ]]
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	23	local lfs = require "lfs";
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	24
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	25	local lom = require "lxp.lom";
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	26
56 e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	27
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	28	--[[
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	29	* Default templates for the html output.
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	30	]]--
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	31	local html = {};
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	32	html.doc = [[<html>
57 cddcea7c091a mod_muc_log: set content-type header; escape some html stuff in messages (>, <, \n, http://....) Thilo Cestonaro <thilo@cestona.ro> parents: 56 diff changeset	33	<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" >
56 e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	34	<head>
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	35	<title>muc_log</title>
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	36	</head>
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	37	<style type="text/css">
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	38	<!--
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	39	.timestuff {color: #AAAAAA; text-decoration: none;}
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	40	.muc_join {color: #009900; font-style: italic;}
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	41	.muc_leave {color: #009900; font-style: italic;}
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	42	.muc_statusChange {color: #009900; font-style: italic;}
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	43	.muc_title {color: #BBBBBB; font-size: 32px;}
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	44	.muc_titleChange {color: #009900; font-style: italic;}
56 e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	45	.muc_kick {color: #009900; font-style: italic;}
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	46	.muc_bann {color: #009900; font-style: italic;}
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	47	.muc_msg_nick {color: #0000AA;}
56 e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	48	//-->
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	49	</style>
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	50	<body>
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	51	###BODY_STUFF###
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	52	</body>
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	53	</html>]];
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	54
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	55	html.hosts = {};
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	56	html.hosts.bit = [[<a href="/muc_log/###JID###">###JID###</a><br />]]
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	57	html.hosts.body = [[<h2>Rooms hosted on this server:</h2><hr /><p>
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	58	###HOSTS_STUFF###
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	59	</p><hr />]];
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	60
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	61	html.days = {};
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	62	html.days.bit = [[<a href="/muc_log/###JID###/?year=###YEAR###&month=###MONTH###&day=###DAY###">20###YEAR###/###MONTH###/###DAY###</a><br />]];
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	63	html.days.body = [[<h2>available logged days of room: ###JID###</h2><hr /><p>
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	64	###DAYS_STUFF###
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	65	</p><hr />]];
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	66
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	67	html.day = {};
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	68	html.day.title = [[Subject: <font class="muc_title">###TITLE###</font>]];
56 e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	69	html.day.time = [[<a name="###TIME###" href="####TIME###" class="timestuff">[###TIME###]</a> ]]; -- the one ####TIME### need to stay! it will evaluate to e.g. #09:10:56 which is an anker then
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	70	html.day.presence = {};
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	71	html.day.presence.join = [[###TIME_STUFF###<font class="muc_join"> *** ###NICK### joins the room</font><br />]];
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	72	html.day.presence.leave = [[###TIME_STUFF###<font class="muc_leave"> *** ###NICK### leaves the room</font><br />]];
59 50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	73	html.day.presence.statusText = [[ and his status message is "###STATUS###"]];
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	74	html.day.presence.statusChange = [[###TIME_STUFF###<font class="muc_statusChange"> *** ###NICK### shows now as "###SHOW###"###STATUS_STUFF###</font><br />]];
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	75	html.day.message = [[###TIME_STUFF###<font class="muc_msg_nick"><###NICK###></font> ###MSG###<br />]];
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	76	html.day.titleChange = [[###TIME_STUFF###<font class="muc_titleChange"> *** ###NICK### changed the title to "###TITLE###"</font><br />]];
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	77	html.day.reason = [[, the reason was "###REASON###"]]
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	78	html.day.kick = [[###TIME_STUFF###<font class="muc_kick"> *** ###VICTIM### got kicked###REASON_STUFF###</font><br />]];
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	79	html.day.bann = [[###TIME_STUFF###<font class="muc_bann"> *** ###VICTIM### got banned###REASON_STUFF###</font><br />]];
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	80	html.day.body = [[<h2>room ###JID### logging of 20###YEAR###/###MONTH###/###DAY###</h2>
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	81	<p>###TITLE_STUFF###</p>
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	82	<hr /><p>
56 e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	83	###DAY_STUFF###
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	84	</p><hr />]];
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	85
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	86	html.help = [[
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	87	MUC logging is not configured correctly.<br />
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	88	Here is a example config:<br />
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	89	Component "rooms.example.com" "muc"<br />
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	90	modules_enabled = {<br />
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	91	"muc_log";<br />
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	92	}<br />
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	93	muc_log = {<br />
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	94	folder = "/opt/local/var/log/prosody/rooms";<br />
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	95	http_port = "/opt/local/var/log/prosody/rooms";<br />
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	96	}<br />
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	97	]];
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	98
62 0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	99	local function ensureDatastorePathExists(node, host, today)
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	100	local path = data_getpath(node, host, datastore, "dat", true);
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	101	path = path:gsub("/[^/]*$", "");
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	102
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	103	-- check existance
85 83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	104	local attributes, err = lfs.attributes(path);
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	105	if attributes == nil or attributes.mode ~= "directory" then
62 0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	106	module:log("warn", "muc_log folder isn't a folder: %s", path);
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	107	return false;
62 0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	108	end
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	109
85 83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	110	attributes, err = lfs.attributes(path .. "/" .. today);
62 0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	111	if attributes == nil then
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	112	return lfs.mkdir(path .. "/" .. today);
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	113	elseif attributes.mode == "directory" then
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	114	return true;
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	115	end
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	116	return false;
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	117	end
47 99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	118
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	119	function logIfNeeded(e)
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	120	local stanza, origin = e.stanza, e.origin;
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	121
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	122	if (stanza.name == "presence") or
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	123	(stanza.name == "iq") or
55 d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	124	(stanza.name == "message" and tostring(stanza.attr.type) == "groupchat")
47 99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	125	then
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	126	local node, host, resource = splitJid(stanza.attr.to);
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	127	if node ~= nil and host ~= nil then
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	128	local bare = node .. "@" .. host;
85 83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	129	if host == muc_host and prosody.hosts[host] ~= nil and prosody.hosts[host].muc ~= nil and prosody.hosts[host].muc.rooms[bare] ~= nil then
47 99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	130	local room = prosody.hosts[host].muc.rooms[bare]
55 d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	131	local today = os.date("%y%m%d");
d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	132	local now = os.date("%X")
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	133	local mucTo = nil
55 d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	134	local mucFrom = nil;
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	135	local alreadyJoined = false;
85 83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	136
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	137	if room._data.hidden then -- do not log any data of private rooms
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	138	return;
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	139	end
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	140
55 d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	141	if stanza.name == "presence" and stanza.attr.type == nil then
d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	142	mucFrom = stanza.attr.to;
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	143	if room._occupants ~= nil and room._occupants[stanza.attr.to] ~= nil then -- if true, the user has already joined the room
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	144	alreadyJoined = true;
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	145	stanza:tag("alreadyJoined"):text("true"); -- we need to log the information that the user has already joined, so add this and remove after logging
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	146	end
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	147	elseif stanza.name == "iq" and stanza.attr.type == "set" then -- kick, to is the room, from is the admin, nick who is kicked is attr of iq->query->item
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	148	if stanza.tags[1] ~= nil and stanza.tags[1].name == "query" then
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	149	local tmp = stanza.tags[1];
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	150	if tmp.tags[1] ~= nil and tmp.tags[1].name == "item" and tmp.tags[1].attr.nick ~= nil then
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	151	tmp = tmp.tags[1];
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	152	for jid, nick in pairs(room._jid_nick) do
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	153	if nick == stanza.attr.to .. "/" .. tmp.attr.nick then
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	154	mucTo = nick;
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	155	break;
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	156	end
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	157	end
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	158	end
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	159	end
55 d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	160	else
d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	161	for jid, nick in pairs(room._jid_nick) do
d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	162	if jid == stanza.attr.from then
d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	163	mucFrom = nick;
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	164	break;
47 99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	165	end
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	166	end
55 d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	167	end
47 99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	168
62 0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	169	if (mucFrom ~= nil or mucTo ~= nil) and ensureDatastorePathExists(node, host, today) then
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	170	local data = data_load(node, host, datastore .. "/" .. today);
55 d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	171	local realFrom = stanza.attr.from;
d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	172	local realTo = stanza.attr.to;
62 0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	173
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	174	if data == nil then
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	175	data = {};
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	176	end
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	177
55 d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	178	stanza.attr.from = mucFrom;
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	179	stanza.attr.to = mucTo;
62 0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	180	data[#data + 1] = "<stanza time=\"".. now .. "\">" .. tostring(stanza) .. "</stanza>\n";
55 d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	181	stanza.attr.from = realFrom;
d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	182	stanza.attr.to = realTo;
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	183	if alreadyJoined == true then
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	184	if stanza[#stanza].name == "alreadyJoined" then -- normaly the faked element should be the last, remove it when it is the last
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	185	stanza[#stanza] = nil;
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	186	else
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	187	for i = 1, #stanza, 1 do
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	188	if stanza[i].name == "alreadyJoined" then -- remove the faked element
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	189	stanza[i] = nil;
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	190	break;
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	191	end
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	192	end
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	193	end
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	194	end
62 0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	195	data_store(node, host, datastore .. "/" .. today, data);
47 99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	196	end
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	197	end
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	198	end
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	199	end
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	200	return;
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	201	end
99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	202
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	203	function createDoc(body)
56 e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	204	return html.doc:gsub("###BODY_STUFF###", body);
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	205	end
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	206
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	207	local function htmlEscape(t)
57 cddcea7c091a mod_muc_log: set content-type header; escape some html stuff in messages (>, <, \n, http://....) Thilo Cestonaro <thilo@cestona.ro> parents: 56 diff changeset	208	t = t:gsub("<", "<");
cddcea7c091a mod_muc_log: set content-type header; escape some html stuff in messages (>, <, \n, http://....) Thilo Cestonaro <thilo@cestona.ro> parents: 56 diff changeset	209	t = t:gsub(">", ">");
cddcea7c091a mod_muc_log: set content-type header; escape some html stuff in messages (>, <, \n, http://....) Thilo Cestonaro <thilo@cestona.ro> parents: 56 diff changeset	210	t = t:gsub("(http://[%a%d@%.:/&%?=%-_#]+)", [[<a href="%1">%1</a>]]);
56 e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	211	t = t:gsub("\n", "<br />");
57 cddcea7c091a mod_muc_log: set content-type header; escape some html stuff in messages (>, <, \n, http://....) Thilo Cestonaro <thilo@cestona.ro> parents: 56 diff changeset	212	-- TODO do any html escaping stuff ...
56 e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	213	return t;
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	214	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	215
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	216	function splitQuery(query)
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	217	local ret = {};
59 50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	218	local name, value = nil, nil;
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	219	if query == nil then return ret; end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	220	local last = 1;
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	221	local idx = query:find("&", last);
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	222	while idx ~= nil do
59 50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	223	name, value = query:sub(last, idx - 1):match("^(%a+)=(%d+)$");
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	224	ret[name] = value;
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	225	last = idx + 1;
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	226	idx = query:find("&", last);
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	227	end
59 50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	228	name, value = query:sub(last):match("^(%a+)=(%d+)$");
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	229	ret[name] = value;
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	230	return ret;
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	231	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	232
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	233	function grepRoomJid(url)
52 11d1d4ff8037 mod_muclogging: renamed to mod_muc_log; s/muclogging/muc_log/ Thilo Cestonaro <thilo@cestona.ro> parents: 51 diff changeset	234	local tmp = url:sub(string.len("/muc_log/") + 1);
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	235	local node = nil;
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	236	local host = nil;
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	237	local at = nil;
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	238	local slash = nil;
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	239
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	240	at = tmp:find("@");
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	241	slash = tmp:find("/");
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	242	if slash ~= nil then
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	243	slash = slash - 1;
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	244	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	245
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	246	if at ~= nil then
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	247	node = tmp:sub(1, at - 1);
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	248	host = tmp:sub(at + 1, slash);
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	249	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	250	return node, host;
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	251	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	252
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	253	local function generateRoomListSiteContent()
56 e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	254	local rooms = "";
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	255	for host, config in pairs(prosody.hosts) do
85 83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	256	if host == muc_host and prosody.hosts[host].muc ~= nil then
55 d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	257	for jid, room in pairs(prosody.hosts[host].muc.rooms) do
85 83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	258	if not room._data.hidden then
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	259	rooms = rooms .. html.hosts.bit:gsub("###JID###", jid);
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	260	end
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	261	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	262	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	263	end
56 e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	264
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	265	return html.hosts.body:gsub("###HOSTS_STUFF###", rooms);
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	266	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	267
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	268	local function generateDayListSiteContentByRoom(bareRoomJid)
56 e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	269	local days = "";
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	270	local tmp;
62 0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	271	local node, host, resource = splitJid(bareRoomJid);
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	272	local path = data_getpath(node, host, datastore);
85 83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	273	local room = nil;
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	274	local attributes = nil;
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	275
62 0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	276	path = path:gsub("/[^/]*$", "");
85 83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	277	attributes = lfs.attributes(path);
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	278	if host == muc_host and prosody.hosts[host] ~= nil and prosody.hosts[host].muc ~= nil and prosody.hosts[host].muc.rooms[bareRoomJid] ~= nil then
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	279	room = prosody.hosts[host].muc.rooms[bareRoomJid];
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	280	if room._data.hidden then
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	281	room = nil
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	282	end
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	283	end
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	284	if attributes ~= nil and room ~= nil then
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	285	for file in lfs.dir(path) do
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	286	local year, month, day = file:match("^(%d%d)(%d%d)(%d%d)");
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	287	if year ~= nil and month ~= nil and day ~= nil and
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	288	year ~= "" and month ~= "" and day ~= ""
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	289	then
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	290	tmp = html.days.bit;
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	291	tmp = tmp:gsub("###JID###", bareRoomJid);
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	292	tmp = tmp:gsub("###YEAR###", year):gsub("###MONTH###", month):gsub("###DAY###", day);
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	293	days = tmp .. days;
83494de806a4 mod_muc_log: Do not log other muc-component's rooms then the module was loaded for. Do neither log nor provide access to possible existing log if a room is private. (thx flo for spotting this) Thilo Cestonaro <thilo@cestona.ro> parents: 81 diff changeset	294	end
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	295	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	296	end
56 e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	297	if days ~= "" then
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	298	tmp = html.days.body:gsub("###DAYS_STUFF###", days);
e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	299	return tmp:gsub("###JID###", bareRoomJid);
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	300	else
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	301	return generateRoomListSiteContent(); -- fallback
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	302	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	303	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	304
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	305	local function parseIqStanza(stanza, timeStuff, nick)
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	306	local text = nil;
86 fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	307	local victim = nil;
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	308	if(stanza.attr.type == "set") then
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	309	for _,tag in ipairs(stanza) do
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	310	if tag.tag == "query" then
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	311	for _,item in ipairs(tag) do
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	312	if item.tag == "item" and item.attr.nick ~= nil and tostring(item.attr.role) == 'none' then
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	313	victim = item.attr.nick;
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	314	for _,reason in ipairs(item) do
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	315	if reason.tag == "reason" then
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	316	text = reason[1];
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	317	break;
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	318	end
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	319	end
86 fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	320	break;
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	321	end
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	322	end
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	323	break;
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	324	end
86 fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	325	end
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	326	if victim ~= nil then
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	327	if text ~= nil then
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	328	text = html.day.reason:gsub("###REASON###", htmlEscape(text));
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	329	else
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	330	text = "";
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	331	end
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	332	return html.day.kick:gsub("###TIME_STUFF###", timeStuff):gsub("###VICTIM###", victim):gsub("###REASON_STUFF###", text);
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	333	end
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	334	end
86 fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	335	return;
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	336	end
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	337
59 50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	338	local function parsePresenceStanza(stanza, timeStuff, nick)
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	339	local ret = "";
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	340	if stanza.attr.type == nil then
59 50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	341	local show, status = nil, "";
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	342	local alreadyJoined = false;
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	343	for _, tag in ipairs(stanza) do
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	344	if tag.tag == "alreadyJoined" then
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	345	alreadyJoined = true;
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	346	elseif tag.tag == "show" then
59 50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	347	show = tag[1];
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	348	elseif tag.tag == "status" then
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	349	status = tag[1];
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	350	end
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	351	end
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	352	if alreadyJoined == true then
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	353	if show == nil then
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	354	show = "online";
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	355	end
59 50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	356	ret = html.day.presence.statusChange:gsub("###TIME_STUFF###", timeStuff);
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	357	if status ~= "" then
60 5cca708c9f11 mod_muc_log: escape nicknames and status messages too. (thx waqas for finding it; Hope you had fun :P ) Thilo Cestonaro <thilo@cestona.ro> parents: 59 diff changeset	358	status = html.day.presence.statusText:gsub("###STATUS###", htmlEscape(status));
59 50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	359	end
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	360	ret = ret:gsub("###SHOW###", show):gsub("###NICK###", nick):gsub("###STATUS_STUFF###", status);
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	361	else
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	362	ret = html.day.presence.join:gsub("###TIME_STUFF###", timeStuff):gsub("###NICK###", nick);
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	363	end
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	364	elseif stanza.attr.type ~= nil and stanza.attr.type == "unavailable" then
59 50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	365	ret = html.day.presence.leave:gsub("###TIME_STUFF###", timeStuff):gsub("###NICK###", nick);
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	366	end
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	367	return ret;
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	368	end
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	369
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	370	local function parseMessageStanza(stanza, timeStuff, nick)
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	371	local body, title, ret = nil, nil, "";
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	372
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	373	for _,tag in ipairs(stanza) do
59 50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	374	if tag.tag == "body" then
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	375	body = tag[1];
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	376	if nick ~= nil then
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	377	break;
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	378	end
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	379	elseif tag.tag == "nick" and nick == nil then
60 5cca708c9f11 mod_muc_log: escape nicknames and status messages too. (thx waqas for finding it; Hope you had fun :P ) Thilo Cestonaro <thilo@cestona.ro> parents: 59 diff changeset	380	nick = htmlEscape(tag[1]);
59 50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	381	if body ~= nil or title ~= nil then
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	382	break;
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	383	end
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	384	elseif tag.tag == "subject" then
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	385	title = tag[1];
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	386	if nick ~= nil then
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	387	break;
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	388	end
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	389	end
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	390	end
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	391	if nick ~= nil and body ~= nil then
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	392	body = htmlEscape(body);
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	393	ret = html.day.message:gsub("###TIME_STUFF###", timeStuff):gsub("###NICK###", nick):gsub("###MSG###", body);
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	394	elseif nick ~= nil and title ~= nil then
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	395	title = htmlEscape(title);
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	396	ret = html.day.titleChange:gsub("###TIME_STUFF###", timeStuff):gsub("###NICK###", nick):gsub("###TITLE###", title);
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	397	end
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	398	return ret;
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	399	end
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	400
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	401	local function parseDay(bareRoomJid, roomSubject, query)
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	402	local ret = "";
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	403	local year;
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	404	local month;
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	405	local day;
56 e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	406	local tmp;
62 0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	407	local node, host, resource = splitJid(bareRoomJid);
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	408
59 50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	409	if query.year ~= nil and query.month ~= nil and query.day ~= nil then
62 0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	410	local data = data_load(node, host, datastore .. "/" .. query.year .. query.month .. query.day);
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	411	if data ~= nil then
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	412	for i=1, #data, 1 do
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	413	local stanza = lom.parse(data[i]);
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	414	if stanza ~= nil and stanza.attr ~= nil and stanza.attr.time ~= nil then
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	415	local timeStuff = html.day.time:gsub("###TIME###", stanza.attr.time);
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	416	if stanza[1] ~= nil then
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	417	local nick;
86 fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	418	local tmp;
62 0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	419
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	420	-- grep nick from "from" resource
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	421	if stanza[1].attr.from ~= nil then -- presence and messages
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	422	nick = htmlEscape(stanza[1].attr.from:match("/(.+)$"));
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	423	elseif stanza[1].attr.to ~= nil then -- iq
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	424	nick = htmlEscape(stanza[1].attr.to:match("/(.+)$"));
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	425	end
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	426
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	427	if stanza[1].tag == "presence" and nick ~= nil then
86 fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	428	tmp = parsePresenceStanza(stanza[1], timeStuff, nick);
62 0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	429	elseif stanza[1].tag == "message" then
86 fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	430	tmp = parseMessageStanza(stanza[1], timeStuff, nick);
62 0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	431	elseif stanza[1].tag == "iq" then
86 fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	432	tmp = parseIqStanza(stanza[1], timeStuff, nick);
62 0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	433	else
0dfd65bfedb0 mod_muc_log: using datamanager to store the logging. Thilo Cestonaro <thilo@cestona.ro> parents: 61 diff changeset	434	module:log("info", "unknown stanza subtag in log found. room: %s; day: %s", bareRoomJid, query.year .. "/" .. query.month .. "/" .. query.day);
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	435	end
86 fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	436	if tmp ~= nil then
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	437	ret = ret .. tmp
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	438	tmp = nil;
fc7055efd568 mod_muc_log: retrieving the room config, is not a kick of a person!! :) (thx again to flo spotting it!) Thilo Cestonaro <thilo@cestona.ro> parents: 85 diff changeset	439	end
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	440	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	441	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	442	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	443	else
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	444	return generateDayListSiteContentByRoom(bareRoomJid); -- fallback
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	445	end
59 50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	446	tmp = html.day.body:gsub("###DAY_STUFF###", ret):gsub("###JID###", bareRoomJid);
50e3d5b87119 mod_muc_log: better presence and message parsing; react on subject changes Thilo Cestonaro <thilo@cestona.ro> parents: 57 diff changeset	447	tmp = tmp:gsub("###YEAR###", query.year):gsub("###MONTH###", query.month):gsub("###DAY###", query.day);
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	448	tmp = tmp:gsub("###TITLE_STUFF###", html.day.title:gsub("###TITLE###", roomSubject));
56 e9de45beaf5e mod_muc_log: templify the html stuff Thilo Cestonaro <thilo@cestona.ro> parents: 55 diff changeset	449	return tmp;
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	450	else
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	451	return generateDayListSiteContentByRoom(bareRoomJid); -- fallback
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	452	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	453	end
81 9ceeab822e40 mod_muc_log: revert changes of last commit (bed9a6b40f) Thilo Cestonaro <thilo@cestona.ro> parents: 80 diff changeset	454
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	455	function handle_request(method, body, request)
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	456	local query = splitQuery(request.url.query);
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	457	local node, host = grepRoomJid(request.url.path);
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	458
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	459	if node ~= nil and host ~= nil then
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	460	local bare = node .. "@" .. host;
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	461	if prosody.hosts[host] ~= nil and prosody.hosts[host].muc ~= nil and prosody.hosts[host].muc.rooms[bare] ~= nil then
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	462	local room = prosody.hosts[host].muc.rooms[bare];
55 d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	463	if request.url.query == nil then
d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	464	return createDoc(generateDayListSiteContentByRoom(bare));
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	465	else
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	466	local subject = ""
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	467	if room._data ~= nil and room._data.subject ~= nil then
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	468	subject = room._data.subject;
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	469	end
81 9ceeab822e40 mod_muc_log: revert changes of last commit (bed9a6b40f) Thilo Cestonaro <thilo@cestona.ro> parents: 80 diff changeset	470	return createDoc(parseDay(bare, subject, query));
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	471	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	472	else
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	473	return createDoc(generateRoomListSiteContent());
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	474	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	475	else
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	476	return createDoc(generateRoomListSiteContent());
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	477	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	478	return;
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	479	end
a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	480
81 9ceeab822e40 mod_muc_log: revert changes of last commit (bed9a6b40f) Thilo Cestonaro <thilo@cestona.ro> parents: 80 diff changeset	481	config = config_get(module:get_host(), "core", "muc_log");
55 d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	482
d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	483	httpserver.new_from_config({ config.http_port or true }, handle_request, { base = "muc_log" });
50 a96d3f37d845 mod_muclogging: with http_server part for viewing Thilo Cestonaro <thilo@cestona.ro> parents: 47 diff changeset	484
55 d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	485	module:hook("message/bare", logIfNeeded, 500);
47 99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	486	module:hook("pre-message/bare", logIfNeeded, 500);
61 e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	487	module:hook("iq/bare", logIfNeeded, 500);
e609da067e9f mod_muc_log: display room's current title; show kicked messages with and without reason Thilo Cestonaro <thilo@cestona.ro> parents: 60 diff changeset	488	module:hook("pre-iq/bare", logIfNeeded, 500);
55 d9749ed44f6e mod_muc_log: make it recognize s2s messages/presences Thilo Cestonaro <thilo@cestona.ro> parents: 54 diff changeset	489	module:hook("presence/full", logIfNeeded, 500);
47 99ff520519fe mod_muclogging: initial checkin Thilo Cestonaro <thilo@cestona.ro> parents: diff changeset	490	module:hook("pre-presence/full", logIfNeeded, 500);

author	Thilo Cestonaro <thilo@cestona.ro>
	Sun, 08 Nov 2009 22:10:42 +0100
changeset 86	fc7055efd568
parent 85	83494de806a4
child 87	0e639d081ba7
permissions	-rw-r--r--