From f340939677a40141ce5348cf4db3000657e07876 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Thu, 11 Apr 2013 08:23:03 -0600
Subject: [PATCH] Changing default max-waiting to 511 re Apache

---
 collects/web-server/configuration/configuration-table.rkt   | 2 +-
 .../web-server/default-web-root/configuration-table.rkt     | 2 +-
 collects/web-server/scribblings/launch.scrbl                | 6 +++---
 collects/web-server/web-server.rkt                          | 6 +++---
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/collects/web-server/configuration/configuration-table.rkt b/collects/web-server/configuration/configuration-table.rkt
index fa01c3c1ba..d74fd87357 100644
--- a/collects/web-server/configuration/configuration-table.rkt
+++ b/collects/web-server/configuration/configuration-table.rkt
@@ -32,7 +32,7 @@
 ; parse-configuration-table : tst -> configuration-table
 (define (sexpr->configuration-table t)
   (define port (get-binding 'port t 80))
-  (define max-waiting (get-binding 'max-waiting t 40))
+  (define max-waiting (get-binding 'max-waiting t 511))
   (define initial-connection-timeout (get-binding 'initial-connection-timeout t 30))
   (define default-host-table (get-binding* 'default-host-table t `()))
   (define virtual-host-table (get-binding* 'virtual-host-table t `()))
diff --git a/collects/web-server/default-web-root/configuration-table.rkt b/collects/web-server/default-web-root/configuration-table.rkt
index ab400bd38b..4d5232caa2 100644
--- a/collects/web-server/default-web-root/configuration-table.rkt
+++ b/collects/web-server/default-web-root/configuration-table.rkt
@@ -1,5 +1,5 @@
 ((port 80)
- (max-waiting 40)
+ (max-waiting 511)
  (initial-connection-timeout 30)
  (default-host-table
    (host-table
diff --git a/collects/web-server/scribblings/launch.scrbl b/collects/web-server/scribblings/launch.scrbl
index cc69879421..08ac103352 100644
--- a/collects/web-server/scribblings/launch.scrbl
+++ b/collects/web-server/scribblings/launch.scrbl
@@ -27,7 +27,7 @@ This module provides functions for launching dispatching servers.
                 [#:tcp@ tcp@ (unit/c (import) (export tcp^)) raw:tcp@]
                 [#:port port tcp-listen-port? 80]
                 [#:listen-ip listen-ip (or/c string? false/c) #f]
-                [#:max-waiting max-waiting integer? 40]
+                [#:max-waiting max-waiting integer? 511]
                 [#:initial-connection-timeout initial-connection-timeout integer? 60])
          (-> void)]{
  Constructs an appropriate @racket[dispatch-server-config^], invokes the
@@ -60,7 +60,7 @@ from a given path:
                       [#:tcp@ tcp@ (unit/c (import) (export tcp^)) raw:tcp@]
                       [#:ports ports (listof tcp-listen-port?) (list 80)]
                       [#:listen-ip listen-ip (or/c string? false/c) #f]
-                      [#:max-waiting max-waiting integer? 40]
+                      [#:max-waiting max-waiting integer? 511]
                       [#:initial-connection-timeout initial-connection-timeout integer? 60])
          (-> void)]{
  Calls @racket[serve] multiple times, once for each @racket[port], and returns
@@ -72,7 +72,7 @@ from a given path:
                           [#:connection-close? connection-close? boolean? #f]
                           [#:tcp@ tcp@ (unit/c (import) (export tcp^)) raw:tcp@]
                           [#:ips+ports ips+ports (listof (cons/c (or/c string? false/c) (listof tcp-listen-port?))) (list (cons #f (list 80)))]
-                          [#:max-waiting max-waiting integer? 40]
+                          [#:max-waiting max-waiting integer? 511]
                           [#:initial-connection-timeout initial-connection-timeout integer? 60])
          (-> void)]{
  Calls @racket[serve/ports] multiple times, once for each @racket[ip], and returns
diff --git a/collects/web-server/web-server.rkt b/collects/web-server/web-server.rkt
index 1ae3a508ba..fa29140f1c 100644
--- a/collects/web-server/web-server.rkt
+++ b/collects/web-server/web-server.rkt
@@ -56,7 +56,7 @@
          #:tcp@ [tcp@ raw:tcp@]
          #:port [port 80]
          #:listen-ip [listen-ip #f]
-         #:max-waiting [max-waiting 40]
+         #:max-waiting [max-waiting 511]
          #:initial-connection-timeout [initial-connection-timeout 60])
   (define read-request 
     (http:make-read-request
@@ -81,7 +81,7 @@
          #:tcp@ [tcp@ raw:tcp@]
          #:ports [ports (list 80)]
          #:listen-ip [listen-ip #f]
-         #:max-waiting [max-waiting 40]
+         #:max-waiting [max-waiting 511]
          #:initial-connection-timeout [initial-connection-timeout 60])
   (define shutdowns
     (map (lambda (port)
@@ -104,7 +104,7 @@
          #:connection-close? [connection-close? #f]
          #:tcp@ [tcp@ raw:tcp@]
          #:ips+ports [ips+ports (list (cons #f (list 80)))]
-         #:max-waiting [max-waiting 40]
+         #:max-waiting [max-waiting 511]
          #:initial-connection-timeout [initial-connection-timeout 60])
   (define shutdowns
     (map (match-lambda