35 lines
702 B
Lua
Executable File
35 lines
702 B
Lua
Executable File
-- See Copyright Notice in license.html
|
|
-- $Id$
|
|
|
|
require"xmlrpc"
|
|
|
|
local _assert = assert
|
|
function assert (cond, msg)
|
|
if not cond then
|
|
io.stdout:write (xmlrpc.server_encode (
|
|
{ code = 2, message = msg, },
|
|
true
|
|
))
|
|
os.exit() -- !!!!!!!!!!!
|
|
end
|
|
end
|
|
|
|
local doc = parsepostdata ()
|
|
|
|
local method, arg_table = xmlrpc.server_decode (doc)
|
|
assert (type(method) == "string")
|
|
assert (type(arg_table) == "table")
|
|
|
|
local func = xmlrpc.dispatch (method)
|
|
assert (type(func) == "function")
|
|
|
|
local result = { pcall (func, unpack (arg_table)) }
|
|
|
|
local ok = result[1]
|
|
tremove (result, 1)
|
|
if not ok then
|
|
result = { code = 3, message = result[2], }
|
|
end
|
|
|
|
io.stdout:write (xmlrpc.server_encode (result, not ok))
|