nicht angemeldet
Ich danke erstmal allen denen, die meine letzte Frage beantwortet haben, aber es gibt trotzdem Fehler.
Ich will mit in einer dat-Datei gespeicherten Userdaten eine Usernmae-Passwort-Abfrage machen.
Mit einem Formular, dass per POST die Daten übermittelt.
Hier der Sourcecode:
#!/../../. #Angabe
read(...)
@... = $...
#usw. das ganze zum Formulardaten einlesen, wie's in selfHTML steht...
open(DAT,"dat.dat");
@dat = <DAT>;
close(DAT);
foreach $einzelteil (@dat)
{
($nick, $pwd) = split(/;/, $einzelteil);
if($Formular[1] eq $nick && $Formular[3] eq $pwd)
{
&OK;
}
else
{
&nix;
}
sub OK
{
print "Content-type: text/html\n\n";
print "<html>\n<head>\n<title>OK</title>\n";
print "</head>\n";
print "<body>\n";
print "OK";
print "\n</body>\n</html>";
}
sub nix
{
print "Content-type: text/html\n\n";
print <<ENDE;
<html>
<head>
<title>nix</title>
</head>
<body>
nix
</body>
</html>
ENDE;
}
Das war der ungefähre Sourcecode.
Aber das Programm gibt im HTML-Teil folgendes aus:
Titel: nix
Im body:
nix
Content-type: text/html
nix
oder das wie oben, aber anstatt dem zweiten nix ein super.
Was ist mein Fehler?