diff options
| -rw-r--r-- | xml-rpc-functions.lisp | 6 |
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))) |