Код скрипта /cgi-bin/style.pl

#!C:/apache/bin/perl/perl

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

if($ENV{'HTTP_COOKIE'} eq 'style=red')
{
print "body {background: #600}\n";
}
elsif($ENV{'HTTP_COOKIE'} eq 'style=green')
{
print "body {background: #060}\n";
}
elsif($ENV{'HTTP_COOKIE'} eq 'style=blue')
{
print "body {background: #006}\n";
}
else
{
print "body {background: #666}\n";
}

exit(0);
Полагаю, код этого скрипта совершенно прозрачен для читателя.
Замечу лишь, что опробовать этот пример в действии можно, обратившись к директории \examples\04\06-08 прилагаемого к этой книге компакт-диска.


© 2008-2018 ОптимизацияВебСайтов.ру


Любое использование текстового и графического контента сайта без активной ссылки на источник не доскается.