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

http.server: revert d00ea changes so that server works again

db4
Joe Groff 2010-07-09 14:47:34 -07:00
parent 7f0ba86421
commit 67a241eba3
1 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -51,13 +51,12 @@ ERROR: no-boundary ;
SYMBOL: upload-limit
: read-multipart-data ( request -- mime-parts )
upload-limit get limited-input
[ "content-type" header ]
[ "content-length" header string>number limited-input ] bi
[
[ "content-length" header string>number ] bi
upload-limit get limited-input ! throw limit
limited-input ! eof limit
binary decode-input
parse-multipart-form-data parse-multipart
] input-throws-on-eof ;
parse-multipart-form-data parse-multipart ;
: read-content ( request -- bytes )
"content-length" header string>number read ;
@ -278,17 +277,15 @@ TUPLE: http-server < threaded-server ;
SYMBOL: request-limit
request-limit [ 64 1024 * ] initialize
64 1024 * request-limit set-global
M: http-server handle-client*
drop [
request-limit get limited-input
[
?refresh-all
[ read-request ] ?benchmark
[ do-request ] ?benchmark
[ do-response ] ?benchmark
] input-throws-on-eof
] with-destructors ;
: <http-server> ( -- server )