last if $d eq $forum->{forumroot};
}
- print STDERR "Found permission files in @dirs\n";
# Подставляем их куда надо
for $d (@dirs) {
- print STDERR "substituting dir $d\n";
my %users = getperms($d);
my $title=gettitle($d."/".$forum->{indexfile});
my $item = newlistelement($tree,"dir","dirlist");
if exists($actions{'topic'});
}
} elsif (-d $path_translated && -f $path_translated ."/". $forum->{indexfile}) {
- print STDERR "Dispatching forum\n";
$actions{'forum'}->($cgi,$forum,$path_translated)
if exists($actions{'forum'});
} # FIXME при удалении непустой темы модератором почистить recent.html
my ($tree,$lockfd) = gettree($dir . "/".$forum->{indexfile});
delete_from_list($tree,"topiclist","topic",$id);
- savetree($tree,$dir ."/".$forum->{indexfile});
+ savetree($dir ."/".$forum->{indexfile},$tree);
unlink $topic;
my $redirect_url = $cgi->path_info;
$redirect_url =~ s/\/[^\/]*$//;