Session-ID wird nicht generiert - #166648 (Perl/CGI)

GwenDragon

2013-03-26 16:04

User since
2005-01-17
14836 Artikel
Admin1

2013-03-26T13:21:35 anamollo4music
Heißt das, dass ich in der intro.cgi dann folgendes schreibe?
Code (perl): (dl )
1
2
3
4
my $cgi = new CGI;
my $session = new CGI::Session(undef, undef, undef);
my $cookie = $cgi->cookie( "CGISESSID", $session->id );
if($cookie) { print "Session ID gibts!"; }

Nääää, Nääää, nääää!.

Mit

Code (perl): (dl )

my $session = new CGI::Session(undef, undef, undef);

erzeugst du eine neue Session!

Abfragen tust du die existierende Session mit:

Code (perl): (dl )

my $session = CGI::Session->load() or die CGI::Session->errstr;
if ($session and not $session->is_empty and not $session->is_expired) { #Session ist gültig
  $GESPEICHERTER_WERT = $session->param("GESPEICHERTER_WERT");       # Wer rausholen
}

Bitte lies dir mal http://search.cpan.org/~sherzodr/CGI-Session-3.95/... druch. ;)

Wenn du nur die Session-ID brauchst, was unlogisch ist, da du betimmt noch mehr in der Session speichern wiolst, gehts so:

Code (perl): (dl )

my $session = CGI::Session->load() or die CGI::Session->errstr;
if ($session and not $session->is_empty and not $session->is_expired) { #Session ist gültig
  $SESSIONID = $session->id;       
}

Last edited: 2013-03-26 16:16:25 +0100 (CET)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten