Opened by Gast at 2005-04-29 20:10
Hallo,
kleine Frage:
Nutze Cgi:Session mit Mysql.
Leider werden die abgelaufenen Session's nicht automatisch gelöscht. Ist das ein Fehler, oder muß ich das expliziet angeben?
Kleiner Beispielcode:
Alles funktioniert soweit, nur werden halt die alten Sessions nur gelöscht, wenn ich das Script mit einer abgelaufenen Session id aufrufe.
Weiß jemand Rat?
Die Doku+Tutorials habe ich gelesen.
Evtl. was übersehen?
g
tina
kleine Frage:
Nutze Cgi:Session mit Mysql.
Leider werden die abgelaufenen Session's nicht automatisch gelöscht. Ist das ein Fehler, oder muß ich das expliziet angeben?
Kleiner Beispielcode:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#!/bin/perl
use lib "/cgf/work/rosecker/perl5";
use CGI;
use CGI::Session;
use OWN::Mysqlconnect;
use strict;
my $dbh = Mysqlconnect::connect ();
my $cgi = new CGI;
my $sid = $cgi->param('p');
if (defined $sid) {
my $session = new CGI::Session("driver:MySQL", $sid, {Handle=>$dbh});
my $id = $session->id();
my $name = $session->param("name");
print "Content-Type: text/html\n\n";
print "<HTML><BODY><H1>$name</H1></BODY></HTML>";
print "in if";
}
else {
my $x = new CGI::Session("driver:MySQL", undef, {Handle=>$dbh});
$x->expire('+1m');
my $i = $x->id();
$x->param('name', 'tina');
print "Content-Type: text/html\n\n";
print "<HTML><BODY><H1>$x</H1></BODY></HTML>";
print "in else";
}
Alles funktioniert soweit, nur werden halt die alten Sessions nur gelöscht, wenn ich das Script mit einer abgelaufenen Session id aufrufe.
Weiß jemand Rat?
Die Doku+Tutorials habe ich gelesen.
Evtl. was übersehen?
g
tina