fix update of links to removed pages

master
joey 2006-03-16 22:25:17 +00:00
parent 4102ac826d
commit b93e189934
2 changed files with 3 additions and 5 deletions

View File

@ -14,5 +14,4 @@
* RecentChanges is a regular page, perhaps it should be automatically * RecentChanges is a regular page, perhaps it should be automatically
replaced with a link to the [[CGI]]? replaced with a link to the [[CGI]]?
* [[ikiwiki]] should go to the same place as [[index]] (on this wiki). * [[ikiwiki]] should go to the same place as [[index]] (on this wiki).
* Doesn't update pages that linked to a page when it is removed. * Various inneficencies cause it to sometimes render the same page 3 times for one change. This could be fixed for a 3 fold speedup on commits.>>>>>>> .r230
* Various inneficencies cause it to sometimes render the same page 3 times for one change. This could be fixed for a 3 fold speedup on commits.

View File

@ -564,10 +564,9 @@ sub prune ($) { #{{{
} #}}} } #}}}
sub refresh () { #{{{ sub refresh () { #{{{
# Find existing pages. # find existing pages
my %exists; my %exists;
my @files; my @files;
eval q{use File::Find}; eval q{use File::Find};
find({ find({
no_chdir => 1, no_chdir => 1,
@ -608,7 +607,7 @@ sub refresh () { #{{{
foreach my $page (keys %oldpagemtime) { foreach my $page (keys %oldpagemtime) {
if (! $exists{$page}) { if (! $exists{$page}) {
debug("removing old page $page"); debug("removing old page $page");
push @del, $renderedfiles{$page}; push @del, $pagesources{$page};
prune($config{destdir}."/".$renderedfiles{$page}); prune($config{destdir}."/".$renderedfiles{$page});
delete $renderedfiles{$page}; delete $renderedfiles{$page};
$oldpagemtime{$page}=0; $oldpagemtime{$page}=0;