X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/54d5308cd83c67e7e9c32450c776ef0dac63549f..1452b3adf30145e8fd1208ac73da9d12967863bc:/IkiWiki/Plugin/brokenlinks.pm diff --git a/IkiWiki/Plugin/brokenlinks.pm b/IkiWiki/Plugin/brokenlinks.pm index 9485da398..deee58222 100644 --- a/IkiWiki/Plugin/brokenlinks.pm +++ b/IkiWiki/Plugin/brokenlinks.pm @@ -4,9 +4,11 @@ package IkiWiki::Plugin::brokenlinks; use warnings; use strict; +use IkiWiki; sub import { #{{{ - IkiWiki::register_plugin("preprocess", "brokenlinks", \&preprocess); + IkiWiki::hook(type => "preprocess", id => "brokenlinks", + call => \&preprocess); } # }}} sub preprocess (@) { #{{{ @@ -21,19 +23,20 @@ sub preprocess (@) { #{{{ foreach my $page (%IkiWiki::links) { if (IkiWiki::globlist_match($page, $params{pages})) { foreach my $link (@{$IkiWiki::links{$page}}) { - next if $link =~ /.*\/discussion/i; + next if $link =~ /.*\/discussion/i && $IkiWiki::config{discussion}; my $bestlink=IkiWiki::bestlink($page, $link); next if length $bestlink; push @broken, - IkiWiki::htmllink($page, $link, 1). + IkiWiki::htmllink($page, $page, $link, 1). " in ". - IkiWiki::htmllink($params{page}, $page, 1); + IkiWiki::htmllink($params{page}, $params{page}, $page, 1); } } } return "There are no broken links!" unless @broken; - return "\n"; + my %seen; + return "\n"; } # }}} 1