URL: https://linuxfr.org/forums/programmation-perl/posts/session-en-perl--3
Title: session en perl
Authors: linuxesti
Date: 2006年06月07日T09:59:30+02:00
Tags: 
Score: 0
Salut , 
 
j'ai une autre question cette fois concerne la notion de session en perl 
en effet , l'administarteur doit entrer avec un lodin et password 
ceci doit être recuperer pendant toute sa manipulationde l'application puisque chaque tache qui va effectuer necessite la login et le mot de pass grace à l'instrution suivante (en perl ) 
use Cyrus::IMAP::Admin; 
my $cyrus = Cyrus::IMAP::Admin->new('localhost'); 
$cyrus->authenticate('$Mechanism','imap','','$login','0','10000','$password'); 
$cyrus->nom_de_methode (listing renommage , modifier quota ....) 
pour ce la je pense au notion de session en perl (un peu difficile ) 
dans ma première page je fais ce petit 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 in 1 hour 
$session->expire("+1h"); 
 
my $cyrususer = $cgi->param("Login"); 
my $cyruspassword =$cgi->param("Password"); 
#store login and password 
$session->param("Login", $cyrususer); 
$session->param("Password", $cyruspassword); 
 
#write to disk 
$session->flush(); 
//j'ai testé ici la recuperation des paramètres et ça fonctionne 
////////////////////////////////////////////////////////////////////////////////////////////////// 
le pb est quand je veux de recuperer ses paramètres à partir d' une autre page qui contient le code suivant au debut 
#!/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'}); 
print $session->param("Login"); // ici aucun paramètre est retourné 
/////////////////////////// 
svp si vous puvez concentrer dans les codes pour avoir ou est l'erreur . syntaxe est un peu difficile et je ne suis pas encore compétente dans le programmation avec perl !!!! 
merci
</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--3.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/forums/programmation-perl/posts/session-en-perl--3.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>