#!/usr/bin/perl
print "Content-type: text/html\n\n";
use LWP::Simple;
use CGI;
chdir "/home/http/users/www.ttkdesign.nl/html/ttktoday/";
$filenaam = "index.htm";
open(F,"< $filenaam"); while (<F>) { $file.=$_ } close(F);
@tijd = localtime(time);
$dag = @tijd[3];
$maand = @tijd[4]+1;
$jaar = @tijd[5];
$jaar = 1900+@tijd[5];
#print FH "$dag-$maand-$jaar";
($begin, $eind) = split(/<!--hier eindigt de laatste reply-->/, $file);
$query = CGI::new();
$naam = $query->param("naam");
$email = $query->param("email");
$bericht = $query->param("bericht");
chdir "/home/http/users/www.ttkdesign.nl/html/ttktoday/";
open(FH, ">$filenaam");
print FH $begin;
print FH "<!--hier eindigt de laatste reply-->";
print FH "<tr><TD><p>date// $dag-$maand-$jaar . $bericht . $naam . <a href=\"mailto:$email\">$email</a></p> <br> </TD></tr>\n";
print FH $eind;
print <<einde;
>html>
<head>
<title>TTK _TODAY</title>
<script language="JavaScript"><!--
location.href = 'http://www.ttkdesign.nl/ttktoday/index.htm';
// --></script>
</head>
einde
</html>