Allow passing openssl.ssl.context:setCipherList a vararg of ciphers, or an array

1 files changed, 13 insertions, 0 deletions

diff --git a/src/openssl.ssl.context.lua b/src/openssl.ssl.context.lua
index 44a9163..2da84de 100644
--- a/src/openssl.ssl.context.lua
+++ b/src/openssl.ssl.context.lua
@@ -1,3 +1,16 @@
 local ctx = require"_openssl.ssl.context"
 
+local pack = table.pack or function(...) return { n = select("#", ...); ... } end
+
+-- Allow passing a vararg of ciphers, or an array
+local setCipherList; setCipherList = ctx.interpose("setCipherList", function (self, ciphers, ...)
+        if (...) then
+                local ciphers_t = pack(...)
+                ciphers = table.concat(ciphers_t, ":", 1, ciphers_t.n)
+        elseif type(ciphers) == "table" then
+                ciphers = table.concat(ciphers, ":")
+        end
+        return setCipherList(self, ciphers)
+end)
+
 return ctx