check-subject-name ( host ssl-handle -- )

Vocabulary

io.sockets.secure.openssl

Inputs

host	an object
ssl-handle	an object

Outputs

None

Definition

USING: io.sockets.secure kernel openssl.libssl sequences sets ;

IN: io.sockets.secure.openssl

: check-subject-name ( host ssl-handle -- )
    SSL_get_peer_certificate [
        [ alternative-dns-names ] [ subject-name ] bi suffix
        members 2dup [ subject-names-match? ] with any?
        [ 2drop ] [ subject-name-verify-error ] if
    ] [ certificate-missing-error ] if* ;