Discussion :

[vbcasimir]

bonjour

je rencontre un problème lorsque je crée un cookie et que je souhaite utiliser la redirection
voici un extrait de mon script

Code :

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

1
2
3
4
5
 
...
COOKIESESSION($ident,"+1m");
 
print $cgi->redirect("http://localhost/cgi-bin/pages/perso.pl");

ma fonction contient

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
my ($valCookee , $temp) = @_;
 
my $cook = $cgi->cookie(-name => 'valsession',
					-value => $valCookee,
					-path => '/',
					-expires => $temp);
 
print $cgi->header(-cookie =>$cook);

evidemment lorsque je mets en commentaire le print $cgi->header(-cookie =>$cook); la redirection se passe bien

dans ce cas comment peut-on faire pour éviter ce problème ??

Merci [/quote]

[vbcasimir]

bon j'ai trouvé une info sur google

voici comment j'ai réglé le problème

Code :

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

1
2
3
4
5
6
7
8
9
10
 
my ($valCookee , $temp) = @_;
 
my $cook = $cgi->cookie(-name => 'valsession',
					-value => $valCookee,
					-path => '/',
					-expires => $temp);
 
#print $cgi->header(-cookie =>$cook);
print "Set-Cookie: $cook";

et ça fonctionne ... quand à l'explication je ne la connais pas

si quelqu'un le sait je suis à l'écoute

Merci[/code]

[tfe]

la redirection se fait par le header, je suppose donc que $cgi->redirect envoie un header. Vu que tu ne peux en envoyer qu un c est normal donc que ca te fasse une erreur.
L astuce donc c est d afficher ce que le header devrait donner au client pour creer le cookie, puis de prendre en compte la redirection...

tu devrais faire un print $cgi->redirect(...); et print $cgi->header(...); pour comprendre.

[Jérôme_20]

Bon, même si le problème est résolu, je me permet d'ajouter ma solution car j'ai galéré pas mal de temps la dessus aussi alors si ça peut éviter à quelqu'un d'autres de s'arracher les cheveux...

Alors comme l'a dis tfe, la redirection se fait aussi par le header donc il suffit simplement de coupler les 2 :

Code :

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

1
2
3
4
5
6
my $cookie = $html->cookie( -name=>'sessionID',
                                -value=>$val,
                                -path=>'/',
                                -secure=>0);
 
print $html->header(-cookie=>$cookie, -location => "ma_page.pl");