prosody-modules: mod_http_muc_log/mod_http_muc

annotate mod_http_muc_log/mod_http_muc_log.lua @ 5668:ecfd7aece33b

mod_measure_modules: Report module statuses via OpenMetrics Someone in the chat asked about a health check endpoint, which reminded me of mod_http_status, which provides access to module statuses with full details. After that, this idea came about, which seems natural. As noted in the README, it could be used to monitor that critical modules are in fact loaded correctly. As more modules use the status API, the more useful this module and mod_http_status becomes.

author	Kim Alvefur <zash@zash.se>
date	Fri, 06 Oct 2023 18:34:39 +0200
parents	c20b77e5e032
children	0ee77be396b9

rev	line source
1606 2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	1 local mt = require"util.multitable";
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	2 local datetime = require"util.datetime";
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	3 local jid_split = require"util.jid".split;
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	4 local nodeprep = require"util.encodings".stringprep.nodeprep;
1581 9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	5 local url = require"socket.url";
1606 2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	6 local os_time, os_date = os.time, os.date;
3485 181561d0aae5 mod_http_muc_log: Add functionality for hiding joins and parts Kim Alvefur <zash@zash.se> parents: 3283 diff changeset	7 local httplib = require "util.http";
3750 9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	8 local render_funcs = {};
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	9 local render = require"util.interpolation".new("%b{}", require"util.stanza".xml_escape, render_funcs);
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	10
1571 eed7db9f3157 mod_mam_muc, mod_http_muc_log: Change store name from 'archive2' to 'muc_log' to distinguish it from personal MAM archives. Old data will require migration. Kim Alvefur <zash@zash.se> parents: 1564 diff changeset	11 local archive = module:open_store("muc_log", "archive");
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	12
4970 8c7b7db69f5b mod_http_muc_log: Drop support for pre-0.11 MUC API Kim Alvefur <zash@zash.se> parents: 4963 diff changeset	13 -- Prosody 0.11+ MUC API
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	14 local mod_muc = module:depends"muc";
4970 8c7b7db69f5b mod_http_muc_log: Drop support for pre-0.11 MUC API Kim Alvefur <zash@zash.se> parents: 4963 diff changeset	15 local each_room = mod_muc.each_room;
8c7b7db69f5b mod_http_muc_log: Drop support for pre-0.11 MUC API Kim Alvefur <zash@zash.se> parents: 4963 diff changeset	16 local get_room_from_jid = mod_muc.get_room_from_jid;
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	17
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	18 local function get_room(name)
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	19 local jid = name .. '@' .. module.host;
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	20 return get_room_from_jid(jid);
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	21 end
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	22
3582 444e2306c99a mod_http_muc_log: Add option to show OOB images Kim Alvefur <zash@zash.se> parents: 3578 diff changeset	23 local use_oob = module:get_option_boolean(module.name .. "_show_images", false);
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	24 module:depends"http";
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	25
1654 1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	26 local template;
1582 8e282eb0c70c mod_http_muc_log: Split out template into a configurable file. Kim Alvefur <zash@zash.se> parents: 1581 diff changeset	27 do
4182 1890115b2773 mod_http_muc_log: Move template into a directory to ease packaging Kim Alvefur <zash@zash.se> parents: 4034 diff changeset	28 local template_filename = module:get_option_string(module.name .. "_template", "res/" .. module.name .. ".html");
3066 cefc375d0929 mod_http_muc_log: Handle errors while loading template file in a more graceful manner Kim Alvefur <zash@zash.se> parents: 3064 diff changeset	29 local template_file, err = module:load_resource(template_filename);
cefc375d0929 mod_http_muc_log: Handle errors while loading template file in a more graceful manner Kim Alvefur <zash@zash.se> parents: 3064 diff changeset	30 if template_file then
cefc375d0929 mod_http_muc_log: Handle errors while loading template file in a more graceful manner Kim Alvefur <zash@zash.se> parents: 3064 diff changeset	31 template, err = template_file:read("*a");
cefc375d0929 mod_http_muc_log: Handle errors while loading template file in a more graceful manner Kim Alvefur <zash@zash.se> parents: 3064 diff changeset	32 template_file:close();
cefc375d0929 mod_http_muc_log: Handle errors while loading template file in a more graceful manner Kim Alvefur <zash@zash.se> parents: 3064 diff changeset	33 end
cefc375d0929 mod_http_muc_log: Handle errors while loading template file in a more graceful manner Kim Alvefur <zash@zash.se> parents: 3064 diff changeset	34 if not template then
cefc375d0929 mod_http_muc_log: Handle errors while loading template file in a more graceful manner Kim Alvefur <zash@zash.se> parents: 3064 diff changeset	35 module:log("error", "Error loading template: %s", err);
3486 887ce59cf396 mod_http_muc_log: Split long line [luacheck] Kim Alvefur <zash@zash.se> parents: 3485 diff changeset	36 template = render("<h1>mod_{module} could not read the template</h1>\
887ce59cf396 mod_http_muc_log: Split long line [luacheck] Kim Alvefur <zash@zash.se> parents: 3485 diff changeset	37 <p>Tried to open <b>{filename}</b></p>\
887ce59cf396 mod_http_muc_log: Split long line [luacheck] Kim Alvefur <zash@zash.se> parents: 3485 diff changeset	38 <pre>{error}</pre>",
3066 cefc375d0929 mod_http_muc_log: Handle errors while loading template file in a more graceful manner Kim Alvefur <zash@zash.se> parents: 3064 diff changeset	39 { module = module.name, filename = template_filename, error = err });
cefc375d0929 mod_http_muc_log: Handle errors while loading template file in a more graceful manner Kim Alvefur <zash@zash.se> parents: 3064 diff changeset	40 end
1582 8e282eb0c70c mod_http_muc_log: Split out template into a configurable file. Kim Alvefur <zash@zash.se> parents: 1581 diff changeset	41 end
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	42
5104 d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	43 local resources = module:get_option_path(module.name .. "_resources", "static");
d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	44
1654 1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	45 -- local base_url = module:http_url() .. '/'; -- TODO: Generate links in a smart way
1581 9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	46 local get_link do
9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	47 local link, path = { path = '/' }, { "", "", is_directory = true };
9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	48 function get_link(room, date)
9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	49 path[1], path[2] = room, date;
9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	50 path.is_directory = not date;
9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	51 link.path = url.build_path(path);
9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	52 return url.build(link);
9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	53 end
9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	54 end
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	55
3593 0b670831ace3 mod_http_muc_log: Correctly build absolute URLs Kim Alvefur <zash@zash.se> parents: 3592 diff changeset	56 local function get_absolute_link(room, date)
0b670831ace3 mod_http_muc_log: Correctly build absolute URLs Kim Alvefur <zash@zash.se> parents: 3592 diff changeset	57 local link = url.parse(module:http_url());
0b670831ace3 mod_http_muc_log: Correctly build absolute URLs Kim Alvefur <zash@zash.se> parents: 3592 diff changeset	58 local path = url.parse_path(link.path);
0b670831ace3 mod_http_muc_log: Correctly build absolute URLs Kim Alvefur <zash@zash.se> parents: 3592 diff changeset	59 if room then
0b670831ace3 mod_http_muc_log: Correctly build absolute URLs Kim Alvefur <zash@zash.se> parents: 3592 diff changeset	60 table.insert(path, room);
0b670831ace3 mod_http_muc_log: Correctly build absolute URLs Kim Alvefur <zash@zash.se> parents: 3592 diff changeset	61 if date then
0b670831ace3 mod_http_muc_log: Correctly build absolute URLs Kim Alvefur <zash@zash.se> parents: 3592 diff changeset	62 table.insert(path, date)
0b670831ace3 mod_http_muc_log: Correctly build absolute URLs Kim Alvefur <zash@zash.se> parents: 3592 diff changeset	63 path.is_directory = false;
0b670831ace3 mod_http_muc_log: Correctly build absolute URLs Kim Alvefur <zash@zash.se> parents: 3592 diff changeset	64 else
0b670831ace3 mod_http_muc_log: Correctly build absolute URLs Kim Alvefur <zash@zash.se> parents: 3592 diff changeset	65 path.is_directory = true;
0b670831ace3 mod_http_muc_log: Correctly build absolute URLs Kim Alvefur <zash@zash.se> parents: 3592 diff changeset	66 end
0b670831ace3 mod_http_muc_log: Correctly build absolute URLs Kim Alvefur <zash@zash.se> parents: 3592 diff changeset	67 end
0b670831ace3 mod_http_muc_log: Correctly build absolute URLs Kim Alvefur <zash@zash.se> parents: 3592 diff changeset	68 link.path = url.build_path(path)
0b670831ace3 mod_http_muc_log: Correctly build absolute URLs Kim Alvefur <zash@zash.se> parents: 3592 diff changeset	69 return url.build(link)
0b670831ace3 mod_http_muc_log: Correctly build absolute URLs Kim Alvefur <zash@zash.se> parents: 3592 diff changeset	70 end
0b670831ace3 mod_http_muc_log: Correctly build absolute URLs Kim Alvefur <zash@zash.se> parents: 3592 diff changeset	71
3059 14d8f2a9d5f4 mod_http_muc_log: Base read-access on whether anyone would be able to join (like MUC) Kim Alvefur <zash@zash.se> parents: 3058 diff changeset	72 -- Whether room can be joined by anyone
14d8f2a9d5f4 mod_http_muc_log: Base read-access on whether anyone would be able to join (like MUC) Kim Alvefur <zash@zash.se> parents: 3058 diff changeset	73 local function open_room(room) -- : boolean
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	74 if type(room) == "string" then
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	75 room = get_room(room);
3061 25eecbb195d9 mod_http_muc_log: Add comment about argument to policy function Kim Alvefur <zash@zash.se> parents: 3060 diff changeset	76 -- assumed to be a room object otherwise
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	77 end
3057 f69a2e97d912 mod_http_muc_log: Improve readability of policy function Kim Alvefur <zash@zash.se> parents: 2846 diff changeset	78 if not room then
f69a2e97d912 mod_http_muc_log: Improve readability of policy function Kim Alvefur <zash@zash.se> parents: 2846 diff changeset	79 return nil;
f69a2e97d912 mod_http_muc_log: Improve readability of policy function Kim Alvefur <zash@zash.se> parents: 2846 diff changeset	80 end
f69a2e97d912 mod_http_muc_log: Improve readability of policy function Kim Alvefur <zash@zash.se> parents: 2846 diff changeset	81
3059 14d8f2a9d5f4 mod_http_muc_log: Base read-access on whether anyone would be able to join (like MUC) Kim Alvefur <zash@zash.se> parents: 3058 diff changeset	82 if (room.get_members_only or room.is_members_only)(room) then
14d8f2a9d5f4 mod_http_muc_log: Base read-access on whether anyone would be able to join (like MUC) Kim Alvefur <zash@zash.se> parents: 3058 diff changeset	83 return false;
3057 f69a2e97d912 mod_http_muc_log: Improve readability of policy function Kim Alvefur <zash@zash.se> parents: 2846 diff changeset	84 end
f69a2e97d912 mod_http_muc_log: Improve readability of policy function Kim Alvefur <zash@zash.se> parents: 2846 diff changeset	85
3059 14d8f2a9d5f4 mod_http_muc_log: Base read-access on whether anyone would be able to join (like MUC) Kim Alvefur <zash@zash.se> parents: 3058 diff changeset	86 if room:get_password() then
3057 f69a2e97d912 mod_http_muc_log: Improve readability of policy function Kim Alvefur <zash@zash.se> parents: 2846 diff changeset	87 return false;
f69a2e97d912 mod_http_muc_log: Improve readability of policy function Kim Alvefur <zash@zash.se> parents: 2846 diff changeset	88 end
f69a2e97d912 mod_http_muc_log: Improve readability of policy function Kim Alvefur <zash@zash.se> parents: 2846 diff changeset	89
f69a2e97d912 mod_http_muc_log: Improve readability of policy function Kim Alvefur <zash@zash.se> parents: 2846 diff changeset	90 return true;
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	91 end
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	92
3596 6e529f53b3c3 mod_http_muc_log: Allow specifying the default view Kim Alvefur <zash@zash.se> parents: 3595 diff changeset	93 -- Can be set to "latest"
6e529f53b3c3 mod_http_muc_log: Allow specifying the default view Kim Alvefur <zash@zash.se> parents: 3595 diff changeset	94 local default_view = module:get_option_string(module.name .. "_default_view", nil);
6e529f53b3c3 mod_http_muc_log: Allow specifying the default view Kim Alvefur <zash@zash.se> parents: 3595 diff changeset	95
3064 ce61f1826f1f mod_http_muc_log: Include URL in disco#info for public rooms Kim Alvefur <zash@zash.se> parents: 3063 diff changeset	96 module:hook("muc-disco#info", function (event)
ce61f1826f1f mod_http_muc_log: Include URL in disco#info for public rooms Kim Alvefur <zash@zash.se> parents: 3063 diff changeset	97 local room = event.room;
ce61f1826f1f mod_http_muc_log: Include URL in disco#info for public rooms Kim Alvefur <zash@zash.se> parents: 3063 diff changeset	98 if open_room(room) then
ce61f1826f1f mod_http_muc_log: Include URL in disco#info for public rooms Kim Alvefur <zash@zash.se> parents: 3063 diff changeset	99 table.insert(event.form, { name = "muc#roominfo_logs", type="text-single" });
3596 6e529f53b3c3 mod_http_muc_log: Allow specifying the default view Kim Alvefur <zash@zash.se> parents: 3595 diff changeset	100 event.formdata["muc#roominfo_logs"] = get_absolute_link(jid_split(event.room.jid), default_view);
3064 ce61f1826f1f mod_http_muc_log: Include URL in disco#info for public rooms Kim Alvefur <zash@zash.se> parents: 3063 diff changeset	101 end
ce61f1826f1f mod_http_muc_log: Include URL in disco#info for public rooms Kim Alvefur <zash@zash.se> parents: 3063 diff changeset	102 end);
ce61f1826f1f mod_http_muc_log: Include URL in disco#info for public rooms Kim Alvefur <zash@zash.se> parents: 3063 diff changeset	103
1606 2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	104 local function sort_Y(a,b) return a.year > b.year end
2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	105 local function sort_m(a,b) return a.n > b.n end
2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	106
2590 63dd3e525f13 mod_http_muc_log: Add some comments Kim Alvefur <zash@zash.se> parents: 2236 diff changeset	107 -- Time zone hack?
1606 2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	108 local t_diff = os_time(os_date("t")) - os_time(os_date("!t"));
2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	109 local function time(t)
2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	110 return os_time(t) + t_diff;
2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	111 end
2836 52a7c0f6aea1 mod_http_muc_log: Add a function for rounding timestamps down to midnight Kim Alvefur <zash@zash.se> parents: 2826 diff changeset	112 local function date_floor(t)
52a7c0f6aea1 mod_http_muc_log: Add a function for rounding timestamps down to midnight Kim Alvefur <zash@zash.se> parents: 2826 diff changeset	113 return t - t % 86400;
52a7c0f6aea1 mod_http_muc_log: Add a function for rounding timestamps down to midnight Kim Alvefur <zash@zash.se> parents: 2826 diff changeset	114 end
1606 2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	115
2590 63dd3e525f13 mod_http_muc_log: Add some comments Kim Alvefur <zash@zash.se> parents: 2236 diff changeset	116 -- Fetch one item
1654 1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	117 local function find_once(room, query, retval)
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	118 if query then query.limit = 1; else query = { limit = 1 }; end
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	119 local iter, err = archive:find(room, query);
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	120 if not iter then return iter, err; end
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	121 if retval then
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	122 return select(retval, iter());
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	123 end
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	124 return iter();
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	125 end
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	126
2826 ed26608920d4 mod_http_muc_log: Switch to an inaccurate but O(1) method of producing the calendar view Kim Alvefur <zash@zash.se> parents: 2763 diff changeset	127 local lazy = module:get_option_boolean(module.name .. "_lazy_calendar", true);
ed26608920d4 mod_http_muc_log: Switch to an inaccurate but O(1) method of producing the calendar view Kim Alvefur <zash@zash.se> parents: 2763 diff changeset	128
3597 da7ec4ed6ddf mod_http_muc_log: Hide join/part controls if they are not stored by mod_muc_mam Kim Alvefur <zash@zash.se> parents: 3596 diff changeset	129 local presence_logged = module:get_option_boolean("muc_log_presences", false);
da7ec4ed6ddf mod_http_muc_log: Hide join/part controls if they are not stored by mod_muc_mam Kim Alvefur <zash@zash.se> parents: 3596 diff changeset	130
5581 df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	131 local function show_presence(request) --> boolean\|nil
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	132 -- boolean -> yes or no
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	133 -- nil -> dunno
3597 da7ec4ed6ddf mod_http_muc_log: Hide join/part controls if they are not stored by mod_muc_mam Kim Alvefur <zash@zash.se> parents: 3596 diff changeset	134 if not presence_logged then
5581 df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	135 -- No presence stored, skip
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	136 return nil;
3597 da7ec4ed6ddf mod_http_muc_log: Hide join/part controls if they are not stored by mod_muc_mam Kim Alvefur <zash@zash.se> parents: 3596 diff changeset	137 end
3485 181561d0aae5 mod_http_muc_log: Add functionality for hiding joins and parts Kim Alvefur <zash@zash.se> parents: 3283 diff changeset	138 if request.url.query then
181561d0aae5 mod_http_muc_log: Add functionality for hiding joins and parts Kim Alvefur <zash@zash.se> parents: 3283 diff changeset	139 local data = httplib.formdecode(request.url.query);
5581 df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	140 if type(data) == "table" then
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	141 if data.p == "s" or data.p == "h" then
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	142 return data.p == "s";
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	143 end
3485 181561d0aae5 mod_http_muc_log: Add functionality for hiding joins and parts Kim Alvefur <zash@zash.se> parents: 3283 diff changeset	144 end
181561d0aae5 mod_http_muc_log: Add functionality for hiding joins and parts Kim Alvefur <zash@zash.se> parents: 3283 diff changeset	145 end
5581 df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	146 end
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	147
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	148 local function presence_with(request)
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	149 local show = show_presence(request);
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	150 if show == true then
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	151 return nil; -- no filter, everything
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	152 elseif show == false or show == nil then
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	153 -- only messages
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	154 return "message<groupchat";
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	155 end
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	156 end
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	157
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	158 local function presence_query(request) -- > ?p=[sh]
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	159 local show = show_presence(request);
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	160 if show == true then
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	161 return { p = "s" }
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	162 elseif show == false then
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	163 return { p = "h" }
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	164 else
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	165 return nil;
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	166 end
3485 181561d0aae5 mod_http_muc_log: Add functionality for hiding joins and parts Kim Alvefur <zash@zash.se> parents: 3283 diff changeset	167 end
181561d0aae5 mod_http_muc_log: Add functionality for hiding joins and parts Kim Alvefur <zash@zash.se> parents: 3283 diff changeset	168
3750 9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	169 local function get_dates(room) --> { integer, ... }
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	170 local date_list = archive.dates and archive:dates(room);
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	171 if date_list then
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	172 for i = 1, #date_list do
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	173 date_list[i] = datetime.parse(date_list[i].."T00:00:00Z");
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	174 end
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	175 return date_list;
3059 14d8f2a9d5f4 mod_http_muc_log: Base read-access on whether anyone would be able to join (like MUC) Kim Alvefur <zash@zash.se> parents: 3058 diff changeset	176 end
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	177
3750 9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	178 if lazy then
2826 ed26608920d4 mod_http_muc_log: Switch to an inaccurate but O(1) method of producing the calendar view Kim Alvefur <zash@zash.se> parents: 2763 diff changeset	179 -- Lazy with many false positives
3750 9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	180 date_list = {};
2826 ed26608920d4 mod_http_muc_log: Switch to an inaccurate but O(1) method of producing the calendar view Kim Alvefur <zash@zash.se> parents: 2763 diff changeset	181 local first_day = find_once(room, nil, 3);
ed26608920d4 mod_http_muc_log: Switch to an inaccurate but O(1) method of producing the calendar view Kim Alvefur <zash@zash.se> parents: 2763 diff changeset	182 local last_day = find_once(room, { reverse = true }, 3);
2839 7738d7158dd0 mod_http_muc_log: Return a 404 page if there are no messages to derive a time span from Kim Alvefur <zash@zash.se> parents: 2838 diff changeset	183 if first_day and last_day then
7738d7158dd0 mod_http_muc_log: Return a 404 page if there are no messages to derive a time span from Kim Alvefur <zash@zash.se> parents: 2838 diff changeset	184 first_day = date_floor(first_day);
7738d7158dd0 mod_http_muc_log: Return a 404 page if there are no messages to derive a time span from Kim Alvefur <zash@zash.se> parents: 2838 diff changeset	185 last_day = date_floor(last_day);
7738d7158dd0 mod_http_muc_log: Return a 404 page if there are no messages to derive a time span from Kim Alvefur <zash@zash.se> parents: 2838 diff changeset	186 for when = first_day, last_day, 86400 do
3750 9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	187 table.insert(date_list, when);
2839 7738d7158dd0 mod_http_muc_log: Return a 404 page if there are no messages to derive a time span from Kim Alvefur <zash@zash.se> parents: 2838 diff changeset	188 end
7738d7158dd0 mod_http_muc_log: Return a 404 page if there are no messages to derive a time span from Kim Alvefur <zash@zash.se> parents: 2838 diff changeset	189 else
7738d7158dd0 mod_http_muc_log: Return a 404 page if there are no messages to derive a time span from Kim Alvefur <zash@zash.se> parents: 2838 diff changeset	190 return; -- 404
2826 ed26608920d4 mod_http_muc_log: Switch to an inaccurate but O(1) method of producing the calendar view Kim Alvefur <zash@zash.se> parents: 2763 diff changeset	191 end
3750 9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	192 return date_list;
1832 48125f2c358b mod_http_muc_log: If archive driver provides the dates method, use it Kim Alvefur <zash@zash.se> parents: 1750 diff changeset	193 end
1606 2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	194
3750 9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	195 -- Collect date the hard way
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	196 module:log("debug", "Find all dates with messages");
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	197 date_list = {};
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	198 local next_day;
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	199 repeat
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	200 local when = find_once(room, { start = next_day; }, 3);
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	201 if not when then break; end
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	202 table.insert(date_list, when);
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	203 next_day = date_floor(when) + 86400;
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	204 until not next_day;
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	205 return date_list;
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	206 end
1606 2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	207
3750 9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	208 function render_funcs.calendarize(date_list)
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	209 -- convert array of timestamps to a year / month / day tree
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	210 local dates = mt.new();
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	211 for _, when in ipairs(date_list) do
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	212 local t = os_date("!*t", when);
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	213 dates:set(t.year, t.month, t.day, when);
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	214 end
2590 63dd3e525f13 mod_http_muc_log: Add some comments Kim Alvefur <zash@zash.se> parents: 2236 diff changeset	215 -- Wrangle Y/m/d tree into year / month / week / day tree for calendar view
3750 9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	216 local years = {};
1654 1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	217 for current_year, months_t in pairs(dates.data) do
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	218 local t = { year = current_year, month = 1, day = 1 };
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	219 local months = { };
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	220 local year = { year = current_year, months = months };
1606 2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	221 years[#years+1] = year;
1654 1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	222 for current_month, days_t in pairs(months_t) do
1606 2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	223 t.day = 1;
1654 1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	224 t.month = current_month;
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	225 local tmp = os_date("!*t", time(t));
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	226 local days = {};
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	227 local week = { days = days }
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	228 local weeks = { week };
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	229 local month = { year = year.year, month = os_date("!%B", time(t)), n = current_month, weeks = weeks };
1606 2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	230 months[#months+1] = month;
1654 1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	231 local current_day = 1;
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	232 for _=1, (tmp.wday+5)%7 do
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	233 days[current_day], current_day = {}, current_day+1;
1606 2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	234 end
2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	235 for i = 1, 31 do
2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	236 t.day = i;
2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	237 tmp = os_date("!*t", time(t));
1654 1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	238 if tmp.month ~= current_month then break end
1606 2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	239 if i > 1 and tmp.wday == 2 then
2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	240 days = {};
2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	241 weeks[#weeks+1] = { days = days };
1654 1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	242 current_day = 1;
1606 2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	243 end
2685 cd5781ca782d mod_http_muc_log: Remove caching Kim Alvefur <zash@zash.se> parents: 2593 diff changeset	244 days[current_day] = {
cd5781ca782d mod_http_muc_log: Remove caching Kim Alvefur <zash@zash.se> parents: 2593 diff changeset	245 wday = tmp.wday, day = i, href = days_t[i] and datetime.date(days_t[i])
cd5781ca782d mod_http_muc_log: Remove caching Kim Alvefur <zash@zash.se> parents: 2593 diff changeset	246 };
cd5781ca782d mod_http_muc_log: Remove caching Kim Alvefur <zash@zash.se> parents: 2593 diff changeset	247 current_day = current_day+1;
1606 2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	248 end
2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	249 end
3749 cb61f0e06de3 mod_http_muc_log: Fix sorting months Kim Alvefur <zash@zash.se> parents: 3722 diff changeset	250 table.sort(months, sort_m);
1606 2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	251 end
2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	252 table.sort(years, sort_Y);
3750 9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	253 return years;
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	254 end
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	255
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	256 -- Produce the calendar view
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	257 local function years_page(event, path)
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	258 local request, response = event.request, event.response;
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	259
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	260 local room = nodeprep(path:match("^(.*)/$"));
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	261 local is_open = open_room(room);
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	262 if is_open == nil then
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	263 return -- implicit 404
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	264 elseif is_open == false then
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	265 return 403;
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	266 end
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	267
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	268 local date_list = get_dates(room);
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	269 if not date_list then
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	270 return; -- 404
9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	271 end
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	272
2590 63dd3e525f13 mod_http_muc_log: Add some comments Kim Alvefur <zash@zash.se> parents: 2236 diff changeset	273 -- Phew, all wrangled, all that's left is rendering it with the template
63dd3e525f13 mod_http_muc_log: Add some comments Kim Alvefur <zash@zash.se> parents: 2236 diff changeset	274
1579 9e784ddac236 mod_http_muc_log: Include charset in Content-Type header Kim Alvefur <zash@zash.se> parents: 1578 diff changeset	275 response.headers.content_type = "text/html; charset=utf-8";
3892 96a2e5097fc4 mod_http_muc_log: Reduce hashtable lookups Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3757 diff changeset	276 local room_obj = get_room(room);
1581 9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	277 return render(template, {
5104 d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	278 static = "../@static";
3892 96a2e5097fc4 mod_http_muc_log: Reduce hashtable lookups Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3757 diff changeset	279 room = room_obj._data;
96a2e5097fc4 mod_http_muc_log: Reduce hashtable lookups Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3757 diff changeset	280 jid = room_obj.jid;
96a2e5097fc4 mod_http_muc_log: Reduce hashtable lookups Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3757 diff changeset	281 jid_node = jid_split(room_obj.jid);
5581 df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	282 q = presence_query(request);
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	283 show_presence = show_presence(request);
3597 da7ec4ed6ddf mod_http_muc_log: Hide join/part controls if they are not stored by mod_muc_mam Kim Alvefur <zash@zash.se> parents: 3596 diff changeset	284 presence_available = presence_logged;
3750 9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	285 dates = date_list;
1581 9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	286 links = {
2840 683a2f25223d mod_http_muc_log: Reword "back" links Kim Alvefur <zash@zash.se> parents: 2839 diff changeset	287 { href = "../", rel = "up", text = "Room list" },
3718 cc6f7e2e4a59 mod_http_muc_log: Add arrow to 'latest' link like on other navigation Kim Alvefur <zash@zash.se> parents: 3715 diff changeset	288 { href = "latest", rel = "last", text = "Latest" },
1581 9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	289 };
9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	290 });
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	291 end
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	292
2590 63dd3e525f13 mod_http_muc_log: Add some comments Kim Alvefur <zash@zash.se> parents: 2236 diff changeset	293 -- Produce the chat log view
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	294 local function logs_page(event, path)
3485 181561d0aae5 mod_http_muc_log: Add functionality for hiding joins and parts Kim Alvefur <zash@zash.se> parents: 3283 diff changeset	295 local request, response = event.request, event.response;
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	296
5590 b681948a01f1 mod_http_muc_log: Fix redirect bug Kim Alvefur <zash@zash.se> parents: 5581 diff changeset	297 -- /room --> 303 /room/
b681948a01f1 mod_http_muc_log: Fix redirect bug Kim Alvefur <zash@zash.se> parents: 5581 diff changeset	298 -- /room/ --> calendar view
b681948a01f1 mod_http_muc_log: Fix redirect bug Kim Alvefur <zash@zash.se> parents: 5581 diff changeset	299 -- /room/yyyy-mm-dd --> logs view
b681948a01f1 mod_http_muc_log: Fix redirect bug Kim Alvefur <zash@zash.se> parents: 5581 diff changeset	300 -- /room/yyyy-mm-dd/* --> 404
b681948a01f1 mod_http_muc_log: Fix redirect bug Kim Alvefur <zash@zash.se> parents: 5581 diff changeset	301 local room, date = path:match("^([^/]+)/([^/]*)$");
b681948a01f1 mod_http_muc_log: Fix redirect bug Kim Alvefur <zash@zash.se> parents: 5581 diff changeset	302 if not room and not path:find"/" then
4931 13070c6a7ce8 mod_http_muc_log: Fix exception on lack of trailing slash in room path Kim Alvefur <zash@zash.se> parents: 4781 diff changeset	303 response.headers.location = url.build({ path = path .. "/" });
13070c6a7ce8 mod_http_muc_log: Fix exception on lack of trailing slash in room path Kim Alvefur <zash@zash.se> parents: 4781 diff changeset	304 return 303;
5590 b681948a01f1 mod_http_muc_log: Fix redirect bug Kim Alvefur <zash@zash.se> parents: 5581 diff changeset	305 elseif not room then
b681948a01f1 mod_http_muc_log: Fix redirect bug Kim Alvefur <zash@zash.se> parents: 5581 diff changeset	306 return 404;
4931 13070c6a7ce8 mod_http_muc_log: Fix exception on lack of trailing slash in room path Kim Alvefur <zash@zash.se> parents: 4781 diff changeset	307 end
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	308 room = nodeprep(room);
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	309 if not room then
3591 3f8383c5a045 mod_http_muc_log: Fix Y10k bug Kim Alvefur <zash@zash.se> parents: 3583 diff changeset	310 return 400;
3f8383c5a045 mod_http_muc_log: Fix Y10k bug Kim Alvefur <zash@zash.se> parents: 3583 diff changeset	311 elseif date == "" then
1606 2c8b985ebde5 mod_http_muc_log: Switch to a calendar view for selecting dates Kim Alvefur <zash@zash.se> parents: 1605 diff changeset	312 return years_page(event, path);
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	313 end
3059 14d8f2a9d5f4 mod_http_muc_log: Base read-access on whether anyone would be able to join (like MUC) Kim Alvefur <zash@zash.se> parents: 3058 diff changeset	314 local is_open = open_room(room);
14d8f2a9d5f4 mod_http_muc_log: Base read-access on whether anyone would be able to join (like MUC) Kim Alvefur <zash@zash.se> parents: 3058 diff changeset	315 if is_open == nil then
14d8f2a9d5f4 mod_http_muc_log: Base read-access on whether anyone would be able to join (like MUC) Kim Alvefur <zash@zash.se> parents: 3058 diff changeset	316 return -- implicit 404
14d8f2a9d5f4 mod_http_muc_log: Base read-access on whether anyone would be able to join (like MUC) Kim Alvefur <zash@zash.se> parents: 3058 diff changeset	317 elseif is_open == false then
14d8f2a9d5f4 mod_http_muc_log: Base read-access on whether anyone would be able to join (like MUC) Kim Alvefur <zash@zash.se> parents: 3058 diff changeset	318 return 403;
14d8f2a9d5f4 mod_http_muc_log: Base read-access on whether anyone would be able to join (like MUC) Kim Alvefur <zash@zash.se> parents: 3058 diff changeset	319 end
3592 61a9c087730a mod_http_muc_log: Provide a redirect to 'latest' day with logs (fixes #1360) Kim Alvefur <zash@zash.se> parents: 3591 diff changeset	320 if date == "latest" then
61a9c087730a mod_http_muc_log: Provide a redirect to 'latest' day with logs (fixes #1360) Kim Alvefur <zash@zash.se> parents: 3591 diff changeset	321 local last_day = find_once(room, { reverse = true }, 3);
3595 00a848ede42d mod_http_muc_log: Preserve ?query part in redirect Kim Alvefur <zash@zash.se> parents: 3594 diff changeset	322 response.headers.location = url.build({ path = datetime.date(last_day), query = request.url.query });
3592 61a9c087730a mod_http_muc_log: Provide a redirect to 'latest' day with logs (fixes #1360) Kim Alvefur <zash@zash.se> parents: 3591 diff changeset	323 return 303;
61a9c087730a mod_http_muc_log: Provide a redirect to 'latest' day with logs (fixes #1360) Kim Alvefur <zash@zash.se> parents: 3591 diff changeset	324 end
2841 462dece0a3c2 mod_http_muc_log: Parse date out of path once Kim Alvefur <zash@zash.se> parents: 2840 diff changeset	325 local day_start = datetime.parse(date.."T00:00:00Z");
3591 3f8383c5a045 mod_http_muc_log: Fix Y10k bug Kim Alvefur <zash@zash.se> parents: 3583 diff changeset	326 if not day_start then
3f8383c5a045 mod_http_muc_log: Fix Y10k bug Kim Alvefur <zash@zash.se> parents: 3583 diff changeset	327 module:log("debug", "Invalid date format: %q", date);
3f8383c5a045 mod_http_muc_log: Fix Y10k bug Kim Alvefur <zash@zash.se> parents: 3583 diff changeset	328 return 400;
3f8383c5a045 mod_http_muc_log: Fix Y10k bug Kim Alvefur <zash@zash.se> parents: 3583 diff changeset	329 end
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	330
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	331 local logs, i = {}, 1;
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	332 local iter, err = archive:find(room, {
2841 462dece0a3c2 mod_http_muc_log: Parse date out of path once Kim Alvefur <zash@zash.se> parents: 2840 diff changeset	333 ["start"] = day_start;
462dece0a3c2 mod_http_muc_log: Parse date out of path once Kim Alvefur <zash@zash.se> parents: 2840 diff changeset	334 ["end"] = day_start + 86399;
5581 df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	335 ["with"] = presence_with(request);
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	336 });
1654 1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	337 if not iter then
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	338 module:log("warn", "Could not search archive: %s", err or "no error");
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	339 return 500;
1a6d6221c5f6 mod_http_muc_log: Cleanup [luacheck] Kim Alvefur <zash@zash.se> parents: 1625 diff changeset	340 end
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	341
1577 0a6974f2cb55 mod_http_muc_log: Use archive IDs to find next and previous dates that contain messages Kim Alvefur <zash@zash.se> parents: 1576 diff changeset	342 local first, last;
4990 d55b10878e43 mod_http_muc_log: Rename variable for improved clarity Kim Alvefur <zash@zash.se> parents: 4989 diff changeset	343 for archive_id, item, when in iter do
3703 7244ff1d62a8 mod_http_muc_log: Expose xml:lang from each message/body #a11y Kim Alvefur <zash@zash.se> parents: 3702 diff changeset	344 local body_tag = item:get_child("body");
7244ff1d62a8 mod_http_muc_log: Expose xml:lang from each message/body #a11y Kim Alvefur <zash@zash.se> parents: 3702 diff changeset	345 local body = body_tag and body_tag:get_text();
2591 3e1a85c5194c mod_http_muc_log: Move scope of variables into loop Kim Alvefur <zash@zash.se> parents: 2590 diff changeset	346 local subject = item:get_child_text("subject");
3e1a85c5194c mod_http_muc_log: Move scope of variables into loop Kim Alvefur <zash@zash.se> parents: 2590 diff changeset	347 local verb = nil;
3703 7244ff1d62a8 mod_http_muc_log: Expose xml:lang from each message/body #a11y Kim Alvefur <zash@zash.se> parents: 3702 diff changeset	348 local lang = body_tag and body_tag.attr["xml:lang"] or item.attr["xml:lang"];
4589 45ab9152a51c mod_http_muc_log: Add some spacing around code for readability Kim Alvefur <zash@zash.se> parents: 4182 diff changeset	349
4991 b17d63ef5bdf mod_http_muc_log: Use XEP-0359 ID if available Kim Alvefur <zash@zash.se> parents: 4990 diff changeset	350 -- XEP-0359: Unique and Stable Stanza IDs
b17d63ef5bdf mod_http_muc_log: Use XEP-0359 ID if available Kim Alvefur <zash@zash.se> parents: 4990 diff changeset	351 local message_id = item:find("{urn:xmpp:sid:0}origin-id@id") or item.attr.id;
b17d63ef5bdf mod_http_muc_log: Use XEP-0359 ID if available Kim Alvefur <zash@zash.se> parents: 4990 diff changeset	352
1555 2e51f70cd7ea mod_http_muc_log: Make pretty Kim Alvefur <zash@zash.se> parents: 1554 diff changeset	353 if subject then
1578 a68ec7a2dc02 mod_http_muc_log: Show only messages with presentable content Kim Alvefur <zash@zash.se> parents: 1577 diff changeset	354 verb, body = "set the topic to", subject;
1555 2e51f70cd7ea mod_http_muc_log: Make pretty Kim Alvefur <zash@zash.se> parents: 1554 diff changeset	355 elseif body and body:sub(1,4) == "/me " then
2e51f70cd7ea mod_http_muc_log: Make pretty Kim Alvefur <zash@zash.se> parents: 1554 diff changeset	356 verb, body = body:sub(5), nil;
2e51f70cd7ea mod_http_muc_log: Make pretty Kim Alvefur <zash@zash.se> parents: 1554 diff changeset	357 elseif item.name == "presence" then
3060 982668000163 mod_http_muc_log: Add a note about changing how presence is treated Kim Alvefur <zash@zash.se> parents: 3059 diff changeset	358 -- TODO Distinguish between join and presence update
1555 2e51f70cd7ea mod_http_muc_log: Make pretty Kim Alvefur <zash@zash.se> parents: 1554 diff changeset	359 verb = item.attr.type == "unavailable" and "has left" or "has joined";
3703 7244ff1d62a8 mod_http_muc_log: Expose xml:lang from each message/body #a11y Kim Alvefur <zash@zash.se> parents: 3702 diff changeset	360 lang = "en";
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	361 end
4589 45ab9152a51c mod_http_muc_log: Add some spacing around code for readability Kim Alvefur <zash@zash.se> parents: 4182 diff changeset	362
4590 3145823992cb mod_http_muc_log: Move out nickname into a variable for future reuse Kim Alvefur <zash@zash.se> parents: 4589 diff changeset	363 local nick = select(3, jid_split(item.attr.from));
4992 ed5abb8b8fa8 mod_http_muc_log: Use XEP-0421 ID over nickname for XEP-0308 Kim Alvefur <zash@zash.se> parents: 4991 diff changeset	364 local occupant_id = item:find("{urn:xmpp:occupant-id:0}occupant-id@id") or nick;
4986 3bcefa9cf1ca mod_http_muc_log: Mention relevant XEPs in comments Kim Alvefur <zash@zash.se> parents: 4970 diff changeset	365
3bcefa9cf1ca mod_http_muc_log: Mention relevant XEPs in comments Kim Alvefur <zash@zash.se> parents: 4970 diff changeset	366 -- XEP-0066: Out of Band Data
3582 444e2306c99a mod_http_muc_log: Add option to show OOB images Kim Alvefur <zash@zash.se> parents: 3578 diff changeset	367 local oob = use_oob and item:get_child("x", "jabber:x:oob");
4589 45ab9152a51c mod_http_muc_log: Add some spacing around code for readability Kim Alvefur <zash@zash.se> parents: 4182 diff changeset	368
4986 3bcefa9cf1ca mod_http_muc_log: Mention relevant XEPs in comments Kim Alvefur <zash@zash.se> parents: 4970 diff changeset	369 -- XEP-0425: Message Moderation
4781 306066898e5f mod_http_muc_log: Show messages moderated using XEP-0425 Kim Alvefur <zash@zash.se> parents: 4677 diff changeset	370 local moderated = item:get_child("moderated", "urn:xmpp:message-moderate:0");
306066898e5f mod_http_muc_log: Show messages moderated using XEP-0425 Kim Alvefur <zash@zash.se> parents: 4677 diff changeset	371 if moderated then
306066898e5f mod_http_muc_log: Show messages moderated using XEP-0425 Kim Alvefur <zash@zash.se> parents: 4677 diff changeset	372 local actor = moderated.attr.by;
306066898e5f mod_http_muc_log: Show messages moderated using XEP-0425 Kim Alvefur <zash@zash.se> parents: 4677 diff changeset	373 if actor then actor = select(3, jid_split(actor)); end
306066898e5f mod_http_muc_log: Show messages moderated using XEP-0425 Kim Alvefur <zash@zash.se> parents: 4677 diff changeset	374 verb = "removed by " .. (actor or "moderator");
306066898e5f mod_http_muc_log: Show messages moderated using XEP-0425 Kim Alvefur <zash@zash.se> parents: 4677 diff changeset	375 body = moderated:get_child_text("reason") or "";
306066898e5f mod_http_muc_log: Show messages moderated using XEP-0425 Kim Alvefur <zash@zash.se> parents: 4677 diff changeset	376 end
306066898e5f mod_http_muc_log: Show messages moderated using XEP-0425 Kim Alvefur <zash@zash.se> parents: 4677 diff changeset	377
306066898e5f mod_http_muc_log: Show messages moderated using XEP-0425 Kim Alvefur <zash@zash.se> parents: 4677 diff changeset	378 local moderation = item:find("{urn:xmpp:fasten:0}apply-to/{urn:xmpp:message-moderate:0}moderated");
306066898e5f mod_http_muc_log: Show messages moderated using XEP-0425 Kim Alvefur <zash@zash.se> parents: 4677 diff changeset	379 if moderation then
306066898e5f mod_http_muc_log: Show messages moderated using XEP-0425 Kim Alvefur <zash@zash.se> parents: 4677 diff changeset	380 nick = nick or "a moderator";
306066898e5f mod_http_muc_log: Show messages moderated using XEP-0425 Kim Alvefur <zash@zash.se> parents: 4677 diff changeset	381 verb = "removed a message";
306066898e5f mod_http_muc_log: Show messages moderated using XEP-0425 Kim Alvefur <zash@zash.se> parents: 4677 diff changeset	382 body = moderation:get_child_text("reason") or "";
306066898e5f mod_http_muc_log: Show messages moderated using XEP-0425 Kim Alvefur <zash@zash.se> parents: 4677 diff changeset	383 end
306066898e5f mod_http_muc_log: Show messages moderated using XEP-0425 Kim Alvefur <zash@zash.se> parents: 4677 diff changeset	384
4986 3bcefa9cf1ca mod_http_muc_log: Mention relevant XEPs in comments Kim Alvefur <zash@zash.se> parents: 4970 diff changeset	385 -- XEP-0308: Last Message Correction
4592 38f501dca618 mod_http_muc_log: Find edit relations using XEP-0308 Kim Alvefur <zash@zash.se> parents: 4590 diff changeset	386 local edit = item:find("{urn:xmpp:message-correct:0}replace/@id");
38f501dca618 mod_http_muc_log: Find edit relations using XEP-0308 Kim Alvefur <zash@zash.se> parents: 4590 diff changeset	387 if edit then
38f501dca618 mod_http_muc_log: Find edit relations using XEP-0308 Kim Alvefur <zash@zash.se> parents: 4590 diff changeset	388 local found = false;
38f501dca618 mod_http_muc_log: Find edit relations using XEP-0308 Kim Alvefur <zash@zash.se> parents: 4590 diff changeset	389 for n = i-1, 1, -1 do
4992 ed5abb8b8fa8 mod_http_muc_log: Use XEP-0421 ID over nickname for XEP-0308 Kim Alvefur <zash@zash.se> parents: 4991 diff changeset	390 if logs[n].message_id == edit and occupant_id == logs[n].occupant_id then
4592 38f501dca618 mod_http_muc_log: Find edit relations using XEP-0308 Kim Alvefur <zash@zash.se> parents: 4590 diff changeset	391 found = true;
4990 d55b10878e43 mod_http_muc_log: Rename variable for improved clarity Kim Alvefur <zash@zash.se> parents: 4989 diff changeset	392 logs[n].edited = archive_id;
d55b10878e43 mod_http_muc_log: Rename variable for improved clarity Kim Alvefur <zash@zash.se> parents: 4989 diff changeset	393 edit = logs[n].archive_id;
4592 38f501dca618 mod_http_muc_log: Find edit relations using XEP-0308 Kim Alvefur <zash@zash.se> parents: 4590 diff changeset	394 break;
38f501dca618 mod_http_muc_log: Find edit relations using XEP-0308 Kim Alvefur <zash@zash.se> parents: 4590 diff changeset	395 end
38f501dca618 mod_http_muc_log: Find edit relations using XEP-0308 Kim Alvefur <zash@zash.se> parents: 4590 diff changeset	396 end
38f501dca618 mod_http_muc_log: Find edit relations using XEP-0308 Kim Alvefur <zash@zash.se> parents: 4590 diff changeset	397 if not found then
38f501dca618 mod_http_muc_log: Find edit relations using XEP-0308 Kim Alvefur <zash@zash.se> parents: 4590 diff changeset	398 -- Ignore unresolved edit.
38f501dca618 mod_http_muc_log: Find edit relations using XEP-0308 Kim Alvefur <zash@zash.se> parents: 4590 diff changeset	399 edit = nil;
38f501dca618 mod_http_muc_log: Find edit relations using XEP-0308 Kim Alvefur <zash@zash.se> parents: 4590 diff changeset	400 end
38f501dca618 mod_http_muc_log: Find edit relations using XEP-0308 Kim Alvefur <zash@zash.se> parents: 4590 diff changeset	401 end
38f501dca618 mod_http_muc_log: Find edit relations using XEP-0308 Kim Alvefur <zash@zash.se> parents: 4590 diff changeset	402
4986 3bcefa9cf1ca mod_http_muc_log: Mention relevant XEPs in comments Kim Alvefur <zash@zash.se> parents: 4970 diff changeset	403 -- XEP-0444: Message Reactions
4963 479d618c9e6d mod_http_muc_log: Show XEP-0444 reactions Kim Alvefur <zash@zash.se> parents: 4931 diff changeset	404 local reactions = item:get_child("reactions", "urn:xmpp:reactions:0");
479d618c9e6d mod_http_muc_log: Show XEP-0444 reactions Kim Alvefur <zash@zash.se> parents: 4931 diff changeset	405 if reactions then
479d618c9e6d mod_http_muc_log: Show XEP-0444 reactions Kim Alvefur <zash@zash.se> parents: 4931 diff changeset	406 -- COMPAT Movim uses an @to attribute instead of the correct @id
479d618c9e6d mod_http_muc_log: Show XEP-0444 reactions Kim Alvefur <zash@zash.se> parents: 4931 diff changeset	407 local target_id = reactions.attr.id or reactions.attr.to;
479d618c9e6d mod_http_muc_log: Show XEP-0444 reactions Kim Alvefur <zash@zash.se> parents: 4931 diff changeset	408 for n = i - 1, 1, -1 do
4990 d55b10878e43 mod_http_muc_log: Rename variable for improved clarity Kim Alvefur <zash@zash.se> parents: 4989 diff changeset	409 if logs[n].archive_id == target_id then
5656 c20b77e5e032 mod_http_muc_log: Correctly handle changed or retracted reactions Kim Alvefur <zash@zash.se> parents: 5590 diff changeset	410 local react_map = logs[n].reactions; -- [occupant_id][emoji]boolean
4963 479d618c9e6d mod_http_muc_log: Show XEP-0444 reactions Kim Alvefur <zash@zash.se> parents: 4931 diff changeset	411 if not react_map then
479d618c9e6d mod_http_muc_log: Show XEP-0444 reactions Kim Alvefur <zash@zash.se> parents: 4931 diff changeset	412 react_map = {};
479d618c9e6d mod_http_muc_log: Show XEP-0444 reactions Kim Alvefur <zash@zash.se> parents: 4931 diff changeset	413 logs[n].reactions = react_map;
479d618c9e6d mod_http_muc_log: Show XEP-0444 reactions Kim Alvefur <zash@zash.se> parents: 4931 diff changeset	414 end
5656 c20b77e5e032 mod_http_muc_log: Correctly handle changed or retracted reactions Kim Alvefur <zash@zash.se> parents: 5590 diff changeset	415 local reacts = {};
4963 479d618c9e6d mod_http_muc_log: Show XEP-0444 reactions Kim Alvefur <zash@zash.se> parents: 4931 diff changeset	416 for reaction_tag in reactions:childtags("reaction") do
479d618c9e6d mod_http_muc_log: Show XEP-0444 reactions Kim Alvefur <zash@zash.se> parents: 4931 diff changeset	417 local reaction_text = reaction_tag:get_text() or "�";
5656 c20b77e5e032 mod_http_muc_log: Correctly handle changed or retracted reactions Kim Alvefur <zash@zash.se> parents: 5590 diff changeset	418 reacts[reaction_text] = true;
4963 479d618c9e6d mod_http_muc_log: Show XEP-0444 reactions Kim Alvefur <zash@zash.se> parents: 4931 diff changeset	419 end
5656 c20b77e5e032 mod_http_muc_log: Correctly handle changed or retracted reactions Kim Alvefur <zash@zash.se> parents: 5590 diff changeset	420 react_map[occupant_id] = reacts;
4963 479d618c9e6d mod_http_muc_log: Show XEP-0444 reactions Kim Alvefur <zash@zash.se> parents: 4931 diff changeset	421 break
479d618c9e6d mod_http_muc_log: Show XEP-0444 reactions Kim Alvefur <zash@zash.se> parents: 4931 diff changeset	422 end
479d618c9e6d mod_http_muc_log: Show XEP-0444 reactions Kim Alvefur <zash@zash.se> parents: 4931 diff changeset	423 end
479d618c9e6d mod_http_muc_log: Show XEP-0444 reactions Kim Alvefur <zash@zash.se> parents: 4931 diff changeset	424 end
479d618c9e6d mod_http_muc_log: Show XEP-0444 reactions Kim Alvefur <zash@zash.se> parents: 4931 diff changeset	425
4987 8a8ec909ac20 mod_http_muc_log: Link to replied-to message using XEP-0461: Message Replies Kim Alvefur <zash@zash.se> parents: 4986 diff changeset	426 -- XEP-0461: Message Replies
4993 f36d15107c15 mod_http_muc_log: Use stanza:find to save a few bytes Kim Alvefur <zash@zash.se> parents: 4992 diff changeset	427 local reply = item:find("{urn:xmpp:reply:0}reply@id");
4987 8a8ec909ac20 mod_http_muc_log: Link to replied-to message using XEP-0461: Message Replies Kim Alvefur <zash@zash.se> parents: 4986 diff changeset	428
3582 444e2306c99a mod_http_muc_log: Add option to show OOB images Kim Alvefur <zash@zash.se> parents: 3578 diff changeset	429 if body or verb or oob then
444e2306c99a mod_http_muc_log: Add option to show OOB images Kim Alvefur <zash@zash.se> parents: 3578 diff changeset	430 local line = {
4991 b17d63ef5bdf mod_http_muc_log: Use XEP-0359 ID if available Kim Alvefur <zash@zash.se> parents: 4990 diff changeset	431 message_id = message_id;
4990 d55b10878e43 mod_http_muc_log: Rename variable for improved clarity Kim Alvefur <zash@zash.se> parents: 4989 diff changeset	432 archive_id = archive_id;
4992 ed5abb8b8fa8 mod_http_muc_log: Use XEP-0421 ID over nickname for XEP-0308 Kim Alvefur <zash@zash.se> parents: 4991 diff changeset	433 occupant_id = occupant_id;
1578 a68ec7a2dc02 mod_http_muc_log: Show only messages with presentable content Kim Alvefur <zash@zash.se> parents: 1577 diff changeset	434 datetime = datetime.datetime(when);
a68ec7a2dc02 mod_http_muc_log: Show only messages with presentable content Kim Alvefur <zash@zash.se> parents: 1577 diff changeset	435 time = datetime.time(when);
a68ec7a2dc02 mod_http_muc_log: Show only messages with presentable content Kim Alvefur <zash@zash.se> parents: 1577 diff changeset	436 verb = verb;
a68ec7a2dc02 mod_http_muc_log: Show only messages with presentable content Kim Alvefur <zash@zash.se> parents: 1577 diff changeset	437 body = body;
3703 7244ff1d62a8 mod_http_muc_log: Expose xml:lang from each message/body #a11y Kim Alvefur <zash@zash.se> parents: 3702 diff changeset	438 lang = lang;
4590 3145823992cb mod_http_muc_log: Move out nickname into a variable for future reuse Kim Alvefur <zash@zash.se> parents: 4589 diff changeset	439 nick = nick;
1578 a68ec7a2dc02 mod_http_muc_log: Show only messages with presentable content Kim Alvefur <zash@zash.se> parents: 1577 diff changeset	440 st_name = item.name;
a68ec7a2dc02 mod_http_muc_log: Show only messages with presentable content Kim Alvefur <zash@zash.se> parents: 1577 diff changeset	441 st_type = item.attr.type;
4592 38f501dca618 mod_http_muc_log: Find edit relations using XEP-0308 Kim Alvefur <zash@zash.se> parents: 4590 diff changeset	442 edit = edit;
4993 f36d15107c15 mod_http_muc_log: Use stanza:find to save a few bytes Kim Alvefur <zash@zash.se> parents: 4992 diff changeset	443 reply = reply;
4990 d55b10878e43 mod_http_muc_log: Rename variable for improved clarity Kim Alvefur <zash@zash.se> parents: 4989 diff changeset	444 -- COMPAT
d55b10878e43 mod_http_muc_log: Rename variable for improved clarity Kim Alvefur <zash@zash.se> parents: 4989 diff changeset	445 key = archive_id;
3582 444e2306c99a mod_http_muc_log: Add option to show OOB images Kim Alvefur <zash@zash.se> parents: 3578 diff changeset	446 };
444e2306c99a mod_http_muc_log: Add option to show OOB images Kim Alvefur <zash@zash.se> parents: 3578 diff changeset	447 if oob then
444e2306c99a mod_http_muc_log: Add option to show OOB images Kim Alvefur <zash@zash.se> parents: 3578 diff changeset	448 line.oob = {
444e2306c99a mod_http_muc_log: Add option to show OOB images Kim Alvefur <zash@zash.se> parents: 3578 diff changeset	449 url = oob:get_child_text("url");
444e2306c99a mod_http_muc_log: Add option to show OOB images Kim Alvefur <zash@zash.se> parents: 3578 diff changeset	450 desc = oob:get_child_text("desc");
444e2306c99a mod_http_muc_log: Add option to show OOB images Kim Alvefur <zash@zash.se> parents: 3578 diff changeset	451 }
444e2306c99a mod_http_muc_log: Add option to show OOB images Kim Alvefur <zash@zash.se> parents: 3578 diff changeset	452 end
444e2306c99a mod_http_muc_log: Add option to show OOB images Kim Alvefur <zash@zash.se> parents: 3578 diff changeset	453 logs[i], i = line, i + 1;
1578 a68ec7a2dc02 mod_http_muc_log: Show only messages with presentable content Kim Alvefur <zash@zash.se> parents: 1577 diff changeset	454 end
4589 45ab9152a51c mod_http_muc_log: Add some spacing around code for readability Kim Alvefur <zash@zash.se> parents: 4182 diff changeset	455
4990 d55b10878e43 mod_http_muc_log: Rename variable for improved clarity Kim Alvefur <zash@zash.se> parents: 4989 diff changeset	456 first = first or archive_id;
d55b10878e43 mod_http_muc_log: Rename variable for improved clarity Kim Alvefur <zash@zash.se> parents: 4989 diff changeset	457 last = archive_id;
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	458 end
2846 7eb23a4e7fde mod_http_muc_log: Generate empty pages in lazy mode, so that one can navigate past quiet days Kim Alvefur <zash@zash.se> parents: 2845 diff changeset	459 if i == 1 and not lazy then return end -- No items
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	460
5656 c20b77e5e032 mod_http_muc_log: Correctly handle changed or retracted reactions Kim Alvefur <zash@zash.se> parents: 5590 diff changeset	461 -- collapse reactions[occupant-id][reaction]boolean into reactions[reaction]integer
c20b77e5e032 mod_http_muc_log: Correctly handle changed or retracted reactions Kim Alvefur <zash@zash.se> parents: 5590 diff changeset	462 for n = 1, #logs do
c20b77e5e032 mod_http_muc_log: Correctly handle changed or retracted reactions Kim Alvefur <zash@zash.se> parents: 5590 diff changeset	463 local reactions = logs[n].reactions;
c20b77e5e032 mod_http_muc_log: Correctly handle changed or retracted reactions Kim Alvefur <zash@zash.se> parents: 5590 diff changeset	464 if reactions then
c20b77e5e032 mod_http_muc_log: Correctly handle changed or retracted reactions Kim Alvefur <zash@zash.se> parents: 5590 diff changeset	465 local collated = {};
c20b77e5e032 mod_http_muc_log: Correctly handle changed or retracted reactions Kim Alvefur <zash@zash.se> parents: 5590 diff changeset	466 for _, reacts in pairs(reactions) do
c20b77e5e032 mod_http_muc_log: Correctly handle changed or retracted reactions Kim Alvefur <zash@zash.se> parents: 5590 diff changeset	467 for reaction_text in pairs(reacts) do
c20b77e5e032 mod_http_muc_log: Correctly handle changed or retracted reactions Kim Alvefur <zash@zash.se> parents: 5590 diff changeset	468 collated[reaction_text] = (collated[reaction_text] or 0) + 1;
c20b77e5e032 mod_http_muc_log: Correctly handle changed or retracted reactions Kim Alvefur <zash@zash.se> parents: 5590 diff changeset	469 end
c20b77e5e032 mod_http_muc_log: Correctly handle changed or retracted reactions Kim Alvefur <zash@zash.se> parents: 5590 diff changeset	470 end
c20b77e5e032 mod_http_muc_log: Correctly handle changed or retracted reactions Kim Alvefur <zash@zash.se> parents: 5590 diff changeset	471 logs[n].reactions = collated;
c20b77e5e032 mod_http_muc_log: Correctly handle changed or retracted reactions Kim Alvefur <zash@zash.se> parents: 5590 diff changeset	472 end
c20b77e5e032 mod_http_muc_log: Correctly handle changed or retracted reactions Kim Alvefur <zash@zash.se> parents: 5590 diff changeset	473 end
c20b77e5e032 mod_http_muc_log: Correctly handle changed or retracted reactions Kim Alvefur <zash@zash.se> parents: 5590 diff changeset	474
2236 86bc6e1d9d4d mod_http_muc_log: Find next and previous date with date index if this is supported by the storage driver Kim Alvefur <zash@zash.se> parents: 2235 diff changeset	475 local next_when, prev_when = "", "";
86bc6e1d9d4d mod_http_muc_log: Find next and previous date with date index if this is supported by the storage driver Kim Alvefur <zash@zash.se> parents: 2235 diff changeset	476 local date_list = archive.dates and archive:dates(room);
86bc6e1d9d4d mod_http_muc_log: Find next and previous date with date index if this is supported by the storage driver Kim Alvefur <zash@zash.se> parents: 2235 diff changeset	477 if date_list then
2592 fb1987d4ac62 mod_http_muc_log: Rename loop variable to avoid name clash Kim Alvefur <zash@zash.se> parents: 2591 diff changeset	478 for j = 1, #date_list do
fb1987d4ac62 mod_http_muc_log: Rename loop variable to avoid name clash Kim Alvefur <zash@zash.se> parents: 2591 diff changeset	479 if date_list[j] == date then
fb1987d4ac62 mod_http_muc_log: Rename loop variable to avoid name clash Kim Alvefur <zash@zash.se> parents: 2591 diff changeset	480 next_when = date_list[j+1] or "";
fb1987d4ac62 mod_http_muc_log: Rename loop variable to avoid name clash Kim Alvefur <zash@zash.se> parents: 2591 diff changeset	481 prev_when = date_list[j-1] or "";
2236 86bc6e1d9d4d mod_http_muc_log: Find next and previous date with date index if this is supported by the storage driver Kim Alvefur <zash@zash.se> parents: 2235 diff changeset	482 break;
86bc6e1d9d4d mod_http_muc_log: Find next and previous date with date index if this is supported by the storage driver Kim Alvefur <zash@zash.se> parents: 2235 diff changeset	483 end
86bc6e1d9d4d mod_http_muc_log: Find next and previous date with date index if this is supported by the storage driver Kim Alvefur <zash@zash.se> parents: 2235 diff changeset	484 end
2844 9fac07bba402 mod_http_muc_log: Lazy nex/prev link generation Kim Alvefur <zash@zash.se> parents: 2843 diff changeset	485 elseif lazy then
9fac07bba402 mod_http_muc_log: Lazy nex/prev link generation Kim Alvefur <zash@zash.se> parents: 2843 diff changeset	486 next_when = datetime.date(day_start + 86400);
9fac07bba402 mod_http_muc_log: Lazy nex/prev link generation Kim Alvefur <zash@zash.se> parents: 2843 diff changeset	487 prev_when = datetime.date(day_start - 86400);
2845 0de6ed2ae9bd mod_http_muc_log: Check that there are timestamps to work with Kim Alvefur <zash@zash.se> parents: 2844 diff changeset	488 elseif first and last then
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	489
2236 86bc6e1d9d4d mod_http_muc_log: Find next and previous date with date index if this is supported by the storage driver Kim Alvefur <zash@zash.se> parents: 2235 diff changeset	490 module:log("debug", "Find next date with messages");
2593 b61b0ff1c0f9 mod_http_muc_log: Fix prev/next date finding Kim Alvefur <zash@zash.se> parents: 2592 diff changeset	491 next_when = find_once(room, { after = last }, 3);
2236 86bc6e1d9d4d mod_http_muc_log: Find next and previous date with date index if this is supported by the storage driver Kim Alvefur <zash@zash.se> parents: 2235 diff changeset	492 if next_when then
86bc6e1d9d4d mod_http_muc_log: Find next and previous date with date index if this is supported by the storage driver Kim Alvefur <zash@zash.se> parents: 2235 diff changeset	493 next_when = datetime.date(next_when);
86bc6e1d9d4d mod_http_muc_log: Find next and previous date with date index if this is supported by the storage driver Kim Alvefur <zash@zash.se> parents: 2235 diff changeset	494 module:log("debug", "Next message: %s", next_when);
86bc6e1d9d4d mod_http_muc_log: Find next and previous date with date index if this is supported by the storage driver Kim Alvefur <zash@zash.se> parents: 2235 diff changeset	495 end
86bc6e1d9d4d mod_http_muc_log: Find next and previous date with date index if this is supported by the storage driver Kim Alvefur <zash@zash.se> parents: 2235 diff changeset	496
86bc6e1d9d4d mod_http_muc_log: Find next and previous date with date index if this is supported by the storage driver Kim Alvefur <zash@zash.se> parents: 2235 diff changeset	497 module:log("debug", "Find prev date with messages");
2593 b61b0ff1c0f9 mod_http_muc_log: Fix prev/next date finding Kim Alvefur <zash@zash.se> parents: 2592 diff changeset	498 prev_when = find_once(room, { before = first, reverse = true }, 3);
2236 86bc6e1d9d4d mod_http_muc_log: Find next and previous date with date index if this is supported by the storage driver Kim Alvefur <zash@zash.se> parents: 2235 diff changeset	499 if prev_when then
86bc6e1d9d4d mod_http_muc_log: Find next and previous date with date index if this is supported by the storage driver Kim Alvefur <zash@zash.se> parents: 2235 diff changeset	500 prev_when = datetime.date(prev_when);
86bc6e1d9d4d mod_http_muc_log: Find next and previous date with date index if this is supported by the storage driver Kim Alvefur <zash@zash.se> parents: 2235 diff changeset	501 module:log("debug", "Previous message: %s", prev_when);
86bc6e1d9d4d mod_http_muc_log: Find next and previous date with date index if this is supported by the storage driver Kim Alvefur <zash@zash.se> parents: 2235 diff changeset	502 end
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	503 end
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	504
3690 8c0a6d4541d5 mod_http_muc_log: Wrap navigation in unorderded lists (thanks jonas’) Kim Alvefur <zash@zash.se> parents: 3597 diff changeset	505 local links = {
4034 a359972d246e mod_http_muc_log: Add link to room list from logs page Kim Alvefur <zash@zash.se> parents: 3893 diff changeset	506 { href = "../", rel = "up", text = "Room list" },
3690 8c0a6d4541d5 mod_http_muc_log: Wrap navigation in unorderded lists (thanks jonas’) Kim Alvefur <zash@zash.se> parents: 3597 diff changeset	507 { href = "./", rel = "up", text = "Calendar" },
8c0a6d4541d5 mod_http_muc_log: Wrap navigation in unorderded lists (thanks jonas’) Kim Alvefur <zash@zash.se> parents: 3597 diff changeset	508 };
8c0a6d4541d5 mod_http_muc_log: Wrap navigation in unorderded lists (thanks jonas’) Kim Alvefur <zash@zash.se> parents: 3597 diff changeset	509 if prev_when ~= "" then
8c0a6d4541d5 mod_http_muc_log: Wrap navigation in unorderded lists (thanks jonas’) Kim Alvefur <zash@zash.se> parents: 3597 diff changeset	510 table.insert(links, { href = prev_when, rel = "prev", text = prev_when});
8c0a6d4541d5 mod_http_muc_log: Wrap navigation in unorderded lists (thanks jonas’) Kim Alvefur <zash@zash.se> parents: 3597 diff changeset	511 end
8c0a6d4541d5 mod_http_muc_log: Wrap navigation in unorderded lists (thanks jonas’) Kim Alvefur <zash@zash.se> parents: 3597 diff changeset	512 if next_when ~= "" then
8c0a6d4541d5 mod_http_muc_log: Wrap navigation in unorderded lists (thanks jonas’) Kim Alvefur <zash@zash.se> parents: 3597 diff changeset	513 table.insert(links, { href = next_when, rel = "next", text = next_when});
8c0a6d4541d5 mod_http_muc_log: Wrap navigation in unorderded lists (thanks jonas’) Kim Alvefur <zash@zash.se> parents: 3597 diff changeset	514 end
8c0a6d4541d5 mod_http_muc_log: Wrap navigation in unorderded lists (thanks jonas’) Kim Alvefur <zash@zash.se> parents: 3597 diff changeset	515
1579 9e784ddac236 mod_http_muc_log: Include charset in Content-Type header Kim Alvefur <zash@zash.se> parents: 1578 diff changeset	516 response.headers.content_type = "text/html; charset=utf-8";
3892 96a2e5097fc4 mod_http_muc_log: Reduce hashtable lookups Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3757 diff changeset	517 local room_obj = get_room(room);
1581 9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	518 return render(template, {
5104 d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	519 static = "../@static";
3714 04ff0de40ba9 mod_http_muc_log: Add date metadata to log pages Kim Alvefur <zash@zash.se> parents: 3703 diff changeset	520 date = date;
3892 96a2e5097fc4 mod_http_muc_log: Reduce hashtable lookups Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3757 diff changeset	521 room = room_obj._data;
96a2e5097fc4 mod_http_muc_log: Reduce hashtable lookups Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3757 diff changeset	522 jid = room_obj.jid;
96a2e5097fc4 mod_http_muc_log: Reduce hashtable lookups Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3757 diff changeset	523 jid_node = jid_split(room_obj.jid);
5581 df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	524 q = presence_query(request);
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	525 show_presence = show_presence(request);
3597 da7ec4ed6ddf mod_http_muc_log: Hide join/part controls if they are not stored by mod_muc_mam Kim Alvefur <zash@zash.se> parents: 3596 diff changeset	526 presence_available = presence_logged;
3892 96a2e5097fc4 mod_http_muc_log: Reduce hashtable lookups Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3757 diff changeset	527 lang = room_obj.get_language and room_obj:get_language();
1581 9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	528 lines = logs;
3690 8c0a6d4541d5 mod_http_muc_log: Wrap navigation in unorderded lists (thanks jonas’) Kim Alvefur <zash@zash.se> parents: 3597 diff changeset	529 links = links;
3750 9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	530 dates = {}; -- COMPAT util.interpolation {nil\|func#...} bug
1581 9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	531 });
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	532 end
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	533
4676 a2cf3b69a3d6 mod_http_muc_log: Add way to list certain rooms in a specified order Kim Alvefur <zash@zash.se> parents: 4592 diff changeset	534 local room_weights = setmetatable(module:get_option_array(module.name.."_list_order", {}):reverse(), nil);
a2cf3b69a3d6 mod_http_muc_log: Add way to list certain rooms in a specified order Kim Alvefur <zash@zash.se> parents: 4592 diff changeset	535 for i = #room_weights, 1, -1 do
a2cf3b69a3d6 mod_http_muc_log: Add way to list certain rooms in a specified order Kim Alvefur <zash@zash.se> parents: 4592 diff changeset	536 local room_jid = room_weights[i];
a2cf3b69a3d6 mod_http_muc_log: Add way to list certain rooms in a specified order Kim Alvefur <zash@zash.se> parents: 4592 diff changeset	537 room_weights[i] = nil;
a2cf3b69a3d6 mod_http_muc_log: Add way to list certain rooms in a specified order Kim Alvefur <zash@zash.se> parents: 4592 diff changeset	538 room_weights[room_jid] = i;
a2cf3b69a3d6 mod_http_muc_log: Add way to list certain rooms in a specified order Kim Alvefur <zash@zash.se> parents: 4592 diff changeset	539 end
a2cf3b69a3d6 mod_http_muc_log: Add way to list certain rooms in a specified order Kim Alvefur <zash@zash.se> parents: 4592 diff changeset	540
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	541 local function list_rooms(event)
3485 181561d0aae5 mod_http_muc_log: Add functionality for hiding joins and parts Kim Alvefur <zash@zash.se> parents: 3283 diff changeset	542 local request, response = event.request, event.response;
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	543 local room_list, i = {}, 1;
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	544 for room in each_room() do
3062 37a78e365b46 mod_http_muc_log: Fix inverted logic Kim Alvefur <zash@zash.se> parents: 3061 diff changeset	545 if not (room.get_hidden or room.is_hidden)(room) then
3893 3f20b7c88afb mod_http_muc_log: Expose JID localpart to the template Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3892 diff changeset	546 local localpart = jid_split(room.jid);
1581 9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	547 room_list[i], i = {
3578 ea63dc0cc824 mod_http_muc_log: Sort room listing by jid for stable order Kim Alvefur <zash@zash.se> parents: 3560 diff changeset	548 jid = room.jid;
3893 3f20b7c88afb mod_http_muc_log: Expose JID localpart to the template Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3892 diff changeset	549 localpart = localpart;
3f20b7c88afb mod_http_muc_log: Expose JID localpart to the template Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 3892 diff changeset	550 href = get_link(localpart, default_view);
4182 1890115b2773 mod_http_muc_log: Move template into a directory to ease packaging Kim Alvefur <zash@zash.se> parents: 4034 diff changeset	551 name = room:get_name() or localpart;
3702 caf27826c7b2 mod_http_muc_log: Use configured room language in room title/desc #a11y Kim Alvefur <zash@zash.se> parents: 3692 diff changeset	552 lang = room.get_language and room:get_language();
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	553 description = room:get_description();
4676 a2cf3b69a3d6 mod_http_muc_log: Add way to list certain rooms in a specified order Kim Alvefur <zash@zash.se> parents: 4592 diff changeset	554 priority = room_weights[ room.jid ] or 0;
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	555 }, i + 1;
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	556 end
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	557 end
1576 91b91052e0e8 mod_http_muc_log: Send a HTML mime type with responses Kim Alvefur <zash@zash.se> parents: 1575 diff changeset	558
3578 ea63dc0cc824 mod_http_muc_log: Sort room listing by jid for stable order Kim Alvefur <zash@zash.se> parents: 3560 diff changeset	559 table.sort(room_list, function (a, b)
4676 a2cf3b69a3d6 mod_http_muc_log: Add way to list certain rooms in a specified order Kim Alvefur <zash@zash.se> parents: 4592 diff changeset	560 if a.priority ~= b.priority then return a.priority > b.priority; end
4677 823370bc2e4c mod_http_muc_log: Sort rooms with a description before those without Kim Alvefur <zash@zash.se> parents: 4676 diff changeset	561 if a.description ~= nil and b.description == nil then
823370bc2e4c mod_http_muc_log: Sort rooms with a description before those without Kim Alvefur <zash@zash.se> parents: 4676 diff changeset	562 return true;
823370bc2e4c mod_http_muc_log: Sort rooms with a description before those without Kim Alvefur <zash@zash.se> parents: 4676 diff changeset	563 elseif a.description == nil and b.description ~= nil then
823370bc2e4c mod_http_muc_log: Sort rooms with a description before those without Kim Alvefur <zash@zash.se> parents: 4676 diff changeset	564 return false;
823370bc2e4c mod_http_muc_log: Sort rooms with a description before those without Kim Alvefur <zash@zash.se> parents: 4676 diff changeset	565 end
3583 a36412d4fafd mod_http_muc_log: Trim trailing whitespace [luacheck] Kim Alvefur <zash@zash.se> parents: 3582 diff changeset	566 return a.jid < b.jid;
3578 ea63dc0cc824 mod_http_muc_log: Sort room listing by jid for stable order Kim Alvefur <zash@zash.se> parents: 3560 diff changeset	567 end);
ea63dc0cc824 mod_http_muc_log: Sort room listing by jid for stable order Kim Alvefur <zash@zash.se> parents: 3560 diff changeset	568
1581 9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	569 response.headers.content_type = "text/html; charset=utf-8";
9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	570 return render(template, {
5104 d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	571 static = "./@static";
1581 9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	572 title = module:get_option_string("name", "Prosody Chatrooms");
9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	573 jid = module.host;
5581 df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	574 q = presence_query(request);
df483d9056f5 mod_http_muc_log: Hide joins and parts by default Kim Alvefur <zash@zash.se> parents: 5118 diff changeset	575 show_presence = show_presence(request);
3597 da7ec4ed6ddf mod_http_muc_log: Hide join/part controls if they are not stored by mod_muc_mam Kim Alvefur <zash@zash.se> parents: 3596 diff changeset	576 presence_available = presence_logged;
1581 9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	577 rooms = room_list;
3750 9002c8a2165f mod_http_muc_log: Refactor calendarization of date list into a template filter BC Kim Alvefur <zash@zash.se> parents: 3749 diff changeset	578 dates = {}; -- COMPAT util.interpolation {nil\|func#...} bug
1581 9f6cd252d233 mod_http_muc_log: Revamp template system Kim Alvefur <zash@zash.se> parents: 1580 diff changeset	579 });
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	580 end
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	581
5104 d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	582 local serve_static
d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	583 do
d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	584 if prosody.process_type == "prosody" then
d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	585 -- Prosody >= 0.12
d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	586 local http_files = require "net.http.files";
d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	587 serve = http_files.serve;
d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	588 else
d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	589 -- Prosody <= 0.11
d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	590 serve = module:depends "http_files".serve;
d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	591 end
d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	592 local mime_map = module:shared("/*/http_files/mime").types or { css = "text/css"; js = "application/javascript" };
d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	593 serve_static = serve({ path = resources; mime_map = mime_map });
d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	594 end
d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	595
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	596 module:provides("http", {
3757 971417eedfee mod_http_muc_log: Set a http app title Kim Alvefur <zash@zash.se> parents: 3750 diff changeset	597 title = module:get_option_string("name", "Chatroom logs");
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	598 route = {
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	599 ["GET /"] = list_rooms;
2685 cd5781ca782d mod_http_muc_log: Remove caching Kim Alvefur <zash@zash.se> parents: 2593 diff changeset	600 ["GET /*"] = logs_page;
3722 bdbbf11eac0c mod_http_muc_log: Add comment about the routing of years and logs pages Kim Alvefur <zash@zash.se> parents: 3718 diff changeset	601 -- mod_http only supports one wildcard so logs_page will dispatch to years_page if the path contains no date
bdbbf11eac0c mod_http_muc_log: Add comment about the routing of years and logs pages Kim Alvefur <zash@zash.se> parents: 3718 diff changeset	602 -- thus:
bdbbf11eac0c mod_http_muc_log: Add comment about the routing of years and logs pages Kim Alvefur <zash@zash.se> parents: 3718 diff changeset	603 -- GET /room --> years_page (via logs_page)
bdbbf11eac0c mod_http_muc_log: Add comment about the routing of years and logs pages Kim Alvefur <zash@zash.se> parents: 3718 diff changeset	604 -- GET /room/yyyy-mm-dd --> logs_page (for real)
5104 d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	605
d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	606 ["GET /@static/*"] = serve_static;
d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	607 -- There are not many ASCII characters that are safe to use in URLs but not
d4b0a995e5e3 mod_http_muc_log: Move CSS and JS out of template Kim Alvefur <zash@zash.se> parents: 4993 diff changeset	608 -- valid in JID localparts, '@' seemed the only option.
1549 f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	609 };
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	610 });
f9f8bf82ece7 mod_http_muc_log: MUC log module using new archive API Kim Alvefur <zash@zash.se> parents: diff changeset	611

Mercurial > prosody-modules

annotate mod_http_muc_log/mod_http_muc_log.lua @ 5668:ecfd7aece33b