VPF::Проблема с Кукисами. - Форум программистов

Vbif

Дата 4.9.2005, 05:36 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Есть подпроцедура достающая значение из предварительно созданного кукиса.

Код


sub Get_Cookie {
%Info = fetch CGI::Cookie;
$id = $Info{"Session"}->value;
                 }

Она вызываеться во множестве других подпроцедур, для использования переменной $id.
Так вот, нужно вызвать др. подпроцедуру, в случае, если кукиса нету. В подпроцедуре, банальный редирект, на то что сессия истекла.

Пробовал, вот так:

Код


sub Check_Cookie {
%Info = fetch CGI::Cookie;
$id = $Info{"Session"}->value;

  if (defined($if))

      {
             return $id;
                               }

  else

      {
             die; &Redirect;
                                       }

                                                 }

Но, не работает smile

Заранее всех благодарю.

Vbif

Дата 4.9.2005, 05:38 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Упс, извиняюсь, не до конца разобрался с кнопочкой КОД smile

sharq

Дата 4.9.2005, 10:08 (ссылка)

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

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

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

Vbif на самом деле, ты все правильно делал, только убери die перед вызовом подпрограммы. smile

Но я сделал бы так:

Код


sub Check_Cookie {
  ...
  return ( defined $id ? $id : 0);
}

И затем в программе, где вызывается эта функция:

Код


my $get_id = Check_Cookie() || Check_Param() || undef;

где Check_Param() - функция проверки параметров переданных программе (если кукисы отключены).
или

Код


my $get_id = Check_Cookie();
if (defined $get_id) {
  My_Header();
  My_Print("You have cookie: $get_id");
} else {
  Redirect();
}

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

[color=gray]There's More Than One Way To Do It[/color]

Vbif

Дата 4.9.2005, 17:53 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Сенкс, почти заработало, но писало в логи

Can't call method "value" on an undefined value at

Что решилось довольно банально

Код


$id = $Info{"Session"}->value if defined(%Info);

sharq

Дата 4.9.2005, 19:48 (ссылка)

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

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

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

Vbif

Цитата(Vbif @ 4.9.2005, 18:53)

Can't call method "value" on an undefined value at

Что решилось довольно банально

$id = $Info{"Session"}->value if defined(%Info);

Это не всегда сработает, лучше:

Код


$id = $Info{"Session"}->value if %Info && defined $Info{"Session"};

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

[color=gray]There's More Than One Way To Do It[/color]

sharq

Дата 4.9.2005, 20:05 (ссылка)

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

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

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

И это тоже не спасет. smile

Если у $Info{"Session"} метода нет, то будет ошибка.

Если ты хочешь max избежать ошибки, то

Код


my %Info = fetch CGI::Cookie;
my $sess = $Info{"Session"} if exists $Info{"Session"} ;
# ты знаешь, что если $sess - сужествует, то это по любому ссылка на объект, 
# у кот есть метод value, поэтому проверяй существование $sess
my $id = $sess->value() if defined $sess;

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

[color=gray]There's More Than One Way To Do It[/color]

Vbif

Дата 5.9.2005, 01:46 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Снимаю шляпу smile

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