# HG changeset patch
# User Matthew Wild <mwild1@gmail.com>
# Date 1247062271 -3600
# Node ID 4c2c403ca04bc9277f67be62241ed5ae1694ecc8
# Parent  4fa337035f467f7a24ae406ff6bd583336537b5a
util.xmlrpc: Add create_request

diff -r 4fa337035f46 -r 4c2c403ca04b util/xmlrpc.lua
--- 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)