From f7960c7f6a9b4facd77fabdff7e97df59e822d34 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Fri, 9 Jul 2010 14:52:42 -0700 Subject: [PATCH] http.server: reintroduce some code cleanups now that it's back in a working state --- basis/http/server/server.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/http/server/server.factor b/basis/http/server/server.factor index 248afdb070..942142883a 100644 --- a/basis/http/server/server.factor +++ b/basis/http/server/server.factor @@ -28,6 +28,7 @@ html.templates html.streams html mime.types +math.order xml.writer ; FROM: mime.multipart => parse-multipart ; IN: http.server @@ -53,8 +54,7 @@ SYMBOL: upload-limit : read-multipart-data ( request -- mime-parts ) [ "content-type" header ] [ "content-length" header string>number ] bi - upload-limit get limited-input ! throw limit - limited-input ! eof limit + upload-limit get min limited-input binary decode-input parse-multipart-form-data parse-multipart ; @@ -277,7 +277,7 @@ TUPLE: http-server < threaded-server ; SYMBOL: request-limit -64 1024 * request-limit set-global +request-limit [ 64 1024 * ] initialize M: http-server handle-client* drop [