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