print $image->Set(size=>'110x50') || die &error($! . __LINE__);

# this is the routine we will run when creating
# an Image::Magick image...
sub gen_Magick {

# grab stuff we need...
my ($string,$date) = @_;

# now we have our 'random' string, and date stuff, lets create the image...
use Image::Magick;

my $image = Image::Magick->new();
print $image->Set(size=>'110x50') || die &error($! . __LINE__);
print $image->ReadImage('xc:white') || die &error($! . __LINE__);
print $image->Colorize( fill => $BackgroundColor ) || die &error($! . __LINE__);
print $image->Border( width => 5, height => 5, fill => $BorderColor ) || die &error($! . __LINE__);

# only do these things if the user has decided to...
if ($DoRaise) {
print $image->Raise( width => 5, height => 5, raise => 'True' ) || die &error($! . __LINE__);
}

# only do these things if the user has decided to...
if ($DoWave) {
print $image->Wave( amplitude => 5, wavelength => 30 ) || die &error($! . __LINE__);
}

# decide a random font to use...
my @fonts = ('Charter','Arial');
my @number= (0..2);
my $rand = int(rand scalar(@number));
my $font = $fonts[$rand]; #"Charter";

# annotate the image, so we have our string they need to enter...
print $image->Annotate(
text => $string,
fill => $TextColor,
x => 15,
y => 30,
pointsize=> 15,
font => $font) || die &error($! . __LINE__);


# setup some paths/urls etc...
my $path = $CFG->{build_root_path} . "/AddImages/" . $date . ".gif";
my $url = $CFG->{build_root_url};

print $image->Write($path) || die &error($! . __LINE__);
undef $image;

# pass stuff back into our templates....
$IN->param( SessionDate => $date );
$IN->param( ImageURL => "$url/AddImages/$date.gif" );

}

sub error {

my $error = $_[0];

print $IN->header();
print "An error occured. It was: $error";
exit;

}

1;