# HG changeset patch # User Thilo Cestonaro # Date 1255381761 -7200 # Node ID 6018c0370d891a196d74aa72f29e5e3191fb4c9f # Parent a0dfa3e5883c936d2d6f94fd3c9c2c6d6f71b25c# Parent 58d326d86a9a14e4b0268a69ecb2d28400373972 merge diff -r a0dfa3e5883c -r 6018c0370d89 mod_adhoc/adhoc/adhoc.lib.lua --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/mod_adhoc/adhoc/adhoc.lib.lua Mon Oct 12 23:09:21 2009 +0200 @@ -0,0 +1,19 @@ +local st = require "util.stanza"; + +local xmlns_cmd = "http://jabber.org/protocol/commands"; + +local _M = {}; + +function _cmdtag(desc, status, sessionid, action) + local cmd = st.stanza("command", { xmlns = xmlns_cmd, node = desc.node, status = status }); + if sessionid then cmd.attr.sessionid = sessionid; end + if action then cmd.attr.action = action; end + + return cmd; +end + +function _M.new(name, node, handler) + return { name = name, node = node, handler = handler, cmdtag = _cmdtag }; +end + +return _M; diff -r a0dfa3e5883c -r 6018c0370d89 mod_adhoc/adhoc/mod_adhoc.lua --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/mod_adhoc/adhoc/mod_adhoc.lua Mon Oct 12 23:09:21 2009 +0200 @@ -0,0 +1,52 @@ +-- Copyright (C) 2009 Thilo Cestonaro +-- +-- This file is MIT/X11 licensed. Please see the +-- COPYING file in the source package for more information. +-- + +local st = require "util.stanza"; +local commands = {}; + +module:add_feature("http://jabber.org/protocol/commands"); + +module:hook("iq/host/http://jabber.org/protocol/disco#items:query", function (event) + local origin, stanza = event.origin, event.stanza; + if stanza.attr.type == "get" and stanza.tags[1].attr.node and stanza.tags[1].attr.node == "http://jabber.org/protocol/commands" then + reply = st.reply(stanza); + reply:tag("query", {xmlns="http://jabber.org/protocol/disco#items", node="http://jabber.org/protocol/commands"}) + for i = 1, #commands do + -- module:log("info", "adding command %s", commands[i].name); + reply:tag("item", {name=commands[i].name, node=commands[i].node, jid=module:get_host()}); + reply:up(); + end + origin.send(reply); + return true; + end +end, 500); + +module:hook("iq/host", function (event) + local origin, stanza = event.origin, event.stanza; + if stanza.attr.type == "set" and stanza.tags[1] and stanza.tags[1].name == "command" then + local node = stanza.tags[1].attr.node + for i = 1, #commands do + if commands[i].node == node then + return commands[i].handler(commands[i], origin, stanza); + end + end + end +end, 500); + +module:hook("item-added/adhoc", function (event) + commands[ # commands + 1] = event.item; +end, 500); + +local _G = _G; +local t_remove = _G.table.remove; +module:hook("item-removed/adhoc", function (event) + for i = 1, #commands do + if commands[i].node == event.item.node then + t_remove(commands, i); + break; + end + end +end, 500); diff -r a0dfa3e5883c -r 6018c0370d89 mod_adhoc/mod_adhoc.lua --- a/mod_adhoc/mod_adhoc.lua Mon Oct 12 23:08:43 2009 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,52 +0,0 @@ --- Copyright (C) 2009 Thilo Cestonaro --- --- This file is MIT/X11 licensed. Please see the --- COPYING file in the source package for more information. --- - -local st = require "util.stanza"; -local commands = {}; - -module:add_feature("http://jabber.org/protocol/commands"); - -module:hook("iq/host/http://jabber.org/protocol/disco#items:query", function (event) - local origin, stanza = event.origin, event.stanza; - if stanza.attr.type == "get" and stanza.tags[1].attr.node and stanza.tags[1].attr.node == "http://jabber.org/protocol/commands" then - reply = st.reply(stanza); - reply:tag("query", {xmlns="http://jabber.org/protocol/disco#items", node="http://jabber.org/protocol/commands"}) - for i = 1, #commands do - -- module:log("info", "adding command %s", commands[i].name); - reply:tag("item", {name=commands[i].name, node=commands[i].node, jid=module:get_host()}); - reply:up(); - end - origin.send(reply); - return true; - end -end, 500); - -module:hook("iq/host", function (event) - local origin, stanza = event.origin, event.stanza; - if stanza.attr.type == "set" and stanza.tags[1] and stanza.tags[1].name == "command" then - local node = stanza.tags[1].attr.node - for i = 1, #commands do - if commands[i].node == node then - return commands[i].handler(commands[i], origin, stanza); - end - end - end -end, 500); - -module:hook("item-added/adhoc", function (event) - commands[ # commands + 1] = event.item; -end, 500); - -local _G = _G; -local t_remove = _G.table.remove; -module:hook("item-removed/adhoc", function (event) - for i = 1, #commands do - if commands[i].node == event.item.node then - t_remove(commands, i); - break; - end - end -end, 500); diff -r a0dfa3e5883c -r 6018c0370d89 mod_adhoc_cmd_admin/mod_adhoc_cmd_admin.lua --- a/mod_adhoc_cmd_admin/mod_adhoc_cmd_admin.lua Mon Oct 12 23:08:43 2009 +0200 +++ b/mod_adhoc_cmd_admin/mod_adhoc_cmd_admin.lua Mon Oct 12 23:09:21 2009 +0200 @@ -4,72 +4,62 @@ -- COPYING file in the source package for more information. -- -local st, jid, uuid = require "util.stanza", require "util.jid", require "util.uuid"; local usermanager_user_exists = require "core.usermanager".user_exists; local usermanager_create_user = require "core.usermanager".create_user; +local is_admin = require "core.usermanager".is_admin; -local is_admin = require "core.usermanager".is_admin; -local admins = set.new(config.get(module:get_host(), "core", "admins")); +local st, jid, uuid = require "util.stanza", require "util.jid", require "util.uuid"; +local dataforms_new = require "util.dataforms".new; +local adhoc_new = module:require "adhoc".new; local sessions = {}; +local add_user_layout = dataforms_new{ + title= "Adding a User"; + instructions = "Fill out this form to add a user."; + + { name = "FORM_TYPE", type = "hidden", value = "http://jabber.org/protocol/admin" }; + { name = "accountjid", type = "jid-single", required = true, label = "The Jabber ID for the account to be added" }; + { name = "password", type = "text-private", label = "The password for this account" }; + { name = "password-verify", type = "text-private", label = "Retype password" }; +}; + function add_user_command_handler(item, origin, stanza) if not is_admin(stanza.attr.from) then module:log("warn", "Non-admin %s tried to add a user", tostring(jid.bare(stanza.attr.from))); origin.send(st.error_reply(stanza, "auth", "forbidden", "You don't have permission to add a user"):up() - :tag("command", {xmlns="http://jabber.org/protocol/commands", - node="http://jabber.org/protocol/admin#add-user", status="canceled"}) - :tag("note", {type="error"}):text("You don't have permission to add a user")); + :add_child(item:cmdtag("canceled") + :tag("note", {type="error"}):text("You don't have permission to add a user"))); return true; end if stanza.tags[1].attr.sessionid and sessions[stanza.tags[1].attr.sessionid] then if stanza.tags[1].attr.action == "cancel" then - origin.send(st.reply(stanza):tag("command", {xmlns="http://jabber.org/protocol/commands", - node="http://jabber.org/protocol/admin#add-user", - sessionid=stanza.tags[1].attr.sessionid, status="canceled"})); + origin.send(st.reply(stanza):add_child(item:cmdtag("canceled", stanza.tags[1].attr.sessionid))); sessions[stanza.tags[1].attr.sessionid] = nil; return true; end - for _, tag in ipairs(stanza.tags[1].tags) do - if tag.name == "x" and tag.attr.xmlns == "jabber:x:data" then - form = tag; - break; - end - end - local fields = {}; - for _, field in ipairs(form.tags) do - if field.name == "field" and field.attr.var then - for i, tag in ipairs(field.tags) do - if tag.name == "value" and #tag.tags == 0 then - fields[field.attr.var] = tag[1] or ""; - end - end - end - end + form = stanza.tags[1]:child_with_ns("jabber:x:data"); + local fields = add_user_layout:data(form); local username, host, resource = jid.split(fields.accountjid); if (fields.password == fields["password-verify"]) and username and host and host == stanza.attr.to then if usermanager_user_exists(username, host) then origin.send(st.error_reply(stanza, "cancel", "conflict", "Account already exists"):up() - :tag("command", {xmlns="http://jabber.org/protocol/commands", - node="http://jabber.org/protocol/admin#add-user", status="canceled"}) - :tag("note", {type="error"}):text("Account already exists")); + :add_child(item:cmdtag("canceled", stanza.tags[1].attr.sessionid) + :tag("note", {type="error"}):text("Account already exists"))); sessions[stanza.tags[1].attr.sessionid] = nil; return true; else if usermanager_create_user(username, fields.password, host) then - origin.send(st.reply(stanza):tag("command", {xmlns="http://jabber.org/protocol/commands", - node="http://jabber.org/protocol/admin#add-user", - sessionid=stanza.tags[1].attr.sessionid, status="completed"}) - :tag("note", {type="info"}):text("Account successfully created")); + origin.send(st.reply(stanza):add_child(item:cmdtag("completed", stanza.tags[1].attr.sessionid) + :tag("note", {type="info"}):text("Account successfully created"))); sessions[stanza.tags[1].attr.sessionid] = nil; module:log("debug", "Created new account " .. username.."@"..host); return true; else origin.send(st.error_reply(stanza, "wait", "internal-server-error", "Failed to write data to disk"):up() - :tag("command", {xmlns="http://jabber.org/protocol/commands", - node="http://jabber.org/protocol/admin#add-user", status="canceled"}) - :tag("note", {type="error"}):text("Failed to write data to disk")); + :add_child(item:cmdtag("canceled", stanza.tags[1].attr.sessionid) + :tag("note", {type="error"}):text("Failed to write data to disk"))); sessions[stanza.tags[1].attr.sessionid] = nil; return true; end @@ -77,37 +67,21 @@ else module:log("debug", fields.accountjid .. " " .. fields.password .. " " .. fields["password-verify"]); origin.send(st.error_reply(stanza, "cancel", "conflict", - "Invalid data.\nPasswords missmatch, or empy username"):up() - :tag("command", {xmlns="http://jabber.org/protocol/commands", - node="http://jabber.org/protocol/admin#add-user", status="canceled"}) - :tag("note", {type="error"}):text("Invalid data.\nPasswords missmatch, or empy username")); + "Invalid data.\nPassword mismatch, or empty username"):up() + :add_child(item:cmdtag("canceled", stanza.tags[1].attr.sessionid) + :tag("note", {type="error"}):text("Invalid data.\nPassword mismatch, or empty username"))); sessions[stanza.tags[1].attr.sessionid] = nil; return true; end else - sessionid=uuid.generate(); + local sessionid=uuid.generate(); sessions[sessionid] = "executing"; - origin.send(st.reply(stanza):tag("command", {xmlns="http://jabber.org/protocol/commands", - node="http://jabber.org/protocol/admin#add-user", sessionid=sessionid, - status="executing"}) - :tag("x", { xmlns = "jabber:x:data", type = "form" }) - :tag("title"):text("Adding a User"):up() - :tag("instructions"):text("Fill out this form to add a user."):up() - :tag("field", { type = "hidden", var = "FORM_TYPE" }) - :tag("value"):text("http://jabber.org/protocol/admin"):up():up() - :tag("field", { label = "The Jabber ID for the account to be added", - type = "jid-single", var = "accountjid" }) - :tag("required"):up():up() - :tag("field", { label = "The password for this account", - type = "text-private", var = "password" }):up() - :tag("field", { label = "Retype password", type = "text-private", - var = "password-verify" }):up():up() - ); + origin.send(st.reply(stanza):add_child(item:cmdtag("executing", sessionid):add_child(add_user_layout:form()))); end return true; end -local descriptor = { name="Add User", node="http://jabber.org/protocol/admin#add-user", handler=add_user_command_handler }; +local descriptor = adhoc_new("Add User", "http://jabber.org/protocol/admin#add-user", add_user_command_handler) function module.unload() module:remove_item("adhoc", descriptor); diff -r a0dfa3e5883c -r 6018c0370d89 mod_adhoc_cmd_ping/mod_adhoc_cmd_ping.lua --- a/mod_adhoc_cmd_ping/mod_adhoc_cmd_ping.lua Mon Oct 12 23:08:43 2009 +0200 +++ b/mod_adhoc_cmd_ping/mod_adhoc_cmd_ping.lua Mon Oct 12 23:09:21 2009 +0200 @@ -5,15 +5,15 @@ -- local st = require "util.stanza"; +local adhoc_new = module:require "adhoc".new; function ping_command_handler (item, origin, stanza) local now = os.date("%Y-%m-%dT%X"); - origin.send(st.reply(stanza):tag("command", {xmlns="http://jabber.org/protocol/commands", status="completed", node=item.node, sessionid=now}) - :tag("note", {type="info"}):text("Pong\n" .. now)); + origin.send(st.reply(stanza):add_child(item:cmdtag("completed", now):tag("note", {type="info"}):text("Pong\n" .. now))); return true; end -local descriptor = { name="Ping", node="ping", handler=ping_command_handler }; +local descriptor = adhoc_new("Ping", "ping", ping_command_handler); function module.unload() module:remove_item("adhoc", descriptor);