From 29a56e7747f3039119abf41bdc70e8f93da20a83 Mon Sep 17 00:00:00 2001 From: Kim Alvefur Date: Sun, 28 Mar 2021 15:57:15 +0200 Subject: mod_http_file_share: Add internal command to check files consistency Background: Found a few files in my store that did not match the size recorded in the slot, so I needed a way to check which which those were. As it was a bit too much to type into the shell I added it here instead. --- plugins/mod_http_file_share.lua | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/plugins/mod_http_file_share.lua b/plugins/mod_http_file_share.lua index f8ae05ae..af9cc937 100644 --- a/plugins/mod_http_file_share.lua +++ b/plugins/mod_http_file_share.lua @@ -18,6 +18,7 @@ local dataform = require "util.dataforms".new; local dt = require "util.datetime"; local hi = require "util.human.units"; local cache = require "util.cache"; +local lfs = require "lfs"; local namespace = "urn:xmpp:http:upload:0"; @@ -455,6 +456,23 @@ if expiry >= 0 and not external_base_url then end); end +-- Reachable from the console +function check_files(query) + local issues = {}; + local iter = assert(uploads:find(nil, query)); + for slot_id, file in iter do + local filename = get_filename(slot_id); + local size, err = lfs.attributes(filename, "size"); + if not size then + issues[filename] = err; + elseif tonumber(file.attr.size) ~= size then + issues[filename] = "file size mismatch"; + end + end + + return next(issues) == nil, issues; +end + module:hook("iq-get/host/urn:xmpp:http:upload:0:request", handle_slot_request); if not external_base_url then -- cgit v1.2.3