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