certificate-matches-legacy? ( host certificate -- ? )

Vocabulary

io.sockets.secure.openssl.private

Inputs

host	an object
certificate	an object

Outputs

?

an object

Definition

USING: arrays io.sockets io.sockets.private
io.sockets.secure.openssl kernel openssl.libssl sequences ;

IN: io.sockets.secure.openssl.private

:: certificate-matches-legacy? ( host certificate -- ? )
    host ip-host? [
        host dup ":" swap subseq? ipv6 ipv4 ? new inet-pton
        certificate GEN_IPADD alternative-names member?
    ] [
        certificate alternative-dns-names dup empty?
        [ drop certificate subject-name [ 1array ] [ { } ] if* ]
        when [ host swap subject-names-match? ] any?
    ] if ;