Forum Webscript.Ru
Программирование => Perl => Тема начата: AlexTu от 30 Ноября 2002, 02:10:48
-
на странице создаю куки:
name: cookie+\'j\' //(j-счётчик)
expire + 30 мин
без path & domain
проверил куки читаются нормально(под browser\'ом)
на тойже странице ссылка типа: "просмотр корзины" на скриптик перловский:
use CGI qw(:standard);
use CGI::Cookie;
...
$x=0;
@all=();
do {
print cookie("cookie$x");
$x++;
}
while ($x<20);
НИЧЕГО не выводит :(
в чём дело? вроде всё правильно? в форуме порыскал не нашёл Ж(
-
Во-первых проверь, есть ли твои куки в $ENV{\'HTTP_COOKIE\'}.
Если их там нет, то значит либо ты их не правильно ставил, либо клиент их не принял.
-
блин.
print $ENV{\'HTTP_COOKIE\'};
действительно ничего не выводит
а в
print qq($_ - $ENV{$_}
) for sort keys %ENV;
вообще \'HTTP_COOKIE\' нет (хотя может потому, что ==\'\')
куки ставил так:
var expire = new Date()
var t = expire.getTime()
t += 1000*60*30; //кук на 30мин
expire.setTime(t);
set_cookie("cookie"+j,value,expire)
function set_cookie(name,value,expires){
var prefix = name + "="
var newCookie = prefix + escape(value)+
((expires) ? ";expires=" + expires.toGMTString():"")
document.cookie = newCookie
}
-
спасибо за ответы! Ж(
извратившись замутил так:
клик накнопке=>javascript=>сбор нужных куков=>отсылка на .pl с атачментом(.pl?...)=>разборка параметров в .pl
не правда ли через Ж@||% !!!!
ЛЮДИ!!! ВЫ ЖЕ УМНЫЕ ПРЕДЛОЖИТЕ КАК НОРМАЛЬНО СДЕЛАТЬ!!!!
-
попробуй эту функцию:
function SetCookie (name,value,expires,path,domain,secure) {
document.cookie = name + "=" + escape (value) +
((expires) ? "; expires=" + expires.toGMTString() : "") +
((path) ? "; path=" + path : "") +
((domain) ? "; domain=" + domain : "") +
((secure) ? "; secure" : "");
}
SetCookie(\'test\', \'152\', expiry, \'/cookie/\', \'\', \'\');
Только что проверял - ПХП-скрипт куки принимает