#!/usr/bin/perl
# Globals begin 
use CGI::Carp qw(fatalsToBrowser);

$REQUIRE_DIR='require'; 
push (@INC,$REQUIRE_DIR); 

require 'config.cfg'; 
%FORM=(); 
%data=(); 

$result=check_host($ENV{'REMOTE_ADDR'});
if($result eq "stop"){
    error("Banned host");
}
parse_form();
#################################################################### 
#                Проверка заполнения полей 
if(defined($FORM{'page'})&&$FORM{'page'}>0) 
{ 
    $page=$FORM{'page'}; 
} 
else{
    $page=1;
}
#                Конец проверки 
#######################################################################  
#error("Приносим извинения за временные неудобства","Гостевая книга находится на реконструкции.");
&out_book($page,"a");