--- 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)