Discussion :

[elvivo]

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 !!

[elvivo]

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

En gros je fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[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.

[elvivo]

Oui la doc c'est deja fait, tout mon mecanisme de session repose dessus de toute facon
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.