referrer ( -- referrer/f )
Furnace framework » Form submission referrer checking

Prev:	<check-form-submissions> ( responder -- responder' )
Next:	same-host? ( url -- ? )

Vocabulary
furnace.utilities

Inputs
None

Outputs

referrer/f

a string or f

Word description
Outputs the current request's referrer URL.

Definition

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

IN: furnace.utilities

: referrer ( -- referrer/f )
    request get "referer" header dup
    [ >url ensure-port [ remap-port ] change-port ] when ;