path: root/src/openssl.ssl.lua

local ssl = require"_openssl.ssl"

local pack = table.pack or function(...) return { n = select("#", ...); ... } end

ssl.interpose("setStore", function(self, store)
	self:setChainStore(store)
	self:setVerifyStore(store)
	return true
end)

-- Allow passing a vararg of ciphers, or an array
local setCipherList; setCipherList = ssl.interpose("setCipherList", function (self, ciphers, ...)
	if (...) then
		local ciphers_t = pack(ciphers, ...)
		ciphers = table.concat(ciphers_t, ":", 1, ciphers_t.n)
	elseif type(ciphers) == "table" then
		ciphers = table.concat(ciphers, ":")
	end
	return setCipherList(self, ciphers)
end)

-- Allow passing a vararg of ciphersuites, or an array
local setCipherSuites = ssl.interpose("setCipherSuites", nil)
if setCipherSuites then
	ssl.interpose("setCipherSuites", function (self, ciphers, ...)
		if (...) then
			local ciphers_t = pack(ciphers, ...)
			ciphers = table.concat(ciphers_t, ":", 1, ciphers_t.n)
		elseif type(ciphers) == "table" then
			ciphers = table.concat(ciphers, ":")
		end
		return setCipherSuites(self, ciphers)
	end)
end

-- Allow passing a vararg of curves, or an array
local setGroups = ssl.interpose("setGroups", nil)
if setGroups then
	local function varargSetGroups(self, group, ...)
		if (...) then
			local group_t = pack(group, ...)
			group = table.concat(group_t, ":", 1, group_t.n)
		elseif type(group) == "table" then
			group = table.concat(group, ":")
		end
		return setGroups(self, group)
	end
	ssl.interpose("setGroups", varargSetGroups)
	ssl.interpose("setCurvesList", varargSetGroups)
end

return ssl