nicht angemeldet
Hi,
kann mir jeman verraten warum die HTML-Ausgabe am Ende des Scripts nicht auf dem Schirm erscheint?
Bei anderen Scripts hats funktioniert, nur hier führt er zwar die Operationen aus, stellt aber die Ausgabe nicht da.
require "cgi-lib.pl";
&parse_form;
$old = "e:/Xitami/webpages/eintrag/loeschen.htm";
$new =">e:/Xitami/webpages/eintrag/eintrag2.txt";
open (OLDFILE, $old) or die "Datei existiert nicht\n";
open (NEWFILE, $new);
$Satz = "";
while (<OLDFILE>)
{
chomp($Satz);
$Satz .= $_;
}
@Ergebnis = split(/<BR><BR>/, $Satz);
$Laenge =$#Ergebnis +1;
for ($i=-1; $i<$Laenge; $i++)
{
if ($in{'loeschen'} == $i+1)
{
$Ergebnis[$i]=substr($Ergebnis[$i], 0, 1) = " ";
print NEWFILE "$Ergebnis[$i]";
}
print NEWFILE $Ergebnis[$i];
}
print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>Sicher</TITLE>\n";
print "<HEAD>\n";
print "<BODY bgcolor=dcdcb4>\n";
print "Eintrag wurde gelöscht, aktualisieren?\n";
print "<form method=get action=/cgi-bin/a.cgi>\n";
print "<INPUT NAME=loeschen TYPE=RADIO ALIGN=left VALUE=1>Aktualisieren?\n";
print "<INPUT type=submit value=Senden>\n";
print "</form>\n";
close (OLDFILE);
close (NEWFILE);