open (PHOTOS,"photos.dat");
while (<PHOTOS>)
{
    chop;
    ($photoId,$photoDescription) = split (": ",$_);
    $photoDesc{$photoId}=$photoDescription;
}
foreach $file (@ARGV)
{
    $f = $file;
    $f =~ s/\.\w+$//;

    print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">\n";
    print "<tr><td>\n";
    print "<a href=\"gallery/$f.shtml\"><img ";
    print "alt=\"$f\" src=\"gallery/tn/$f.tn.jpg\" border=\"1\" ";
    print "hspace=\"1\"></a>\n";
    print "</td></tr><tr><td align=\"center\">\n";
    print "<font size=\"-1\"><em>";
    print "$photoDesc{$f}";
    print "</em></font></td></tr></table>\n";
    print "\n";
    
    open (HTML,">$f.shtml");
    
    print HTML "<img alt=\"$f\" src=\"$f.jpg\">\n";
    close (HTML);
    
}