#!/usr/bin/perl package IkiWiki::Plugin::progress; use warnings; use strict; use IkiWiki 3.00; my $percentage_pattern = qr/[0-9]+\%?/; # pattern to validate percentages sub import { hook(type => "getsetup", id => "progress", call => \&getsetup); hook(type => "preprocess", id => "progress", call => \&preprocess); hook(type => "format", id => "progress", call => \&format); } sub getsetup () { return plugin => { safe => 1, rebuild => undef, }, } sub preprocess (@) { my %params=@_; my $fill; if (defined $params{percent}) { $fill = $params{percent}; ($fill) = $fill =~ m/($percentage_pattern)/; # fill is untainted now $fill=~s/%$//; if (! defined $fill || ! length $fill || $fill > 100 || $fill < 0) { error(sprintf(gettext("illegal percent value %s"), $params{percent})); } $fill.="%"; } elsif (defined $params{totalpages} and defined $params{donepages}) { my $totalcount=pagespec_match_list( $params{page}, $params{totalpages}, deptype => deptype("presence")); my $donecount=pagespec_match_list( $params{page}, $params{donepages}, deptype => deptype("presence")); if ($totalcount == 0) { $fill = "100%"; } else { my $number = $donecount/$totalcount*100; $fill = sprintf("%u%%", $number); } } else { error(gettext("need either `percent` or `totalpages` and `donepages` parameters")); } return <
$fill
EODIV } sub format(@) { my %params = @_; # If HTMLScrubber has removed the style attribute, then bring it back $params{content} =~ s!
($percentage_pattern)
!
$1
!g; return $params{content}; } 1