# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1343503914 -7200
# Node ID 242c62ff8e773aa31808927e318b13ae4676ff04
# Parent  c34fdcae6d29667a06cf8b05328927e79e2fb941
util.datamanager: Add function for removing all data belonging to a user

diff -r c34fdcae6d29 -r 242c62ff8e77 util/datamanager.lua
--- a/util/datamanager.lua	Sat Jul 28 21:30:54 2012 +0200
+++ b/util/datamanager.lua	Sat Jul 28 21:31:54 2012 +0200
@@ -253,4 +253,18 @@
 	return list;
 end
 
+function purge(username, host)
+	local host_dir = format("%s/%s/", data_path, encode(host));
+	local deleted = 0;
+	for file in lfs.dir(host_dir) do
+		if lfs.attributes(host_dir..file, "mode") == "directory" then
+			local store = decode(file);
+			deleted = deleted + (os_remove(getpath(username, host, store)) and 1 or 0);
+			deleted = deleted + (os_remove(getpath(username, host, store, "list")) and 1 or 0);
+			-- We this will generate loads of "No such file or directory", but do we care?
+		end
+	end
+	return deleted > 0, deleted;
+end
+
 return _M;