NAME

GD::SecurityImage::Utils - generate captcha images and save to file

SYNOPSIS

Example Usage:

        use GD::SecurityImage::Utils;
        use Cwd;
        
        my $abs_captcha_table_file = cwd().'/t/captcha_table.txt';
        my $abs_font = cwd().'/t/luxisr.ttf';
        unlink $abs_captcha_table_file; # reset it
        
        
        
        # 1) CREATE A LIST OF IMAGES TO CREATE
        my $max = 20; # how many?
        my @abs_captchas;
        while( $max-- ){
           push @abs_captchas, cwd()."/t/captcha_$max.png";
        }
        
        
        # 2) GENERATE IMAGES AND SAVE CODES
        # save codes in a text file for lookup
        
        open( CAPTCHA_TABLE_FILE, '>>',$abs_captcha_table_file) or die($!);
        
        # for each in the list, make a image, and record the right code
        for my $abs_out ( @abs_captchas ){
           
              unlink $abs_out; # just in case
        
              # create the captcha image and find out what the code is
              my $correct_code = write_captcha($abs_out,{font=>$abs_font});
           
              # save it in the file for later lookups
              print CAPTCHA_TABLE_FILE "$correct_code=$abs_out\n";
        
              -f $abs_out or die; # double check ?
           
        }
        
        close CAPTCHA_TABLE_FILE;

EXPORTED SUBS

write_captcha()

argument is absolute file path to write captcha image to, should be a png or jpg format optional argument is a hash ref with following options

   width    - number, pixels accross
   height   - height, pixels up down, default is 50
   ptsize   - font point size, default is 32
   lines    
   rndmax
   font     - abs path to font file, no default set
   bgcolor

returns correct code for image file

      my $correct_code = write_captca($abs_out);
      
      my $correct_code = write_captca($abs_out, { font => '/abs/path/to.ttf' });

 

SEE ALSO

GD::SecurityImage

AUTHOR

Leo Charre