# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1616939835 -7200
# Node ID 6d3f8414872912db4f032b896390540d94531112
# Parent  284c822d4c3dffaf41063f60469c7fa5710f6c1f
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.

diff -r 284c822d4c3d -r 6d3f84148729 plugins/mod_http_file_share.lua
--- a/plugins/mod_http_file_share.lua	Sun Mar 28 14:00:21 2021 +0200
+++ b/plugins/mod_http_file_share.lua	Sun Mar 28 15:57:15 2021 +0200
@@ -18,6 +18,7 @@
 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 @@
 	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