No Captcha ReCaptcha with Perl Formmail Script

[pjo...@gmail.com]

Hi everyone, I'm trying to get the new No Captcha ReCaptcha to work with my Formmail Perl CGI script.  The widget renders but I'm having trouble verifying the user's response.  If anyone can point me to a thorough tutorial that would be great.

[David Boothe]

I am workign with the same exact issue.  I cannot for the life of me get the new noCaptcha to validtae in the Perl script. The old reCaptcha works fine but I really want to move to the new one if at all possible.

[David Boothe]

I have this working now.  The function tests for a valid captcha and returns one of three conditions.

1 - successful connect to google - captcha data invalid
2 - successful connect to google - captcha data valid
3 - connect to goggle failed

sub check_captcha {
use LWP::UserAgent;
 $capurl = 'https://www.google.com/recaptcha/api/siteverify';
 $capres = $Form{'g-recaptcha-response'};
 $capsec = PUT_YOUR_SECRET_KEY_HERE';
 my $ua = LWP::UserAgent->new();
 my $response = $ua->post($capurl, ['response' => $capres, 'secret' => $capsec]);
 if ($response->is_success) {
  $capcnt = $response->decoded_content;
  $capnum = index($capcnt, 'true');
  if ($capnum == -1) {
   CONDITION_1_CODE_GOES_HERE
  } else {
   CONDITION_2_CODE_GOES_HERE
   return;
  }
 } else {
  CONDITION_2_CODE_GOES_HERE
  return;
 }
}

[David Boothe]

THE LAST CONDITION SHOULD BE 3 NOT 2