#!/usr/bin/perl -w # Simple CGI Captcha # File Name: captcha_test.cgi #open(STDERR, ">&STDOUT"); use CGI::Carp qw(fatalsToBrowser); use strict; #use warnings; use Captcha::reCAPTCHA; use CGI::Simple; # Your reCAPTCHA keys from # https://www.google.com/recaptcha/admin/create use constant PUBLIC_KEY => '-----8<--------snipped----------8<-----'; use constant PRIVATE_KEY => '-----8<--------snipped----------8<-----'; $| = 1; my $q = CGI::Simple->new; my $c = Captcha::reCAPTCHA->new; my $error = undef; print "Content-type: text/html\n\n"; print <
EOT # Check response if ( $q->param( 'recaptcha_response_field' ) ) { my $result = $c->check_answer( PRIVATE_KEY, $ENV{'REMOTE_ADDR'}, $q->param( 'recaptcha_challenge_field' ), $q->param( 'recaptcha_response_field' ) ); if ( $result->{is_valid} ) { print "Yes!"; } else { $error = $result->{error}; } } # Generate the form print $c->get_html( PUBLIC_KEY, $error ); print < EOT