Hallo,
close DATA;
if ($ref eq '1'){
open (DATA,"<$firstpage") || die 'Datei kann nicht geöffnet werden';
open (DATA,$firstpage) or die "Datei kann nicht geöffnet werden, weil : $!\n";
while(<DATA>){
s/xyz/$name/;
push(@firstpage,$_);
}
close(DATA);
print header;
print @firstpage;
Hier gibst du @firstpage an die Standardausgabe aus.
exit 0;
}
else{
print header,start_html;
print "<CENTER><h1><font color=red>Benutzername bzw. Passwort wurden nicht akzeptiert.<br>
</font></center>";
print end_html;
exit 0;
}
Ich sehe nirgens eine Zeile, die auf eine andere Seite umleitet. Die eingelesene Datei wird mit print ausgegeben.
Frage : Wozu überhaupt 2 Scripts ? Wieso machst du nicht ein "richtiges" CGI Script daraus?
$xNeTworKx.