@ -107,6 +107,8 @@ sub _build_bz {
}
sub BUILD {
my $ self = shift ;
@ -335,7 +337,7 @@ sub info {
$ vars - > { contributors } = [ map {
/\s*(\d*)\s*(.*)\s*$/ ;
{ name = > $ 2 , commits = > $ 1 }
} qx( git log --pretty=short $range | git shortlog -s | sort -k3 - ) ] ;
} qx( git short log -s --pretty=short $range | sort -k3 - ) ] ;
$ vars - > { signers } = [ map {
/\s*(\d*)\s*(.*)\s*$/ ;
@ -348,6 +350,24 @@ sub info {
qx( git log $range | grep 'Sponsored-by' |
sed - e 's/^.*Sponsored-by: //' | sort | uniq ) ] ;
my $ kohadocs_repo = $ self - > c - > { repo } { kohadocs } ;
if ( $ kohadocs_repo ) {
my ( $ from_commit , $ to_commit ) = split '\.\.' , $ range ;
my $ from_date = `git show -s --format=%ci $from_commit^{commit}` ;
chomp $ from_date ;
$ to_commit = 'origin/master' unless $ to_commit ;
my $ closest_from_commit = `git -C $kohadocs_repo rev-list -n 1 --before="$from_date" origin/master` ;
chomp $ closest_from_commit ;
my $ to_date = `git show -s --format=%ci $to_commit^{commit}` ;
chomp $ to_date ;
my $ closest_to_commit = `git -C $kohadocs_repo rev-list -n 1 --before="$to_date" origin/master` ;
chomp $ closest_to_commit ;
$ vars - > { manual_contributors } = [ map {
/\s*(\d*)\s*(.*)\s*$/ ;
{ name = > $ 2 , commits = > $ 1 }
} qx( git -C $kohadocs_repo shortlog -s --pretty=short $closest_from_commit..$closest_to_commit| sort -k3 - ) ] ;
}
# contributing companies, with their number of commits, by alphabetical
# order companies are retrieved from the email address. generic emails
# like hotmail.com, gmail.com are cumulated in a "undentified"
@ -355,7 +375,7 @@ sub info {
my $ map = $ self - > c - > { domainmap } ;
my $ companies ;
foreach (
qx( git log --pretty=short $range | git shortlog -s - e | sort -k3 - ) )
qx( git short log -s -e --pretty=short $range | sort -k3 - ) )
{
chop ;
/(\d+).*@(.*)>/ ;