blob: bd2826f76518fc2c1a7060d21110331ce744ac2d (
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
|
#!/usr/bin/perl
package IkiWiki::Plugin::recentchangesdiff;
use warnings;
use strict;
use IkiWiki 2.00;
sub import { #{{{
hook(type => "pagetemplate", id => "recentchangesdiff",
call => \&pagetemplate);
} #}}}
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) {
# escape links and preprocessor stuff
$diff =~ s/(?<!\\)\[\[/\\\[\[/g;
$template->param(diff => $diff);
}
}
} #}}}
1
|