Hallo,ich versuche seit 5 Stunden einen Sessionbasierten Login mit perl zu realisieren. Ich scheitere aber bereits daran das meine Testscripts die mir ne Session generieren beim aktualisieren der Seite immer wieder ne neue Session ID generieren was doch aber totaler blödsinn ist ?
Wenn eine registriert ist muss die doch so lange sie aktiv ist bzw. der Browser geöffnet ist auch gleich bleiben ansonsten ist der Sinn der Session ja dahin.
Folgendes Script verwende ich momentan zum testen:
[perl]
use constant SESSION_TIME => '60000';
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser set_message);
use CGI::Session;
use DBI;
use Encode qw(encode);
my $db;
my $query;
my @row;
my $ergebnis;
my $spaltenname;
my $inhalt;
my $cgi;
my $sid;
my $cgiquery = new CGI;
print $cgiquery->header(-charset=>'ISO-8859-1', -expires=>'+1s', -type=>'text/html',);
require "/srv/v_address/cgi-bin/config.inc.pm";
my $db = &connectDBASE();
my $doc_root = &doc_root_path();
$CGI::Session::MySQL::TABLE_NAME = 'sessions';
my $sid = $cgi->cookie('cgisess') || $cgi->param('cgisess') || undef;
my $session = new CGI::Session("driver:MySQL", $cgi, {Handle=>$db});
my $sid = $session->id();
print $sid;
[/perl]
So ich bekomme ne session id angezeigt aber schon beim nächsten reload der seite ist es ne andere. wieso ist das so?
Datum: 14.08.2007-18:59
sessionbasierter login mit perl
