# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1490975330 -7200
# Node ID 05e201468f2768dc67bef1411660b468c1efeff2
# Parent  83f18982bcfd69f8549cf8c07b61ee0e5eb7f600
mod_storage_internal: Add support for removing archived items

diff -r 83f18982bcfd -r 05e201468f27 plugins/mod_storage_internal.lua
--- a/plugins/mod_storage_internal.lua	Fri Mar 31 17:47:06 2017 +0200
+++ b/plugins/mod_storage_internal.lua	Fri Mar 31 17:48:50 2017 +0200
@@ -120,4 +120,23 @@
 	end, count;
 end
 
+function archive:delete(username, query)
+	if not query or next(query) == nil then
+		return datamanager.list_store(username, host, self.store, nil);
+	end
+	for k in pairs(query) do
+		if k ~= "end" then return nil, "unsupported-query-field"; end
+	end
+	local items, err = datamanager.list_load(username, host, self.store);
+	if not items then return items, err; end
+	items = array(items);
+	items:filter(function (item)
+		return item.when > query["end"];
+	end);
+	local count = #items;
+	local ok, err = datamanager.list_store(username, host, self.store, items);
+	if not ok then return ok, err; end
+	return count;
+end
+
 module:provides("storage", driver);