#!/usr/bin/perl
+package IkiWiki::Rcs::svn;
+
use warnings;
use strict;
use IkiWiki;
use POSIX qw(setlocale LC_CTYPE);
-package IkiWiki::Rcs::svn;
-
sub import { #{{{
if (exists $IkiWiki::config{svnpath}) {
# code depends on the path not having extraneous slashes
return @ret;
} #}}}
+sub rcs_diff ($) { #{{{
+ my $rev=possibly_foolish_untaint(int(shift));
+ return `svnlook diff $config{svnrepo} -r$rev --no-diff-deleted`;
+} #}}}
+
sub rcs_getctime ($) { #{{{
my $file=shift;