File

+
−-- Prosody IM
+
−-- Copyright (C) 2008-2010 Matthew Wild
+
−-- Copyright (C) 2008-2010 Waqas Hussain
+
−--
+
−-- This project is MIT/X11 licensed. Please see the
+
−-- COPYING file in the source package for more information.
+
−--
+
−
+
−-- Module by Thomas Raschbacher 2014
+
−-- lordvan@lordvan.com
+
−
+
−module:depends"adhoc";
+
−local dataforms_new = require "util.dataforms".new;
+
−local st = require "util.stanza";
+
−local jid_split = require "util.jid".split;
+
−
+
−local private_storage = module:open_store("private");
+
−
+
−local private_adhoc_result_layout = dataforms_new{
+
−   { name = "FORM_TYPE", type = "hidden", value = "http://jabber.org/protocol/admin" };
+
−   { name = "privatexmldata", type = "text-multi", label = "Private XML data" };
+
−};
+
−
+
−
+
−function private_adhoc_command_handler (self, data, state)
+
−   local username, hostname = jid_split(data.from);
+
−   local data, err = private_storage:get(username);
+
−   local dataString = "";
+
−   if not data then
+
−      dataString = "No data found.";
+
−      if err then dataString = dataString..err end;
+
−   else
+
−      for key,value in pairs(data) do
+
−	 dataString = dataString..tostring(st.deserialize(value)):gsub("><",">\n<")
+
−	 dataString = dataString.."\n\n";
+
−      end
+
−   end
+
−   return { status = "completed", result= { layout = private_adhoc_result_layout, values = {privatexmldata=dataString.."\n"}} };
+
−end
+
−
+
−local adhoc_new = module:require "adhoc".new;
+
−local descriptor = adhoc_new("Query private data", "private_adhoc", private_adhoc_command_handler, "local_user");
+
−module:add_item ("adhoc", descriptor);
+
−