diff options
author | Kaarle Ritvanen <kaarle.ritvanen@datakunkku.fi> | 2014-09-05 10:38:43 +0300 |
---|---|---|
committer | Kaarle Ritvanen <kaarle.ritvanen@datakunkku.fi> | 2014-09-05 10:38:43 +0300 |
commit | fd6efb22e98d51b441b9b4d9e440c099ba07ca4a (patch) | |
tree | 63edeb1b201738e481c7b072eb1acf586bfa7980 | |
parent | 0588f3ad4981ea5282d4b423654e87c0170c941e (diff) | |
download | luaossl-fd6efb22e98d51b441b9b4d9e440c099ba07ca4a.tar.gz luaossl-fd6efb22e98d51b441b9b4d9e440c099ba07ca4a.tar.bz2 luaossl-fd6efb22e98d51b441b9b4d9e440c099ba07ca4a.zip |
parse CRLs from PEM and DER formats
-rw-r--r-- | src/openssl.c | 33 |
1 files changed, 30 insertions, 3 deletions
diff --git a/src/openssl.c b/src/openssl.c index 757bbf0..9845bcc 100644 --- a/src/openssl.c +++ b/src/openssl.c @@ -3070,14 +3070,41 @@ int luaopen__openssl_x509_csr(lua_State *L) { * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ static int xx_new(lua_State *L) { + const char *data; + size_t len; X509_CRL **ud; + lua_settop(L, 2); + ud = prepsimple(L, X509_CRL_CLASS); - if (!(*ud = X509_CRL_new())) - return throwssl(L, "x509.crl.new"); + if ((data = luaL_optlstring(L, 1, NULL, &len))) { + int type = optencoding(L, 2, "*", X509_ANY|X509_PEM|X509_DER); + BIO *tmp; + int ok = 0; + + if (!(tmp = BIO_new_mem_buf((char *)data, len))) + return throwssl(L, "x509.crl.new"); + + if (type == X509_PEM || type == X509_ANY) { + ok = !!(*ud = PEM_read_bio_X509_CRL(tmp, NULL, 0, "")); /* no password */ + } + + if (!ok && (type == X509_DER || type == X509_ANY)) { + ok = !!(*ud = d2i_X509_CRL_bio(tmp, NULL)); + } - X509_gmtime_adj(X509_CRL_get_lastUpdate(*ud), 0); + BIO_free(tmp); + + if (!ok) + return throwssl(L, "x509.crl.new"); + } + else { + if (!(*ud = X509_CRL_new())) + return throwssl(L, "x509.crl.new"); + + X509_gmtime_adj(X509_CRL_get_lastUpdate(*ud), 0); + } return 1; } /* xx_new() */ |