NAME

Catalyst::Controller::reCAPTCHA - authenticate people and read books!

WARNING: Deprecated. Please use Catalyst::TraitFor::Controller::reCAPTCHA instead.

SUMMARY

This module has been deprecated and has been replaced with Catalyst::TraitFor::Controller::reCAPTCHA. Please do not use this for new projects. Version 0.8 is very likely the last to be released for this module.

Catalyst::Controller wrapper around Capatcha::reCAPTCHA. Provides a number of Private methods that deal with the recaptcha.

CONFIGURATION

In MyApp.pm (or equivalent in config file):

 __PACKAGE__->config->{recaptcha}->{pub_key} =
                          '6LcsbAAAAAAAAPDSlBaVGXjMo1kJHwUiHzO2TDze';
 __PACKAGE__->config->{recaptcha}->{priv_key} =
                          '6LcsbAAAAAAAANQQGqwsnkrTd7QTGRBKQQZwBH-L';

(the two keys above work for http://localhost unless someone hammers the reCAPTCHA server with failures, in which case the API keys get a temporary ban).

METHOD

captcha_get : Private

Sets $c->stash->{recaptcha} to be the html form for the http://recaptcha.net/ reCAPTCHA service which can be included in your HTML form.

METHOD

captcha_check : Private

Validates the reCaptcha using Captcha::reCAPTCHA. sets $c->stash->{recaptcha_ok} which will be 1 on success. The action also returns true if there is success. This means you can do:

 if ( $c->forward(captcha_check) ) {
   # do something based on the reCAPTCHA passing
 }

or alternatively:

 if ( $c->stash->{recaptcha_ok} ) {
   # do something based on the reCAPTCHA passing
 }

If there's an error, $c->stash->{recaptcha_error} is set with the error string provided by Captcha::reCAPTCHA.

EXAMPLES

See the t/lib/TestApp example in the Catalyst::Controller::reCAPTCHA distribution.

BUGS

This module is deprecated. Please report any bugs you find against Catalyst::TraitFor::Controller::reCAPTCHA.

SEE ALSO

Captcha::reCAPTCHA, Catalyst::Controller, Catalyst.

AUTHOR and Copyright

Kieren Diment zarquon@cpan.org.

LICENCE

This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself.