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         add_underlay("javascript");
  13         hook(type => "getsetup", id => "recentchangesdiff",
  14                 call => \&getsetup);
  15         hook(type => "pagetemplate", id => "recentchangesdiff",
  16                 call => \&pagetemplate);
  17         hook(type => "format", id => "recentchangesdiff.pm", call => \&format);
  18 }
  19
  20 sub getsetup () {
  21         return
  22                 plugin => {
  23                         safe => 1,
  24                         rebuild => 1,
  25                 },
  26 }
  27
  28 sub pagetemplate (@) {
  29         my %params=@_;
  30         my $template=$params{template};
  31         if ($config{rcs} && exists $params{rev} && length $params{rev} &&
  32             $template->query(name => "diff")) {
  33                 my @lines=IkiWiki::rcs_diff($params{rev}, $maxlines+1);
  34                 if (@lines) {
  35                         my $diff;
  36                         my $trunc=0;
  37                         if (@lines > $maxlines) {
  38                                 $diff=join("", @lines[0..($maxlines-1)]);
  39                                 $trunc=1;
  40                         }
  41                         else {
  42                                 $diff=join("", @lines);
  43                         }
  44                         if (length $diff > 102400) {
  45                                 $diff=substr($diff, 0, 10240);
  46                                 $trunc=1;
  47                         }
  48                         if ($trunc) {
  49                                 $diff.="\n".gettext("(Diff truncated)");
  50                         }
  51                         # escape html
  52                         $diff = encode_entities($diff);
  53                         # escape links and preprocessor stuff
  54                         $diff = encode_entities($diff, '\[\]');
  55                         $template->param(diff => $diff);
  56                 }
  57         }
  58 }
  59
  60 sub format (@) {
  61         my %params=@_;
  62
  63         if (! ($params{content}=~s!^(<body[^>]*>)!$1.include_javascript($params{page})!em)) {
  64                 # no <body> tag, probably in preview mode
  65                 $params{content}=include_javascript(undef).$params{content};
  66         }
  67         return $params{content};
  68 }
  69
  70 # taken verbatim from toggle.pm
  71 sub include_javascript ($) {
  72         my $from=shift;
  73
  74         return '<script src="'.urlto("ikiwiki/ikiwiki.js", $from).
  75                 '" type="text/javascript" charset="utf-8"></script>'."\n".
  76                 '<script src="'.urlto("ikiwiki/toggle.js", $from).
  77                 '" type="text/javascript" charset="utf-8"></script>';
  78 }
  79
  80 1