Perl - проблема с добавлением в cookie -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.216.34.146]

Внимательно изучите правила раздела перед созданием темы

0. ПРИЛАГАЙТЕ СВОИ СКРИПТЫ.
1. Прежде чем создать топик, используйте поиск. Возможно это уже обсуждалось.
2. В топике указывайте ОС, режим работы скрипта (CLI|CGI). Очень желателен вывод лог-файлов и того места, куда у вас назначен вывод данных (STDOUT|STDERR)
3. Помните: вы знаете что вы хотите, а форумчане - нет. Поэтому следуйте простому правилу: грамотный развернутый вопрос - грамотный развернутый ответ.

Модераторы: ANDLL

Perl - проблема с добавлением в cookie

DirectZ

Сообщ. #1 , 23.03.03, 05:17

Junior

Профиль · PM

Рейтинг (т): 0

Пытаюсь создать cookie на Perl, WinXP, IE6(куки разрешены), Apache. Не могу добавить в cookie запись:
Пишу так:

use CGI::Cookie; $New_Cookie = new CGI::Cookie(-name => 'PASSWORD', -value => 'asdftz34', -expires => '+1y', -domain => '.host', -path => '/cgi-bin' -secure => 1 ); print "Content-Type: text/html\n\n"; print header(-cookie=>$New_Cookie); print "<html>"; print "<body>"; print "Test!!!"; print "</body>"; print "</html>";

В куки запись не добавляется, и почему-то браузер выбрасывает вместо текста Test!!! с тагами такой код:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=Content-Type content="text/html; charset=windows-1251"></HEAD> <BODY></BODY></HTML>

Без строки print header(-cookie=>$New_Cookie); все выводится верно.
Подскажите PLS что делаю не так.

Сообщение отредактировано: DirectZ - 23.03.03, 05:26

vot

Сообщ. #2 , 23.03.03, 10:14

Administrator

Профиль · PM

Поощрения: 7 Dgm

Рейтинг (т): 17

Потому, что твой скрипт не срабатывает.
А браузер выдает пустую хтмл-ку по дефолту.
1) Загляни в логи сервера. Найдешь ошибку.
2) Ты пытаешься вывести куки ПОСЛЕ заголовка хттп, а это неправильно.
после text/html должно идти содержимое тела ответа.

DirectZ

Сообщ. #3 , 23.03.03, 12:08

Junior

Профиль · PM

Рейтинг (т): 0

Цитата

Потому, что твой скрипт не срабатывает.
1) Загляни в логи сервера. Найдешь ошибку.

При такой ситуаци нет ошибок.

Цитата

2) Ты пытаешься вывести куки ПОСЛЕ заголовка хттп, а это неправильно.
после text/html должно идти содержимое тела ответа.

А где его тогда выводить? Пробовал ставить перед print "Content-Type: text/html\n\n"; - выдает ошибку. ???

vot	Сообщ. #4 , 23.03.03, 12:48
Administrator Профиль · PM Поощрения: 7 Dgm Рейтинг (т): 17	Надо вот так: #print "Content-Type: text/html\n\n"; #Так мы пишем, только если нет куков print header(-cookie=>$New_Cookie); #Вывести хеадер вместе с куками

DirectZ	Сообщ. #5 , 23.03.03, 14:04
Junior Профиль · PM Рейтинг (т): 0	Цитата Надо вот так: #print "Content-Type: text/html\n\n"; #Так мы пишем, только если нет куков print header(-cookie=>$New_Cookie); #Вывести хеадер вместе с куками #print "Content-Type: text/html\n\n" - без этой строки не работает. Ошибка из лога: Undefined subroutine &main::header called ???

vot

Сообщ. #6 , 23.03.03, 14:23

Administrator

Профиль · PM

Поощрения: 7 Dgm

Рейтинг (т): 17

Цитата DirectZ, 23.03.03, 17:04:24

#print "Content-Type: text/html\n\n" - без этой строки не работает.
Ошибка из лога: Undefined subroutine &main::header called
???

Млин, ну разумеется...
я думал, ты догадаешься создать объект для cgi

)))

use CGI; $hdr = new CGI; $New_Cookie = $hdr->cookie(-name => 'PASSWORD', -value => 'asdftz34', -expires => '+1y', -domain => '.host', -path => '/cgi-bin' -secure => 1 ); #print "Content-Type: text/html\n\n"; print $hdr->header(-cookie=>$New_Cookie); print "<html>"; print "<body>"; print "Test!!!"; print "</body>"; print "</html>";

Nikita	Сообщ. #7 , 23.03.03, 19:29
Senior Member Профиль · PM Рейтинг (т): 1	Цитата vot, 23.03.03, 17:23:43 Млин, ну разумеется... я думал, ты догадаешься создать объект для cgi ))) Тема закрыта? Или мне уже кинуть что-то еще, что у меня в закромах есть? \%) Уж с чем чем, а с этим я поработал \%)

vot	Сообщ. #8 , 24.03.03, 10:20
Administrator Профиль · PM Поощрения: 7 Dgm Рейтинг (т): 17	Кидай, хуже не будет

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0288 ] [ 15 queries used ] [ Generated: 27.04.24, 13:08 GMT ]