nicht angemeldet
Hi Beat.
Scheinbar bin ich wirklich seeeeehr schwer von begriff den ich kapiere es immernoch nicht. Das mit dem Hash ist eine gute idee das aendere ich sobald das mit dem cookie klappt.
Ich habe es jetzt mal in eine Sub geschrieben aber ich weiss nicht wie das mir was nuetzen sollte denn es klappt immernoch nicht?
So sieht der Code jetzt aus:
#!/usr/bin/perl
use strict;
use CGI;
my $login = new CGI;
my $username = $login->param("username");
my $passwort = $login->param("passwort");
print "Content-Type: text/html\n\n";
print "<html><head><title>login</title></head><body>"
login;
sub login {
print "Bitte loggen Sie sich ein:";
print "<form action="login.pl">";
print "<input type="text" name="username">";
print "<input type=""text"\ name="passwort">";
print "<input type="submit">";
print "</form>";
if ($username && $passwort) {
#hier dann die pruefungen
#wenn sie korrekt sind dann soll zur sub cookie springen
cookie;
}
} # ende der sub
sub cookie {
my $cookie = $login->cookie(
{"name" => "cookiename", "value" => "cookievalue" } );
print $login->header (
{"cookie" => $cookie} );
}
Ich will jetzt nicht unhoeflich sein aber wenn man mir den code vielleicht grob umschreiben wuerde so das es klappt also so wie er sein muss wuerd ich vielleicht besser durchblicken?
Gruezi Frey
Struppi