From a726a521910724f50a2101e723dd123e1d1a52e5 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 10 Oct 2009 11:05:52 +0200
Subject: Treat POST requests on journal entries as trackback requests.

Ignore-this: 47e2e545540841f28aebdd98fd95e6c3

darcs-hash:5d5f7dbfad550f94a82a028b9537eb24f55815e1
---
 main.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'main.lisp')

diff --git a/main.lisp b/main.lisp
index 7a65953..7d35260 100644
--- a/main.lisp
+++ b/main.lisp
@@ -90,7 +90,11 @@
                                                (:mst-plus #p"/usr/lib/")
                                                (:nfs.net #p"/usr/local/lib/")))))
     (when (null *action*)
-      (setq *action* (if *post-number* :view :index)))
+      (setq *action* (if *post-number*
+                         (if (eq *method* :post)
+                             :post-trackback
+                             :view)
+                         :index)))
     (clsql:push-library-path *script-dir*)
     (clsql:push-library-path #p"/usr/local/lib/")
     (push *script-dir* clsql-sys:*foreign-library-search-paths*)
-- 
cgit v1.2.3