Fix referrer bug
parent
5037a841d9
commit
216064ab50
|
@ -14,4 +14,4 @@ M: referrer-check call-responder*
|
|||
[ 2drop 403 "Bad referrer" <trivial-response> ] if ;
|
||||
|
||||
: <check-form-submissions> ( responder -- responder' )
|
||||
[ post-request? [ same-host? ] [ drop f ] if ] <referrer-check> ;
|
||||
[ post-request? [ same-host? ] [ drop t ] if ] <referrer-check> ;
|
||||
|
|
Loading…
Reference in New Issue