X-Git-Url: https://sipb.mit.edu/gitweb.cgi/ikiwiki.git/blobdiff_plain/d93aaed7919f0449d387aed6c6ee3aaff85a12eb..b9efeba972c82da706756eee51a0682018663586:/IkiWiki/Plugin/recentchangesdiff.pm diff --git a/IkiWiki/Plugin/recentchangesdiff.pm b/IkiWiki/Plugin/recentchangesdiff.pm index bd2826f76..36acef72e 100644 --- a/IkiWiki/Plugin/recentchangesdiff.pm +++ b/IkiWiki/Plugin/recentchangesdiff.pm @@ -5,18 +5,39 @@ use warnings; use strict; use IkiWiki 2.00; +my $maxlines=200; + sub import { #{{{ + hook(type => "getsetup", id => "recentchangesdiff", + call => \&getsetup); hook(type => "pagetemplate", id => "recentchangesdiff", call => \&pagetemplate); } #}}} +sub getsetup () { #{{{ + return + plugin => { + safe => 1, + rebuild => 1, + }, +} #}}} + sub pagetemplate (@) { #{{{ my %params=@_; my $template=$params{template}; if ($config{rcs} && exists $params{rev} && length $params{rev} && $template->query(name => "diff")) { - my $diff=IkiWiki::rcs_diff($params{rev}); - if (defined $diff && length $diff) { + my @lines=IkiWiki::rcs_diff($params{rev}); + if (@lines) { + my $diff; + if (@lines > $maxlines) { + # only include so many lines of diff + $diff=join("", @lines[0..($maxlines-1)])."\n". + gettext("(Diff truncated)"); + } + else { + $diff=join("", @lines); + } # escape links and preprocessor stuff $diff =~ s/(?param(diff => $diff);