Forum Webscript.Ru
Программирование => Perl => Тема начата: rvs от 22 Июня 2011, 14:30:24
-
Добрый день.
Имею проблему правильного получения свежих куков в перл-скрипте.
use CGI::Fast
...
while (my $q = new CGI::Fast) {
my $authkey = $q->cookie(\'authkey\');
...
};
Проблема в том, что кука [часто] берётся не из свежего клиентского запроса, а из прокешированных переменных среды.
Я так понял, что переменные среды кешируются. В частности переменная HTTP_COOKIE и потом из проекшированной $ENV{HTTP_COOKIE} вытаскиваются старые куки предыдущих клиентских запросов.
Как этот кеш сбить?
В апаче вот в директиве FastCgiConfig добавил -flush, может поможет? Практикой пока не проверилось.
А вообще вся строка конфига в апачен такая:
FastCgiConfig -maxClassProcesses 100 -init-start-delay 0 -idle-timeout 5 -listen-queue-depth 100 -startDelay 1 -maxProcesses 100 -autoUpdate -restart -restart-delay 5 -killInterval 300 -minProcesses 50 -flush