# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1454589486 -3600
# Node ID 752eee1548910b1edf507ec4cb09fa28f6e9cf4b
# Parent  7c61ab512d0b680e21627f3dd390a21dfa74a96c
mod_mam: Add some debug logging

diff -r 7c61ab512d0b -r 752eee154891 mod_mam/mod_mam.lua
--- a/mod_mam/mod_mam.lua	Tue Feb 02 16:28:12 2016 +0100
+++ b/mod_mam/mod_mam.lua	Thu Feb 04 13:38:06 2016 +0100
@@ -284,6 +284,8 @@
 
 	cleanup_after = tonumber(n) * ( multipliers[m] or 1 );
 
+	module:log("debug", "archive_expires_after = %d -- in seconds", cleanup_after);
+
 	if not archive.delete then
 		module:log("error", "archive_expires_after set but mod_%s does not support deleting", archive._provided_by);
 		return false;
@@ -305,6 +307,11 @@
 			local ok, err = archive:delete(user, { ["end"] = os.time() - cleanup_after; })
 			if not ok then
 				module:log("warn", "Could not expire archives for user %s: %s", user, err);
+			else
+				-- :affected() is a recent addition for eg SQLite3 in LuaDBI
+				pcall(function(stmt)
+					module:log("debug", "Removed %d messages", stmt:affected());
+				end, err);
 			end
 			cleanup[user] = nil;
 		end