From 048e5f3b22e512ed4b4273306511fea3f1c29161 Mon Sep 17 00:00:00 2001
From: William Ahern <william@server.local>
Date: Tue, 9 Oct 2012 17:57:36 -0700
Subject: -n add setCertificate and setPrivateKey

---
 openssl.c | 38 +++++++++++++++++++++++++++++++++++++-
 1 file changed, 37 insertions(+), 1 deletion(-)

diff --git a/openssl.c b/openssl.c
index fd96d15..fb4f719 100644
--- a/openssl.c
+++ b/openssl.c
@@ -3008,6 +3008,40 @@ static int sx_getVerify(lua_State *L) {
 } /* sx_getVerify() */
 
 
+static int sx_setCertificate(lua_State *L) {
+	SSL_CTX *ctx = checksimple(L, 1, SSL_CTX_CLASS);
+	X509 *crt = X509_dup(checksimple(L, 2, X509_CERT_CLASS));
+	int ok;
+
+	ok = SSL_CTX_use_certificate(ctx, crt);
+	X509_free(crt);
+
+	if (!ok)
+		return throwssl(L, "ssl.context:setCertificate");
+
+	lua_pushboolean(L, 1);
+
+	return 1;
+} /* sx_setCertificate() */
+
+
+static int sx_setPrivateKey(lua_State *L) {
+	SSL_CTX *ctx = checksimple(L, 1, SSL_CTX_CLASS);
+	EVP_PKEY *key = checksimple(L, 2, PUBKEY_CLASS);
+
+	/*
+	 * NOTE: No easy way to dup the key, but a shared reference should
+	 * be okay as keys are less mutable than certificates.
+	 */
+	if (!SSL_CTX_use_PrivateKey(ctx, key))
+		return throwssl(L, "ssl.context:setPrivateKey");
+
+	lua_pushboolean(L, 1);
+
+	return 1;
+} /* sx_setPrivateKey() */
+
+
 static int sx__gc(lua_State *L) {
 	SSL_CTX **ud = luaL_checkudata(L, 1, SSL_CTX_CLASS);
 
@@ -3022,7 +3056,9 @@ static const luaL_Reg sx_methods[] = {
 	{ "setStore",  &sx_setStore },
 	{ "setVerify", &sx_setVerify },
 	{ "getVerify", &sx_getVerify },
-	{ NULL,        NULL },
+	{ "setCertificate", &sx_setCertificate },
+	{ "setPrivateKey", &sx_setPrivateKey },
+	{ NULL, NULL },
 };
 
 static const luaL_Reg sx_metatable[] = {
-- 
cgit v1.2.3-59-g8ed1b