#! /usr/bin/perl
$_ = `ls *.jpg`;
@files = split;
`test -d small || mkdir small`;
`test -d thumbnail || mkdir thumbnail`;
open(INDEXFILE,">index.html") || die "Cannot open index.html ";
print INDEXFILE "\n";
print INDEXFILE " \n";
print INDEXFILE " Add Title Here\n";
print INDEXFILE " \n";
print INDEXFILE " \n";
print INDEXFILE " \n";
print INDEXFILE " Add Title Here
\n";
print INDEXFILE " \n";
print INDEXFILE " Add descriptive text here.\n";
print INDEXFILE "
\n";
print INDEXFILE " \n";
foreach $a (@files)
{
`cp $a small/`;
`mogrify -scale 30x30% small/$a`;
`cp $a thumbnail/`;
`mogrify -scale 4x4% thumbnail/$a`;
$filename = $a;
$filename =~ s/\.jpg/\.html/;
print "Creating $filename ...\n";
open(OUTFILE,">$filename") || die "Cannot open $filename ";
print OUTFILE "\n";
print OUTFILE "
\n";
print OUTFILE " $a\n";
print OUTFILE " \n";
print OUTFILE " \n";
print OUTFILE " \n";
print OUTFILE " $a
\n";
print OUTFILE " \n";
print OUTFILE " \n";
print OUTFILE " ![](\"small/$a\")
\n";
#print OUTFILE " height=576,\n";
#print OUTFILE " width=768>\n";
print OUTFILE " \n";
print OUTFILE "
\n";
print OUTFILE " \n";
print OUTFILE "\n";
close(OUTFILE);
print INDEXFILE " \n";
print INDEXFILE " ![](\"thumbnail/$a\")
\n";
#print INDEXFILE " height=72,\n";
#print INDEXFILE " width=96,\n";
print INDEXFILE " \n";
}
print INDEXFILE " \n";
print INDEXFILE " \n";
print INDEXFILE "\n";
close(INDEXFILE);