Revision: 4527 Author: edi URL: http://bknr.net/trac/changeset/4527
Safer method to render URIs
U trunk/thirdparty/drakma/CHANGELOG.txt U trunk/thirdparty/drakma/request.lisp
Modified: trunk/thirdparty/drakma/CHANGELOG.txt =================================================================== --- trunk/thirdparty/drakma/CHANGELOG.txt 2010-04-15 12:07:29 UTC (rev 4526) +++ trunk/thirdparty/drakma/CHANGELOG.txt 2010-05-07 10:06:31 UTC (rev 4527) @@ -1,3 +1,4 @@ +Safer method to render URIs Allow for GET/POST parameters without a value (seen on Lotus webservers)
Version 1.1.0
Modified: trunk/thirdparty/drakma/request.lisp =================================================================== --- trunk/thirdparty/drakma/request.lisp 2010-04-15 12:07:29 UTC (rev 4526) +++ trunk/thirdparty/drakma/request.lisp 2010-05-07 10:06:31 UTC (rev 4527) @@ -514,10 +514,14 @@ (uri-query uri) nil)) (write-http-line "~A ~A ~A" (string-upcase method) - (cond (proxy (render-uri uri nil)) - (t (format nil "~A~@[?~A~]" - (or (uri-path uri) "/") - (uri-query uri)))) + (render-uri (cond (proxy uri) + (t (copy-uri uri + :scheme nil + :host nil + :port nil + :parsed-path nil + :plist nil))) + nil) (string-upcase protocol)) (write-header "Host" "~A~@[:~A~]" (uri-host uri) (non-default-port uri)) (when user-agent