+
+#
+# Обработка операции удаления всего на свете
+#
+sub delete_item {
+ my ($formname,$cgi,$forum) = @_;
+ #
+ # Сначала разберемся, что мы собственно удаляем
+ #
+ if ($cgi->param("user")) {
+ delete_user($cgi,$forum,$cgi->param("user"));
+ } elsif (-f $path_translated) {
+ if ($cgi->param("id")) {
+ delete_comment($cgi,$forum,$path_translated,$cgi->param("id"));
+ } else {
+ delete_topic($cgi,$forum,$path_translated);
+ }
+ } elsif (-d $path_translated && -f $path_translated ."/". $forum->{indexfile}) {
+ delete_forum($cgi,$forum,$path_translated);
+ } else {
+ show_error($forum,"Невозможно удалить неопознанный объект");
+ }
+}
+#
+# Удаление пользователя
+#
+sub delete_user {
+ my ($cgi,$forum,$user) = @_;
+ if ($forum->{authenticated}{user} ne $user &&
+ getrights($cgi,$forum) ne "admin") {
+ show_error($forum,"У вас недостаточно прав для удаления
+ пользователя $user");
+ }
+ my %base;
+ dbmopen %base,datafile($forum,"passwd"),0644;
+ delete $base{$user};
+ dbmclose %base;
+ forum_redirect($cgi,$forum,$forum->{forumtop});
+}
+#
+# Удаление реплики
+#
+sub delete_comment {
+ my ($cgi,$forum,$topic,$id) = @_;
+ my ($tree,$lockfd) = gettree($topic);
+ my ($msg) = $tree->look_down(id => $id);
+ show_error("В данной теме нет реплики с id=$id") if (!$msg);
+ if (getrights($cgi,$forum) ne "moderator"
+ && getrights($cgi,$forum) ne "admin") {
+ my $author= $msg->look_down(_tag=>"input",name=>"author");
+ if ($author->attr("value") ne $forum->{authenticated}{user}) {
+ show_error($forum,"У вас нет прав на удаление этого сообщения");
+ }
+ }
+ delete_from_list($tree,"messagelist","message",$msg);
+ savetree($topic,$tree,$lockfd);
+ $tree->delete;
+ ($tree,$lockfd) = gettree($forum->{forumroot}."/recent.html");
+ ($msg) = $tree->look_down(id => $id);
+ if ($msg) {
+ delete_from_list($tree,"messagelist","message",$msg);
+ savetree($forum->{forumroot}."/recent.html",$tree,$lockfd);
+ } else {
+ discardtree($tree,$lockfd);
+ }
+ # Если у реплики были картинки, то их тоже надо грохнуть
+ for my $pic (<$id."_*.*">) {
+ unlink $pic;
+ }
+ forum_redirect($cgi,$forum,$cgi->path_info);
+}
+#
+# Удаление темы
+#
+sub delete_topic {
+ my ($cgi,$forum,$topic) = @_;
+ # Если модератор, то в тему и не заглядываем
+ my ($dir,$id) = ($1,$2) if $topic=~/^(.*)\/([^\/]+).html$/;
+ show_error($forum,"Неверное имя темы $topic") unless ($dir && $id);
+ if (getrights($cgi,$forum) ne "moderator" &&
+ getrights($cgi,$forum) ne "admin") {
+ # Проверяем авторство темы и наличие в ней сообщений
+ my ($tree,$lockfd) = gettree($topic);
+ my $info = $tree->look_down(class=>"topic");
+ my $author = $tree->look_down(class=>"author");
+ if ($author->as_text() ne $forum->{authenticated}{user}) {
+ show_error($forum,"У вас нет права удалять эту тему");
+ }
+ $info = $tree->look_down(class=>"messagelist");
+ if ($info->attr("style") !~ /display: none;/) {
+ show_error($forum,"Невозможно удалить тему, содержащую сообщения");
+ }
+ discardtree($tree,$lockfd);
+ } # FIXME при удалении непустой темы модератором почистить recent.html
+ my ($tree,$lockfd) = gettree($dir . "/".$forum->{indexfile});
+ delete_from_list($tree,"topiclist","topic",$id);
+ savetree($tree,$dir ."/".$forum->{indexfile});
+ unlink $topic;
+ my $redirect_url = $cgi->path_info;
+ $redirect_url =~ s/\/[^\/]*$//;
+ forum_redirect($cgi,$forum,$redirect_url);
+}
+#
+# Удаление форума
+#
+sub delete_forum {
+ my ($cgi,$forum,$dir) = @_;
+ if (getrights($cgi,$forum) ne "moderator" && getrights($cgi,$forum)
+ ne "admin") {
+ show_error($forum,"У вас нет права удалять форумы");
+ }
+ opendir DIR,$dir;
+ my $count = 0;
+ while ( my $entry=readdir DIR) {
+ next if $entry eq $forum->{indexfile};
+ next if $entry eq "perms.txt";
+ next if $entry =~ /^logo.[^.]+/;
+ show_error($forum,"Нельзя удалять корень форума" )
+ if $entry eq ".forum";
+ $count ++;
+ }
+ closedir DIR;
+ show_error("Нельзя удалять непустой форум") if $count;
+ # Находим родительский форум
+ my $upper = $dir;
+ $upper=~s/([\/]+)$/$forum->{indexfile}/;
+ my $id = $1 if $dir =~ /\/([\/]+)$/;
+ # Удаляем форум из списка.
+ my ($tree,$lockfd) = gettree($upper);
+ delete_from_list($tree,"forumlist","forum",$id);
+ savetree($upper,$tree,$lockfd);
+ # Удаляем из файловой системы
+ opendir DIR,$dir;
+ for my $entry ( readdir DIR) {
+ unlink "$dir/$entry";
+ }
+ rmdir $dir;
+ my $redirect_url = $cgi->path_info;
+ $redirect_url =~s/\/$//;
+ $redirect_url =~ s/\/[^\/]*$//;
+ forum_redirect($cgi,$forum,$redirect_url);
+}
+