2 package IkiWiki::Plugin::autoindex;
10 hook(type => "refresh", id => "autoindex", call => \&refresh);
13 sub genindex ($) { #{{{
15 my $file=$page.".".$config{default_pageext};
16 my $template=template("autoindex.tmpl");
17 $template->param(page => $page);
18 writefile($file, $config{srcdir}, $template->output);
22 eval q{use File::Find};
30 if (IkiWiki::file_pruned($_, $config{srcdir})) {
34 my ($f)=/$config{wiki_file_regexp}/; # untaint
35 return unless defined $f;
36 $f=~s/^\Q$config{srcdir}\E\/?//;
37 return unless length $f;
39 $pages{pagename($f)}=1;
48 foreach my $dir (keys %dirs) {
49 if (! exists $pages{$dir}) {