VPF::Прочитать Cookie скриптом в SSI - Форум программистов

shootnix

Дата 4.8.2008, 18:41 (ссылка)

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

Загрузка ...

Шустрый

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

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

Здрасьти.
Вот такая заковыка: скрипт встроен в .shtml-файл, вот так:

Вот... Эта голосовалка, по идее, должна проверять кукис, но на деле что-то не получается. Может, и не получится? Кто знает? Может, существует какой-то специальный путь чтения кукис через SSI? smile

))

nitr

Дата 7.8.2008, 17:32 (ссылка)

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

Загрузка ...

Эксперт

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

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

shootnix, не знаю. Должно и так работать.

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

I love ArchLinux

korob2001

Дата 7.8.2008, 23:01 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

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

Да впринципе с чтением никаких проблем нет, вот пример:

файл /cgi-bin/read_cookies.pl

Код


#!/usr/bin/perl -w
use strict;
use CGI;

my $cgi = new CGI();
my $cookie = $cgi->cookie('test') || "Can't read cookies. :(";

print $cgi->header( -charset => "windows-1251" );

print $cgi->start_html();
print $cgi->p($cookie);
print $cgi->end_html();

Файл /read_cookies.shtml

Код


<!--#include virtual="/cgi-bin/read_cookies.pl"-->

Кстати прочитать кукисы через SSI можно и таким образом:

Код


<!--#if expr="$HTTP_cookie" --> 
<FONT SIZE="4">You have a cookie set: </FONT><!--#echo var="HTTP_cookie" --> 
<!--#endif -->

Разумеется, что бы всё это заработало, кукисы должны быть уже записаны. Примерно так:

Код


#!/usr/bin/perl -w
use strict;
use CGI;

my $cgi = new CGI();
my $cookie = $cgi->cookie(
    -name => "test",
    -expires => '+1h',
    -value => "Test value - 10"
);

print $cgi->header(
       -charset => "windows-1251",
       -cookie => [$cookie]
);

print $cgi->start_html();

print $cgi->p(";)");

print $cgi->end_html();

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

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

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