]> git.vanrenterghem.biz Git - git.ikiwiki.info.git/blob - IkiWiki/Plugin/orphans.pm
* Patch from HenrikBrixAndersen to fix a broken use of foreach in the
[git.ikiwiki.info.git] / IkiWiki / Plugin / orphans.pm
1 #!/usr/bin/perl
2 # Provides a list of pages no other page links to.
3 package IkiWiki::Plugin::orphans;
5 use warnings;
6 use strict;
7 use IkiWiki;
9 sub import { #{{{
10         hook(type => "preprocess", id => "orphans", call => \&preprocess);
11 } # }}}
13 sub preprocess (@) { #{{{
14         my %params=@_;
15         $params{pages}="*" unless defined $params{pages};
16         
17         # Needs to update whenever a page is added or removed, so
18         # register a dependency.
19         add_depends($params{page}, $params{pages});
20         
21         my %linkedto;
22         foreach my $p (keys %links) {
23                 map { $linkedto{bestlink($p, $_)}=1 if length $_ }
24                         @{$links{$p}};
25         }
26         
27         my @orphans;
28         my $discussion=gettext("discussion");
29         foreach my $page (keys %renderedfiles) {
30                 next if $linkedto{$page};
31                 next unless pagespec_match($page, $params{pages}, $params{page});
32                 # If the page has a link to some other page, it's
33                 # indirectly linked to a page via that page's backlinks.
34                 next if grep { 
35                         length $_ &&
36                         ($_ !~ /\/\Q$discussion\E$/i || ! $config{discussion}) &&
37                         bestlink($page, $_) !~ /^($page|)$/ 
38                 } @{$links{$page}};
39                 push @orphans, $page;
40         }
41         
42         return gettext("All pages are linked to by other pages.") unless @orphans;
43         return "<ul>\n".
44                 join("\n",
45                         map {
46                                 "<li>".
47                                 htmllink($params{page}, $params{destpage}, $_,
48                                          noimageinline => 1).
49                                 "</li>"
50                         } sort @orphans).
51                 "</ul>\n";
52 } # }}}
54 1