--- a/mod_storage_xmlarchive/mod_storage_xmlarchive.lua Tue Sep 01 17:55:02 2015 +0200
+++ b/mod_storage_xmlarchive/mod_storage_xmlarchive.lua Wed Sep 02 16:43:34 2015 +0200
@@ -224,4 +224,15 @@
return setmetatable({ store = store }, archive_mt);
end
+function provider:purge(username)
+ for store in dm.stores(username, module.host) do
+ local dates = dm.list_load(username, module.host, store) or empty;
+ if dates[1] and type(dates[1]) == "string" and dates[1]:match("^%d%d%d%d%-%d%d-%d%d$") then
+ module:log("info", "Store %s looks like an archive store, emptying it...", store);
+ provider:open(store, "archive"):delete(username);
+ end
+ end
+ return true;
+end
+
module:provides("storage", provider);