45 lines
1.5 KiB
Lua
45 lines
1.5 KiB
Lua
---------------------------------------------------------------------
|
|
-- XML-RPC over HTTP.
|
|
-- See Copyright Notice in license.html
|
|
-- $Id: http.lua,v 1.5 2007/03/30 04:17:14 tomas Exp $
|
|
---------------------------------------------------------------------
|
|
|
|
local error, tonumber, tostring, unpack = error, tonumber, tostring, unpack
|
|
|
|
local ltn12 = require"ltn12"
|
|
local request = require"socket.http".request
|
|
local string = require"string"
|
|
local table = require"table"
|
|
local xmlrpc = require"xmlrpc"
|
|
|
|
module("xmlrpc.http")
|
|
|
|
---------------------------------------------------------------------
|
|
-- Call a remote method.
|
|
-- @param url String with the location of the server.
|
|
-- @param method String with the name of the method to be called.
|
|
-- @return Table with the response (could be a `fault' or a `params'
|
|
-- XML-RPC element).
|
|
---------------------------------------------------------------------
|
|
function call (url, method, ...)
|
|
local request_sink, tbody = ltn12.sink.table()
|
|
local request_body = xmlrpc.clEncode(method, ...)
|
|
local err, code, headers, status = request {
|
|
url = url,
|
|
method = "POST",
|
|
source = ltn12.source.string (request_body),
|
|
sink = request_sink,
|
|
headers = {
|
|
["User-agent"] = "LuaXMLRPC",
|
|
["Content-type"] = "text/xml",
|
|
["content-length"] = tostring (string.len (request_body)),
|
|
},
|
|
}
|
|
local body = table.concat (tbody)
|
|
if tonumber (code) == 200 then
|
|
return xmlrpc.clDecode (body)
|
|
else
|
|
error (tostring (err or code).."\n\n"..tostring(body))
|
|
end
|
|
end
|