#!/usr/bin/perl
#P. Kemppainen

print "Content-type: text/html\n\n";
print "<META http-equiv=\"Content-Type\" content=\"text/html; charset=ISO-8859-1\">\n";
print "<HTML>\n<BODY BACKGROUND=back.gif TEXT=#194812>\n";
print "<P ALIGN=center><IMG SRC=selaa.gif></P><HR>\n";
print "<UL><B>\n";

open(TEMP,"<kirja.db");
foreach$rivi(<TEMP>) {
	@osat=split(/&&&/,$rivi);
	$osat[0]=~s/ä/&auml;/g;
	$osat[0]=~s/ö/&ouml;/g;
	$osat[0]=~s/å/&aring;/g;
	$osat[1]=~s/ä/&auml;/g;
	$osat[1]=~s/ö/&ouml;/g;
	$osat[1]=~s/å/&aring;/g;
	print "<LI>Nimi : $osat[0]\n";
	print "<LI>Terveiset : $osat[1]<P>\n";
}
print "</B></UL>\n";
print "<HR><P ALIGN=center><A HREF=../mp/index.htm><B>[ Pääsivulle
]</B></A></P>\n";
print "</BODY>\n</HTML>\n";
