updated the post-commit hook to include the commit message in the notification email
This commit is contained in:
parent
986812edd5
commit
3abd8c62bb
@ -168,6 +168,28 @@ sub get_author
|
|||||||
return $author;
|
return $author;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub get_commit_message
|
||||||
|
{
|
||||||
|
my $pool = SVN::Pool->new(undef);
|
||||||
|
my $svn = eval { SVN::Repos::open ($REPOFS, $pool) };
|
||||||
|
if (!defined($svn))
|
||||||
|
{
|
||||||
|
print (STDERR "Cannot open svn - $REPOFS\n");
|
||||||
|
return undef;
|
||||||
|
}
|
||||||
|
|
||||||
|
my $fs = $svn->fs ();
|
||||||
|
if (!defined($fs))
|
||||||
|
{
|
||||||
|
print (STDERR "Cannot open fs - $REPOFS\n");
|
||||||
|
return undef;
|
||||||
|
}
|
||||||
|
|
||||||
|
my $author = $fs->revision_prop ($REV, 'svn:log');
|
||||||
|
return $author;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
sub format_string
|
sub format_string
|
||||||
{
|
{
|
||||||
my ($fmt, $userid, $password) = @_;
|
my ($fmt, $userid, $password) = @_;
|
||||||
@ -399,9 +421,16 @@ if (lc($cfg->{commit_notification}) eq 'yes')
|
|||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
$commit_message = 'See ' . format_commit_url($cfg->{commit_notification_url}, $REPOBASE, $AUTHOR, $REV);
|
$commit_message = format_commit_url($cfg->{commit_notification_url}, $REPOBASE, $AUTHOR, $REV);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
my $m = get_commit_message ();
|
||||||
|
if (defined($m))
|
||||||
|
{
|
||||||
|
$commit_message = $commit_message . "\n" . $m;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
email_message_to_project_members ($cfg, $dbh, $cfg->{database_prefix}, $REPOBASE, $commit_subject, $commit_message);
|
email_message_to_project_members ($cfg, $dbh, $cfg->{database_prefix}, $REPOBASE, $commit_subject, $commit_message);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user