#!/usr/bin/perl -w
# Измените на верный путь к Perl на вашем сервере

###############################################################################
# boardadd.pl
###############################################################################
# AUTO Board version 1.1t Freeware
# Доска объявлений.
# Автор: Вячеслав Максимов (support@top-top.ru)
# =============================================================================
# Новые версии и другие скрипты: http://www.top-top.ru/products/scripts/
# =============================================================================
# Copyright Fortex+ (c) 1999, 2000
###############################################################################

# Подключаем файл с HTML кодами и настройками
require "define.pl";

# Получаем данные методом GET
&read_get;

print "Content-type: text/html\n\n";

# Проверяем полученные данные на корректность
if ($FORM{'razdel'} eq '') {
 &head_page;
 &error_razdel;
 &end_page;
 exit;
}
if ($FORM{'period'} > $default_maxperiod) {
 $FORM{'period'}=$default_maxperiod;
}
if ($FORM{'period'} eq '' || $FORM{'period'} eq '0') {
 $FORM{'period'}=$default_period;
}
if ($FORM{'message'} eq '') {
 &head_page;
 &error_nomessage;
 &end_page;
 exit;
}
if (length($FORM{'message'}) > $maxlenmessage) {
 &head_page;
 &error_maxmessage;
 &end_page;
 exit;
}

# Получаем текущее время
&get_time;

# Открываем файл базы на чтение
open(DB,"$basefile") || die print "Cannot open file $basefile: $!";
@base = <DB>;
close(DB);

# Открываем файл базы на запись
open(DB,">$basefile") || die print "Cannot open file $basefile: $!";
&filelock;
truncate(DB,0);
# Записываем полученные данные в начало
print DB "$FORM{'razdel'}\|$FORM{'period'}\|$FORM{'city'}\|$FORM{'email'}\|$FORM{'telephon'}\|$FORM{'icq'}\|$FORM{'message'}\|$time\|$date\|\n";
print DB @base;
&fileunlock;
close(DB);

# Выводим страницу с сообщением "OK"
&head_page;
&resultsadd_page;
&end_page;

exit;
