print $cgi->header(-type=>'text/html',-charset=>'utf-8');
print "<html><head><title>Ошибка конфигурации форума</title></head>",
"<body><h1>Ошибка конфигурации форума</h1><p>",
print $cgi->header(-type=>'text/html',-charset=>'utf-8');
print "<html><head><title>Ошибка конфигурации форума</title></head>",
"<body><h1>Ошибка конфигурации форума</h1><p>",
my ($cgi,$forum,$topic,$id) = @_;
my ($tree,$lockfd) = gettree($topic);
my ($msg) = $tree->look_down(id => $id);
my ($cgi,$forum,$topic,$id) = @_;
my ($tree,$lockfd) = gettree($topic);
my ($msg) = $tree->look_down(id => $id);
if (getrights($cgi,$forum) ne "moderator"
&& getrights($cgi,$forum) ne "admin") {
my $author= $msg->look_down(_tag=>"input",name=>"author");
if (getrights($cgi,$forum) ne "moderator"
&& getrights($cgi,$forum) ne "admin") {
my $author= $msg->look_down(_tag=>"input",name=>"author");