Discussion :

[bfb]

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 :

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

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 :

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

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 :

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

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

pour recuperer ma variable il ne me recupere rien.

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

Merci

[Jedai]

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ï

[bfb]

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.

[Jedai]

Et tu as essayé en mettant :

Code :

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

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

au lieu de :

Code :

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

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

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

--
Jedaï

[LE NEINDRE]

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 :

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

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";