Still a bit confused as to why the error file is calling it "%Form" and "%config", and I can't find variables with that exact name in my FormMail.pl file so I don't know where I am supposed to change anything. Let me set the stage of what is supposed to happen.
I have a simple contact us form on my html page. Google gives me this very simple Java script code to place on my html form page to call the captcha image from the Google servers: <script type="text/javascript" src="http://www.google.com/recaptcha/api/challenge?k=my-globalkeygoes-here"></script><noscript>
<iframe src="http://www.google.com/recaptcha/api/noscript?k=my-globalkeygoes-here" height="300" width="500" frameborder="0"></iframe>
<textarea name="recaptcha_challenge_field" rows="3" cols="40"></textarea>
<input type="hidden" name="recaptcha_response_field" value="manual_challenge"></noscript> Next I have below the FULL code that Google says to place into FormMail.pl, but they don't mention anything about setting any other variables to global or anything. This time I listed below for you the full set of code Google tells you put into Formmail.pl below. The 4 lines that my error log are complaining about, I have bolded below: ######################################################
use LWP::UserAgent;
# Check Required Fields
&check_required;
# Check the captcha challenge and response.
&check_captcha;
# Send E-Mail
&send_mail;
# Return HTML Page or Redirect User
&return_html;
##############################################################################
# Check the CAPTCHA response via the reCAPTCHA service.
sub check_captcha {
my $ua = LWP::UserAgent->new();
my $result=$ua->post(
'http://www.google.com/recaptcha/api/verify',
{
privatekey => 'my-privatekeygoes-here',
remoteip => $ENV{'REMOTE_ADDR'},
challenge => $Form{'recaptcha_challenge_field'},
response => $Form{'recaptcha_response_field'} });
if ( $result->is_success && $result->content =~ /^true/) {
return;
} else {
&error('captcha_failed');
}
}
# NOTE rev1.91: This function is no longer intended to stop abuse, that #
# functionality is now embedded in the checks made on @recipients and the #
# recipient form field. #
#THIS IS ERROR FUNCTIONALITY CODE FOR CAPTCHA:
if ($Config{'missing_fields_redirect'}) {
print "Location: " . &clean_html($Config{'missing_fields_redirect'}) . "\n\n";
} }
elsif ($error eq 'captcha_failed') {
print <<"(END ERROR HTML)";
Content-type: text/html
<html>
<head>
<title>Error: Captcha Check Failed</title>
</head>
<body bgcolor=#FFFFFF text=#000000>
<center>
<table border=0 width=600 bgcolor=#9C9C9C>
<tr><th><font size=+2>Error: Captcha Check Failed</font></th></tr%gt;
</table>
<table border=0 width=600 bgcolor=#CFCFCF>
<tr><td>The Captcha response of the form you submitted did not match the challenge.
Please check the form and make sure that your response matches the challenge in the captcha image.
You can use the browser back button to return to the form.
</center>
</td></tr>
</table>
</center>
</body>
</html>
(END ERROR HTML)
} else {
foreach $missing_field (@error_fields) {
$missing_field_list .= "<li>" . &clean_html($missing_field) . "\n";
.
.
.
</html>
(END ERROR HTML)
}
exit;
}
########### END OF CAPTCHA RELATED CODE##########
So that's all the code they supplied. I'm not sure what I am supposed to do. The other thing is, their code calls this Perl module LWP::UserAgent and I don't know for sure where it should be on my server, (CGI-BIN?), just want to make sure it's there and executing properly.
What do I do now? Frustrating!
