#!/usr/bin/perl
#
# Written by Travis Kent Beste
# Thu Aug 16 10:50:06 CDT 2007
#
# $Id: create_thumbnail_html.pl,v 1.1 2007/08/20 21:43:47 travis Exp $
# $Source: /cvs_repository/thumbnails/create_thumbnail_html.pl,v $

open(FP, ">thumbs.html");

opendir(DIR, './');
my @files = sort grep(/\.thumb\./, readdir(DIR));
closedir(DIR);

print FP "<form method=\"get\" action=\"delete.cgi\">\n";
print FP "<table>\n";
print FP "<tr>\n";

for(my $i = 0; $i < $#files; $i++) {
	printf "adding %s\n", $files[$i];
	if (! ($i % 8) ) {
		print FP "</tr>\n";
		print FP "<tr>\n";
	}
	print FP "<td align=\"middle\">\n";
	print FP "<img src=\"$files[$i]\" border=\"1\">\n";
	print FP "<br>\n";
	print FP "<font size='-1'>$files[$i]</font>\n";
	print FP "</td>\n";
}
print FP "</tr>\n";
print FP "</table>\n";
print FP "</form>\n";

close(FP);

exit(0);