#!/usr/local/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; } # Конец проверки ####################################################################### &out_book($page,"a");