UBB.Developers Forums UBB.classic V6.4 - 6.7 Modifications V6 Mod Ideas Image recognition during signup

#!/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];
   }
}

#!/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;