summaryrefslogtreecommitdiff
path: root/IkiWiki
diff options
context:
space:
mode:
authorJoey Hess <joey@kodama.kitenet.net>2008-08-06 00:04:05 -0400
committerJoey Hess <joey@kodama.kitenet.net>2008-08-06 00:04:05 -0400
commit9cb415f4a455c43bec9f4b9036090124e8fe15ec (patch)
tree068624377bf78b90abaea4d08df225740647b340 /IkiWiki
parent11a4ad8a4da24594f85df7f70915ce5743d1b949 (diff)
autoindex: Ignore internal pages, and take underlay directories into account. Also, avoid making index pages for directories that contain no files.
Diffstat (limited to 'IkiWiki')
-rw-r--r--IkiWiki/Plugin/autoindex.pm41
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;
}
}