Image recognition during signup

Would be nice to have and put an end to robot signups

Anyone?

I don't see it really being added as a feature short of requiring GD or ImageMagick

... Ian would be the best to ask though as he's the onlyone who seems to have the time (in 8 days anyway)

Quote

Originally posted by Gizzy:

I don't see it really being added as a feature short of requiring GD or ImageMagick

... Ian would be the best to ask though as he's the onlyone who seems to have the time (in 8 days anyway)

What about the fact that CTM already wrote one, but never released it?

Yeh well, I'm not CTM nor do I have the modification :x...

I'll get this one docced and released by the weekend.

I'd like to see that

What weekend was it the last one or the next one

CTM has released this to me. It has a test program that has to pass in order for this to work (GD Libraries) Unfortunatly I have not yet been able to get it to work as all it does is give me a blank screen.

CTM, if you see this you have a PM waiting

I also made a small change to the install directions (just a type)

Sorry, I didn't notice the PM until now. I didn't receive an email telling me that I'd received a PM here for some reason.

If you're referring to getting a blank screen after registering, that sounds like a problem with the GD module. The only way to be certain is to register again, then check the Apache error logs to see what turns up there. It'll most likely tell you that either GD or GD::SecurityImage aren't installed. Do you have access to the logs?

or try this test code:

Code

#!/usr/bin/perl -w
use strict;
# use lib "/path/to/ubbmod/dirs"; # or where you put GD::SI
use CGI qw[header];

my @error;
my @ok;

test($_) foreach qw(GD Image::Magick GD::SecurityImage);

print header();
if (@error) {
   print "<h1>ERRORS</h1>".join("
n", @error);
}
if(@ok) {
   print qq~<h1>INSTALLED VERSIONS</h1>~;
   print "$_->[0]tv$_->[1]
n" foreach @ok;
}

sub test {
   my $mod = shift &#0124;&#0124; return;
   eval "require $mod";
   if($@) {
      push @error, $@;
   } else {
      push @ok, [$mod, $mod->VERSION];
   }
}

you can then try this test code

Code

#!/usr/bin/perl -w
use strict;
# use lib "/path/to/ubbmod/dirs"; # or where you put GD::SI
use CGI qw[header];

eval {
   require GD::SecurityImage;
   #GD::SecurityImage->import(use_magick => 1); # if you have Image::Magick
   GD::SecurityImage->import;
   my($data, $mime, $rnd) = GD::SecurityImage->new(lines => 3)->random("123456")->create->out;
   binmode STDOUT;
   print header(-type => "image/$mime") . $data;
};

if($@) {
   print header().qq~<h1>FATAL ERROR</h1> <pre>$@</pre>~;
}

exit;