From 88499e36a0fa15ee9dc05a5584d5071138571436 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Tue, 16 Dec 2008 19:41:55 +0000
Subject: [PATCH] undocumented spam prevention measure until i can build the
 real one

---
 lib/WebGUI/Asset/Post.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lib/WebGUI/Asset/Post.pm b/lib/WebGUI/Asset/Post.pm
index 66e13a6c9..69d826bda 100644
--- a/lib/WebGUI/Asset/Post.pm
+++ b/lib/WebGUI/Asset/Post.pm
@@ -955,6 +955,13 @@ sub postProcess {
 	my $self = shift;
 	my %data = ();
 	($data{synopsis}, $data{content}) = $self->getSynopsisAndContent($self->get("synopsis"), $self->get("content"));
+    my $spamStopWords = $self->session->config->get('spamStopWords');
+    if (ref $spamStopWords eq 'ARRAY') {
+        my $spamRegex = join('|',@{$spamStopWords});
+        if ($data{content} =~ m/$spamRegex/xmsi) {
+            $self->trash;
+        }
+    }
 	my $user = WebGUI::User->new($self->session, $self->get("ownerUserId"));
 	my $i18n = WebGUI::International->new($self->session, "Asset_Post");
 	if ($self->getThread->getParent->get("addEditStampToPosts")) {