Milti has asked for the wisdom of the Perl Monks concerning the following question:
I have a Perl program on my server to prevent certain words being used when my contact form is submitted. For the most part it is working but a single "spammer" has somehow found a way around it. Here is the code.
$String=param('Message'); if ($String =~ /porn/) { print "<p><font size=+4\">Goodbye</font></p>"; exit;} if ($String =~ /sex/) { print "<p><font size=+4\">Goodbye</font></p>"; exit;} if ($String =~ /girls/ ) { print "<p><font size=+4\">Goodbye</font></p>"; exit;}
The rest of the program checks for "Not a Robot", Enter Anti Spam number, etc and then forwards the message to my email service. When I get an inappropriate message I can copy it and paste in my contact form and the message will not be sent, i.e. I get a "Goodbye" return. How can this be? How is the spammer getting by my safeguards?
Any and all help will be appreciated. Tks!
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Blocking Inappropriate Content on Contact Form
by afoken (Chancellor) on Jul 19, 2022 at 16:03 UTC | |
by AnomalousMonk (Archbishop) on Jul 19, 2022 at 18:14 UTC | |
by bliako (Monsignor) on Jul 19, 2022 at 19:58 UTC | |
Re: Blocking Inappropriate Content on Contact Form
by haukex (Archbishop) on Jul 19, 2022 at 15:10 UTC | |
Re: Blocking Inappropriate Content on Contact Form
by bliako (Monsignor) on Jul 19, 2022 at 19:49 UTC |
Back to
Seekers of Perl Wisdom