aboutsummaryrefslogtreecommitdiff
path: root/IkiWiki/Plugin/recentchangesdiff.pm
blob: 36acef72ebccf8978c3c4e8348074ef4bca0565c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
#!/usr/bin/perl
package IkiWiki::Plugin::recentchangesdiff;

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 @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);
		}
	}
} #}}}

1