724d7cdd54
* The :quote and :unquote methods are now plain functions and no longer receive the "self" parameter. This allows to directly use the utility functions provided by the HTTP client library. * Renamed CqHttpClient to plain "httclient". The variable itself is local to the script so it does not need to be unique.
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.factory.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
|