hyung-hwan/codepot
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

changed the post-commit script to use perl modules to get the revision author instead of executing svnlook

Browse Source
This commit is contained in:
hyung-hwan 2015-05-14 04:13:12 +00:00
parent ede07c8778
commit 3a1ae6fee4
1 changed files with 34 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
codepot/etc/post-commit.in
View File

@ -7,9 +7,13 @@ use DBI;
use File::Basename; use File::Basename;
use POSIX qw(strftime); use POSIX qw(strftime);
use SVN::Core;
use SVN::Repos;
use SVN::Fs;
my $CFG_FILE = '@CFGDIR@/codepot.ini'; my $CFG_FILE = '@CFGDIR@/codepot.ini';
my $REPO = $ARGV[0]; my $REPOFS = $ARGV[0];
my $REPOBASE = basename($REPO); my $REPOBASE = basename($REPOFS);
my $REV = $ARGV[1]; my $REV = $ARGV[1];
my $QC = ''; my $QC = '';
@ -120,11 +124,38 @@ sub write_commit_log
return (0, undef); return (0, undef);
} }
sub get_author
{
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:author');
return $author;
}
#------------------------------------------------------------ #------------------------------------------------------------
# MAIN # MAIN
#------------------------------------------------------------ #------------------------------------------------------------
my $AUTHOR = `svnlook author -r "${REV}" "${REPO}"`; my $AUTHOR = get_author();
if (!defined($AUTHOR))
{
print (STDERR "Cannot get author for $REPOBASE $REV\n");
exit (1);
}
chomp ($AUTHOR); chomp ($AUTHOR);
my $cfg = get_config (); my $cfg = get_config ();