NAME

Catalyst::TraitFor::Controller::CAPTCHA - authenticate human by create and validate captcha

VERSION

version 1.2

SYNOPSIS

In your controller

    package MyApp::Controller::MyController;
    use Moose;
    use namespace::autoclean;

    BEGIN { extends 'Catalyst::Controller' }
    with 'Catalyst::TraitFor::Controller::CAPTCHA';

    sub captcha_image  : Local :Args(0) {
        my ( $self, $c ) = @_;
        $c->forward('generate_captcha');
    }

    #Now <img src="/captcha_image" /> will have captcha and 
    #<input name="captcha_text" type="text"> will prompt user to enter captcha text 
    #and this should be embed into your form that needs to be validated.

    sub form_post : Local {
        my ($self,$c) = @_;
    
        my $posted_string = $c->req->body_params('captcha_text');    

        if ( $c->forward('validate_captcha',[$posted_string]) ) {
            #Allowed 
        }else {
            #Not Allowed 
        }
    }

    1;

SUMMARY

This Catalyst::Controller role provides Private methods that deal with the generation and validation of captcha.

CONFIGURATION

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

 __PACKAGE__->config->{captcha} = {
    session_name => 'captcha_string',
    #Refer GD::SecurityImage for additonal configuration  
    gd_config => {
        width => 100,
        height => 50,
        lines => 5,
        gd_font => 'giant',
    },
    create => [qw/normal rect/],
    particle => [10],
    out => {force => 'jpeg'}
};

DESCRIPTION

This controller's private methods will create and validate captcha.This module is based/altered from Catalyst::Plugin::Captcha because that shouldn't be a Catalyst::Plugin.Now it is a base controller like Catalyst::TraitFor::Controller::reCAPTCHA.It uses GD::SecurityImage and requires a session plugins like Catalyst::Plugin::Session.

METHODS

generate_captcha : Private

This will create and respond the captcha.

 $c->forward('generate_captcha');

validate_captcha : Private

This will validate the given string against the Captcha image that has been generated earlier.

 if ( $c->forward('validate_captcha',[$posted_string]) ) {
   #do something based on the CAPTCHA passing
 }

REPOSITORY

https://github.com/Virendrabaskar/Catalyst-TraitFor-Controller-CAPTCHA

SEE ALSO

• Catalyst::TraitFor::Controller::reCAPTCHA

• Catalyst::Controller

• Catalyst

• GD::SecurityImage

ACKNOWLEDGEMENTS

This module is almost copied from Diego Kuperman Catalyst::Plugin::Captcha.

AUTHOR

Baskar Nallathambi <baskarmusiri@gmail.com>,<baskar@exceleron.com>

COPYRIGHT AND LICENSE

This is free module.You can do anything to this module under the same terms as the Perl 5 programming language system itself.

cpanm Catalyst::TraitFor::Controller::CAPTCHA

perl -MCPAN -e shell
install Catalyst::TraitFor::Controller::CAPTCHA