Forum Webscript.Ru

Программирование => Perl => Тема начата: от 25 Января 2002, 11:52:30

Название: Кукесы и блокировка
Отправлено: от 25 Января 2002, 11:52:30

1. Можно ли на Перле определить, включены они (куки) или нет?

2. Как можно блокировать файлы на серверах, где не работает flock? Надежён ли такой способ, когда я просто пишу в файл байт (скажем 0x01), читаю всё, что надо (и пишу), потом стираю всё в этом файле, а если там уже есть 0x01, поспать секунду и снова проверить?

Название: можно
Отправлено: Green Kakadu от 25 Января 2002, 13:08:59

Цитировать

Можно ли на Перле определить, включены они (куки) или нет?

все можно, было бы желание, как вариант:
помылаем кукие, далее редирект скрипта на сагого себя с каким-нибудь флагом, а потом проверка наличия кука

#!/usr/bin/perl
#Cookie Test
# WebScript.Ru - Rulezz!
#----------------------------

unless ($ENV{\'QUERY_STRING\'}){
print "Set-Cookie: test=test; path=/; \\n";
$script_url=\'http://webscript.ru/myscript.cgi\';
print "Location:  $script_url?cook=1\\n\\n";
}
$cook=$ENV{\'HTTP_COOKIE\'} || $ENV{\'COOKIE\'};
if ($cook=~/test/){print "COOKIE OK!";}
else {print "COOKIE OFF!";}

Я не пробовал, но мысль, думаю понятна

Цитировать

Как можно блокировать файлы на серверах, где не работает flock?

http://forums.webscript.ru/showthread.php?s=&postid=13872