Support pingbacks.

Ignore-this: 534fc0ed2f9e22c9b6a92cde14bedf2f

darcs-hash:d70c51f9d5d9002dab339dd6ceb79fef2cd89f27

1 files changed, 2 insertions, 2 deletions

diff --git a/main.lisp b/main.lisp
index 239202b..1a8ce85 100644
--- a/main.lisp
+++ b/main.lisp
@@ -153,8 +153,8 @@
     (:moderate (let* ((id (getf *query* :id nil))
                       (type (getf *query* :type nil))
                       (acceptp (getf *query* :acceptp nil))
-                      (table (if (string= type "trackback")
-                                 'journal_trackback
+                      (table (cond ((string= type "trackback") 'journal_trackback)
+                                   ((string= type "pingback") 'journal_pingback)
                                  'journal_comment)))
                  (with-transaction ()
                    (when (and id type acceptp (string= acceptp "t"))