VPF::Session.pm - Форум программистов

Marlik

Дата 25.4.2010, 12:45 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 212
Регистрация: 25.2.2007
Где: Рязань

Репутация: нет
Всего: нет

Доброго времени суток, создаю сессию:

Код


my $sess_ID = new CGI::Session("driver:File", undef, {Directory=>'tmp/'}) or die;
$sess_ID -> expire('+1m');
my $sid = $sess_ID->id();

my $param1 = "1";
my $param2 = "1";

$sess_ID -> param("param1", "$param1");
$sess_ID -> param("param2", "$param2");
$sess_ID -> close();

Отдаю идентификатор сессии в скрытом поле юзеру. Так вот если идентификатор подменить, то сессия создается все равно, что не есть гуд.

Код


my $sid = $cgi->param('sid');  

my $sess_ID = new CGI::Session("driver:File", "тут левый ид", {Directory=>'tmp/'}) or die;

my $param1 = $sess_ID -> param("param1");

if(!$param1){
print "Ошибка нет такого значения";
exit;
}

my $param2 = $sess_ID -> param("param2");

if(!$param2){
print "Ошибка нет такого значения";
}

$sess_ID -> close();

По идее сессия не должна создаваться, она должна умереть если нет такого ид. Спасает только то, что в сессии нет таких параметров, но это не выход. Может кто сталкивался.

DurRandir

Дата 25.4.2010, 12:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 335
Регистрация: 27.9.2009

Репутация: 1
Всего: 17

А маны на используемый модуль читали?

Marlik

Дата 25.4.2010, 13:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 212
Регистрация: 25.2.2007
Где: Рязань

Репутация: нет
Всего: нет

Ну да...

DurRandir

Дата 27.4.2010, 22:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 335
Регистрация: 27.9.2009

Репутация: 1
Всего: 17

Ну плохо читали)

Marlik

Дата 28.4.2010, 04:19 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 212
Регистрация: 25.2.2007
Где: Рязань

Репутация: нет
Всего: нет

Вы бы лучше сказали где я что упустил, потому как Ваш ответ, и ответом назвать трудно...

AlexanderI

Дата 2.6.2010, 11:06 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 9.7.2004

Репутация: нет
Всего: 3

Я так думаю надо делать проверку:

my $session = CGI::Session->load(undef, "$cook", {Directory=>'tmp/'});

if ( $session->is_expired ) {
# если нет сессии
}
elsif ($session->id()){
#если есть сессия
}

--------------------

Магазин детских игрушек | Авто ВАЗ

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »