#! /usr/bin/perl use CGI; my $cgi = new CGI; use CGI::Carp qw(fatalsToBrowser); my @NeuerEintrag; push(@NeuerEintrag, "\n"); push(@NeuerEintrag, "\n"); push(@NeuerEintrag, "\n"); push(@NeuerEintrag, "\n"); push(@NeuerEintrag, "

Name:	".$cgi->param($Username)."
".$cgi->param($Usertext)."

\n"); open(DATEI, "; close(DATEI); my @NeueZeilen; my $Zeile; foreach $Zeile (@Zeilen) { if(/^/) { foreach(@NeuerEintrag) { push(@NeueZeilen,$_); } push(@NeueZeilen,"\n"); } else { push(@NeueZeilen,$Zeile); } } open(DATEI2, ">/homepages/18/d23090695/htdocs/eintrag.html") || die "Datei nicht gefunden!"; print DATEI2 @NeueZeilen; close(DATEI2); print "Content type: text/html\n\n"; print "Erfolgreich";