#! /usr/bin/perl
use CGI;
use warnings;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);
my $GaestebuchDatei = "/homepages/18/d23090695/htdocs/eintrag.html";
my @NeuerEintrag =
(
"\n",
"
\n",
"
Name:
" . $cgi->param(Username) . "
\n",
"
" . $cgi->param(Usertext) . "
\n",
"
\n",
);
open( DATEI, $GaestebuchDatei ) or die "Datei nicht gefunden!";
my @Zeilen = ;
close(DATEI);
my @NeueZeilen;
foreach my $Zeile (@Zeilen) {
if ( $Zeile =~ /^<\!\-\- NEU \-\->$/ ) {
push (@NeueZeilen, @NeuerEintrag, "\n" );
}
else {
push ( @NeueZeilen, $Zeile );
}
}
open( DATEI2, ">$GaestebuchDatei" ) or die "Datei nicht gefunden!";
print DATEI2 @NeueZeilen;
close(DATEI2);
print "Content type: text/html\n\n";
print "Erfolgreich";