Установка cookie с использованием Perl/CGI.

Другой способ выставить cookie - с помощью серверного скрипта.

На Perl это будет выглядеть примерно следующим образом: перед

тем как выдавать серверный ответ генерируется HTTP заголовок

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

print "Set-Cookie: username=aaa13; expires=Friday,31-Dec-99 23:59:59 GMT; path=/win/internet/html/; domain=citforum.ru;\n\n";

Чтобы прочитать скриптом значение cookie, которое было установлено

ранее, и соответствующим образом выполнить скрипт, используется

переменная окружения HTTP_COOKIE. На Perl это будет выглядеть

так:

$cookie = $ENV{'HTTP_COOKIE'};

При использовании SSI для просмотра значения cookie можно применить

директиву: