From 862ca19eb1aee87e4ac05e8a5a9b326dd32dfe5d Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kodama.kitenet.net>
Date: Wed, 12 Mar 2008 15:45:10 -0400
Subject: truncate recentchangesdiffs after 200 lines

This works around a perl crasher bug, and also avoids bloating pages
with enormous diffs.

rcs_recentchanges modified to return a list in an array context.
---
 IkiWiki/Plugin/recentchangesdiff.pm | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

(limited to 'IkiWiki/Plugin')

diff --git a/IkiWiki/Plugin/recentchangesdiff.pm b/IkiWiki/Plugin/recentchangesdiff.pm
index bd2826f76..3942f308b 100644
--- a/IkiWiki/Plugin/recentchangesdiff.pm
+++ b/IkiWiki/Plugin/recentchangesdiff.pm
@@ -5,6 +5,8 @@ use warnings;
 use strict;
 use IkiWiki 2.00;
 
+my $maxlines=200;
+
 sub import { #{{{
 	hook(type => "pagetemplate", id => "recentchangesdiff",
 		call => \&pagetemplate);
@@ -15,8 +17,17 @@ sub pagetemplate (@) { #{{{
 	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/(?<!\\)\[\[/\\\[\[/g;
 			$template->param(diff => $diff);
-- 
cgit v1.2.3