summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-11-06 18:46:47 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-11-06 18:46:47 +0100
commit19e9c1b783b88a342c06fdf1d0da66d1cc1a3110 (patch)
tree713e829242737d4e44750885665c775a11e5a460
parent3f03edf9c877647b2809d5023fcfd4bc1191419f (diff)
Fix registration of pingbacks.
Ignore-this: 81f0d03357bdbb9019ee3f4027b38782 darcs-hash:37bcd6bab026af1dd80ee0a04093682401f5ae0d
-rw-r--r--xml-rpc-functions.lisp6
1 files changed, 5 insertions, 1 deletions
diff --git a/xml-rpc-functions.lisp b/xml-rpc-functions.lisp
index b11a297..47e9fee 100644
--- a/xml-rpc-functions.lisp
+++ b/xml-rpc-functions.lisp
@@ -130,8 +130,12 @@
:date (get-universal-time)
:url source-uri
:submitter-ip (http-getenv "REMOTE_ADDR")
- :submitter-user-agent (http-getenv "HTTP_USER_AGENT"))))
+ :submitter-user-agent (http-getenv "HTTP_USER_AGENT")
+ :spamp nil)))
(update-records-from-instance pingback)
+ (update-records 'journal_pingback
+ :where [= [slot-value 'journal-pingback 'id] (id-of pingback)]
+ :av-pairs `((spam_p nil)))
(when (eq *site* :nfs.net)
(mail-pingback *notification-email* pingback entry))))))
#.(restore-sql-reader-syntax-state)))