Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]488[/thread]

Suche Cgi::Session Aufräumfunktionalität



<< >> 2 Einträge, 1 Seite
Gast Gast
 2005-04-29 20:10
#4909 #4909
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:
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
tina
 2005-05-06 16:17
#4910 #4910
User since
2005-01-10
5 Artikel
BenutzerIn
[default_avatar]
Für die die es mal brauchen könnten.

CGI::Session::ExpireSessions

g
tina
<< >> 2 Einträge, 1 Seite



View all threads created 2005-04-29 20:10.