[bknr-cvs] hans changed trunk/projects/quickhoney/src/handlers.lisp
BKNR Commits
bknr at bknr.net
Thu Sep 18 10:25:17 UTC 2008
Revision: 3919
Author: hans
URL: http://bknr.net/trac/changeset/3919
remove ffffound redirection again, as it does not work because of the caching.
U trunk/projects/quickhoney/src/handlers.lisp
Modified: trunk/projects/quickhoney/src/handlers.lisp
===================================================================
--- trunk/projects/quickhoney/src/handlers.lisp 2008-09-18 10:18:19 UTC (rev 3918)
+++ trunk/projects/quickhoney/src/handlers.lisp 2008-09-18 10:25:17 UTC (rev 3919)
@@ -23,14 +23,6 @@
(header-out :cache-control) "max-age=15"))
(call-next-method))
-;;; 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)
- (quickhoney-image-subcategory image)
- (store-image-name image)))))
-
(defclass random-image-handler (object-handler)
())
More information about the Bknr-cvs
mailing list