Почему Safari не устанавливает файлы cookie из моего скрипта Perl CGI?

У меня есть веб-сайт на Perl, который пытается установить количество файлов cookie при первом посещении пользователя, и я только что заметил, что Safari прекратил устанавливать все файлы, кроме первого пропущенного файла cookie. При первом посещении должны быть установлены два файла cookie: "location" и "referrer". В IE и Firefox файлы cookie устанавливаются правильно, но Safari только устанавливает файл cookie "location". Я попытался изменить имена, значения и т. Д. И пришел к выводу, что Safari просто устанавливает первый из двух файлов cookie:

Вот код, который устанавливает куки:

# Add location cookie if necessary
if(!$query->cookie('location') && $user_location) {
    my $cookie = $query->cookie(-name=>'location',-value=>qq|$user_lcoation|,-domain=>".domain.com",-path=>'/',-expires=>'+1Y');
    push(@cookies,$cookie);
}

# Add referrer if first visit
if(!$query->cookie('referrer')) {
    if($ENV{'HTTP_REFERER'}) {
        my $cookie = $query->cookie(-name=>'referrer',-value=>$ENV{'HTTP_REFERER'},-domain=>".domain.com",-path=>'/',-expires=>'+3M');
        push(@cookies,$cookie);
    }
    else {
        my $cookie = $query->cookie(-name=>'referrer',-value=>'unknown',-domain=>".domain.com",-path=>'/',-expires=>'+3M');
        push(@cookies,$cookie);
    }
}

if(scalar(@cookies)) {
    print $query->header(-cookie=>\@cookies);
}

Вот что я получаю, когда пытаюсь получить доступ к сайту из curl:

curl -so /dev/null -D - http://domain.com

HTTP/1.1 200 OK
Date: Thu, 18 Feb 2010 20:19:17 GMT
Server: Apache/2.0.63 (Unix) mod_ssl/2.0.63 OpenSSL/0.9.8e-fips-rhel5 mod_auth_passthrough/2.1 mod_bwlimited/1.4 FrontPage/5.0.2.2635 PHP/5.2.8 mod_perl/2.0.4 Perl/v5.8.8
Set-Cookie: location=Dallas; domain=.domain.com; path=/; expires=+1Y
Set-Cookie: referrer=unknown; domain=.domain.com; path=/; expires=Wed, 19-May-2010 20:19:20 GMT
Transfer-Encoding: chunked
Content-Type: text/html; charset=ISO-8859-1

Есть идеи? Я в растерянности относительно того, что я могу сделать, чтобы помочь решить эту проблему, так как кажется, что мой скрипт передает их правильно. Заранее благодарим вас за любые идеи или идеи, которые вы можете иметь!

Источник

3 ответа

Решение

Посмотрите на expires дата в первом заголовке печенья - это буквально +1Y вместо фактической стандартной даты, которая должна быть. Я предполагаю, что ваша версия Safari задыхается от этого и просто отказывается анализировать оставшиеся заголовки файлов cookie.

Чтобы установить годичный срок годности, правильный синтаксис -expires => '+1y' (строчная Y).

Источник

Немного поздно для aswer, но позже лучше, чем никогда: простой способ, без необходимости переустанавливать / обновлять CGI.pm, это указать дату, когда ваш cookie истекает, используя DateTime.pm:


my $cookie = CGI->new->cookie(
    -name=>'cookie_name',
    -value=>'value',
    -domain=>$ENV{'HTTP_HOST'},
    -expires=>((DateTime->now->set_time_zone('local'))->add(months=>1)->strftime("%a, %d %b %Y %I:%M:%S GMT")),
    -path=>'/',
);

там у меня есть печенье, которое будет длиться 1 месяц. Я проверял это на сафари под XP, отлично работает. надеюсь, это поможет

Источник

Попробуйте обновить CGI.pm (сделайте cpan CGI). У меня была похожая проблема с файлами cookie, которая была решена обновлением CGI.pm.

Источник
Другие вопросы по тегам