[Unetwork-cvs] CVS update: unetwork/src/http.lisp

[Matthieu Villeneuve]

Update of /project/unetwork/cvsroot/unetwork/src
In directory common-lisp.net:/tmp/cvs-serv19221/src

Modified Files:
	http.lisp 
Log Message:
Always pass the server name in the HTTP headers
Date: Fri Mar 26 05:51:52 2004
Author: mvilleneuve

Index: unetwork/src/http.lisp
diff -u unetwork/src/http.lisp:1.4 unetwork/src/http.lisp:1.5
--- unetwork/src/http.lisp:1.4	Wed Mar 24 06:32:25 2004
+++ unetwork/src/http.lisp	Fri Mar 26 05:51:52 2004
@@ -42,6 +42,7 @@
             method
             (or (uri-path uri) +http-default-path+)
             (uri-query uri))
+    (format stream "Host: ~A~%" (uri-host uri))
     (loop for header in request-headers
           do (format stream "~A: ~A~%" (car header) (cdr header)))
     (format stream "~%")