Support pingbacks.

Ignore-this: 534fc0ed2f9e22c9b6a92cde14bedf2f

darcs-hash:d70c51f9d5d9002dab339dd6ceb79fef2cd89f27

1 files changed, 15 insertions, 0 deletions

diff --git a/utils.lisp b/utils.lisp
index 762a6dd..5476747 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -367,6 +367,21 @@ ELEMENT-TYPE as the stream's."
                 (spamp comment)
                 (excerpt-of comment))))
 
+(defun mail-pingback (address pingback entry)
+  (declare (type journal-pingback pingback))
+  (mail address
+        (format nil "[Pingback] ~A" (title-of entry))
+        (format nil "~&Pingback von: ~A~
+                     ~&Nummer: ~A~
+                     ~&IP-Adresse: ~A~
+                     ~&Webbrowser: ~A~
+                     ~&Als Spam erkannt: ~A"
+                (url-of pingback)
+                (id-of pingback)
+                (submitter-ip pingback)
+                (submitter-user-agent pingback)
+                (spamp pingback))))
+
 (defun revalidate-cache-or-die (content-type)
   (when (eq *mode* :http)
   #+clisp