[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: virtual host support
From: |
Jose Roberto B. de A. Monteiro |
Subject: |
Re: virtual host support |
Date: |
Sun, 09 Mar 2003 12:04:10 -0300 |
"Kevin Ryde" wrote:
> "Jose Roberto B. de A. Monteiro" <address@hidden> writes:
> >
> > - (request (format #f "~A ~A ~A" method path http:version))
> > + (request (format #f "~A ~A ~A\r\nHost: ~A" method path http:version
> >(url:host url)))
>
> Perhaps the url:port should be included there too, at least if it's
> not 80.
url:port is used in tcp-port variable, which is an arg to http:open:
(define-public (http:request method url . args)
(let ...
(tcp-port (or (url:port url) 80))
...
(let ((sock (http:open host tcp-port))
...
The port was sent to make the connection, then it makes the request "GET ...".
Thanks...
- Re: virtual host support,
Jose Roberto B. de A. Monteiro <=