diff options
Diffstat (limited to 'IkiWiki/Plugin')
| -rw-r--r-- | IkiWiki/Plugin/autoindex.pm | 41 |
1 files changed, 22 insertions, 19 deletions
diff --git a/IkiWiki/Plugin/autoindex.pm b/IkiWiki/Plugin/autoindex.pm index ef22ec8a3..0e30b9900 100644 --- a/IkiWiki/Plugin/autoindex.pm +++ b/IkiWiki/Plugin/autoindex.pm @@ -35,31 +35,34 @@ sub refresh () { #{{{ error($@) if $@; my (%pages, %dirs); - find({ - no_chdir => 1, - wanted => sub { - $_=decode_utf8($_); - if (IkiWiki::file_pruned($_, $config{srcdir})) { - $File::Find::prune=1; - } - elsif (! -l $_) { - my ($f)=/$config{wiki_file_regexp}/; # untaint - return unless defined $f; - $f=~s/^\Q$config{srcdir}\E\/?//; - return unless length $f; - if (! -d _) { - $pages{pagename($f)}=1; + foreach my $dir ($config{srcdir}, @{$config{underlaydirs}}, $config{underlaydir}) { + find({ + no_chdir => 1, + wanted => sub { + $_=decode_utf8($_); + if (IkiWiki::file_pruned($_, $dir)) { + $File::Find::prune=1; } - else { - $dirs{$f}=1; + elsif (! -l $_) { + my ($f)=/$config{wiki_file_regexp}/; # untaint + return unless defined $f; + $f=~s/^\Q$dir\E\/?//; + return unless length $f; + return if $f =~ /\._([^.]+)$/; # skip internal page + if (! -d _) { + $pages{pagename($f)}=1; + } + elsif ($dir eq $config{srcdir}) { + $dirs{$f}=1; + } } } - } - }, $config{srcdir}); + }, $dir); + } my @needed; foreach my $dir (keys %dirs) { - if (! exists $pages{$dir}) { + if (! exists $pages{$dir} && grep /^$dir\/.*/, keys %pages) { push @needed, $dir; } } |