mirror of
https://github.com/brunoos/luasec.git
synced 2024-11-08 06:28:26 +01:00
139 lines
3.9 KiB
Lua
139 lines
3.9 KiB
Lua
----------------------------------------------------------------------------
|
|
-- LuaSec 0.4.1
|
|
-- Copyright (C) 2009-2011 PUC-Rio
|
|
--
|
|
-- Author: Pablo Musa
|
|
-- Author: Tomas Guisasola
|
|
---------------------------------------------------------------------------
|
|
|
|
local socket = require("socket")
|
|
local ssl = require("ssl")
|
|
local ltn12 = require("ltn12")
|
|
local http = require("socket.http")
|
|
local url = require("socket.url")
|
|
|
|
local table = require("table")
|
|
local string = require("string")
|
|
|
|
local try = socket.try
|
|
local type = type
|
|
local pairs = pairs
|
|
local getmetatable = getmetatable
|
|
|
|
module("ssl.https")
|
|
|
|
_VERSION = "0.4.1"
|
|
_COPYRIGHT = "LuaSec 0.4.1 - Copyright (C) 2009-2011 PUC-Rio"
|
|
|
|
-- Default settings
|
|
PORT = 443
|
|
|
|
local cfg = {
|
|
protocol = "tlsv1",
|
|
options = "all",
|
|
verify = "none",
|
|
}
|
|
|
|
--------------------------------------------------------------------
|
|
-- Auxiliar Functions
|
|
--------------------------------------------------------------------
|
|
|
|
-- Insert default HTTPS port.
|
|
local function default_https_port(u)
|
|
return url.build(url.parse(u, {port = PORT}))
|
|
end
|
|
|
|
-- Convert an URL to a table according to Luasocket needs.
|
|
local function urlstring_totable(url, body, result_table)
|
|
url = {
|
|
url = default_https_port(url),
|
|
method = body and "POST" or "GET",
|
|
sink = ltn12.sink.table(result_table)
|
|
}
|
|
if body then
|
|
url.source = ltn12.source.string(body)
|
|
url.headers = {
|
|
["content-length"] = #body,
|
|
["content-type"] = "application/x-www-form-urlencoded",
|
|
}
|
|
end
|
|
return url
|
|
end
|
|
|
|
-- Forward calls to the real connection object.
|
|
local function reg(conn)
|
|
local mt = getmetatable(conn.sock).__index
|
|
for name, method in pairs(mt) do
|
|
if type(method) == "function" then
|
|
conn[name] = function (self, ...)
|
|
return method(self.sock, ...)
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
-- Return a function which performs the SSL/TLS connection.
|
|
local function tcp(params)
|
|
params = params or {}
|
|
-- Default settings
|
|
for k, v in pairs(cfg) do
|
|
params[k] = params[k] or v
|
|
end
|
|
-- Force client mode
|
|
params.mode = "client"
|
|
-- 'create' function for LuaSocket
|
|
return function ()
|
|
local conn = {}
|
|
conn.sock = try(socket.tcp())
|
|
local st = getmetatable(conn.sock).__index.settimeout
|
|
function conn:settimeout(...)
|
|
return st(self.sock, ...)
|
|
end
|
|
-- Replace TCP's connection function
|
|
function conn:connect(host, port)
|
|
try(self.sock:connect(host, port))
|
|
self.sock = try(ssl.wrap(self.sock, params))
|
|
try(self.sock:dohandshake())
|
|
reg(self, getmetatable(self.sock))
|
|
return 1
|
|
end
|
|
return conn
|
|
end
|
|
end
|
|
|
|
--------------------------------------------------------------------
|
|
-- Main Function
|
|
--------------------------------------------------------------------
|
|
|
|
-- Make a HTTP request over secure connection. This function receives
|
|
-- the same parameters of LuaSocket's HTTP module (except 'proxy' and
|
|
-- 'redirect') plus LuaSec parameters.
|
|
--
|
|
-- @param url mandatory (string or table)
|
|
-- @param body optional (string)
|
|
-- @return (string if url == string or 1), code, headers, status
|
|
--
|
|
function request(url, body)
|
|
local result_table = {}
|
|
local stringrequest = type(url) == "string"
|
|
if stringrequest then
|
|
url = urlstring_totable(url, body, result_table)
|
|
else
|
|
url.url = default_https_port(url.url)
|
|
end
|
|
if http.PROXY or url.proxy then
|
|
return nil, "proxy not supported"
|
|
elseif url.redirect then
|
|
return nil, "redirect not supported"
|
|
elseif url.create then
|
|
return nil, "create function not permitted"
|
|
end
|
|
-- New 'create' function to establish a secure connection
|
|
url.create = tcp(url)
|
|
local res, code, headers, status = http.request(url)
|
|
if res and stringrequest then
|
|
return table.concat(result_table), code, headers, status
|
|
end
|
|
return res, code, headers, status
|
|
end
|