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'});
}
sub savetree {
my ($filename,$tree,$lockfd) = @_;
- print STDERR "Savetree(@_)\n";
replacefile($filename,output_html($tree));
close $lockfd if defined($lockfd);
}
#
sub output_html {
my $tree=shift;
- print STDERR "output_html(@_)\n";
return '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">'.
$tree->as_HTML("<>&");
}
projects / oss / stilllife.git / commitdiff