Revision: 4319 Author: hans URL: http://bknr.net/trac/changeset/4319

If redirection target does not begin with a slash, only warn.

U trunk/bknr/web/src/web/handlers.lisp

Modified: trunk/bknr/web/src/web/handlers.lisp =================================================================== --- trunk/bknr/web/src/web/handlers.lisp 2009-02-24 10:27:56 UTC (rev 4318) +++ trunk/bknr/web/src/web/handlers.lisp 2009-02-24 10:29:08 UTC (rev 4319) @@ -377,9 +377,8 @@ ((to :initarg :to :reader redirect-handler-to :documentation "url to redirect to")))

(defmethod initialize-instance :after ((handler redirect-handler) &key to) - (assert (equal #/ (aref to 0)) - () "path ~S provided as target to redirect-handler does not begin with a slash" - to)) + (unless (equal #/ (aref to 0)) + (warn "path ~S provided as target to redirect-handler does not begin with a slash" to)))

(defmethod handle ((page-handler redirect-handler)) (redirect (redirect-handler-to page-handler)))