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

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 "~%")