nicht angemeldet
Cockie setzen + lesen
Hi
Habe Selfhtml im Abschnitt über Cockie gelesen werde daraus aber nicht schlau.
Ich möchte einen Cockie setzen sobald sich jemand anmeldet auf der Seite und wenn er die Seite verlässt und dann wieder kommt soll der Cockie ausgelesen werden und der Benutzer wieder Automatisch angemeldet werden.
Wie geht so was?
Bitte Code beispiel.
Danke
Cu
-
Hallo,
Habe Selfhtml im Abschnitt über Cockie gelesen werde daraus aber nicht schlau.
Ich möchte einen Cockie setzen sobald sich jemand anmeldet auf der Seite und wenn er die Seite verlässt und dann wieder kommt soll der Cockie ausgelesen werden und der Benutzer wieder Automatisch angemeldet werden.
Wie geht so was?Du kannst es hier nachlesen:
http://www.perldoc.com/perl5.8.0/lib/CGI/Cookie.htmlBitte Code beispiel.
Der Link wird deine Fragen beantworten.
Danke
bitte gerne.
Cu
$xNeTworKx.
-
Hallo,
Ich habe es mir durchgelesen aber trotzdem geht es nicht.
In dem Cockie soll $name:$pass gespeichert werden.sub cockie {
my($name:$pass) = @_;
my $altCookie = $cgi->cookie(-name=>'Benutzer Daten');
my $neuCookie = $cgi->cookie(-name=>'Benutzer Daten',
-value=>$name:$pass,
-expires=>'+3M');print $cgi->header(-cookie=>$neuCookie),
}Es wird nicht einmal ein Cockie erzeugt *wein*.
Wenn ein Cockie da ist soll der mit der Sub einlogscr überprüft werden, diese Sub einlogscr wird so aufgerufen.einlogscr($name,$pass);
Helft mir.
Cu-
use Mosche;
print $cgi->header(-cookie=>$neuCookie),
Warum steht am Zeilenende ein Komma?
Laut Dokumentation kommen da eckige Klammer hin:
print $cgi->header(-cookie=>[$neuCookie]);use Tschoe qw(Matti);
--
$a=n(1001010);print chr($a+=$_)for(0,43,-2,1,-84,65,13,1,5,
-12,-3,13,-82,48,21,13,-6,-76,72,-7,2,8,-6,13,-104);sub n{
$b=0;$_=0;for($c=length$_[0];$c;--$c){$_+=_($b)if substr$_
[0],$c-1,1;$b++;}$_}sub _{($d)=@_;for($e=1;$d--;$e*=2){}$e}-
Hi,
Laut Dokumentation kommen da eckige Klammer hin:
print $cgi->header(-cookie=>[$neuCookie]);Ich setzt Cookies auch immer so (also ohne []):
print $query->header(-cookie=>$cookie,
-location=>$baseurl);und es funktioniert tadellos =)
$xNeTworKx.
-
-
-