oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed captcha

Browse source
This commit is contained in:
JT Smith 2005-09-24 17:26:40 +00:00
parent 842eb4a331
commit d89b8f1794
3 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Storage/Image.pm
View file

@ -62,12 +62,13 @@ sub addFileFromCaptcha {
srand;
$challenge.= ('A'..'Z')[rand(26)] foreach (1..6);
my $filename = "captcha.".WebGUI::Id::generate().".png";
my $image = Image::Magick->new;
my $image = Image::Magick->new();
$image->Set(size=>'105x26');
$image->ReadImage('xc:white');
$image->Annotate(pointsize=>20, skewY=>5, skewX=>11, gravity=>'center', fill=>'black', antialias=>'true', text=>$challenge);
$image->Swirl(degrees=>10);
$image->AddNoise(noise=>'Multiplicative');
$image->AddNoise(noise=>"Multiplicative");
$image->Annotate(font=>$session{config}{webguiRoot}."/lib/default.ttf", pointsize=>30, skewY=>0, skewX=>0, gravity=>'center', fill=>'white', antialias=>'true', text=>$challenge);
$image->Blur(geometry=>"1");
$image->Set(type=>"Grayscale");
$image->Border(fill=>'black', width=>1, height=>1);
$image->Write($self->getPath($filename));
return ($filename, $challenge);