summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-10 11:05:52 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-10 11:05:52 +0200
commita726a521910724f50a2101e723dd123e1d1a52e5 (patch)
tree61cfdfa04fadbb675cdad160940aeadcffa4207b
parent046683e29fddd14b1c21e9f5c41cbfe270912416 (diff)
Treat POST requests on journal entries as trackback requests.
Ignore-this: 47e2e545540841f28aebdd98fd95e6c3 darcs-hash:5d5f7dbfad550f94a82a028b9537eb24f55815e1
-rw-r--r--main.lisp6
1 files changed, 5 insertions, 1 deletions
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*)