URL: https://linuxfr.org/forums/programmation-perl/posts/session-en-perl--2
Title: Session en perl !!
Authors: linuxesti
Date: 2006年06月05日T09:33:17+02:00
Tags: 
Score: 0
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 ?**
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="httpS://linuxfr.org/forums/programmation-perl/posts/session-en-perl--2.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/forums/programmation-perl/posts/session-en-perl--2.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>