#!/usr/athena/bin/perl
chdir "/var/http/Files/vermont";
$tocfile = ">index.html";
open (OUTPUT, $tocfile) || die "Can't open file $tocfile for writing\n";
print OUTPUT <<"END";
Vermont photo album
Click on a thumbnail for a closer look!
END
$currentcolumn = 0;
$maxcols = 3;
foreach $file (<*.jpg>) {
&makeentry ($file, $currentcolumn);
&makeicon ($file);
}
print OUTPUT <<"END";
Got a picture to add to this collection? upload it!
Any questions? ask Andy .
END
sub makeentry {
$filename = $_[0];
if ($currentcolumn == 0) {
print OUTPUT "\n";
}
print OUTPUT " ![](\"thumbs/$filename\")
$filename | \n";
$currentcolumn ++;
if ($currentcolumn == $maxcols) {
print OUTPUT "
";
$currentcolumn = 0;
}
}
sub makeicon {
$filename = $_[0];
if (-s "thumbs/$filename") {
}
else {
$tempfile1 = "/var/tmp/icon.$$1.pnm";
$tempfile2 = "/var/tmp/icon.$$2.pnm";
system ("/mit/graphics/arch/pmax_ul4/bin/djpeg -pnm -outfile $te
mpfile1 $filename");
system ("/mit/graphics/arch/pmax_ul4/bin/pnmscale -ysize 50 $tem
pfile1 > $tempfile2");
system ("/mit/graphics/arch/pmax_ul4/bin/cjpeg $tempfile2 > thum
bs/$filename");
}
}