From 55c3f987bd80ca38fa68c9eb08c1448a0329fee7 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 8 Oct 2009 11:24:55 +0200
Subject: Support the posting of trackbacks.

Ignore-this: 5f2d53c3ba9415a9e66240e7b7711c4b

darcs-hash:6c085435bf95459afcb1ce53a55b058ef5b5a3d7
---
 utils.lisp | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'utils.lisp')

diff --git a/utils.lisp b/utils.lisp
index 877343e..4b09584 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -328,6 +328,27 @@ ELEMENT-TYPE as the stream's."
                 (spamp comment)
                 (body-of comment))))
 
+(defun mail-trackback (address comment entry)
+  (mail address
+        (format nil "[Trackback] ~A" (title-of entry))
+        (format nil "~&Trackback von: ~A~
+                     ~&Nummer: ~A~
+                     ~&Titel: ~A~
+                     ~&Web-Adresse: ~A~
+                     ~&IP-Adresse: ~A~
+                     ~&Webbrowser: ~A~
+                     ~&Als Spam erkannt: ~A~
+                     ~&~%~
+                     ~&~A"
+                (blog-name-of comment)
+                (id-of comment)
+                (title-of comment)
+                (url-of comment)
+                (submitter-ip comment)
+                (submitter-user-agent comment)
+                (spamp comment)
+                (excerpt-of comment))))
+
 (defun revalidate-cache-or-die (content-type)
   #+clisp
     (when *if-modified-since*
-- 
cgit v1.2.3