225d8d829f28ee842024934c6038443b01c5f27f
[ikiwiki.git] / 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})) {
24                         foreach my $link (@{$links{$page}}) {
25                                 next if $link =~ /.*\/discussion/i && $config{discussion};
26                                 my $bestlink=bestlink($page, $link);
27                                 next if length $bestlink;
28                                 push @broken,
29                                         htmllink($page, $params{destpage}, $link, 1).
30                                         " in ".
31                                         htmllink($params{page}, $params{destpage}, $page, 1);
32                         }
33                 }
34         }
35         
36         return "There are no broken links!" unless @broken;
37         my %seen;
38         return "<ul>\n".join("\n", map { "<li>$_</li>" } grep { ! $seen{$_}++ } sort @broken)."</ul>\n";
39 } # }}}
40
41 1