Ошибка

#!/usr/bin/perl #|############################################ #| # #| Guestbook MBook v3.1 # #| Copyright (C) 2001-2007 ModernSite Group # #| Website: http://mbook.mod-site.net # #| Email: admin@mod-site.net # #| # #|############################################ use strict; use Mylib; use Gl; use Gb; use GbAct; use vars qw(%x11 %x10); *x10=\%Gl::x10; *x11=\%Gb::x11; Gb::x392(); Gb::x393(); if ($x11{'action'} ne 'addban' && $x11{'action'}=~/^add(.*)$/) { my $x85=Mylib::x492($1); if ($x85time()-60*60) { $x11{'action'}='add'; } else { print "Content-type: text/html\n\nСработала система antispam!"; exit; } } my $x479='./data/vars'; sub x478{ my $x480="Content-type: text/html\n\n Ошибка !msg! "; $x480=~s/!msg!/$_[0]/; print $x480; } unless (-e $x479) { x478('Гостевая книга не установлена. Запустите установочный скрипт.'); exit; } elsif (!-e './agree') { x478('Запустите установочный скрипт и прочитайте лицензионное соглашение.'); exit; } elsif (-e './install.cgi') { x478('Удалите установочный скрипт.'); exit; } if (Gb::x394()) { Gb::x395(); if ($x11{'action'} eq 'adminenter' || $x11{'adminenter'}) { eval('use GbAct_codes;'); GbAct_codes::x188(); } if ($x11{'action'} eq 'show') { eval('use GbAct_show;'); GbAct_show::x43(); } elsif ($x11{'action'} eq 'add') { eval('use GbAct_add;'); GbAct_add::x215() } elsif ($x11{'action'} eq 'preview') { eval('use GbAct_show;'); GbAct_show::x44() } elsif ($x11{'action'} eq 'codes') { eval('use GbAct_codes;'); GbAct_codes::x185() } elsif ($x11{'action'} eq 'smiles') { eval('use GbAct_codes;'); GbAct_codes::x186() } elsif ($x11{'action'} eq 'rules') { eval('use GbAct_rules;'); GbAct_rules::x244() } elsif ($x11{'action'} eq 'search') { eval('use GbAct_search;'); GbAct_search::x591() } elsif ($x11{'action'} eq 'admin') { eval('use GbAct_codes;'); GbAct_codes::x187() } elsif ($x11{'action'} eq 'showdemo') { eval('use GbAct_codes;'); GbAct_codes::x189() } elsif ($x11{'admin'}) { eval('use GbAct_adm;'); if ($x11{'action'} eq 'exit') { GbAct_adm::x246() } elsif ($x11{'action'} eq 'options') { GbAct_adm::x247() } elsif ($x11{'action'} eq 'change_options'){ GbAct_adm::x248() } elsif ($x11{'action'} eq 'set_default_options') { GbAct_adm::x249() } elsif ($x11{'action'} eq 'edit') { $x11{'edit_gb'}=1; eval('use GbAct_show;'); GbAct_show::x43(); } elsif ($x11{'action'} eq 'change') { GbAct_adm::x250() } elsif ($x11{'action'} eq 'editmes') { GbAct_adm::x251() } elsif ($x11{'action'} eq 'changemes') { GbAct_adm::x252() } elsif ($x11{'action'} eq 'preedit') { GbAct_adm::x253() } elsif ($x11{'action'} eq 'prepubent') { GbAct_adm::x254() } elsif ($x11{'action'} eq 'prepubcom') { GbAct_adm::x255() } elsif ($x11{'action'} eq 'predel') { GbAct_adm::x256() } elsif ($x11{'action'} eq 'ban') { GbAct_adm::x257() } elsif ($x11{'action'} eq 'addban') { GbAct_adm::x258() } elsif ($x11{'action'} eq 'change_ban') { GbAct_adm::x259() } elsif ($x11{'action'} eq 'structure') { GbAct_adm::x260() } elsif ($x11{'action'} eq 'change_structure') { GbAct_adm::x261() } elsif ($x11{'action'} eq 'set_default_structure') { GbAct_adm::x262() } elsif ($x11{'action'} eq 'ent_structure') { GbAct_adm::x263() } elsif ($x11{'action'} eq 'change_ent_structure') { GbAct_adm::x264() } elsif ($x11{'action'} eq 'set_default_mes') { GbAct_adm::x265() } elsif ($x11{'action'} eq 'com_structure') { GbAct_adm::x266() } elsif ($x11{'action'} eq 'change_com_structure') { GbAct_adm::x267() } elsif ($x11{'action'} eq 'form_structure') { GbAct_adm::x268() } elsif ($x11{'action'} eq 'change_form_structure') { GbAct_adm::x269() } elsif ($x11{'action'} eq 'set_default_form') { GbAct_adm::x270() } elsif ($x11{'action'} eq 'sys_messages') { GbAct_adm::x271() } elsif ($x11{'action'} eq 'change_sys_messages') { GbAct_adm::x272() } elsif ($x11{'action'} eq 'set_default_sysmes') { GbAct_adm::x273() } elsif ($x11{'action'} eq 'stylesheet') { GbAct_adm::x274() } elsif ($x11{'action'} eq 'change_stylesheet') { GbAct_adm::x275() } elsif ($x11{'action'} eq 'set_default_stylesheet') { GbAct_adm::x276() } elsif ($x11{'action'} eq 'rules_structure') { GbAct_adm::x277() } elsif ($x11{'action'} eq 'change_rules_structure') { GbAct_adm::x278() } elsif ($x11{'action'} eq 'set_default_rules') { GbAct_adm::x279() } elsif ($x11{'action'} eq 'search_structure') { GbAct_adm::x280() } elsif ($x11{'action'} eq 'change_search_structure') { GbAct_adm::x281() } elsif ($x11{'action'} eq 'set_default_search') { GbAct_adm::x282() } elsif ($x11{'action'} eq 'design') { GbAct_adm::x283() } elsif ($x11{'action'} eq 'change_design') { GbAct_adm::x286() } elsif ($x11{'action'} eq 'backup_design') { GbAct_adm::x288() } elsif ($x11{'action'} eq 'restore_design'){ GbAct_adm::x289() } elsif ($x11{'action'} eq 'styles') { GbAct_adm::x290() } elsif ($x11{'action'} eq 'change_styles') { GbAct_adm::x293() } elsif ($x11{'action'} eq 'stat') { GbAct_adm::x296() } else { print "Content-type: text/html\n\nadmin"; } } else { print "Content-type: text/html\n\nСеанс работы завершен. Необходимо зайти заново.

Session is closed."; } }