[Top][All Lists]

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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]