same-host? ( url -- ? )
Furnace framework » Form submission referrer checking

Prev:

referrer ( -- referrer/f )

Vocabulary
furnace.utilities

Inputs

url

an url

Outputs

?

a boolean

Word description
Tests if the given URL is located on the same host as the URL of the current request.

Definition

USING: accessors arrays http.server.remapping kernel namespaces
urls ;

IN: furnace.utilities

: same-host? ( url -- ? )
    dup [
        url get [
            [ protocol>> ] [ host>> ] [ port>> remap-port ] tri
            3array
        ] same?
    ] when ;