Как было замечено, каждая статья в оглавлении подключена к сценарию Perl arti-cle.cgi, который получает идентификатор статьи в качестве входного параметра. Этот сценарий использует идентификатор статьи для поиска всего текста статьи и отображения ее в виде сформатированной Web-страницы.
Ниже представлен программный код этого сценария.
Листинг 20.34.
#!/usr/bin/perl
# считать необходимые модули use DBI;
use CGI;
# инициировать объект CGI $cgi = new CGI();
# распечатать HTTP- заголовки print $cgi->header();
# проверка отправки идентификатора статьи
# если да - очистить его и использовать if (! $cgi->param(' aid'))
{
print "Невозможно найти идентификатор статьи, завершение работы
die;
}
else
{
$aid = $cgi->param('aid');
}
# распечатать заголовок страницы print $cgi->start_html;
# подключиться к базе данных
my $dbh = DBI->connect("DBI:mysql:database=dbl;host=localhost", "root", "pass", {'RaiseError' => 1});
# выполнить запрос
my $sth = $dbh->prepare("SELECT atitle, abody FROM articles WHERE aid='$aid'");
$sth->execute();
# если результат имеется
# распечатать содержимое статьи
# иначе - распечатать ошибку if ($sth->rows() > 0)
{
$ref = $sth->fetchrow_hashref();
print "<font face="Verdana, Arial" size="4"
color="#66CCOO">n";
print $ref->{'atitle'}, "n"; 
print "</font>n"; print "<p>n";
print "<font face="Verdana, Arial" size="2"
color="Black">n";
print $ref->{ 'abody'}, "n"; print "</font>n";
}
else
{
print " Невозможно найти содержимое страницы, завершение рабо­ты
die;
}
# закрыть соединение с базой данных $sth->finish(); $dbh->disconnect();
# распечатать нижний колонтитул страницы
# со ссылкой на комментарии print <<EOF;
<font face="Verdana, Arial" size="2" color="Black">
<a href="post.cgi?aid=$aid"> Прокомментировать</a> эту статью. <!font>
EOF
print $cgi->end_html;
Так как для правильного функционирования этого сценария требуется идентификатор статьи, первым шагом является проверка наличия этого идентификатора. Модуль CGI.pm существенно упрощает эту задачу. Метод param() применяется для передачи параметров через переданную сценарию строку запроса или из отправленных методом POST данных. Если идентификатор статьи не найден, сценарий завершает свою работу и выводит сообщение об ошибке.
Предположим, что идентификатор статьи передан сценарию правильно и методы Perl DBI-интерфейса используются для создания запроса после получения полного текста статьи. Тогда полученный полный текст статьи выводится в виде отформатированной Web-страницы. В нижней части страницы содержится ссылка для размещения комментариев посетителей. Для этого используется сценарий post.cgi. Заметим, что сценарий передает идентификатор статьи с помощью метода GET.
Содержание статьи представлено на рис. 20.4.
Конечно, можно удивиться, почему еще не сформировано дерево комментариев, о котором шла речь. Мы вернемся к этому сценарию в разделе "Создание древовидного оглавления комментариев", где и добавим такую возможность.