Initial import: low-level API wrapper

matrix/factory/chttp.lua

@@ -0,0 +1,70 @@
+#! /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 util    = require "http.util"
+
+local encodeURI, decodeURI = util.encodeURI, util.decodeURI
+local dict_to_query = util.dict_to_query
+
+
+local CqHttpClient = {
+   quote   = function (self, text) return encodeURI(text) end,
+   unquote = function (self, text) return decodeURI(text) end,
+}
+CqHttpClient.__index = CqHttpClient
+
+
+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 CqHttpClient: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({}, CqHttpClient)
+end