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

gurnell

Browse Source 
svn: r5224
This commit is contained in:
Jay McCarthy 2007-01-05 00:44:27 +00:00
parent 0a89612920
commit 6973ffde78
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/web-server/private/request.ss
View File

@ -28,8 +28,8 @@
(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)))]
; Give it one second per byte (with 5 second minimum... a bit arbitrary)
(adjust-connection-timeout! conn (max 5 (string->number (bytes->string/utf-8 v))))]
[#f
(void)]))
(define-values (host-ip client-ip)