my $user=`svnlook author $config{svnrepo} -r $rev`;
chomp $user;
+
+ my $message=`svnlook log $config{svnrepo} -r $rev`;
+ if ($message=~/$config{web_commit_regexp}/) {
+ $user=defined $2 ? "$2" : "$3";
+ $message=$4;
+ }
my @changed_pages;
foreach my $change (`svnlook changed $config{svnrepo} -r $rev`) {
require IkiWiki::UserInfo;
send_commit_mails(
sub {
- my $message=`svnlook log $config{svnrepo} -r $rev`;
- if ($message=~/$config{web_commit_regexp}/) {
- $user=defined $2 ? "$2" : "$3";
- $message=$4;
- }
return $message;
},
sub {