19 May
2007
19 May
'07
3:29 p.m.
Hello,
during some moderate WebDAV conformance tests is stumbled over the following bug/typo:
--- handlers.lisp 2007-04-18 02:29:07.000000000 +0200 +++ /LISP/ediware/cl-webdav/handlers.lisp 2007-05-19 17:05:45.000000000 +0200 @@ -314,7 +314,7 @@ (let ((resource (get-resource))) (when (resource-exists resource) (setf (header-out :allow) - (format nil "~{~A~^~, ~}" + (format nil "~{~A~^, ~}" (set-difference *allowed-methods* '(:get :head :mkcol)))) (method-not-allowed)) (let ((parent (resource-parent resource)))
MKCOL on an existing resource created an 500 status instead of the expected 405.
Cheers, RalfD