[CGI][SESSION]Probleme de nettoyage des sessions

Version imprimable

06/02/2007, 19h42
elvivo

[CGI][SESSION]Probleme de nettoyage des sessions

Salut,

J'ai remarque un truc en testant CGI::Session, les sessions qui ne sont plus utilisees (qui sont souvent expirees en plus) ne sont jamais supprimees. Y a t il un moyen de faire un nettoyage du repertoire de stockage pour chaque acces aux sessions par Perl un peu dans le style de ce qui est fait automatiquement en PHP ?

Merci d'avance !!

Bon je me suis trouve une solution temporairement definitive (je suis preneur d'une meilleure solution).

En gros je fais:

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
use strict ;
use Safe ;
...
# get list of session files
my $FilesList = [glob($Instance->{sesstmpdir}.'*')] ;
my $CleanupList = [] ;
 
# sandbox for safe eval
my $Safe = new Safe() ;
 
foreach my $FileName (@{$FilesList})
{
	open FILE, $FileName ;
 
	my $Data = undef ;
	while (<FILE>)
	{
		$Data .= $_ ;
	}
 
	# remove possible '\n'
	my ($SafeString) = $Data =~ m/^(.*)$/ ;
 
	# deserialize session file content
	my $Session = $Safe->reval($SafeString) ;
 
	# check if session if expired
	if ($Session->{_SESSION_ETIME} and $Session->{_SESSION_CTIME} + $Session->{_SESSION_ETIME} < time)
	{
		push @{$CleanupList}, $FileName ;
	}
 
	close FILE ;
}
 
# remove all expired session files
foreach my $FileName (@{$CleanupList})
{
	unlink $FileName ;
}

J'ai peur que si il y a 300 sessions le temps d'acces devienne longuet ...

07/02/2007, 11h43
Tygrou

Deja au cas où tu ne l'aurais pas déjà fait tu peux jeter un coup d'oeil à la documentation du CPAN.

CGI::Session

En ce qui concerne ton problème tu as essayé de mettre un temps limité a tes sessions ?
en utilisant la methode

$session->expire("2h");

normalement ça fonctionne plutot bien.
07/02/2007, 15h18
elvivo

Oui la doc c'est deja fait, tout mon mecanisme de session repose dessus de toute facon :D
En fait je met par defaut une expiration d'un mois pour mes sessions.
Mais j'ai fait mes tests avec 10 secondes. Donc dans le cas ou j'ouvre mon browser, ca cree le fichier de session. Si j'attends plus de 10 secondes et rafraichi, ca regenere bien une autre session et efface j'ancienne expiree (base sur le ssid passe a new CGI::Session).
Mais lorsque je ferme et rouvre le browser et me reconnecte, un fichier de session supplementaire est cree et l'ancien, meme expire n'est jamais efface.
J'ai parcouru la doc des modules CGI en long, en large et en travers et je n'ai pas trouver de solution a mon probleme dedans.