Catalyst::Plugin::Captcha.3pm

Langue: en

Autres versions - même langue

Version: 2010-04-03 (ubuntu - 24/10/10)

Section: 3 (Bibliothèques de fonctions)

NAME

Catalyst::Plugin::Captcha - create and validate Captcha for Catalyst

SYNOPSIS

   use Catalyst qw/Captcha/;
 
   MyApp->config->{ 'Plugin::Captcha' } = {
     session_name => 'captcha_string',
     new => {
       width => 80,
       height => 30,
       lines => 7,
       gd_font => 'giant',
     },
     create => [qw/normal rect/],
     particle => [100],
     out => {force => 'jpeg'}
   };
 
   sub captcha : Local {
     my ($self, $c) = @_;
     $c->create_captcha();
   }
 
   sub do_post : Local {
     my ($self, $c) = @_;
     if ($c->validate_captcha($c->req->param('validate')){
       ..
     } else {
       ..
     }
   }
 
   #validate with CP::FormValidator::Simple
   sub do_post : Local {
     my ($self, $c) = @_;
     $c->form(
       validate => [['EQUAL_TO',$c->captcha_string]]
     )
   }
 
 

DESCRIPTION

This plugin create, validate Captcha.

Note: This plugin uses GD::SecurityImage and requires a session plugins like Catalyst::Plugin::Session

METHODS

create_captcha

Create Captcha image and output it.

validate_captcha

   $c->validate_captcha($key);
 
 

validate key

captcha_string

Return a string for validation which is stroed in session.

clear_captcha_string

Clear a string which is stroed in session.

CONFIGURATION

session_name
The keyword for storing captcha string
new
create
particle
out
These parameters are passed to each GD::Security's method. Please see GD::SecurityImage for details.

SEE ALSO

GD::SecurityImage, Catalyst

AUTHOR

Masahiro Nagano <kazeburo@nomadscafe.jp> Copyright (C) 2006 by Masahiro Nagano

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.5 or, at your option, any later version of Perl 5 you may have available.