#!/usr/bin/perl # # Produce page statistics in various forms. # # Currently supported: # cloud: produces statistics in the form of a del.icio.us-style tag cloud # (default) # table: produces a table with the number of backlinks for each page # # by Enrico Zini package IkiWiki::Plugin::pagestats; use warnings; use strict; use IkiWiki 3.00; # Names of the HTML classes to use for the tag cloud our @classes = ('smallestPC', 'smallPC', 'normalPC', 'bigPC', 'biggestPC' ); sub import { hook(type => "getsetup", id => "pagestats", call => \&getsetup); hook(type => "preprocess", id => "pagestats", call => \&preprocess); } sub getsetup () { return plugin => { safe => 1, rebuild => undef, section => "widget", }, } sub linktext ($%) { # Return the text of the link to a tag, depending on option linktext. my ($page, %params) = @_; if (exists $params{show} && exists $pagestate{$page} && exists $pagestate{$page}{meta}{$params{show}}) { return $pagestate{$page}{meta}{$params{show}}; } else { return undef; } } sub preprocess (@) { my %params=@_; $params{pages}="*" unless defined $params{pages}; my $style = ($params{style} or 'cloud'); # Backwards compatibility if (defined $params{show} && $params{show} =~ m/^\d+$/) { $params{limit} = $params{show}; delete $params{show}; } my %counts; my $max = 0; foreach my $page (pagespec_match_list($params{page}, $params{pages}, # update when a displayed page is added/removed deptype => deptype("presence"))) { use IkiWiki::Render; my @backlinks = IkiWiki::backlink_pages($page); if (exists $params{among}) { # only consider backlinks from the amoung pages @backlinks = pagespec_match_list( $params{page}, $params{among}, # update whenever links on those pages change deptype => deptype("links"), list => \@backlinks ); } else { # update when any page with links changes, # in case the links point to our displayed pages add_depends($params{page}, "*", deptype("links")); } $counts{$page} = scalar(@backlinks); $max = $counts{$page} if $counts{$page} > $max; } if (exists $params{limit}) { my $i=0; my %show; foreach my $key (sort { $counts{$b} <=> $counts{$a} || $a cmp $b } keys %counts) { last if ++$i > $params{limit}; $show{$key}=$counts{$key}; } %counts=%show; } if ($style eq 'table') { return "
". htmllink($params{page}, $params{destpage}, $_, noimageinline => 1, linktext => linktext($_, %params)). " | ".$counts{$_}." |