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

Simplify

U trunk/projects/quickhoney/src/handlers.lisp

Modified: trunk/projects/quickhoney/src/handlers.lisp =================================================================== --- trunk/projects/quickhoney/src/handlers.lisp 2008-09-18 10:11:50 UTC (rev 3917) +++ trunk/projects/quickhoney/src/handlers.lisp 2008-09-18 10:18:19 UTC (rev 3918) @@ -23,12 +23,8 @@ (header-out :cache-control) "max-age=15")) (call-next-method))

-(defclass quickhoney-image-handler (image-handler) - () - (:documentation "Application dependent image handler with specific - referer based actions.")) - -(defmethod handle-object :before ((handler quickhoney-image-handler) (image quickhoney-image)) +;;; redirect users coming from ffffound to the image page. +(defmethod handle-object :before ((handler imageproc-handler) (image quickhoney-image)) (when (cl-ppcre:scan "^http://ffffound.com/image/" (hunchentoot:header-in* :referer)) (redirect (format nil "/~(~A/~A~)/~A" (quickhoney-image-category image)