sub html_baslat {
#
# HTML sayfalarının başına konacak satırları gönderir
print "Content-type: text/html\n\n";
print <<_SON_;
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-9">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
</HEAD>
<BODY>
_SON_
}
sub html_bitir {
#
# HTML sayfalarının sonuna konacak satırları gönderir
print <<_SON_;
</BODY></HTML>
_SON_
}
sub hata {
#
# Parametre olarak gelen hata mesajından oluşan web sayfası hazırlar
$mesaj = shift;
&html_baslat;
print "<p>Formu hatalı doldurdunuz!<p>\n";
print "<font color=\"#FF0000\"><b>$mesaj</b></font><p>\n";
print "Lütfen geri dönüp hatanızı düzeltiniz.<p><hr>\n";
&html_bitir;
}
1;