7 use open qw{:utf8 :std};
11 sub mercurial_log($) {
19 if (/^description:/) {
23 # slurp everything as the description text
24 # until the next changeset
36 $infos[$#infos]{$key} = $value;
40 ($key, $value) = split /: +/, $line, 2;
42 if ($key eq "changeset") {
45 # remove the revision index, which is strictly
46 # local to the repository
50 $infos[$#infos]{$key} = $value;
57 sub rcs_update () { #{{{
58 my @cmdline = ("hg", "-R", "$config{srcdir}", "update");
59 if (system(@cmdline) != 0) {
60 warn "'@cmdline' failed: $!";
64 sub rcs_prepedit ($) { #{{{
68 sub rcs_commit ($$$) { #{{{
69 my ($file, $message, $rcstoken, $user, $ipaddr) = @_;
72 $message="web commit by $user".(length $message ? ": $message" : "");
74 elsif (defined $ipaddr) {
75 $message="web commit from $ipaddr".(length $message ? ": $message" : "");
78 $message = possibly_foolish_untaint($message);
80 my @cmdline = ("hg", "-R", "$config{srcdir}", "commit", "-m", "$message");
81 if (system(@cmdline) != 0) {
82 warn "'@cmdline' failed: $!";
85 return undef; # success
88 sub rcs_add ($) { # {{{
91 my @cmdline = ("hg", "-R", "$config{srcdir}", "add", "$file");
92 if (system(@cmdline) != 0) {
93 warn "'@cmdline' failed: $!";
97 sub rcs_recentchanges ($) { #{{{
100 eval q{use CGI 'escapeHTML'};
103 my @cmdline = ("hg", "-R", $config{srcdir}, "log", "-v", "-l", $num);
104 open (my $out, "@cmdline |");
107 foreach my $info (mercurial_log($out)) {
111 foreach my $msgline (split(/\n/, $info->{description})) {
112 push @message, { line => $msgline };
115 foreach my $file (split / /,$info->{files}) {
116 my $diffurl = $config{'diffurl'};
117 $diffurl =~ s/\[\[file\]\]/$file/go;
118 $diffurl =~ s/\[\[r2\]\]/$info->{changeset}/go;
121 page => pagename($file),
126 my $user = $info->{"user"};
127 $user =~ s/\s*<.*>\s*$//;
131 rev => $info->{"changeset"},
133 committype => "mercurial",
134 when => $info->{"date"},
135 message => [@message],
143 sub rcs_notify () { #{{{
147 sub rcs_getctime ($) { #{{{
148 error "getctime not implemented";