Discussion :

[Leeloo5]

Bonjour,
je travaille actuellement sur un script cgi qui est appelé plusieurs fois avec la commande href...
Mon script s'ouvre alors à nouveau, mais forcément toutes mes variables globales ont perdu leur valeur! J'aimerai donc savoir comment faire pour avoir des variables "superglobales", un peu comme en php?
J'ai cru comprendre que c'était possible avec mod_perl? Savez vous comment ça fonctionne, et s'il n'y a pas + simple?

Merci d'avance, je sèche un peu là!

[Jedai]

Tu parles soit de variables de session, soit d variable de configuration, précise.

--
Jedaï

[Leeloo5]

Euh de session, du genre le numéro de l'organisme étudié.

J'ai trouvé ceci: print $q->hidden('organism', $organism); , mais je crois que ça ne fonctionne qu'avec la soumission d'un formulaire, pas avec href...

Sinon j'ai vu que je pouvais rajouter des valeurs de variables directement dans l'url, mais question sécurité c'est pas idéal!

Ah et je vais aussi avoir à stocker des tableaux comme ça...

[Jedai]

Généralement ce que l'on fait passer dans l'URL c'est un identifiant de session (à moins qu'on utilise un cookie), les variables restant sur le serveur. Il y a un certain nombre de modules pour gérer ce genre de chose, CGI::Session par exemple.

--
Jedaï

[Leeloo5]

Merci, j'essaie donc d'utiliser CGI::Session, mais je n'arrive toujours pas à récupérer les valeurs de mes variables

j'ai fait comme ceci:

use CGI;
use CGI::Session;

$session = new CGI::Session();

sub initiate {
if (!$session->param('organism')) {
$session->param('organism', $q->param('organism'));
}
if (!$organism) {
$organism=$session->param('organism');
}
}

mais plus loin dans le programme j'utilise un formulaire et ensuite lorsque je fais $organism=$session->param('organism'); je n'obtiens rien!

Qu'est ce que j'ai mal fait ou oublié?

[Leeloo5]

ça ne viendrait pas d'un problème d'identifiant de session? je suis perdue lol

[Leeloo5]

Personne ne voit le problème? Aidez moi svp je sèche!!

J'ai vu qu'il y avait les cookies aussi mais bon ça n'est peut être pas très approprié...

[crochepatte]

En effet, tu as un soucis d'identifiant de session.
Lorsque tu crées une premiere fois une session, tu recupere son sid...Si tu y stocke des informations, et que tu souhaite les recuperer dans un autre cgi, il faut initialiser une nouvelle session avec cette sid...tes données stockées seront accessible...
Voila une petit exemple pour etre un peu plus clair...

CGI 1:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
# load cgi module
use CGI;
use CGI::Session;
#je cree une nouvelle session
my $session = new CGI::Session("serializer", undef, {Directory=>"/tmp"});
#je recupere son sid
my $sid = $session->id();
#j'y stocke une valeur
$session->param('organism', $q->param('organism'));
...

CGI 2: tu doit passer à ce CGI le sid en parametre via l'url par exemple...

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
 
# load cgi module
use CGI;
use CGI::Session;
 
my $cgi = new CGI;
 
#je recupere son sid (a toi de modifier en fonction de ton code du CGI 1)
my $sid = $cgi->param("sid");
 
#je cree une nouvelle session avec le sid
my $session = new CGI::Session("serializer", $sid, {Directory=>"/tmp"});
 
 
 
#j'y recupere ma valeur
my $organism = $session->param('organism');
 
...

J'espere que cela pourra t'aider...

A+

[mhmfasty]

Voila je suis coincé sur le même problême de variable de session et cela n'avance pas du tout !

Pour le moment 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
13
14
 
# Expiration de la session serveur
  $session = new CGI::Session("driver:File",$cookie,{'Directory'=>"../tmp"}) or  die "$!";
  $session->clear();
  $session->expire('+2h');
 
$session->param('status',$zstatus);
$session->expire('+2h');
 
# Envoi du cookie reliant l'utilisateur à sa session serveur
$id = $session->id();
$host = $ENV{'HTTP_HOST'};
print "Set-Cookie: session=$id; domain=.$host; path=/\n";
$session->flush();

Le cookies est crée, mais pour le récuperer ainsi que la session Id je n'y arrive pas :

Code :

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

1
2
3
4
5
6
7
8
 
$query = new CGI;
$cookie = $query->cookie(-name => "session");
if ($cookie) {
  CGI::Session->name($cookie);
}
$session = new CGI::Session("driver:File",$cookie,{'Directory'=>"../tmp"}) or die "PERDU";
$status = $session->param('status');

Voila, peut etre que je m'y prends mal, mais ca fait un bout de temps que je cherche et je n'y arrive pas.

Pour aider je tourne sous win_xp avec easy php.


Merci d'avance.



Edit 22 mai 07 : "J'ai effectuer le passage de la session id par des get et des post et cela fonctionne, merci pour le tuyaux.