From ddf0fa83fd3d7a11814ea9f442d4602fc7fd5def Mon Sep 17 00:00:00 2001 From: Matthew Wild Date: Wed, 8 Jul 2009 15:11:11 +0100 Subject: util.xmlrpc: Add create_request --- util/xmlrpc.lua | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'util') diff --git a/util/xmlrpc.lua b/util/xmlrpc.lua index 0c6b5efe..2c256aa1 100644 --- a/util/xmlrpc.lua +++ b/util/xmlrpc.lua @@ -66,6 +66,14 @@ function create_error_response(faultCode, faultString) 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) -- cgit v1.2.3