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

http.server: reintroduce some code cleanups now that it's back in a working state

db4
Joe Groff 2010-07-09 14:52:42 -07:00
parent 67a241eba3
commit f7960c7f6a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -28,6 +28,7 @@ html.templates
html.streams html.streams
html html
mime.types mime.types
math.order
xml.writer ; xml.writer ;
FROM: mime.multipart => parse-multipart ; FROM: mime.multipart => parse-multipart ;
IN: http.server IN: http.server
@ -53,8 +54,7 @@ SYMBOL: upload-limit
: read-multipart-data ( request -- mime-parts ) : read-multipart-data ( request -- mime-parts )
[ "content-type" header ] [ "content-type" header ]
[ "content-length" header string>number ] bi [ "content-length" header string>number ] bi
upload-limit get limited-input ! throw limit upload-limit get min limited-input
limited-input ! eof limit
binary decode-input binary decode-input
parse-multipart-form-data parse-multipart ; parse-multipart-form-data parse-multipart ;
@ -277,7 +277,7 @@ TUPLE: http-server < threaded-server ;
SYMBOL: request-limit SYMBOL: request-limit
64 1024 * request-limit set-global request-limit [ 64 1024 * ] initialize
M: http-server handle-client* M: http-server handle-client*
drop [ drop [