aboutsummaryrefslogtreecommitdiff
path: root/IkiWiki/Rcs/svn.pm
diff options
context:
space:
mode:
authorjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>2006-11-22 04:06:56 +0000
committerjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>2006-11-22 04:06:56 +0000
commit7a9fd7f2fa111ba8aec3e1506e114fd398e22453 (patch)
tree8fc5739d4cf2a1f043910dafe4e2ac3915a43894 /IkiWiki/Rcs/svn.pm
parented982a6f30c63d264cec62d30dcfb17537be50e2 (diff)
downloadikiwiki-7a9fd7f2fa111ba8aec3e1506e114fd398e22453.tar
ikiwiki-7a9fd7f2fa111ba8aec3e1506e114fd398e22453.tar.gz
fix user determination for web commits
Diffstat (limited to 'IkiWiki/Rcs/svn.pm')
-rw-r--r--IkiWiki/Rcs/svn.pm11
1 files changed, 6 insertions, 5 deletions
diff --git a/IkiWiki/Rcs/svn.pm b/IkiWiki/Rcs/svn.pm
index ee5065379..fbf6b2c9e 100644
--- a/IkiWiki/Rcs/svn.pm
+++ b/IkiWiki/Rcs/svn.pm
@@ -201,6 +201,12 @@ sub rcs_notify () { #{{{
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`) {
@@ -213,11 +219,6 @@ sub rcs_notify () { #{{{
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 {