subject-names-match? ( name pattern -- ? )

Vocabulary

io.sockets.secure.openssl

Inputs

name	a host name
pattern	a subject name

Outputs

?

a boolean

Word description

True if the host name matches the subject name.

Examples

"www.google.se" "*.google.se" subject-names-match? t

Definition

USING: combinators.short-circuit kernel math sequences splitting
unicode ;

IN: io.sockets.secure.openssl

: subject-names-match? ( name pattern -- ? )
    [ >lower ] bi@ "*." ?head
    [ { [ tail? ] [ [ [ 46 = ] count ] bi@ - 1 <= ] } 2&& ]
    [ = ] if ;