* Patch based on a patch from Ethan to support relative matching in
[ikiwiki] / IkiWiki / Plugin / brokenlinks.pm
1 #!/usr/bin/perl
2 # Provides a list of broken links.
3 package IkiWiki::Plugin::brokenlinks;
4
5 use warnings;
6 use strict;
7 use IkiWiki;
8
9 sub import { #{{{
10         hook(type => "preprocess", id => "brokenlinks", call => \&preprocess);
11 } # }}}
12
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 @broken;
22         foreach my $page (keys %links) {
23                 if (pagespec_match($page, $params{pages}, $params{page})) {
24                         my $discussion=gettext("discussion");
25                         foreach my $link (@{$links{$page}}) {
26                                 next if $link =~ /.*\/\Q$discussion\E/i && $config{discussion};
27                                 my $bestlink=bestlink($page, $link);
28                                 next if length $bestlink;
29                                 push @broken,
30                                         htmllink($page, $params{destpage}, $link, 1).
31                                         " from ".
32                                         htmllink($params{page}, $params{destpage}, $page, 1);
33                         }
34                 }
35         }
36         
37         return gettext("There are no broken links!") unless @broken;
38         my %seen;
39         return "<ul>\n".join("\n", map { "<li>$_</li>" } grep { ! $seen{$_}++ } sort @broken)."</ul>\n";
40 } # }}}
41
42 1