Support the posting of trackbacks.

Ignore-this: 5f2d53c3ba9415a9e66240e7b7711c4b

darcs-hash:6c085435bf95459afcb1ce53a55b058ef5b5a3d7

1 files changed, 21 insertions, 0 deletions

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*