1 2 3
# falls das CGI-Objekt in $cgi ist print $cgi->redirect("intro.cgi"); exit;
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!"; }
CGI::Session->load($session_id)->is_empty()
2013-03-26T13:21:35 anamollo4musicNääää, Nääää, nääää!.Heißt das, dass ich in der intro.cgi dann folgendes schreibe?
Code (perl): (dl )1 2 3 4my $cgi = new CGI; my $session = new CGI::Session(undef, undef, undef); my $cookie = $cgi->cookie( "CGISESSID", $session->id ); if($cookie) { print "Session ID gibts!"; }
my $session = new CGI::Session(undef, undef, undef);
1 2 3 4
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 }
1 2 3 4
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; }
1 2 3 4 5 6 7 8 9
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 print "angemeldet!"; } else { print "nicht angemeldet"; }