From b5c357c081a4901c892ab0e61e33ab94ade98086 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 7 Oct 2007 18:44:13 +0200
Subject: Make use of Akismet for spam detection.

darcs-hash:8828531ab148ca71cca0a0dbef7733717834cbb4
---
 journal-content.lisp | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

(limited to 'journal-content.lisp')

diff --git a/journal-content.lisp b/journal-content.lisp
index 6529b57..92c5d6c 100644
--- a/journal-content.lisp
+++ b/journal-content.lisp
@@ -79,17 +79,17 @@
        :initarg :id)
    (entry-id :type integer
              :db-constraints :not-null
-             :accessor id-of
+             :accessor entry-id-of
              :initarg :entry-id)
    (entry :db-kind :join
           :db-constraints :not-null
           :accessor entry-of
           :initarg :entries
-          :initform '()
           :db-info (:join-class journal-entry
                     :home-key entry-id
                     :foreign-key id
-                    :set nil))
+                    :set nil
+                    :retrieval :immediate))
    (uuid :type (string 36)
          :db-constraints :not-null
          :accessor uuid-of
@@ -114,7 +114,19 @@
    (website :type string
             :accessor website-of
             :initarg :website
-            :initform nil)))
+            :initform nil)
+   (spam-p :type boolean
+           :accessor spamp
+           :initarg :spamp
+           :initform :spamp)
+   (submitter-ip :type string
+                 :db-constraints :not-null
+                 :accessor submitter-ip
+                 :initarg :submitter-ip)
+   (submitter-user-agent :type string
+                         :db-constraints :not-null
+                         :accessor submitter-user-agent
+                         :initarg :submitter-user-agent)))
 
 
 (clsql:def-view-class journal-category ()
-- 
cgit v1.2.3