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

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

@ -51,14 +51,13 @@ 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
binary decode-input limited-input ! eof limit
parse-multipart-form-data parse-multipart binary decode-input
] input-throws-on-eof ; parse-multipart-form-data parse-multipart ;
: 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 )