check-verify-result ( ssl-handle -- )

Vocabulary

io.sockets.secure.openssl

Inputs

ssl-handle

an object

Outputs

None

Definition

USING: alien.enums io.sockets.secure kernel openssl.libssl ;

IN: io.sockets.secure.openssl

: check-verify-result ( ssl-handle -- )
    SSL_get_verify_result X509_V_ERROR number>enum dup
    X509_V_ERR_OK = [ drop ] [ certificate-verify-error ] if ;