diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/openssl.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/openssl.c b/src/openssl.c index ef0c6a6..112a4c8 100644 --- a/src/openssl.c +++ b/src/openssl.c @@ -8098,6 +8098,15 @@ static int ssl_getParam(lua_State *L) { } /* ssl_getParam() */ +static int ssl_getVerifyResult(lua_State *L) { + SSL *ssl = checksimple(L, 1, SSL_CLASS); + long res = SSL_get_verify_result(ssl); + lua_pushinteger(L, res); + lua_pushstring(L, X509_verify_cert_error_string(res)); + return 2; +} /* ssl_getVerifyResult() */ + + static int ssl_getPeerCertificate(lua_State *L) { SSL *ssl = checksimple(L, 1, SSL_CLASS); X509 **x509 = prepsimple(L, X509_CERT_CLASS); @@ -8287,6 +8296,7 @@ static const auxL_Reg ssl_methods[] = { { "clearOptions", &ssl_clearOptions }, { "setParam", &ssl_setParam }, { "getParam", &ssl_getParam }, + { "getVerifyResult", &ssl_getVerifyResult }, { "getPeerCertificate", &ssl_getPeerCertificate }, { "getPeerChain", &ssl_getPeerChain }, { "getCipherInfo", &ssl_getCipherInfo }, |