From d2c87d71f7ebb0db36a73d966384b2be2bcd6795 Mon Sep 17 00:00:00 2001
From: Kim Alvefur <zash@zash.se>
Date: Sat, 19 Apr 2014 22:58:28 +0200
Subject: [PATCH] Add cert:issued(leafcert) for checking chains

---
 src/x509.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/x509.c b/src/x509.c
index 5e7a1dd..a71608c 100644
--- a/src/x509.c
+++ b/src/x509.c
@@ -393,6 +393,17 @@ static int meth_notafter(lua_State *L)
   return push_asn1_time(L, X509_get_notAfter(cert));
 }
 
+/**
+ * Check if this certificate issued some other certificate
+ */
+static int meth_issued(lua_State *L)
+{
+  X509* issuer = lsec_checkx509(L, 1);
+  X509* subject = lsec_checkx509(L, 2);
+	lua_pushboolean(L, X509_check_issued(issuer, subject) == X509_V_OK);
+	return 1;
+}
+
 /**
  * Collect X509 objects.
  */
@@ -459,6 +470,7 @@ static luaL_Reg methods[] = {
   {"issuer",     meth_issuer},
   {"notbefore",  meth_notbefore},
   {"notafter",   meth_notafter},
+  {"issued",     meth_issued},
   {"pem",        meth_pem},
   {"serial",     meth_serial},
   {"subject",    meth_subject},