This queue is for tickets about the HTML-FormHandlerX-Field-reCAPTCHA CPAN distribution.

Report information
The Basics
Id:
87500
Status:
new
Priority:
Low/Low

People
Owner:
Nobody in particular
Requestors:
nonsolosoft [...] diff.org
Cc:
AdminCc:

BugTracker
Severity:
(no value)
Broken in:
0.04
Fixed in:
(no value)



Subject: recaptcha cannot be inactive
I've add 3 new test statements.
Subject: recaptcha_field.t
#/usr/bin/env perl use strict; use warnings; use Test::More tests=>8; use utf8; package Test::reCAPTCHA; use HTML::FormHandler::I18N; use HTML::FormHandler::Moose; extends 'HTML::FormHandler'; # se non derivasse da DBIC with 'HTML::FormHandlerX::Widget::Field::reCAPTCHA'; has '+is_html5' => (default=>1); has_field 'email' => (type => 'Email', 'label'=>'email', element_attr => {title=>'your email address', placeholder => 'your email address'}, required=>1); has_field 'recaptcha' => ( type=>'reCAPTCHA', recaptcha_message => "Non hai dimostrato di essere un umano!", required=>1, ); has ['recaptcha_public_key','recaptcha_private_key'] => (is => 'rw', isa=>'Str', required=>1); no HTML::FormHandler::Moose; package ::main; #use_ok('Test::reCAPTCHA'); my $public_key = 'zio pino'; my $private_key = 'zio can'; my $form = Test::reCAPTCHA->new(recaptcha_public_key=>$public_key,recaptcha_private_key=>$private_key); ok($form, 'get form'); $form->process(params => {}); ok($form->field('recaptcha')->render, 'OK recaptcha'); my $expected = q( <div> <label for="recaptcha">Recaptcha</label> <script type="text/javascript"> //<![CDATA[ var RecaptchaOptions = {}; //]]> </script> <script src="http://www.google.com/recaptcha/api/challenge?k=zio+pino" type="text/javascript"></script> <noscript><iframe frameborder="0" height="300" src="http://www.google.com/recaptcha/api/noscript?k=zio+pino" width="500"></iframe><textarea cols="40" name="recaptcha_challenge_field" rows="3"></textarea><input name="recaptcha_response_field" type="hidden" value="manual_challenge" /></noscript> </div>); ok($form->field('recaptcha')->render eq $expected, 'recaptcha render OK') || diag($form->field('recaptcha')->render); like($form->field('recaptcha')->render,qr/k=zio\+pino/, 'recaptcha public_key OK') || diag($form->field('recaptcha')->render); # sometime, for development deployment, can be useful to inactivate reCAPTCHA # but actually it doesn't support to be inactive. my $form1 = Test::reCAPTCHA->new(inactive=>['recaptcha'],recaptcha_public_key=>$public_key,recaptcha_private_key=>$private_key); ok($form1, 'get form without recaptcha'); TODO: { local $TODO = "recaptcha doesn't seem inactivable"; eval { ok($form1->process(params => {}), "process form with recaptcha inactive"); }; eval { ok($form1->render, "OK, render form with recaptcha inactive"); }; } TODO1: { $TODO = "form with recaptcha doesn't render if keys are given at runtime"; ok($form->render, "Fixed form with recaptcha and keys given at runtime"); } exit; 1;
From: nonsolosoft@diff.org
from irc: jnap: ferz: when you get a moment could you annote on github what the use case here is, maybe there's another approach I've attached a new test case from Catalyst. I hope that it can be useful.
Subject: cata_app_recaptcha.tgz

Message body not shown because it is not plain text.



This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.