From a2d54ace4d1f59c12f6e423c7f886919aefc8704 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Tue, 28 Jun 2005 17:15:40 +0000
Subject: [PATCH] Handling large files better.

svn: r260
---
 collects/web-server/response.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/web-server/response.ss b/collects/web-server/response.ss
index 39eaffea88..1e07e508ad 100644
--- a/collects/web-server/response.ss
+++ b/collects/web-server/response.ss
@@ -247,6 +247,8 @@
                     (file-or-directory-modify-seconds file-path)
                     mime-type)
     (when (eq? method 'get)
+      ; Give it one second per byte.
+      (adjust-connection-timeout! conn (file-size file-path))
       (call-with-input-file file-path
         (lambda (i-port) (copy-port i-port (connection-o-port conn))))))