summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-08 12:01:31 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-08 12:01:31 +0200
commit17fc34ad3813632aa995a33354cd1afa77f7c68f (patch)
tree5c2163be9617b7672c60ebfd9cbb7df29bbcacc9
parent58c5caa008c6a52709cf36f0ecec3b0e55158583 (diff)
Don't record trackbacks that do not specify a source URI.
Ignore-this: 32405052f2ec95ca977b98e52503ae4b darcs-hash:268cfba3e3e476425789ac960ab3e47e5ec050c4
-rw-r--r--main.lisp24
1 files changed, 12 insertions, 12 deletions
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))