#!/usr/bin/perl
use CGI;
$cgi = new CGI;
$cgi->import_names('F');
print $cgi->header("text/html");
print "\n";
$page = 1;
while ($im=${'F::p'.$page}) {
if ($im =~ /(.*)\[(.*)\,(.*)\]/) {
$im = $1;
$style = qq[style="width: $2in; height: $3in"];
}
else {
$style = qq[style="width: 7.5in; height: 10in"];
}
print qq[
\n] if -e "$im.gif";
print qq[
\n] if -e "$im.jpg";
$page++;
}
print "\n";