#!/usr/bin/perl
# Гостевая книга
# Записи из гостевой книги лежат в файле guestbook.dat, который дожен
# находиться в одной директории с этим файлом
use CGI;
#Получение значений параметров
$cgi = new CGI;
# Имя
$name=$cgi->param('name');
# e-mail
$mail=$cgi->param('mail');
# Сообщение
$info=$cgi->param('info');
#Определяем логин пользователя, у которого стоит эта гостевая книга
$path=$ENV{'SCRIPT_FILENAME'};
@names=split ("/",$path);
$login=@names[$names-4];
#Генерируем ответ
print "Content-Type: text/html\n\n";
#Если поле 'Имя' и поле 'Сообщение' не пусты, генерируем файл состоящий
#из сообщения, переданного пользователем
#РЕЖИМ ДОБАВЛЕНИЯ СООБЩЕНИЯ ПОЛЬЗОВАТЕЛЯ
if (($info ne '') && ($name ne '')) {
print "Отосланная информация";
print "";
print "
";
print "
Отосланная информация
";
print "
";
print "
Имя:
",$name,"
";
print "
E-mail:
",$mail,"
";
print "
Сообщение:
",$info,"
";
print "
";
print "
";
print "
";
print "
";
print "\n";
#Добавляем сообщение пользователя в файл guestbook.dat
open GB,">>guestbook.dat";
print GB $info;
print GB "\n ",$name,"\n";
close GB;
}
# РЕЖИМ ОТОБРАЖЕНИЯ ГОСТЕВОЙ КНИГИ
# если хоть одно из полей 'Сообщение' или 'Имя' пусто, просто отбражаем
# гостевую книгу
else
{
print "Моя гостевая книга";
print "";
#Форма для добавления сообщения
print " ";
print "";
print "";
#Собственно гостевая книга
open GB,"guestbook.dat" || die "Can't open file guestbook.dat $!";
@Data=;
foreach ( @Data ) { print; }
close GB;
#Кнопка возврата на главную страницу
print "