2 package IkiWiki::Plugin::autoindex;
10 hook(type => "getsetup", id => "autoindex", call => \&getsetup);
11 hook(type => "refresh", id => "autoindex", call => \&refresh);
24 my $file=newpagefile($page, $config{default_pageext});
25 my $template=template("autoindex.tmpl");
26 $template->param(page => $page);
27 writefile($file, $config{srcdir}, $template->output);
29 IkiWiki::rcs_add($file);
34 eval q{use File::Find};
38 foreach my $dir ($config{srcdir}, @{$config{underlaydirs}}, $config{underlaydir}) {
43 if (IkiWiki::file_pruned($_)) {
47 my ($f)=/$config{wiki_file_regexp}/; # untaint
48 return unless defined $f;
49 return if $f =~ /\._([^.]+)$/; # skip internal page
51 $pages{pagename($f)}=1;
53 elsif ($dir eq $config{srcdir}) {
62 if (ref $wikistate{autoindex}{deleted}) {
63 %deleted=%{$wikistate{autoindex}{deleted}};
65 elsif (ref $pagestate{index}{autoindex}{deleted}) {
67 %deleted=%{$pagestate{index}{autoindex}{deleted}};
68 delete $pagestate{index}{autoindex};
72 foreach my $dir (keys %deleted) {
73 # remove deleted page state if the deleted page is re-added,
74 # or if all its subpages are deleted
75 if ($deleted{$dir} && (exists $pages{$dir} ||
76 ! grep /^$dir\/.*/, keys %pages)) {
77 delete $deleted{$dir};
80 $wikistate{autoindex}{deleted}=\%deleted;
84 foreach my $dir (keys %dirs) {
85 if (! exists $pages{$dir} && ! $deleted{$dir} &&
86 grep /^$dir\/.*/, keys %pages) {
87 if (exists $IkiWiki::pagemtime{$dir}) {
88 # This page must have just been deleted, so
89 # don't re-add it. And remember it was
91 if (! ref $wikistate{autoindex}{deleted}) {
92 $wikistate{autoindex}{deleted}={};
94 ${$wikistate{autoindex}{deleted}}{$dir}=1;
104 IkiWiki::disable_commit_hook();
106 foreach my $page (@needed) {
110 IkiWiki::rcs_commit_staged(
111 gettext("automatic index generation"),
113 IkiWiki::enable_commit_hook();