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

added vhosting support to httpd

cvs
Slava Pestov 2005-05-23 05:23:33 +00:00
parent 03c4704734
commit c48995da24
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
library/httpd/httpd.factor
View File

@ -26,16 +26,13 @@ stdio streams strings threads http sequences ;
[[ "HEAD" "head" ]] [[ "HEAD" "head" ]]
] assoc [ "bad" ] unless* ; ] assoc [ "bad" ] unless* ;
: (handle-request) ( arg cmd -- method path ) : (handle-request) ( arg cmd -- method path host )
request-method dup "method" set swap request-method dup "method" set swap
prepare-url prepare-header ; prepare-url prepare-header
"Host" "header" get assoc ":" split1 drop ;
: handle-request ( arg cmd -- ) : handle-request ( arg cmd -- )
[ [ (handle-request) serve-responder ] with-scope ;
(handle-request)
"Host" "header" get assoc
serve-responder
] with-scope ;
: parse-request ( request -- ) : parse-request ( request -- )
dup log dup log