Forum Webscript.Ru

Программирование => Perl => Тема начата: Inecs от 28 Июля 2005, 19:07:12

Название: Установка нескольких кукисов
Отправлено: Inecs от 28 Июля 2005, 19:07:12

Вот код. Не знаю печему устанавливается только первая кука

$cookie=cookie(-name => \'myperl\',
               -value => $user_sid,
               -expires => \'+5y\',
);
$cookie2=cookie(-name => \'cookie_test\',
                    -value => \'test\',
                    -expires => \'+5y\',
);
print header(-cookies=>[$cookie,$cookie2]);

Мож кто подскажет в чём дело

Название: Установка нескольких кукисов
Отправлено: NeoNox от 28 Июля 2005, 19:32:20

perldoc CGI::Cookie
Самый первый пример.

Название: Установка нескольких кукисов
Отправлено: Inecs от 28 Июля 2005, 19:53:35

$cookie1 = new CGI::Cookie(-name=>\'myperl\',-value=>$user_sid,-expires=>\'+5y\');
        $cookie2 = new CGI::Cookie(-name=>\'test\',-value=>\'testtest\',-expires=>\'+5y\');
        print header(-cookie=>[$cookie1,$cookie2]);

И опять нихрена. Ставит только первую куку и всё. Какие будут предложения?

Название: Установка нескольких кукисов
Отправлено: NeoNox от 28 Июля 2005, 20:51:31

#!/usr/bin/perl
use CGI qw/:standard/;
use CGI::Cookie;

$user_sid = 1;

$cookie1 = new CGI::Cookie(-name=>\'myperl\',-value=>$user_sid,-expires=>\'+5y\');
$cookie2 = new CGI::Cookie(-name=>\'test\',-value=>\'testtest\',-expires=>\'+5y\');
print header(-cookie=>[$cookie1,$cookie2]);

Работает?

Название: Установка нескольких кукисов
Отправлено: Inecs от 28 Июля 2005, 20:59:51

Неа. И на локальном серваке попробовал и на хостинге. Всё равно выставляет $cookie1 а второй не ставит.

Название: Установка нескольких кукисов
Отправлено: NeoNox от 28 Июля 2005, 21:02:21

http://XXX/11.cgi

GET /11.cgi HTTP/1.1
Host: XXX
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.6) Gecko/20050225 Firefox/1.0.1
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive

HTTP/1.x 200 OK
Date: Thu, 28 Jul 2005 17:05:09 GMT
Server: Apache/1.3.27 (Unix) mod_fastcgi/2.4.0
Set-Cookie: myperl=1; path=/; expires=Tue, 27-Jul-2010 17:05:09 GMT
Set-Cookie: test=testtest; path=/; expires=Tue, 27-Jul-2010 17:05:09 GMT
Keep-Alive: timeout=15, max=100
Connection: Keep-Alive
Transfer-Encoding: chunked
Content-Type: text/html; charset=ISO-8859-1
----------------------------------------------------------

Это то что я получаю в ответ на запрос тестового скрипта приведенного выше.

Название: Установка нескольких кукисов
Отправлено: Inecs от 28 Июля 2005, 21:05:16

Блин Я ща посмотрел в опере. Там всё отлично. Все два кука видны. А в эксплорере вообще нефига. Бага эксплорера?

Название: Установка нескольких кукисов
Отправлено: Inecs от 28 Июля 2005, 21:08:25

Хм А почему:
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Content-Type: text/html; charset=ISO-8859-1

Название: Установка нескольких кукисов
Отправлено: Inecs от 28 Июля 2005, 21:27:00

Всё разобрался с этим. Спасибо.