From: Victor Wagner Date: Sun, 4 May 2008 14:55:57 +0000 (+0000) Subject: Removed some debug output X-Git-Url: http://wagner.pp.ru/gitweb/?a=commitdiff_plain;h=577989dad1f989210c7b3a7a6917c08ae3b95c8b;p=oss%2Fstilllife.git Removed some debug output --- diff --git a/forum/forum b/forum/forum index 3a58ea6..8c966e9 100755 --- a/forum/forum +++ b/forum/forum @@ -1246,10 +1246,8 @@ sub show_rights { 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"); @@ -1518,7 +1516,6 @@ sub dispatch_objtype { 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'}); @@ -2031,7 +2028,6 @@ sub replacefile { } sub savetree { my ($filename,$tree,$lockfd) = @_; - print STDERR "Savetree(@_)\n"; replacefile($filename,output_html($tree)); close $lockfd if defined($lockfd); } @@ -2048,7 +2044,6 @@ sub discardtree { # sub output_html { my $tree=shift; - print STDERR "output_html(@_)\n"; return ''. $tree->as_HTML("<>&"); }