ik heb op mijn site een postfield, vervolgens wordt het geheel in een tabel auto gezet, maar nu wil ik dat er ook auto een datum bij wordt gepost. dit is de code, het gaat om de site http://today.ttkdesign.nl
#!/usr/bin/perl
print "Content-type: text/html\n\n";
use LWP::Simple;
use CGI;
chdir "/home/http/users/www.ttkdesign.nl/html/";
$filenaam = "contentreply.html";
open(F,"< $filenaam"); while (<F>) { $file.=$_ } close(F);
($begin, $eind) = split(/<!--hier eindigt de laatste reply-->/, $file);
$query = CGI::new();
$reply = $query->param("reply");
chdir "/home/http/users/www.ttkdesign.nl/html/";
open(FH, ">$filenaam");
print FH $begin;
print FH "<tr><TD><p>$reply</p></TD></tr>\n";
print FH "<!--hier eindigt de laatste reply-->";
print FH $eind;
print <<einde;
<html>
<head>
<title>Redirect</title>
<script language="JavaScript"><!--
location.href = 'http://www.ttkdesign.nl/contentreply.html';
// --></script>
</head>
</html>
einde
#!/usr/bin/perl
print "Content-type: text/html\n\n";
use LWP::Simple;
use CGI;
chdir "/home/http/users/www.ttkdesign.nl/html/";
$filenaam = "contentreply.html";
open(F,"< $filenaam"); while (<F>) { $file.=$_ } close(F);
($begin, $eind) = split(/<!--hier eindigt de laatste reply-->/, $file);
$query = CGI::new();
$reply = $query->param("reply");
chdir "/home/http/users/www.ttkdesign.nl/html/";
open(FH, ">$filenaam");
print FH $begin;
print FH "<tr><TD><p>$reply</p></TD></tr>\n";
print FH "<!--hier eindigt de laatste reply-->";
print FH $eind;
print <<einde;
<html>
<head>
<title>Redirect</title>
<script language="JavaScript"><!--
location.href = 'http://www.ttkdesign.nl/contentreply.html';
// --></script>
</head>
</html>
einde