Changeset 3917

Timestamp:

09/18/08 12:11:50 (2 months ago)

Author:

hans

Message:

Redirect visitors coming to an image from ffffound to the image
HTML page.

Files:

• trunk/projects/quickhoney/src/handlers.lisp (modified) (6 diffs)
• trunk/projects/quickhoney/src/webserver.lisp (modified) (1 diff)

trunk/projects/quickhoney/src/handlers.lisp

@@ -6 +6 @@
-  "List of keywords that are image keywords which can be edited through the CMS")
-
-
+dependent-
-  ()
-  (:documentation "Mixin for handlers whose response only depend on
@@ -17 +17 @@
-  presently."))
-
-
+dependent-
-  (let ((time (last-image-upload-timestamp)))
-    (handle-if-modified-since time)
@@ -24 +24 @@
-  (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))
+  (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)
-  ())
@@ -42 +54 @@
-                      (send-headers)))))
-
-
+dependent-
-  ()
-  (:default-initargs :query-function #'store-image-with-name))
@@ -75 +87 @@
-      (image-to-json image))))
-
-
+dependent-
-  ())
-
@@ -217 +229 @@
-       t t))))
-
-
+dependent-
-  ())
-

trunk/projects/quickhoney/src/webserver.lisp

@@ -39 +39 @@
-                                        ("/json-news" json-news-handler)
-                                        ("/shutdown" shutdown-handler)
+                                        ("/image" quickhoney-image-handler)
-                                        user
-                                        images