Gantry::Utils::Captcha - a way to mange captchas
my $captcha = Gantry::Utils::Captcha->new( 'h2xsg' ); $captcha->add( { base_url => $self->doc_rootp() . "/images", image => 'captcha-image-1.jpg', key => 'chair', label => 'looks like a chair to me', alt_text => 'sometimes it feels reaally good to sit', } ); $captcha->add( { base_url => $self->doc_rootp() . "/images", image => 'captcha-image-2.jpg', key => 'yoda', label => 'hrm ... yoda you are', alt_text => 'use the force, Luke', } ); $captcha->add( { base_url => $self->doc_rootp() . "/images", image => 'captcha-image-3.jpg', key => 'biking', label => 'biking is fun', alt_text => 'two wheels and a seat', } ); or my $captcha = Gantry::Utils::Captcha->new( 'h2xs', [ { base_url => $self->doc_rootp() . "/images", image => 'captcha-image-3.jpg', key => 'biking', label => 'biking is fun', alt_text => 'two wheels and a seat', } ] );
This module is a utility to help with captchas.
Standard constructor, call it first.
Requires the following parameter
secret # this is your super secret encryption key
add a captcha item
image # the image i.e. myimage.gif key # the unique key for this captcha label # the question that will appear in the select box
Optional
alt_text # the alt text for the image base_url # a base url
Shuffle the captchas and set one in the queue
Tests to the captcha's encrypted string with the key and returns true of false
Return the captcha's key for the queued chaptcha
Returns the captcha's base url for the queued chaptcha
Returns the captcha's image for the queued chaptcha
Returns the captcha's label for the queued chaptcha
Returns the captcha's alt_text for the queued chaptcha
Returns the captcha's crypt_string for the queued chaptcha
returns a reference to an array of form options that can be passed directly to form.tt
Returns the captcha's image link
Gantry(3)
This module depends on Gantry(3)
Tim Keefer <tkeefer@gmail.com>
Copyright (c) 2005-7, Tim Keefer.
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.
To install Gantry, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Gantry
CPAN shell
perl -MCPAN -e shell install Gantry
For more information on module installation, please visit the detailed CPAN module installation guide.