Handling large files better.

svn: r260
2005-06-28 17:15:40 +00:00 · 2005-06-28 17:15:40 +00:00 · a2d54ace4d
commit a2d54ace4d
parent 0d4bc2cd9d
1 changed files with 2 additions and 0 deletions
--- 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))))))