#!/usr/bin/perl
##############################
##  AutoGallery Pro v2.1.x  ##
#####################################################################
##  image.cgi - dislpay passphrase image on submission page        ##
#####################################################################

require 'agp.pl';


## Image details
$IMAGE_X_SIZE     = 100;
$IMAGE_Y_SIZE     = 25;
$IMAGE_FONT_SIZE  = 20;
$IMAGE_FONT_FILE  = $FONT_FILE;


## Colors to use in the image (R, G, B)
@BACKGROUND = (255,255,255);
@FONT       = (  0,  0,  0);
@BORDER     = (  0,  0,  0);


## Do not edit
$IMAGE          = undef;
$PASSPHRASE     = undef;
$IMAGE_HAVE_TTF = 0;


eval("use GD;");

# Make sure GD library is avaialble
if( $@ )
{
    print "Content-type: image/gif\n\n";
    print ${freadalls("$DDIR/nogd.gif")};
    exit;
}
else
{
    print "Content-type: image/jpeg\n\n";
}


# create a new image
$IMAGE      = new GD::Image($IMAGE_X_SIZE,$IMAGE_Y_SIZE);
$PASSPHRASE = uc(sprintf("%07x", int(rand(268435455))));
$HEX_IP     = IPtoHex($ENV{'REMOTE_ADDR'});


# Insert IP and passphrase into the database
dbdelete("$DDIR/dbs/passphrase", $HEX_IP);
dbinsert("$DDIR/dbs/passphrase", $HEX_IP, $PASSPHRASE, time);


# allocate some colors
$COLOR_BG     = $IMAGE->colorAllocate(@BACKGROUND);
$COLOR_FONT   = $IMAGE->colorAllocate(@FONT);  
$COLOR_BORDER = $IMAGE->colorAllocate(@BORDER);


# Get bounding box and see if FreeType is available
eval
{
    @bounds = GD::Image->stringFT($COLOR_FONT,$IMAGE_FONT_FILE,$IMAGE_FONT_SIZE,0,0,0,$PASSPHRASE);
};

if( scalar(@bounds) )
{
    $IMAGE_HAVE_TTF = 1;
}


## Setup the image background and border
$IMAGE->fill(0, 0, $COLOR_BG);
$IMAGE->rectangle(0,0,$IMAGE_X_SIZE-1,$IMAGE_Y_SIZE-1,$COLOR_BORDER);


if( $IMAGE_HAVE_TTF )
{
    $width  = $bounds[4];
    $height = abs($bounds[5]);

    $start_y = (($IMAGE_Y_SIZE-$height)/2)+$height;
    $start_x = ($IMAGE_X_SIZE-$width)/2;

    $IMAGE->stringFT($COLOR_FONT,$IMAGE_FONT_FILE,$IMAGE_FONT_SIZE,0,$start_x,$start_y,$PASSPHRASE);
}
else
{
    $width  = GD::Font->Giant->width*length($PASSPHRASE);
    $height = GD::Font->Giant->height;

    $start_y = ($IMAGE_Y_SIZE-$height)/2;
    $start_x = ($IMAGE_X_SIZE-$width)/2;

    $IMAGE->string(GD::Font->Giant,$start_x,$start_y,$PASSPHRASE,$COLOR_FONT);
}

binmode STDOUT;

print $IMAGE->jpeg(80);