Update of /project/closure/cvsroot/closure/src/net In directory clnet:/tmp/cvs-serv23002/src/net
Modified Files: http.lisp Log Message: Make Closure capable of connecting to non-port 80 URLs.
--- /project/closure/cvsroot/closure/src/net/http.lisp 2005/07/19 20:42:08 1.8 +++ /project/closure/cvsroot/closure/src/net/http.lisp 2006/11/06 19:41:56 1.9 @@ -348,7 +348,9 @@ (header (append (if (and (or *send-host-field-never-the-less-p* proxyp) (not (member :host header :test #'string-equal :key #'car))) - (list (cons "Host" host)) + (if (and (numberp (url:url-port url)) (not (= (url:url-port url) 80))) + (list (cons "Host" (format nil "~A:~A" host (url:url-port url)))) + (list (cons "Host" host))) nil) (if *referer* (list (cons "Referer" (if (url:url-p *referer*)