sessionbasierter login mit perl - #98157 (Perl/CGI)

Gast Gast

2007-08-14 21:49

Hi,
du machst ja auch mit new() explizit jedesmall eine neue Session auf. Soll er sich deinem Befehl wiedersetzen :-)

Code (perl): (dl )

 
$CGI::Session::MySQL::TABLE_NAME = 'sessions';
my $sid = $cgiquery->cookie('cgisess') || $cgiquery->param('cgisess') || undef;
my $session = new CGI::Session("driver:MySQL", $cgiquery, {Handle=>$db});
my $sid = $session->id();
print $sid;

da steht ja zwei mal my $sid = ...

Lies das mal ordentlich durch,
http://search.cpan.org/~markstos/CGI-Session-4.20/...
Vorallem die Methoden is_expired() und load() solltest du dir genauer ansehen.

Hier ein Beispiel aus der Docu, das schon sehr nah an dem Dran ist was du machen möchtest.
http://search.cpan.org/~markstos/CGI-Session-4.20/...

Code (perl): (dl )

    $s = CGI::Session->load() or die CGI::Session->errstr;
    if ( $s->is_expired ) {
        die "Your session expired. Please refresh";
    }
    if ( $s->is_empty ) {
        $s = $s->new() or die $s->errstr;
    }