local st = require "util.stanza";
local uuid_generate = require "util.uuid".generate;
+local dataform = require"util.dataforms".new;
local xmlns_pubsub = "http://jabber.org/protocol/pubsub";
local xmlns_pubsub_errors = "http://jabber.org/protocol/pubsub#errors";
+local xmlns_pubsub_owner = "http://jabber.org/protocol/pubsub#owner";
local _M = {};
["nodeid-required"] = { "modify", "bad-request", nil, "nodeid-required" };
["item-not-found"] = { "cancel", "item-not-found" };
["not-subscribed"] = { "modify", "unexpected-request", nil, "not-subscribed" };
- ["forbidden"] = { "cancel", "forbidden" };
+ ["forbidden"] = { "auth", "forbidden" };
+ ["not-allowed"] = { "cancel", "not-allowed" };
};
local function pubsub_error_reply(stanza, error)
local e = pubsub_errors[error];
end
_M.pubsub_error_reply = pubsub_error_reply;
+local node_config_form = dataform {
+ {
+ type = "hidden";
+ name = "FORM_TYPE";
+ value = "http://jabber.org/protocol/pubsub#node_config";
+ };
+ {
+ type = "text-single";
+ name = "pubsub#max_items";
+ label = "Max # of items to persist";
+ };
+};
+
function handlers.get_items(origin, stanza, items, service)
local node = items.attr.node;
local item = items:get_child("item");
local id = item and item.attr.id;
if not node then
- return origin.send(pubsub_error_reply(stanza, "nodeid-required"));
+ origin.send(pubsub_error_reply(stanza, "nodeid-required"));
+ return true;
end
local ok, results = service:get_items(node, stanza.attr.from, id);
if not ok then
- return origin.send(pubsub_error_reply(stanza, results));
+ origin.send(pubsub_error_reply(stanza, results));
+ return true;
end
local data = st.stanza("items", { node = node });
- for _, entry in pairs(results) do
- data:add_child(entry);
+ for _, id in ipairs(results) do
+ data:add_child(results[id]);
end
local reply;
if data then
else
reply = pubsub_error_reply(stanza, "item-not-found");
end
- return origin.send(reply);
+ origin.send(reply);
+ return true;
end
function handlers.get_subscriptions(origin, stanza, subscriptions, service)
local node = subscriptions.attr.node;
local ok, ret = service:get_subscriptions(node, stanza.attr.from, stanza.attr.from);
if not ok then
- return origin.send(pubsub_error_reply(stanza, ret));
+ origin.send(pubsub_error_reply(stanza, ret));
+ return true;
end
local reply = st.reply(stanza)
:tag("pubsub", { xmlns = xmlns_pubsub })
for _, sub in ipairs(ret) do
reply:tag("subscription", { node = sub.node, jid = sub.jid, subscription = 'subscribed' }):up();
end
- return origin.send(reply);
+ origin.send(reply);
+ return true;
end
function handlers.set_create(origin, stanza, create, service)
reply = pubsub_error_reply(stanza, ret);
end
end
- return origin.send(reply);
+ origin.send(reply);
+ return true;
end
function handlers.set_delete(origin, stanza, delete, service)
local reply, notifier;
if not node then
- return origin.send(pubsub_error_reply(stanza, "nodeid-required"));
+ origin.send(pubsub_error_reply(stanza, "nodeid-required"));
+ return true;
end
local ok, ret = service:delete(node, stanza.attr.from);
if ok then
else
reply = pubsub_error_reply(stanza, ret);
end
- return origin.send(reply);
+ origin.send(reply);
+ return true;
end
function handlers.set_subscribe(origin, stanza, subscribe, service)
local node, jid = subscribe.attr.node, subscribe.attr.jid;
if not (node and jid) then
- return origin.send(pubsub_error_reply(stanza, jid and "nodeid-required" or "invalid-jid"));
+ origin.send(pubsub_error_reply(stanza, jid and "nodeid-required" or "invalid-jid"));
+ return true;
end
--[[
local options_tag, options = stanza.tags[1]:get_child("options"), nil;
function handlers.set_unsubscribe(origin, stanza, unsubscribe, service)
local node, jid = unsubscribe.attr.node, unsubscribe.attr.jid;
if not (node and jid) then
- return origin.send(pubsub_error_reply(stanza, jid and "nodeid-required" or "invalid-jid"));
+ origin.send(pubsub_error_reply(stanza, jid and "nodeid-required" or "invalid-jid"));
+ return true;
end
local ok, ret = service:remove_subscription(node, stanza.attr.from, jid);
local reply;
else
reply = pubsub_error_reply(stanza, ret);
end
- return origin.send(reply);
+ origin.send(reply);
+ return true;
end
function handlers.set_publish(origin, stanza, publish, service)
local node = publish.attr.node;
if not node then
- return origin.send(pubsub_error_reply(stanza, "nodeid-required"));
+ origin.send(pubsub_error_reply(stanza, "nodeid-required"));
+ return true;
end
local item = publish:get_child("item");
local id = (item and item.attr.id);
else
reply = pubsub_error_reply(stanza, ret);
end
- return origin.send(reply);
+ origin.send(reply);
+ return true;
end
function handlers.set_retract(origin, stanza, retract, service)
local item = retract:get_child("item");
local id = item and item.attr.id
if not (node and id) then
- return origin.send(pubsub_error_reply(stanza, node and "item-not-found" or "nodeid-required"));
+ origin.send(pubsub_error_reply(stanza, node and "item-not-found" or "nodeid-required"));
+ return true;
end
local reply, notifier;
if notify then
else
reply = pubsub_error_reply(stanza, ret);
end
- return origin.send(reply);
+ origin.send(reply);
+ return true;
end
function handlers.set_purge(origin, stanza, purge, service)
notify = (notify == "1") or (notify == "true");
local reply;
if not node then
- return origin.send(pubsub_error_reply(stanza, "nodeid-required"));
+ origin.send(pubsub_error_reply(stanza, "nodeid-required"));
+ return true;
end
local ok, ret = service:purge(node, stanza.attr.from, notify);
if ok then
else
reply = pubsub_error_reply(stanza, ret);
end
- return origin.send(reply);
+ origin.send(reply);
+ return true;
+end
+
+function handlers.get_configure(origin, stanza, config, service)
+ local node = config.attr.node;
+ if not node then
+ origin.send(pubsub_error_reply(stanza, "nodeid-required"));
+ return true;
+ end
+
+ if not service:may(node, stanza.attr.from, "configure") then
+ origin.send(pubsub_error_reply(stanza, "forbidden"));
+ return true;
+ end
+
+ local node_obj = service.nodes[node];
+ if not node_obj then
+ origin.send(pubsub_error_reply(stanza, "item-not-found"));
+ return true;
+ end
+
+ local reply = st.reply(stanza)
+ :tag("pubsub", { xmlns = xmlns_pubsub_owner })
+ :tag("configure", { node = node })
+ :add_child(node_config_form:form(node_obj.config));
+ origin.send(reply);
+ return true;
+end
+
+function handlers.set_configure(origin, stanza, config, service)
+ local node = config.attr.node;
+ if not node then
+ origin.send(pubsub_error_reply(stanza, "nodeid-required"));
+ return true;
+ end
+ if not service:may(node, stanza.attr.from, "configure") then
+ origin.send(pubsub_error_reply(stanza, "forbidden"));
+ return true;
+ end
+ local new_config, err = node_config_form:data(config.tags[1]);
+ if not new_config then
+ origin.send(st.error_reply(stanza, "modify", "bad-request", err));
+ return true;
+ end
+ local ok, err = service:set_node_config(node, stanza.attr.from, new_config);
+ if not ok then
+ origin.send(pubsub_error_reply(stanza, err));
+ return true;
+ end
+ origin.send(st.reply(stanza));
+ return true;
+end
+
+function handlers.get_default(origin, stanza, default, service)
+ local reply = st.reply(stanza)
+ :tag("pubsub", { xmlns = xmlns_pubsub_owner })
+ :tag("default")
+ :add_child(node_config_form:form(service.node_defaults));
+ origin.send(reply);
+ return true;
end
return _M;