]> git.vanrenterghem.biz Git - git.ikiwiki.info.git/blob - IkiWiki/Plugin/pagecount.pm
f8881a04bdacab3f3f086cefd29323f8463c82c5
[git.ikiwiki.info.git] / IkiWiki / Plugin / pagecount.pm
1 #!/usr/bin/perl
2 package IkiWiki::Plugin::pagecount;
4 use warnings;
5 use strict;
6 use IkiWiki 3.00;
8 sub import {
9         hook(type => "getsetup", id => "pagecount", call => \&getsetup);
10         hook(type => "preprocess", id => "pagecount", call => \&preprocess);
11 }
13 sub getsetup () {
14         return 
15                 plugin => {
16                         safe => 1,
17                         rebuild => undef,
18                 },
19 }
21 sub preprocess (@) {
22         my %params=@_;
23         $params{pages}="*" unless defined $params{pages};
24         
25         # Needs to update count whenever a page is added or removed, so
26         # register a dependency.
27         add_depends($params{page}, $params{pages});
28         
29         my @pages=keys %pagesources;
30         @pages=pagespec_match_list(\@pages, $params{pages}, location => $params{page})
31                 if $params{pages} ne "*"; # optimisation;
32         return $#pages+1;
33 }
35 1