]> git.vanrenterghem.biz Git - git.ikiwiki.info.git/blob - IkiWiki/Plugin/pagecount.pm
web commit by intrigeri: bug submission
[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 2.00;
8 sub import { #{{{
9         hook(type => "preprocess", id => "pagecount", call => \&preprocess);
10 } # }}}
12 sub preprocess (@) { #{{{
13         my %params=@_;
14         $params{pages}="*" unless defined $params{pages};
15         
16         # Needs to update count whenever a page is added or removed, so
17         # register a dependency.
18         add_depends($params{page}, $params{pages});
19         
20         my @pages=keys %pagesources;
21         return $#pages+1 if $params{pages} eq "*"; # optimisation
22         my $count=0;
23         foreach my $page (@pages) {
24                 $count++ if pagespec_match($page, $params{pages}, location => $params{page});
25         }
26         return $count;
27 } # }}}
29 1