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

Gurnell

Browse Source 
svn: r4970
This commit is contained in:
Jay McCarthy 2006-11-28 21:19:43 +00:00
parent f2bd91c8ec
commit ee88a04972
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -25,6 +25,13 @@
(read-request-line ip)) (read-request-line ip))
(define headers (define headers
(read-headers ip)) (read-headers ip))
(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)))]
[#f
(void)]))
(define-values (host-ip client-ip) (define-values (host-ip client-ip)
(port-addresses ip)) (port-addresses ip))
(define-values (bindings raw-post-data) (define-values (bindings raw-post-data)