--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/src/https.lua Sat Jul 24 13:40:16 2010 +0100
@@ -0,0 +1,138 @@
+----------------------------------------------------------------------------
+-- LuaSec 0.4
+-- Copyright (C) 2009 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"
+_COPYRIGHT = "LuaSec 0.4 - Copyright (C) 2009 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