From 36aa75be02ff29571830d9f529cd4515bfeebbab Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 6 Nov 2009 13:52:52 +0100
Subject: Support pingbacks.

Ignore-this: 534fc0ed2f9e22c9b6a92cde14bedf2f

darcs-hash:d70c51f9d5d9002dab339dd6ceb79fef2cd89f27
---
 utils.lisp | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'utils.lisp')

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
-- 
cgit v1.2.3