Re: virtual host support

[Jose Roberto B. de A. Monteiro]

"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...