From 19e9c1b783b88a342c06fdf1d0da66d1cc1a3110 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 6 Nov 2009 18:46:47 +0100 Subject: Fix registration of pingbacks. Ignore-this: 81f0d03357bdbb9019ee3f4027b38782 darcs-hash:37bcd6bab026af1dd80ee0a04093682401f5ae0d --- xml-rpc-functions.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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))) -- cgit v1.2.3