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
Requires the following parameter
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.