undocumented spam prevention measure until i can build the real one

This commit is contained in:
JT Smith 2008-12-16 19:41:55 +00:00
parent 753a5d4200
commit 88499e36a0

View file

@ -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")) {