diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt index 08db9aaee..948d1771c 100644 --- a/docs/changelog/6.x.x.txt +++ b/docs/changelog/6.x.x.txt @@ -9,6 +9,7 @@ - fix: HTTPproxy - fix: i18n reserved section name in Surveys - fix: typo in Asset_ProjectManager i18n + - fix: captcha image is blank (Martink Kamerbeek / Procolix) 6.99.3 - Someone removed the status from the submission templates. That has been diff --git a/lib/WebGUI/Storage/Image.pm b/lib/WebGUI/Storage/Image.pm index c0b2f5aa4..9ab85f97d 100644 --- a/lib/WebGUI/Storage/Image.pm +++ b/lib/WebGUI/Storage/Image.pm @@ -65,9 +65,9 @@ sub addFileFromCaptcha { my $image = Image::Magick->new(); $image->Set(size=>'105x26'); $image->ReadImage('xc:white'); -# $image->AddNoise(noise=>"Multiplicative"); - $image->Annotate(font=>$self->session->config->getWebguiRoot."/lib/default.ttf", pointsize=>30, skewY=>0, skewX=>0, gravity=>'center', fill=>'white', antialias=>'true', text=>$challenge); -# $image->Blur(geometry=>"1"); + $image->AddNoise(noise=>"Multiplicative"); + $image->Annotate(font=>$self->session->config->getWebguiRoot."/lib/default.ttf", pointsize=>30, skewY=>0, skewX=>0, gravity=>'center', fill=>'black', 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));