summaryrefslogtreecommitdiff
path: root/IkiWiki
diff options
context:
space:
mode:
authorSimon McVittie <smcv@ http://smcv.pseudorandom.co.uk/>2009-06-18 18:33:49 +0100
committerSimon McVittie <smcv@ http://smcv.pseudorandom.co.uk/>2009-07-17 11:12:55 +0100
commitacb79b5c00b48c4b52a29703e9d7b52330fd23b2 (patch)
treee85991f01ea9cea1703433980c6cff3042c4aa89 /IkiWiki
parent9c13e29d4fbb85a83b0ed5fd7271d7c1688fbc07 (diff)
pagestats: add `among` parameter, which only counts links from specified pages
Diffstat (limited to 'IkiWiki')
-rw-r--r--IkiWiki/Plugin/pagestats.pm11
1 files changed, 10 insertions, 1 deletions
diff --git a/IkiWiki/Plugin/pagestats.pm b/IkiWiki/Plugin/pagestats.pm
index 5dd2f337b..874ead7e6 100644
--- a/IkiWiki/Plugin/pagestats.pm
+++ b/IkiWiki/Plugin/pagestats.pm
@@ -38,13 +38,22 @@ sub preprocess (@) {
# Needs to update whenever a page is added or removed, so
# register a dependency.
add_depends($params{page}, $params{pages});
+ add_depends($params{page}, $params{among}) if exists $params{among};
my %counts;
my $max = 0;
foreach my $page (pagespec_match_list([keys %links],
$params{pages}, location => $params{page})) {
use IkiWiki::Render;
- $counts{$page} = scalar(IkiWiki::backlinks($page));
+
+ my @backlinks = IkiWiki::backlink_pages($page);
+
+ if (exists $params{among}) {
+ @backlinks = pagespec_match_list(\@backlinks,
+ $params{among}, location => $params{page});
+ }
+
+ $counts{$page} = scalar(@backlinks);
$max = $counts{$page} if $counts{$page} > $max;
}