#!/usr/local/bin/perl

#genererer html-sider for alle bildene til Richard Saad
#forutsetter at filer.txt inneholder filnavnet paa alle filene som skal
#behandles

open(LISTE, "filer.txt");
foreach $_ (<LISTE>)
{
    	$tmp_file = $_; chop($file);
	/(\d+).html/;
	$file = "$1";	
	$new_file = "$file".".html";
	$bilde = "photo/$file".".jpg";

	open(HTML, ">"."$new_file");

	print HTML "<html>\n<head>\n";
	print HTML "<title>Imprints on Damascus a photo exhibit by richard saad\n</title>\n</head>\n<body  bgcolor=\"\#ffffff\">\n<center>";
	print HTML "<table width=528>\n<tr><td>";
	print HTML "<a href=\"/\"><img src =\"/sys/almashriq-levant-small.gif\" border = 0></a>\n";
	print HTML "</td></tr>\n<tr><td align=center>\n";

	print HTML "<a href=\"./index5.html\">Imprints on Damascus - a photo exhibit by Richard Saad</a>\n<br>\n<br>";

	print HTML "<img src=\"$bilde\" border=0><p>\n";

	print HTML "<font size=-2>Copyright &copy; Richard Saad 1995</font>
</td></tr></table>\n";
	print HTML "<a href=\"./\"><img src=\"/sys/almashriq-bottom-line.gif\" alt = \"----------------\" border=0></a><p><pre><a href=\"/base/mailpage.html\">al\@mashriq</a> 970321</pre>\n</center>\n</body>\n</html>";

	close(HTML);
}
close(LISTE);
































