The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Egg::Plugin::Authen::Captcha - Plugin for Authen::Captcha.

SYNOPSIS

  use Egg qw/ Authen::Captcha /;

  # The validation code is obtained.
  my $md5hex= $e->authc->generate_code(5);
  
  # It preserves it in the session.
  $e->session->{authen_capcha}= $md5hex;
  
  # The attestation image is displayed.
  <img src="/authen_captcha/<% $md5hex %>.png" />
  
  # Check on input code
  my $in= $e->req->param('auth_code') || return 'I want input of auth_code.';
  $in eq $e->session->{authen_capcha} || return 'auth_code is not corresponding.';

DESCRIPTION

It is a plug-in to attest capture.

see Authen::Captcha.

CONFIGURATION

Please set it with the key named 'plugin_authen_captcha'.

  plugin_authen_captcha => {
    data_folder   => '<e.dir.etc>/AuthCaptcha',
    output_folder => '<e.dir.static>/AuthCaptcha',
    width         => 30,
    height        => 40,
    },

All set values are passed by the constructor of Authen::Captcha.

see Authen::Captcha.

METHODS

authc

Authen::Captcha object is returned.

  my $ac= $e->authc;

SEE ALSO

Authen::Captcha, Class::Data::Inheritable, Egg::Release,

AUTHOR

Masatoshi Mizuno <lushe@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2008 Bee Flag, Corp. <http://egg.bomcity.com/>, All Rights Reserved.

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.6 or, at your option, any later version of Perl 5 you may have available.