Артем (![[info]](http://l-stat.livejournal.com/img/userinfo.gif){kind=small} al1us) wrote in ![[info]](http://l-stat.livejournal.com/img/community.gif){kind=small} ru_perl,@ 2008-02-25 20:35:00 |
|
Сессии
Кусок кода первой страницы:
Создаю сессию, пользователь вводит данные в форму, эти данные сохраняются в сессии. Затем пользователь перенаправляется на ту же страницу, где эти данные проверяются, если все хорошо, то его направляют на другую страницу, где такой код:
В итоге у меня создаётся 2 пустых сессии и одна с моими данными, и в итоге меня перенаправляет на самую первую страницу.
Подскажите, как исправить. Спасибо
Кусок кода первой страницы:
my $cgi = CGI->new();
my $sid = $cgi->cookie("CGISESSID") || undef;
my $session = new CGI::Session(undef, $sid, {Directory=>"/tmp"});
$session->expire("+15m");
$session->param("test", 1);
my $cookie = $cgi->cookie(CGISESSID => $session->id);
print $cgi->header( -cookie => $cookie);
Создаю сессию, пользователь вводит данные в форму, эти данные сохраняются в сессии. Затем пользователь перенаправляется на ту же страницу, где эти данные проверяются, если все хорошо, то его направляют на другую страницу, где такой код:
my $cgi = CGI->new();
my $sid = $cgi->cookie("CGISESSID") || undef;
my $session = new CGI::Session(undef, $sid, {Directory=>"/tmp"});
my $test = $session->param("test");
if ($test) { ... }
else { return ... }
В итоге у меня создаётся 2 пустых сессии и одна с моими данными, и в итоге меня перенаправляет на самую первую страницу.
Подскажите, как исправить. Спасибо
