referrer-check

Vocabulary

furnace.referrer

Definition

USING: http.server.filters ;

IN: furnace.referrer

TUPLE: referrer-check < filter-responder quot ;

Methods

USING: accessors combinators furnace.referrer furnace.utilities
generic http.server http.server.responses kernel ;

M: referrer-check call-responder*
    referrer over quot>> ( referrer -- ? ) call-effect
    [ M\ referrer-check call-responder* (call-next-method) ]
    [ 2drop 403 "Bad referrer" <trivial-response> ] if ;