undocumented spam prevention measure until i can build the real one
This commit is contained in:
parent
753a5d4200
commit
88499e36a0
1 changed files with 7 additions and 0 deletions
|
|
@ -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")) {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue