Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: Battling form spam

by Corion (Pope)
on Nov 17, 2010 at 08:26 UTC ( #871951=note: print w/ replies, xml ) Need Help??


in reply to Battling form spam

In what way does it fail to work?

Please reduce one of your scripts to a small, self-contained script that exhibits the problem.

How do you fill %Form?

I would double check that the name of the hidden field ("hiddenfield") is actually the same between the HTML page submitting to the script and the script.

Assuming a standard CGI setup, the following could work, if your scripts use CGI.pm (and if they don't, you should start rewriting them to use CGI).

#!perl -w use strict; use CGI; my $q = CGI->new(); print $q->header(); if ($q->param('hiddenfield') eq '') { print "<h1>Hidden field was not set</h1>"; } else { print "<h1>Hidden field was sent</h1>"; };


Comment on Re: Battling form spam
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://871951]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (8)
As of 2015-07-29 05:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (260 votes), past polls