sub-domain? ( vhost-rewrite url -- subdomain ? )

Vocabulary

http.server.rewrite

Inputs

vhost-rewrite	an object
url	an object

Outputs

subdomain	an object
?	an object

Definition

USING: accessors http.server.dispatchers kernel sequences
splitting ;

IN: http.server.rewrite

: sub-domain? ( vhost-rewrite url -- subdomain ? )
    swap suffix>> dup
    [ [ host>> canonical-host ] [ "." prepend ] bi* ?tail ]
    [ 2drop f f ] if ;