diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-11-06 18:46:47 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-11-06 18:46:47 +0100 |
| commit | 19e9c1b783b88a342c06fdf1d0da66d1cc1a3110 (patch) | |
| tree | 713e829242737d4e44750885665c775a11e5a460 | |
| parent | 3f03edf9c877647b2809d5023fcfd4bc1191419f (diff) | |
Fix registration of pingbacks.
Ignore-this: 81f0d03357bdbb9019ee3f4027b38782
darcs-hash:37bcd6bab026af1dd80ee0a04093682401f5ae0d
| -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))) |