[bknr-cvs] hans changed trunk/projects/quickhoney/src/handlers.lisp

[BKNR Commits]

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)