From ee88a049721d94a46d7a117d0fe9d68839801fbe Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Tue, 28 Nov 2006 21:19:43 +0000
Subject: [PATCH] Gurnell

svn: r4970
---
 collects/web-server/private/request.ss | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/collects/web-server/private/request.ss b/collects/web-server/private/request.ss
index af1a4ff081..423400d85e 100644
--- a/collects/web-server/private/request.ss
+++ b/collects/web-server/private/request.ss
@@ -25,6 +25,13 @@
          (read-request-line ip))
        (define headers 
          (read-headers ip))
+       (define _
+         (match (headers-assq* #"Content-Length" headers)
+              [(struct header (f v))
+               ; Give it one second per byte
+               (adjust-connection-timeout! conn (string->number (bytes->string/utf-8 v)))]
+              [#f
+               (void)]))
        (define-values (host-ip client-ip)
          (port-addresses ip))
        (define-values (bindings raw-post-data)