Автор статьи:
>Включения. Иногда является необходимым включить результат работы CGI-скрипта в Web-страницу, чтобы избежать динамического формирования всей страницы одной большой CGI-программой. К тому же не всегда есть возможность первую страницу сервера сделать не статическим html -документом, а неким index.cgi. Проблемы такого типа легко решаемы, как с помощью специальных средств включения на стороне сервера (SSI), так и по средствам различных ухищрений
SSI Server Side Includes (включения на стороне сервера). Одно из средств решения рассматриваемой проблемы уже реализовано в самом Web-сервере (рассм. Apache 1.3.x). Вам опять же требуется только правильно настроить его. В статье Среда CGI, Web-сервер был затронут момент описания директорий сервера.
Options Indexes FollowSymLinks Includes
AllowOverride None
Order allow,deny
Allow from all
Следует обратить внимание на строку Options опции директории. Так вот последняя директива в этой строке Includes и сообщает Web-серверу, что в этой директории разрешено использовать включения в коде Web-страниц. Однако, этой директивы в строке опций не достаточно. Еще требуется указать типы файлов, в которых допускаются включения:
AddType text/html .html
AddHandler server-parsed .html
Такое определение означает, что включения будут допускаться в файлах с содержанием типа text/html и расширением .html. Дело в том, что Web-сервер имеет собственный SSI-препроцессор, который работает подобно его собратьям из языков программирования высокого уровня. Для того, чтобы он стал корректно работать: проверять коды Web-страниц на наличие своих директив, его надо соответствующим образом настроить. Для этих целей и служат приведенные выше строки-примеры. На этом настройка SSI заканчивается.
Директивы включения. Здесь нас интересует включение результатов работы CGI-скриптов в код статичной Web-страницы, но SSI располагает еще несколькими возможностями. Например, включение другого html-документа в данный или автоматическое включение даты последней модификации Web-страницы. Можно таким же образом вставлять локальную и GMT дату, но эти возможности зачастую выполняет JavaScript. И так, для того, чтобы включить что-либо по средствам SSI в ваш HTML-код нужно вставить строчку вида:
<!--#elementh parameter1=value1 parameter2=value2-->
где каждый элемент имеет свой набор параметров:
config errmsg Посылается сообщение об ошибке
config sizefmt Формат вывода размера файла
config timefmt Формат вывода времени
echo var Печатает специальную переменную
exec cgi Запуск cgi-скрипта, с включением результата
exec cmd Запуск комманды shell
fsize file Выдает размер файла (полный путь)
fsize virtual Путь от корня Web-сервера
include file Вставляет файл (полный путь)
include virtual Путь от корня Web-сервера
set var имя переменной
set value Присваемое значение
Наиболее часто используемым элементом является exec, так как он один позволяет делать специфичные вещи. Остальные элементы не имеют такой популярности, за счет того, что большинство из них реализовано на языке JavaScript или попросту бесполезны.
Счетчик. Первая мысль, которая приходит после включения скриптов, выводящих отладочные бессмысленные надписи, это написать что-либо полезное. Типичным полезным CGI-скриптом требующим SSI является счетчик (образца 1995 года (-; ), формирующий на странице несколько картинок-цифр в соответствии с реальным (или накрученным) количеством посетителей. Алгоритм этой задачи можно обрисовать так: скрипт проверяет IP-адрес+текущую дату следующего посетителя, сравнивая с имеющимися в файле записями, и увеличивает значение счетчика, дополняя файл, если такой хост еще не заходил, или если текущая дата сменилась. CGI-скрипт счетчика включается в HTML-код строкой вида:
<!--#exec cgi="/cgi-bin/counter.cgi"-->
<FORM><TEXTAREA rows=10 wrap=hard>#!/usr/bin/perl
use Time::localtime;
print «Content-Type: text/html \n\n»;
$ip=$ENV{REMOTE_ADDR};
#—Beru datu
$tm=localtime();
$y=$tm->year;
$m=$tm->mon;
$d=$tm->mday;
$m++;
$y+=1900;
#——
$curr=$d.$m.$y.«:».$ip;
#print «Current status: $curr \n\n»;
$yes=0;
open(COUNT, «count.dat») || die «Cannot open count.dat!!!\n»;
while($str=<COUNT>)
{
chomp($str);
if ($curr eq $str)
{
$yes=1;
last;
}
}
close(COUNT);
open(CTR, «ctr.dat») || die «Cannot open ctr.dat file!!!\n\n»;
$ctr=
close(CTR);
if (!$yes)
{
open(COUNT, «>> count.dat») || die «Cannot open count.dat for
writing!\n\n»;
print COUNT «$curr\n»;
close(COUNT);
$ctr++;
open(CTR, «> ctr.dat») || die «Cannot open ctr.dat for writing!\n\n»;
print CTR «$ctr»;
close(CTR);
#—–risujem counter—–
$zeros=«0»x(6-length($ctr));
$ctr=$zeros.$ctr;
@counter=($ctr=~m/(.)/gi);
foreach(@counter)
{
$image=«img/».$_.«OCR.GIF»;
print «<img src=\”$image\”>»;
}
#—————
}else
{
$zeros=«0»x(6-length($ctr));
$ctr=$zeros.$ctr;
@counter=($ctr=~m/(.)/gi);
foreach(@counter)
{
$image=«img/».$_.«OCR.GIF»;
print «<img src=\”$image\”>»;
}
}