70 lines
1.5 KiB
Lua
70 lines
1.5 KiB
Lua
#! /usr/bin/env lua
|
|
--
|
|
-- chttp.lua
|
|
-- Copyright (C) 2016 Adrian Perez <aperez@igalia.com>
|
|
--
|
|
-- Distributed under terms of the MIT license.
|
|
--
|
|
|
|
local request = require "http.request"
|
|
local headers = require "http.headers"
|
|
local dict_to_query = require "http.util" .dict_to_query
|
|
|
|
local httpclient = {
|
|
quote = require "http.util" .encodeURI,
|
|
unquote = require "http.util" .decodeURI,
|
|
}
|
|
httpclient.__name = "matrix.client.chttp"
|
|
httpclient.__index = httpclient
|
|
|
|
function httpclient:__tostring()
|
|
return self.__name
|
|
end
|
|
|
|
local function headers_to_dict(h)
|
|
local headers = {}
|
|
for name, value in pairs(h) do
|
|
if name:sub(1, 1) ~= ":" then
|
|
headers[name] = value
|
|
end
|
|
end
|
|
return headers
|
|
end
|
|
|
|
function httpclient:request(log, method, url, query_args, body, headers)
|
|
do
|
|
local qs = dict_to_query(query_args)
|
|
if #qs > 0 then
|
|
url = url .. "?" .. qs
|
|
end
|
|
end
|
|
|
|
log(">~> %s %s", method, url)
|
|
log(">>> %s", body)
|
|
|
|
local req = request.new_from_uri(url)
|
|
for name, value in pairs(headers) do
|
|
req.headers:append(name, value)
|
|
end
|
|
req.headers:upsert(":method", method)
|
|
if body then
|
|
req:set_body(body)
|
|
end
|
|
local h, s = req:go()
|
|
if not h then
|
|
log("<!< error: %s", s)
|
|
return 0, {}, s
|
|
end
|
|
local status = tonumber(h:get(":status"))
|
|
local response = s:get_body_as_string()
|
|
|
|
log("<~< %d", status)
|
|
log("<<< %s", response)
|
|
|
|
return status, headers_to_dict(h), response
|
|
end
|
|
|
|
return function ()
|
|
return setmetatable({}, httpclient)
|
|
end
|