diff options
| author | Joey Hess <joey@kodama.kitenet.net> | 2007-11-17 16:16:34 -0500 |
|---|---|---|
| committer | Joey Hess <joey@kodama.kitenet.net> | 2007-11-17 16:16:34 -0500 |
| commit | 6ccd9313d2659f4b3d55cd784cefee7af0e0b5c0 (patch) | |
| tree | 7671e85fc9caab8111e89c1fec24c650204df451 /IkiWiki | |
| parent | 6d7202a01400e2ba5dd546f8a3923aa78b04dc0b (diff) | |
| download | ikiwiki-6ccd9313d2659f4b3d55cd784cefee7af0e0b5c0.tar ikiwiki-6ccd9313d2659f4b3d55cd784cefee7af0e0b5c0.tar.gz | |
* More compact output for the brokenlinks plugin.
Diffstat (limited to 'IkiWiki')
| -rw-r--r-- | IkiWiki/Plugin/brokenlinks.pm | 27 |
1 files changed, 20 insertions, 7 deletions
diff --git a/IkiWiki/Plugin/brokenlinks.pm b/IkiWiki/Plugin/brokenlinks.pm index a4da7161e..ef5837a58 100644 --- a/IkiWiki/Plugin/brokenlinks.pm +++ b/IkiWiki/Plugin/brokenlinks.pm @@ -18,7 +18,7 @@ sub preprocess (@) { #{{{ # register a dependency. add_depends($params{page}, $params{pages}); - my @broken; + my %broken; foreach my $page (keys %links) { if (pagespec_match($page, $params{pages}, location => $params{page})) { my $discussion=gettext("discussion"); @@ -26,16 +26,29 @@ sub preprocess (@) { #{{{ next if $link =~ /.*\/\Q$discussion\E/i && $config{discussion}; my $bestlink=bestlink($page, $link); next if length $bestlink; - push @broken, sprintf(gettext("%s from %s"), - htmllink($page, $params{destpage}, $link, noimageinline => 1), - htmllink($params{page}, $params{destpage}, $page, noimageinline => 1)); + push @{$broken{$link}}, $page; } } } + + my @broken; + foreach my $link (keys %broken) { + my $page=$broken{$link}->[0]; + push @broken, sprintf(gettext("%s from %s"), + htmllink($page, $params{destpage}, $link, noimageinline => 1), + join(", ", map { + htmllink($params{page}, $params{destpage}, $_, noimageinline => 1) + } @{$broken{$link}})); + } - return gettext("There are no broken links!") unless @broken; - my %seen; - return "<ul>\n".join("\n", map { "<li>$_</li>" } grep { ! $seen{$_}++ } sort @broken)."</ul>\n"; + return gettext("There are no broken links!") unless %broken; + return "<ul>\n" + .join("\n", + map { + "<li>$_</li>" + } + sort @broken) + ."</ul>\n"; } # }}} 1 |