suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changing default max-waiting to 511 re Apache

Browse Source
This commit is contained in:
Jay McCarthy 2013-04-11 08:23:03 -06:00
parent 7dd9cc9568
commit f340939677
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/configuration/configuration-table.rkt
View File

@ -32,7 +32,7 @@
; parse-configuration-table : tst -> configuration-table ; parse-configuration-table : tst -> configuration-table
(define (sexpr->configuration-table t) (define (sexpr->configuration-table t)
(define port (get-binding 'port t 80)) (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 initial-connection-timeout (get-binding 'initial-connection-timeout t 30))
(define default-host-table (get-binding* 'default-host-table t `())) (define default-host-table (get-binding* 'default-host-table t `()))
(define virtual-host-table (get-binding* 'virtual-host-table t `())) (define virtual-host-table (get-binding* 'virtual-host-table t `()))

2
collects/web-server/default-web-root/configuration-table.rkt
View File

@ -1,5 +1,5 @@
((port 80) ((port 80)
(max-waiting 40) (max-waiting 511)
(initial-connection-timeout 30) (initial-connection-timeout 30)
(default-host-table (default-host-table
(host-table (host-table

6
collects/web-server/scribblings/launch.scrbl
View File

@ -27,7 +27,7 @@ This module provides functions for launching dispatching servers.
[#:tcp@ tcp@ (unit/c (import) (export tcp^)) raw:tcp@] [#:tcp@ tcp@ (unit/c (import) (export tcp^)) raw:tcp@]
[#:port port tcp-listen-port? 80] [#:port port tcp-listen-port? 80]
[#:listen-ip listen-ip (or/c string? false/c) #f] [#: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]) [#:initial-connection-timeout initial-connection-timeout integer? 60])
(-> void)]{ (-> void)]{
Constructs an appropriate @racket[dispatch-server-config^], invokes the 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@] [#:tcp@ tcp@ (unit/c (import) (export tcp^)) raw:tcp@]
[#:ports ports (listof tcp-listen-port?) (list 80)] [#:ports ports (listof tcp-listen-port?) (list 80)]
[#:listen-ip listen-ip (or/c string? false/c) #f] [#: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]) [#:initial-connection-timeout initial-connection-timeout integer? 60])
(-> void)]{ (-> void)]{
Calls @racket[serve] multiple times, once for each @racket[port], and returns 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] [#:connection-close? connection-close? boolean? #f]
[#:tcp@ tcp@ (unit/c (import) (export tcp^)) raw:tcp@] [#: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)))] [#: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]) [#:initial-connection-timeout initial-connection-timeout integer? 60])
(-> void)]{ (-> void)]{
Calls @racket[serve/ports] multiple times, once for each @racket[ip], and returns Calls @racket[serve/ports] multiple times, once for each @racket[ip], and returns

6
collects/web-server/web-server.rkt
View File

@ -56,7 +56,7 @@
#:tcp@ [tcp@ raw:tcp@] #:tcp@ [tcp@ raw:tcp@]
#:port [port 80] #:port [port 80]
#:listen-ip [listen-ip #f] #:listen-ip [listen-ip #f]
#:max-waiting [max-waiting 40] #:max-waiting [max-waiting 511]
#:initial-connection-timeout [initial-connection-timeout 60]) #:initial-connection-timeout [initial-connection-timeout 60])
(define read-request (define read-request
(http:make-read-request (http:make-read-request
@ -81,7 +81,7 @@
#:tcp@ [tcp@ raw:tcp@] #:tcp@ [tcp@ raw:tcp@]
#:ports [ports (list 80)] #:ports [ports (list 80)]
#:listen-ip [listen-ip #f] #:listen-ip [listen-ip #f]
#:max-waiting [max-waiting 40] #:max-waiting [max-waiting 511]
#:initial-connection-timeout [initial-connection-timeout 60]) #:initial-connection-timeout [initial-connection-timeout 60])
(define shutdowns (define shutdowns
(map (lambda (port) (map (lambda (port)
@ -104,7 +104,7 @@
#:connection-close? [connection-close? #f] #:connection-close? [connection-close? #f]
#:tcp@ [tcp@ raw:tcp@] #:tcp@ [tcp@ raw:tcp@]
#:ips+ports [ips+ports (list (cons #f (list 80)))] #: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]) #:initial-connection-timeout [initial-connection-timeout 60])
(define shutdowns (define shutdowns
(map (match-lambda (map (match-lambda