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

Do not send Host or Content-Length if user has

Browse Source
This commit is contained in:
Jay McCarthy 2013-08-27 09:07:45 -06:00
parent 41901397a7
commit dc8f52dbb1
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/collects/net/http-client.rkt
View File

@ -76,13 +76,15 @@
#:data [data-bsf #f])
(match-define (http-conn host to from _) hc)
(fprintf to "~a ~a HTTP/~a\r\n" method-bss url-bs version-bs)
(fprintf to "Host: ~a\r\n" host)
(unless (regexp-member #rx"^(?i:Host:) +.+$" headers-bs)
(fprintf to "Host: ~a\r\n" host))
(define data
(if (string? data-bsf)
(string->bytes/utf-8 data-bsf)
data-bsf))
(when data
(fprintf to "Content-Length: ~a\r\n" (bytes-length data)))
(unless (regexp-member #rx"^(?i:Content-Length:) +.+$" headers-bs)
(fprintf to "Content-Length: ~a\r\n" (bytes-length data))))
(for ([h (in-list headers-bs)])
(fprintf to "~a\r\n" h))
(fprintf to "\r\n")