impossible de recuperer une session

Bonjour tous le monde,

J'utilise le module cgi::session et pour l'implementer j'ai suivi ce qui se trouve sur cpan : http://search.cpan.org/~sherzodr/CGI...on/Tutorial.pm

Le seul hic est que je n'arrive pas a recuperer ma session.
Au debut je fais :

Code:

---

my $session = new CGI::Session(undef, undef, {Directory=>'tmp'});

---

Ma session est bien cree il n y a pas de probleme.

puis je stocke ma variable :

Code:

---

1 2 3 4 5

my $cookie = $req->cookie( -name => $session->name, -value => $session->id ); print $req->header( -cookie=>$cookie ); $session->param('variable',$var);

---

Le probleme est que lorsque je rappelle mon script cgi il me cree de nouveau une nouvelle variable de session et lorsque je fais

Code:

---

$result = $session->param(variable');

---

pour recuperer ma variable il ne me recupere rien.

Si quelqu'un a une idee, je suis preneur.

Merci

Tu as vérifié que le cookie était bien sur ton ordi ? Tu as essayé d'utiliser l'autre méthode proposé pour envoyer un cookie ? Tu as essayé de passer l'ID de la session par la query_string ?

--
Jedaï

oui le cookie est bien sur l'ordi. J'ai aussi utilise l'autre methode pour envoyer le cookie. Si je passe l'ID de la session par la query string ca fonctionne mais le truc que je n'ai pas precise est que je veux lancer un script qui va m'initialiser une variable. Si je veux mettre cette variable dans une session c'est pour eviter lors du prochain lancement (l'utilisateur fait precedent et relance le script) d'avoir a reinitialiser cette variable.

Mais d'apres la doc lorsque je fais un new si une session existe elle doit la retrouver en regardant les cookies stockes c'est ce que je voulais faire.

voila mon probleme.

Et tu as essayé en mettant :

Code:

---

1 2	my $session = new CGI::Session();

---

au lieu de :

Code:

---

1 2	my $session = new CGI::Session(undef, undef, {Directory=>'tmp'});

---

Je crains que le premier "undef" ne pose quelques problèmes...

--
Jedaï

J'avais eu des problèmes avec les cookies. Notamment en utilisant la syntaxe avec header.
Pour moi ça marche quand je fais comme cela:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

my %cookie=fetch CGI::Cookie; my $NewValue; if($cookie{'Visites_EDI'}ne '') { my $Value=$cookie{'Visites_EDI'}->value; $NewValue=$Value+1; } my $cook = new CGI::Cookie(-name => 'Visites_EDI', -value => $NewValue, -expires => '+3M'); print "Set-Cookie: $cook\n";

---