#!/usr/bin/perl

use GD;
$i = $ENV{'PATH_INFO'};
$i =~ s/\///g;
$i = int($i);

open(FIL,"$i.txt");
@text = <FIL>;
close(FIL);
$l = join("\r",@text);

$img = new GD::Image("eric.jpg");
$black = $img->colorClosest(0,0,0);
$angle = 0;
$ptsize = 32;
$x = 226; $y = 85;
$fontfile = "./tallpaul.ttf";
#$font = GD::Font->load($fontfilepath);

#$image->string($font,460,75,$l,$black);
@bounds = $img->stringFT($black,$fontfile,$ptsize,$angle,$x,$y,$l);

if($@ ne '') {
open(ERR,">error.txt");
print ERR $@;
close(ERR);
}

print "Content-type: image/jpeg\n\n";
binmode(STDOUT);
print $img->jpeg();
exit;