 html.streams
 html
 mime.types
+math.order
 xml.writer ;
 FROM: mime.multipart => parse-multipart ;
 IN: http.server


SYMBOL: request-limit

64 1024 * request-limit set-global

M: http-server handle-client*
    drop [

: read-multipart-data ( request -- mime-parts )
    [ "content-type" header ]
    [ "content-length" header string>number ] bi
    upload-limit get min limited-input
    binary decode-input
    parse-multipart-form-data parse-multipart ;
 
