2 package IkiWiki::Plugin::autoindex;
10 hook(type => "getsetup", id => "autoindex", call => \&getsetup);
11 hook(type => "refresh", id => "autoindex", call => \&refresh);
19 section => "special-purpose",
25 my $file=newpagefile($page, $config{default_pageext});
26 my $template=template("autoindex.tmpl");
27 $template->param(page => $page);
28 writefile($file, $config{srcdir}, $template->output);
30 IkiWiki::rcs_add($file);
35 eval q{use File::Find};
39 foreach my $dir ($config{srcdir}, @{$config{underlaydirs}}, $config{underlaydir}) {
44 if (IkiWiki::file_pruned($_, $dir)) {
48 my ($f)=/$config{wiki_file_regexp}/; # untaint
49 return unless defined $f;
51 return unless length $f;
52 return if $f =~ /\._([^.]+)$/; # skip internal page
54 $pages{pagename($f)}=1;
56 elsif ($dir eq $config{srcdir}) {
65 if (ref $pagestate{index}{autoindex}{deleted}) {
66 %deleted=%{$pagestate{index}{autoindex}{deleted}};
67 foreach my $dir (keys %deleted) {
68 # remove deleted page state if the deleted page is re-added,
69 # or if all its subpages are deleted
70 if ($deleted{$dir} && (exists $pages{$dir} ||
71 ! grep /^$dir\/.*/, keys %pages)) {
72 delete $deleted{$dir};
75 $pagestate{index}{autoindex}{deleted}=\%deleted;
79 foreach my $dir (keys %dirs) {
80 if (! exists $pages{$dir} && ! $deleted{$dir} &&
81 grep /^$dir\/.*/, keys %pages) {
82 if (exists $IkiWiki::pagemtime{$dir}) {
83 # This page must have just been deleted, so
84 # don't re-add it. And remember it was
86 if (! ref $pagestate{index}{autoindex}{deleted}) {
87 $pagestate{index}{autoindex}{deleted}={};
89 ${$pagestate{index}{autoindex}{deleted}}{$dir}=1;
99 IkiWiki::disable_commit_hook();
101 foreach my $page (@needed) {
105 IkiWiki::rcs_commit_staged(
106 gettext("automatic index generation"),
108 IkiWiki::enable_commit_hook();