[bknr-cvs] edi changed trunk/thirdparty/drakma/

[BKNR Commits]

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