VPF::странная проблема с куками - Форум программистов

zorch

Дата 19.3.2006, 20:59 (ссылка)

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

Загрузка ...

Новичок

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

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

сделал тестовую прогу

Код


#!/usr/bin/perl
use CGI;
$hash=true_rand(); # Функция рандома, писал сам
$flogin="zorch";
#Устанавливаем куку
my $query = CGI->new;
print $query->header(-cookie => $query->cookie(-name => $flogin,-value => $hash,-expires =>  '+3M'));

При этом кука появляется, все нормально работает.
Вставляю в большую свою программу которую пишу, в виде функции:

Код


sub cook
{
                        $hash=true_rand();
                        $dbh = DBI->connect("DBI:mysql:XXXXXXXXX", "XXXX", "XXX");
                        $sth = $dbh->prepare("UPDATE users SET `ip`='$ip',`hash`='$hash' WHERE login = \"$flogin\" ");
                        $sth->execute();
                        $dbh->disconnect;
                        my $query = CGI->new;
                        print $query->header(-cookie => $query->cookie(-name => $flogin,-value => $hash,-expires =>  '+3M'));
}

В базу все кладется. А вот кука не появляется! Где грабли?

BlackLFL

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

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

Загрузка ...

Опытный

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

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

Цитата(zorch @ 19.3.2006, 21:59

)

Вставляю в большую свою программу которую пишу, в виде функции:

теневые послыки должны выставляться перед заголовком типа документа, проверьте скрипт, нет у Вас вызова ранее, например:

Код


print $q->header('text/html');

zorch

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

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

Загрузка ...

Новичок

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

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

Нет. Ничего таког нет.
Забыл уточнить, в логах все чисто, и при выполнении sub cook на экране появляется строка типа

Код

Set-Cookie: name=value; path=/; expires=Sat, 17-Jun-2006 17:46:53 GMT Date: Sun, 19 Mar 2006 17:46:53 GMT Content-Type: text/html; charset=ISO-8859-1

BlackLFL

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

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

Загрузка ...

Опытный

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

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

Цитата(zorch @ 19.3.2006, 22:23

)

и при выполнении sub cook на экране появляется строка типа

это говорит о том, что Ваша программа уже отдала заголовок! ищите внимательнее ...
Добавлено @ 21:36
вариант с "ошибкой", т.к. заголовок уже отдан на 7 строчке

Код


#!/usr/bin/perl
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser); # For debuging
use CGI;

print "Content-type: text/html\n\n";

sub cook {
    my $query = CGI->new;
    print $query->header(-cookie => $query->cookie(-name => 'login',-value => 'Black',-expires =>  '+3M'));
}

&cook;
1;

выведет на экран

Цитата

Set-Cookie: login=Black; path=/; expires=Sat, 17-Jun-2006 18:37:38 GMT Date: Sun, 19 Mar 2006 18:37:38 GMT Content-Type: text/html; charset=ISO-8859-1

zorch

Дата 21.3.2006, 13:50 (ссылка)

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

Загрузка ...

Новичок

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

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

Да спасибо. Заголовок отдавался раньше.

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