[closure-cvs] CVS closure/src/net

thenriksen thenriksen at common-lisp.net
Mon Nov 6 19:41:56 UTC 2006


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*)




More information about the Closure-cvs mailing list