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

fix a couple of bugs in http.server

db4
Doug Coleman 2008-02-25 14:55:40 -06:00
parent 6d7eda60a1
commit d8e19ccb95
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/http/server/responders/responders.factor
View File

@ -77,7 +77,7 @@ SYMBOL: max-post-request
1024 256 * max-post-request set-global 1024 256 * max-post-request set-global
: content-length ( header -- n ) : content-length ( header -- n )
"Content-Length" swap at string>number dup [ "content-length" peek at string>number dup [
dup max-post-request get > [ dup max-post-request get > [
"Content-Length > max-post-request" throw "Content-Length > max-post-request" throw
] when ] when
@ -136,7 +136,7 @@ LOG: log-headers DEBUG
: host ( -- string ) : host ( -- string )
#! The host the current responder was called from. #! The host the current responder was called from.
"Host" header-param ":" split1 drop ; "host" header-param ":" split1 drop ;
: add-responder ( responder -- ) : add-responder ( responder -- )
#! Add a responder object to the list. #! Add a responder object to the list.