VPF::Cookie Запись, проверка, выход - Форум программистов

Vavilen

Дата 12.7.2009, 21:21 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте!
Проблема такова:
не могу передать куку броузеру
вот кусок модуля:

Код


sub render_page {
    my $self = shift;
    my ($tmpl_file, $params) = @_;
    my $cookie =$self->_cookie();
    
    $tmpl_file || die "Expected tmpl file!";
    my $tmpl = HTML::Template -> new (filename => $tmpl_file, die_on_bad_params => 0);
    $tmpl -> param (EMPLOYEE_INFO => $params) if ref $params eq 'ARRAY';
    $tmpl -> param($params) if ref $params eq 'HASH';
       print "Content-Type: text/html\n\n";
       print "Set-Cookie: $cookie\n";
    print $tmpl->output;
}

При этом кука выводится на экран в броузее, а не передается в заголовке smile

пробовал по аналогии с документации CGI::Cookie, то есть:
If you want to set the cookie yourself, Within a CGI script you can send a cookie to the browser by creating one or more Set-Cookie: fields in the HTTP header. Here is a typical sequence:

Код


my $c = new CGI::Cookie(-name    =>  'foo',
                          -value   =>  ['bar','baz'],
                          -expires =>  '+3M');

  print "Set-Cookie: $c\n";
  print "Content-Type: text/html\n\n";

В этом случае кука вообще никак не передается.
Подскажите, пожалуйста, в чем проблема?

KSURi

Дата 13.7.2009, 15:05 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


       print "Content-Type: text/html\n\n";
       print "Set-Cookie: $cookie\n";

Найдите отличие своего кода от примера CGI::Cookie. Вы отделили заголовки от контента слишком рано.

ЗЫ: кстати, насколько я помню, по RFC правильно делать "\r\n" x 2, а не "\n\n"

Это сообщение отредактировал(а) KSURi - 13.7.2009, 15:05

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

Died at Life.pl line 21

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