Forum Programmation.perl Session en perl !!

Posté par .
Tags : aucun
0
5
juin
2006
salut
une pb m 'a rencontré lors de manipulation de notion de session en perl (je suis debutante dans la programmation avec la lanquage perl !!)
en effet , j 'ai besoin de recuperer le login et le password d'un administrateur pendant toute les etapes demanipulation d'une application des gestions de comptes de messageries pour cela j 'ai pensé au notion de session
dans mon permier page (creation de session ) j'ai fais ce code
#!/usr/bin/perl -w
print "Content-Type: text/html\n\n";
use strict;
use CGI::Session;
use CGI;
use DBI;
use CGI::Carp qw(fatalsToBrowser);
my $cgi = new CGI;
$CGI::DISABLE_UPLOADS = 1; # Disable uploads
$CGI::POST_MAX = 512 * 1024; # limit posts to 512K max

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

#set session to expire in1 hour
$session->expire("+1h");
my $cyrususer = $cgi->param("Login");
my $cyruspassword =$cgi->param("Password");
#store something
$session->param("Login", $cyrususer);
$session->param("Password", $cyruspassword);

#write to disk
$session->flush();
#create the cookie with a 1hour limit..
my $cookie = $cgi->cookie(-name=>"CGISESSID",
-value=>$session->id,
-expires=>"+1h",
-path=>"/tmp");
#set the cookie..
print $cgi->header(-cookie => $cookie );

dans cette page j'ai pu recuperer les parametres à partir de session sans pb
mon pb est que lorsque je veux recuperer ces mêmes paramètres à partir de n'importe autre page je ne peux pas !!!
chaque page contient le code suivant :
#!/usr/bin/perl -w
print "Content-Type: text/html\n\n";
use strict;
use CGI::Session;
use CGI;
use DBI;
use CGI::Carp qw(fatalsToBrowser);
#create a new CGI object.
my $cgi = new CGI;
$CGI::DISABLE_UPLOADS = 1; # Disable uploads
$CGI::POST_MAX = 512 * 1024; # limit posts to 512K max
#try to retrieve cookie.
my $sid = $cgi->cookie("CGISESSID") || undef;
#create session... If I retrieved a previous session id, reconnect to it.
#if not, create a new session.
my $session = new CGI::Session(undef, $sid, {Directory=>'/tmp'});
my $var=$session->param("Login");
print $var ; // ici je ne peux pas recuperer mes paramètres
print "kkkk";
Svp quel est le probleme ?? quelle est la solution ?

Suivre le flux des commentaires

Note : les commentaires appartiennent à ceux qui les ont postés. Nous n'en sommes pas responsables.