[3475818427 ediware**20100222090708 Ignore-this: 34e76a9a43cb1341a9d4729a880567db ] { hunk ./CHANGELOG.txt 1 +Version 0.2.0 +2010-02-21 +Changes to make CL-WEBDAV compatible with new Hunchentoot (Cyrus Harmon, Matthew Curry, and Ralf Mattes) + hunk ./authorized-file-resources.lisp 4 -;;; Copyright (c) 2007, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. hunk ./cl-webdav.asd 4 -;;; Copyright (c) 2007, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. hunk ./cl-webdav.asd 32 - :version "0.1.2" + :version "0.2.0" hunk ./doc/index.html 77 -from http://weitz.de/files/cl-webdav.tar.gz. The -current version is 0.1.2. It depends +from http://weitz.de/files/cl-webdav.tar.gz. The +current version is 0.2.0. It depends hunk ./doc/index.html 81 -and Hunchentoot, and can be -compiled and loaded with ASDF. +and Hunchentoot (version +1.1.0 or higher), and can be compiled and loaded +with ASDF. hunk ./doc/index.html 100 +CL-USER 2 > (hunchentoot:start (make-instance 'hunchentoot:acceptor :port 4242)) hunk ./doc/index.html 728 -Hunchentoot request and throws to -the HANDLER-DONE -tag with a return code of +Hunchentoot request and +calls ABORT-REQUEST-HANDLER +with a return code of hunk ./doc/index.html 1198 -$Header: /usr/local/cvsrep/cl-webdav/doc/index.html,v 1.18 2007/10/21 21:20:59 edi Exp $ +$Header: /usr/local/cvsrep/cl-webdav/doc/index.html,v 1.20 2009/02/17 20:17:30 edi Exp $ hunk ./file-resources.lisp 4 -;;; Copyright (c) 2007, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. hunk ./handlers.lisp 4 -;;; Copyright (c) 2007, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. hunk ./handlers.lisp 81 - (setf (content-type) nil - (header-out :allow) (format nil "~{~A~^, ~}" *allowed-methods*) + (setf (header-out :allow) (format nil "~{~A~^, ~}" *allowed-methods*) hunk ./handlers.lisp 93 - (let* ((depth-header (header-in :depth)) + (let* ((depth-header (header-in* :depth)) hunk ./handlers.lisp 105 - (setf (content-type) "text/xml; charset=utf-8" - (return-code) +http-multi-status+) + (setf (content-type*) "text/xml; charset=utf-8" + (return-code*) +http-multi-status+) hunk ./handlers.lisp 148 - (setf (content-type) "text/xml; charset=utf-8" - (return-code) +http-multi-status+) + (setf (content-type*) "text/xml; charset=utf-8" + (return-code*) +http-multi-status+) hunk ./handlers.lisp 172 - (setf (content-type) (resource-content-type resource)) + (setf (content-type*) (resource-content-type resource)) hunk ./handlers.lisp 177 - (catch 'handler-done - (handle-if-modified-since write-date) - (when (equal etag (header-in :if-none-match)) - (setf (return-code) +http-not-modified+))) - (when (eql (return-code) +http-not-modified+) - (throw 'handler-done nil)) + (handle-if-modified-since write-date) + (when (equal etag (header-in* :if-none-match)) + (setf (return-code*) +http-not-modified+) + (abort-request-handler)) hunk ./handlers.lisp 182 - (content-length) (resource-length resource)) + (content-length*) (resource-length resource)) hunk ./handlers.lisp 199 - (setf (return-code) default-return-code) - (throw 'handler-done nil)) - (setf (content-type) "text/xml; charset=utf-8" - (return-code) +http-multi-status+) + (setf (return-code*) default-return-code) + (abort-request-handler)) + (setf (content-type*) "text/xml; charset=utf-8" + (return-code*) +http-multi-status+) hunk ./handlers.lisp 219 - (let ((depth-header (header-in :depth))) + (let ((depth-header (header-in* :depth))) hunk ./handlers.lisp 243 - (let* ((content-length-header (cdr (assoc :content-length (headers-in)))) + (let* ((content-length-header (cdr (assoc :content-length (headers-in*)))) hunk ./handlers.lisp 255 - (let* ((depth-header (header-in :depth)) + (let* ((depth-header (header-in* :depth)) hunk ./handlers.lisp 262 - (overwrite (equal (header-in :overwrite) "T")) + (overwrite (equal (header-in* :overwrite) "T")) hunk ./handlers.lisp 269 - (let ((destination-header (header-in :destination))) + (let ((destination-header (header-in* :destination))) hunk ./handlers.lisp 298 - (destination-exists (setf (return-code) +http-no-content+ - (content-type) nil) + (destination-exists (setf (return-code*) +http-no-content+ + (content-type*) nil) hunk ./handlers.lisp 325 - (setf (return-code) +http-internal-server-error+)) + (setf (return-code*) +http-internal-server-error+)) hunk ./packages.lisp 4 -;;; Copyright (c) 2007, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. hunk ./properties.lisp 2 -;;; $Header: /usr/local/cvsrep/cl-webdav/properties.lisp,v 1.8 2007/04/17 07:42:08 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-webdav/properties.lisp,v 1.9 2008/06/25 08:04:25 edi Exp $ hunk ./properties.lisp 4 -;;; Copyright (c) 2007, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. hunk ./properties.lisp 83 - (log-message* "While trying to get property ~S for resource ~S: ~A" - (local-name property-designator) - (resource-script-name resource) - condition) + (log-message :warning + "While trying to get property ~S for resource ~S: ~A" + (local-name property-designator) + (resource-script-name resource) + condition) hunk ./resources.lisp 4 -;;; Copyright (c) 2007, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. hunk ./resources.lisp 207 - (ssl-p) - (ppcre:regex-replace ":\\d+$" (host) "") - (server-port)))) + (acceptor-ssl-p *acceptor*) + (ppcre:regex-replace ":\\d+$" (acceptor-address *acceptor*) "") + (acceptor-port *acceptor*)))) hunk ./resources.lisp 393 -(defun get-resource (&optional (script-name (url-decode* (script-name)))) +(defun get-resource (&optional (script-name (url-decode* (script-name*)))) hunk ./resources.lisp 402 - (setf (content-type) (get-content-type resource) + (setf (content-type*) (get-content-type resource) hunk ./resources.lisp 404 - (return-code) +http-created+) + (return-code*) +http-created+) hunk ./specials.lisp 2 -;;; $Header: /usr/local/cvsrep/cl-webdav/specials.lisp,v 1.9 2007/04/18 19:21:01 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-webdav/specials.lisp,v 1.10 2008/06/25 08:02:17 edi Exp $ hunk ./specials.lisp 4 -;;; Copyright (c) 2007, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. hunk ./specials.lisp 39 +(defun constantly-nil (&rest args) + "Does the same as the result of \(CONSTANTLY NIL)." + (declare (ignore args)) + nil) + hunk ./specials.lisp 45 - `(("creationdate" . creation-date) + '(("creationdate" . creation-date) hunk ./specials.lisp 54 - ("lockdiscovery" . ,(constantly nil)) - ("supportedlock" . ,(constantly nil))) + ("lockdiscovery" . constantly-nil) + ("supportedlock" . constantly-nil)) hunk ./util.lisp 4 -;;; Copyright (c) 2007, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. hunk ./util.lisp 33 - "Defines a function called NAME which just sets the HTTP return -code to RETURN-CODE and then ends the current handler by throwing -NIL to the catch tag HANDLER-DONE." + "Defines a function called NAME which just sets the HTTP return code +to RETURN-CODE and then ends the current handler by calling +ABORT-REQUEST-HANDLER." hunk ./util.lisp 37 - ,(format nil "Sets RETURN-CODE to ~A and then throws NIL to -the HANDLER-DONE catch tag." return-code) - (setf (return-code) ,return-code) - (throw 'handler-done nil))) + ,(format nil "Sets RETURN-CODE to ~A and then calls ABORT-REQUEST-HANDLER." + return-code) + (setf (return-code*) ,return-code) + (abort-request-handler))) hunk ./util.lisp 93 - (flex:flexi-stream-encoding-error () + (flex:external-format-encoding-error () hunk ./xml.lisp 4 -;;; Copyright (c) 2007, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. }