IkiWiki/Plugin/recentchangesdiff.pm

   1 #!/usr/bin/perl
   2 package IkiWiki::Plugin::recentchangesdiff;
   3
   4 use warnings;
   5 use strict;
   6 use IkiWiki 3.00;
   7 use HTML::Entities;
   8
   9 my $maxlines=200;
  10
  11 sub import {
  12         hook(type => "getsetup", id => "recentchangesdiff",
  13                 call => \&getsetup);
  14         hook(type => "pagetemplate", id => "recentchangesdiff",
  15                 call => \&pagetemplate);
  16 }
  17
  18 sub getsetup () {
  19         return
  20                 plugin => {
  21                         safe => 1,
  22                         rebuild => 1,
  23                 },
  24 }
  25
  26 sub pagetemplate (@) {
  27         my %params=@_;
  28         my $template=$params{template};
  29         if ($config{rcs} && exists $params{rev} && length $params{rev} &&
  30             $template->query(name => "diff")) {
  31                 my @lines=IkiWiki::rcs_diff($params{rev});
  32                 if (@lines) {
  33                         my $diff;
  34                         if (@lines > $maxlines) {
  35                                 # only include so many lines of diff
  36                                 $diff=join("", @lines[0..($maxlines-1)])."\n".
  37                                         gettext("(Diff truncated)");
  38                         }
  39                         else {
  40                                 $diff=join("", @lines);
  41                         }
  42                         # escape html
  43                         $diff = encode_entities($diff);
  44                         # escape links and preprocessor stuff
  45                         $diff = encode_entities($diff, '\[\]');
  46                         $template->param(diff => $diff);
  47                 }
  48         }
  49 }
  50
  51 1