Friday, 15 January 2010

cgi - ReCaptcha Incorrect Sol - perl -



cgi - ReCaptcha Incorrect Sol - perl -

i've been working on register form game i'm developing, works fine except captcha. keep's saying incorrect sol though entering reply correctly. tried debugging using data::dumper , seems keeps returning false every time.

http://s15.postimg.org/vy5kt6zaz/x_reuan_w.png

this code

use strict; utilize warnings; utilize cgi; utilize captcha::recaptcha; utilize data::dumper; $captcha = captcha::recaptcha->new(); $html = cgi->new(); $public_key = "6ldbc9csaaaaacygs9fweemi_a4atx20sotk6ya-"; $private_key = "6ldbc9csaaaaahs88ttzyytdrilkbvx3h5x55t8j"; sub checkandregister { $result = $captcha->check_answer($private_key, $env{'remote_addr'}, $html->param("recaptcha_challenge_field"), $html->param("recaptcha_response_field") ); print dumper($result); if ($result->{is_valid}) { #do stuff here } else { die ($result->{error}); } } sub output_form { print $captcha->get_html($public_key); }

help appreciated much!

if run under mod_perl or similar, $html used in checkandregister separate variable $html used everywhere else after first request; pass checkandregister prepare this.

if enable warnings, see "variable ... not remain shared" warning this. can read here.

perl cgi md5 captcha

No comments:

Post a Comment