summaryrefslogtreecommitdiff
path: root/journal.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'journal.lisp')
-rwxr-xr-xjournal.lisp5
1 files changed, 4 insertions, 1 deletions
diff --git a/journal.lisp b/journal.lisp
index 672d5d8..a278177 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -178,7 +178,7 @@
(<:div :class :journal-comment-header
(<:as-html (format nil "(~A) "
(format-date nil "%day.%mon.%yr, %hr:%min" date)))
- (<:a :href website
+ (<:a :href website :rel "nofollow"
(<:as-html (format nil "~A" author)))
(<:as-html " meint: "))
(<:div :class :journal-comment-body
@@ -190,6 +190,9 @@
(<:p (<:as-is "Bitte beachten Sie, da&szlig; E-Mail-Adressen niemals
ver&ouml;ffentlicht werden und nur von Matthias eingesehen
werden k&ouml;nnen."))
+ (<:p (<:strong "Hinweis an Spammer: ")
+ (<:as-is "Hyperlinks werden so erzeugt, da&szlig; sie von Suchmaschinen
+ nicht beachtet werden. Sparen Sie sich also die M&uuml;he."))
(<:form :action (link-to :view :post-id (id-of journal-entry))
:method "post"
:accept-charset "UTF-8"