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

Messing with port remapping

db4
Slava Pestov 2008-09-22 16:54:34 -05:00
parent 6d60b5a74f
commit 7a83d2798c
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/http/server/server.factor
View File

@ -189,7 +189,7 @@ LOG: httpd-header NOTICE
"/" split harvest ; "/" split harvest ;
: init-request ( request -- ) : init-request ( request -- )
[ request set ] [ url>> [ remap-port ] change-port url set ] bi [ request set ] [ url>> url set ] bi
V{ } clone responder-nesting set ; V{ } clone responder-nesting set ;
: dispatch-request ( request -- response ) : dispatch-request ( request -- response )
@ -199,19 +199,20 @@ LOG: httpd-header NOTICE
[ [
local-address get local-address get
[ secure? "https" "http" ? >>protocol ] [ secure? "https" "http" ? >>protocol ]
[ port>> '[ _ or ] change-port ] [ port>> remap-port '[ _ or ] change-port ]
bi bi
] change-url drop ; ] change-url drop ;
: valid-request? ( request -- ? ) : valid-request? ( request -- ? )
url>> port>> local-address get port>> = ; url>> port>> remap-port
local-address get port>> remap-port = ;
: do-request ( request -- response ) : do-request ( request -- response )
'[ '[
_ _
{ {
[ init-request ]
[ prepare-request ] [ prepare-request ]
[ init-request ]
[ log-request ] [ log-request ]
[ dup valid-request? [ dispatch-request ] [ drop <400> ] if ] [ dup valid-request? [ dispatch-request ] [ drop <400> ] if ]
} cleave } cleave