[Lispweb] Araneida static-file-handler patch

Brian Campbell lambda at mac.com
Thu May 12 15:11:58 CDT 2005


The static-file-handler in Araneida doesn't unescape URLs, so it  
can't deal with file names with spaces in them. Here's a patch.

Index: static-file-handler.lisp
===================================================================
RCS file: /cvs/araneida/static-file-handler.lisp,v
retrieving revision 1.14
diff -u -r1.14 static-file-handler.lisp
--- static-file-handler.lisp    24 May 2004 20:19:27 -0000      1.14
+++ static-file-handler.lisp    12 May 2005 19:48:41 -0000
@@ -77,7 +77,7 @@
                                       nil "/"))
                            if (string-equal (car p) "..")
                            do (setf p (cdr p))
-                          else collect (car p) into v
+                          else collect (urlstring-unescape (car p))  
into v
                            finally (return (nreverse v)))))
          (name (let ((n  (car (last path))))
                  (if (> (length n) 0) n nil)))




More information about the lispweb mailing list