steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix referrer bug

db4
Slava Pestov 2008-09-23 03:34:35 -05:00
parent 5037a841d9
commit 216064ab50
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/furnace/referrer/referrer.factor
View File

@ -14,4 +14,4 @@ M: referrer-check call-responder*
[ 2drop 403 "Bad referrer" <trivial-response> ] if ; [ 2drop 403 "Bad referrer" <trivial-response> ] if ;
: <check-form-submissions> ( responder -- responder' ) : <check-form-submissions> ( responder -- responder' )
[ post-request? [ same-host? ] [ drop f ] if ] <referrer-check> ; [ post-request? [ same-host? ] [ drop t ] if ] <referrer-check> ;