#!/usr/bin/perl
use strict;
#use LEOCHARRE::Dir ':all';
#use CGI;
use HTML::Template;

my $abs_fonts = '/home/leocharre/public_html/fonts';
my $rel_fonts = '/fonts';
my $MAX_THUMB_MAKE = 5; # at time


my @FONTS_LOOP;

opendir(DIR, $abs_fonts) or die("$!");
my @fonts = grep { /\.ttf$/i } readdir DIR;
closedir DIR;


my $made = 0;
for my $name ( sort @fonts ){
   my $rel_font = "$rel_fonts/$name";
   my $abs_font = "$abs_fonts/$name";
   my $abs_thumb = "$abs_fonts/$name.png";
   my $rel_thumb = "$rel_fonts/$name.png";

   unless( -f $abs_thumb){
		if( $made++ < $MAX_THUMB_MAKE ){
	      `convert -size 1024x30 xc:white -gravity northwest -font "$abs_font" -pointsize 14 -annotate +1+1 'AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz 0123456789 ~!@#\$%^&*()_+|{}:"<>?,./;[]-=\' "$abs_thumb"`;
		}
   }
   push @FONTS_LOOP, {
      NAME => $name,
      REL_FONT => $rel_font,
      REL_THUMB => $rel_thumb,
   
   };
}


my $tmpl = HTML::Template->new( scalarref => \qq{
<dl>
<TMPL_LOOP FONTS_LOOP>
      <dt><TMPL_VAR NAME> <a href="<TMPL_VAR REL_FONT>">download</a></dt>
      <dd><img src="<TMPL_VAR REL_THUMB>"></dd>
</TMPL_LOOP>
</dl>
});

$tmpl->param( FONTS_LOOP => \@FONTS_LOOP );

print "Content-Type: text/html\n\n";
print $tmpl->output;