sub rcs_recentchanges ($) { #{{{
my ($num) = @_;
- eval q{use CGI 'escapeHTML'};
- error($@) if $@;
-
my @cmdline = ("hg", "-R", $config{srcdir}, "log", "-v", "-l", $num,
"--style", "default");
open (my $out, "@cmdline |");
return @ret;
} #}}}
+sub rcs_diff ($) { #{{{
+ # TODO
+} #}}}
+
sub rcs_getctime ($) { #{{{
my ($file) = @_;