plugins/mod_private.lua

   1 -- Prosody IM
   2 -- Copyright (C) 2008-2010 Matthew Wild
   3 -- Copyright (C) 2008-2010 Waqas Hussain
   4 --
   5 -- This project is MIT/X11 licensed. Please see the
   6 -- COPYING file in the source package for more information.
   7 --
   8
   9
  10 local st = require "util.stanza"
  11
  12 local private_storage = module:open_store();
  13
  14 module:add_feature("jabber:iq:private");
  15
  16 module:hook("iq/self/jabber:iq:private:query", function(event)
  17         local origin, stanza = event.origin, event.stanza;
  18         local type = stanza.attr.type;
  19         local query = stanza.tags[1];
  20         if #query.tags == 1 then
  21                 local tag = query.tags[1];
  22                 local key = tag.name..":"..tag.attr.xmlns;
  23                 local data, err = private_storage:get(origin.username);
  24                 if err then
  25                         origin.send(st.error_reply(stanza, "wait", "internal-server-error"));
  26                         return true;
  27                 end
  28                 if stanza.attr.type == "get" then
  29                         if data and data[key] then
  30                                 origin.send(st.reply(stanza):tag("query", {xmlns = "jabber:iq:private"}):add_child(st.deserialize(data[key])));
  31                         else
  32                                 origin.send(st.reply(stanza):add_child(stanza.tags[1]));
  33                         end
  34                 else -- set
  35                         if not data then data = {}; end;
  36                         if #tag == 0 then
  37                                 data[key] = nil;
  38                         else
  39                                 data[key] = st.preserialize(tag);
  40                         end
  41                         -- TODO delete datastore if empty
  42                         if private_storage:set(origin.username, data) then
  43                                 origin.send(st.reply(stanza));
  44                         else
  45                                 origin.send(st.error_reply(stanza, "wait", "internal-server-error"));
  46                         end
  47                 end
  48         else
  49                 origin.send(st.error_reply(stanza, "modify", "bad-format"));
  50         end
  51         return true;
  52 end);