#! /usr/bin/perl use CGI; use warnings; 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" ); my @Zeilen; open( DATEI, "; close(DATEI); my @NeueZeilen; my $Zeile; foreach $Zeile (@Zeilen) { if ( $Zeile =~ /^<\!\-\- NEU \-\->$/ ) { 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";