From 17fc34ad3813632aa995a33354cd1afa77f7c68f Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 8 Oct 2009 12:01:31 +0200
Subject: Don't record trackbacks that do not specify a source URI.

Ignore-this: 32405052f2ec95ca977b98e52503ae4b

darcs-hash:268cfba3e3e476425789ac960ab3e47e5ec050c4
---
 main.lisp | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'main.lisp')

diff --git a/main.lisp b/main.lisp
index 48c575d..4309598 100644
--- a/main.lisp
+++ b/main.lisp
@@ -206,20 +206,20 @@
                          (cond
                            ((getf *query* :url)
                             (push trackback (trackbacks-about entry))
+                            (with-slots (spam-p) trackback
+                               (setq spam-p (detect-spam trackback
+                                                         :referrer (gethash "HTTP_REFERER" *http-env*))))
+                            (update-records-from-instance trackback)
+                            (update-records-from-instance entry)
+                            (unless (spamp trackback)
+                              (update-records 'journal_trackback
+                                              :where [= [slot-value 'journal-trackback 'id] (id-of trackback)]
+                                              :av-pairs `((spam_p nil))))
+                            (when (eq *site* :nfs.net)
+                              (mail-trackback *notification-email* trackback entry))
                             (format t "<?xml version=\"1.0\" encoding=\"utf-8\"?>~&<response>~&<error>0</error>~&</response>"))
                            (t
-                            (format t "<?xml version=\"1.0\" encoding=\"utf-8\"?>~&<response>~&<error>1</error>~&<message>No URI was provided.</message>~&</response>")))
-                         (with-slots (spam-p) trackback
-                           (setq spam-p (detect-spam trackback
-                                                     :referrer (gethash "HTTP_REFERER" *http-env*))))
-                         (update-records-from-instance trackback)
-                         (update-records-from-instance entry)
-                         (unless (spamp trackback)
-                           (update-records 'journal_trackback
-                                           :where [= [slot-value 'journal-trackback 'id] (id-of trackback)]
-                                           :av-pairs `((spam_p nil))))
-                         (when (eq *site* :nfs.net)
-                           (mail-trackback *notification-email* trackback entry)))))
+                            (format t "<?xml version=\"1.0\" encoding=\"utf-8\"?>~&<response>~&<error>1</error>~&<message>No URI was provided.</message>~&</response>"))))))
     (:view-atom-feed (show-atom-feed))
     (:view-comment-feed (show-comment-feed))
     (:view-debugging-page (show-debugging-page))
-- 
cgit v1.2.3