Forum Webscript.Ru

Программирование => Perl => Тема начата: Maximka от 08 Октября 2004, 11:01:14

Название: Сесии
Отправлено: Maximka от 08 Октября 2004, 11:01:14

$session = new CGI::Session::File($sid, { Directory => "/tmp" });

$sid = $session->id;


print "$sid

---

";



Вот предположим сессия создана, но вопрос как ее эту же сессию прочесть следующим скриптом, а то постоянно создается новая сессия

Название: Сесии
Отправлено: commander от 08 Октября 2004, 11:18:37

perldoc CGI::Session::File
--------------------------------------------------------------------------------------------
my $sid = param(\'sid\') || cookie(\'sid\') || undef;
my $session = new CGI::Session::File($sid, { Directory => "/tmp" });
unless (defined $sid)
{
$sid = $session->id;
}
my $var="bla-bla-bla";
$session->param("var", $var);
my $var1= $session->param("var");
print $var1;
--------------------------------------------------------------------------------------------

Название: Сесии
Отправлено: Maximka от 08 Октября 2004, 11:45:45

Спасибо за ответ. но...



создали сессию.
А если иф срабатывает то я уже не вижу var1...

if ($take) {

my $var1= $session->param("var");
print $var1;

print "test";

exit;



}


my $session = new CGI::Session::File($sid, { Directory => "/tmp" });
unless (defined $sid)
{
$sid = $session->id;
}
my $var="bla-bla-bla";
$session->param("var", $var);

Название: Сесии
Отправлено: AnnA от 08 Октября 2004, 12:06:59

ух, пришлось мне поразбираться с этим зверем в своё время. :)
приветик.
$q=new CGI;
$sid = $q->param(\'CGISESSID\')||undef;

if ($sid) {$session=new CGI::Session(undef, $q, {Directory=>\'./data/tmp\'});
$sid = $session->id();
$last_access  = $session->atime();
$first_created= $session->ctime();
#восстанавливаем параметры
$var=$session->param(\'var\');
print header(), start_html(),  h4("\\$sid = $sid
var = $var
$last_access
$first_created"), end_html();
 } #EO if ($sid)
 else { $session=new CGI::Session("driver:File", undef, {Directory=>\'./data/tmp\'});

$q->param(-name=>\'var\', -value=>\'some text\');
$session->expire("+1h");
$session->save_param($q);
$sid = $session->id();
print header(), start_html(), a({href=>"$ENV{\'SCRIPT_NAME\'}?CGISESSID=$sid",target=>"_self"},$sid),end_html();
      }

Название: Сесии
Отправлено: commander от 08 Октября 2004, 14:17:33

Maximka
не очень понял вопроса...

AnnA
Весьма странный ответ на ворпос... :)

Название: Сесии
Отправлено: AnnA от 08 Октября 2004, 14:26:54

commander
неудивительно. исходя из того, что

Цитировать

commander:
не очень понял вопроса...

:)

Цитировать

Maximka:
но вопрос как ее эту же сессию прочесть следующим скриптом

commander не видите ответа на этот вопрос в примере кода? :)

Цитировать

Maximka:
то я уже не вижу var1

commander
Вы удивитесь, но пример восстановления параметров в коде тоже есть. ;)

Название: Сесии
Отправлено: commander от 08 Октября 2004, 15:18:15

AnnA
Искренне улыбался читая ваш пост... :)
я тоже могу привести код в котором будет 2000 строк и  восстановления параметров в коде тоже будет... :)
а не очень понял я вот этот вопрос:

Цитировать

создали сессию.
А если иф срабатывает то я уже не вижу var1...

Название: Сесии
Отправлено: AnnA от 08 Октября 2004, 15:33:43

commander
2000 строк действительно было бы странным. хотя, как знать. ;)
в любом случае - вот как всё хорошо получилось: И Maximka
доволен (судя по тишине), и commander искренне заулыбался. :)

Цитировать

commander:
Весьма странный ответ на ворпос

и? :) чем же он вообще "странный", уж не говоря о "весьма"?

Название: Сесии
Отправлено: Maximka от 08 Октября 2004, 15:36:59

Спасибо ВСЕМ... и давайте жить дружно