Skip to content
Snippets Groups Projects
Commit e699f32f authored by evrim's avatar evrim
Browse files

patch for non-ascii chars in filename. now rfc2388 do not die yet, replaces...

patch for non-ascii chars in filename. now rfc2388 do not die yet, replaces unknown chars with #\X until rfc2231 is implemented.

darcs-hash:67579f69c031b869491b5448efc3639cf766ab88
parent ce1c08cd
No related branches found
No related tags found
No related merge requests found
......@@ -480,9 +480,13 @@ Either space or tab, in short."
(defun as-ascii-char (byte)
"Assuming BYTE is an ASCII coded character retun the corresponding character."
(case byte
(32 #\Space)
(9 #\Tab)
(cond
((eq 32 byte) #\Space)
((eq 9 byte) #\Tab)
((or (> byte 127)
(< byte 33))
(debug-message "Non-ascii chars found in request, filename may be incorrect.~%")
#\X)
(t (aref (load-time-value
"!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~")
(- byte 33)))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment