Mercurial > lxmppd-hg-xmllex / changeset
changeset
util.xmlrpc: Add create_request
Wed, 08 Jul 2009 15:11:11 +0100
- author
- Matthew Wild <mwild1@gmail.com>
- date
- Wed, 08 Jul 2009 15:11:11 +0100
- changeset 1497
- 4c2c403ca04b
- parent 1496
- 4fa337035f46
- child 1498
- 481dfc89047a
util.xmlrpc: Add create_request
| util/xmlrpc.lua | file | annotate | diff | comparison | revisions |
--- a/util/xmlrpc.lua Wed Jul 08 04:32:02 2009 +0100 +++ b/util/xmlrpc.lua Wed Jul 08 15:11:11 2009 +0100 @@ -66,6 +66,14 @@ return stanza; end +function create_request(method_name, object) + local stanza = st.stanza("methodCall") + :tag("methodName"):text(method_name):up() + :tag("params"):tag("param"):tag("value"); + _lua_to_xmlrpc(stanza, object); + stanza:up():up():up(); + return stanza; +end local _xmlrpc_to_lua; local int_parse = function(stanza)
