mirror of
https://github.com/adulau/aha.git
synced 2024-12-28 03:36:19 +00:00
scripts/get_maintainer.pl: add --git-blame
Julia Lawall suggested that get_maintainers.pl should have the ability to include signatories of commits that are modified by a particular patch. Vegard Nossum did something similar once. http://lkml.org/lkml/2008/5/29/449 The modified script looks the commits for all lines in the patch, and includes the "-by:" signatories for those commits. It uses the same git-min-percent, git-max-maintainers, and git-min-signatures options. git-since is ignored. It can be used independently from the --git default, so ./scripts/get_maintainers.pl --nogit --git-blame <patch> or ./scripts/get_maintainers.pl --nogit --git-blame -f <file> is acceptable. If used with -f <file>, all lines/commits for the file are checked. --git-blame can be slow if used with -f <file> --git-blame does not work with -f <directory> Signed-off-by: Joe Perches <joe@perches.com> Signed-off-by: Andrew Morton <akpm@linux-foundation.org> Signed-off-by: Linus Torvalds <torvalds@linux-foundation.org>
This commit is contained in:
Joe Perches
Linus Torvalds
parent
b61d4a71e4
commit
f5492666a3
1 changed files with 109 additions and 29 deletions
|
|
@ -13,7 +13,7 @@
|
|||
use strict;
|
||||
|
||||
my $P = $0;
|
||||
my $V = '0.17';
|
||||
my $V = '0.18beta2';
|
||||
|
||||
use Getopt::Long qw(:config no_auto_abbrev);
|
||||
|
||||
|
|
@ -29,6 +29,7 @@ my $email_git_min_signatures = 1;
|
|||
my $email_git_max_maintainers = 5;
|
||||
my $email_git_min_percent = 5;
|
||||
my $email_git_since = "1-year-ago";
|
||||
my $email_git_blame = 0;
|
||||
my $output_multiline = 1;
|
||||
my $output_separator = ", ";
|
||||
my $scm = 0;
|
||||
|
|
@ -68,6 +69,7 @@ if (!GetOptions(
|
|||
'git-max-maintainers=i' => \$email_git_max_maintainers,
|
||||
'git-min-percent=i' => \$email_git_min_percent,
|
||||
'git-since=s' => \$email_git_since,
|
||||
'git-blame!' => \$email_git_blame,
|
||||
'm!' => \$email_maintainer,
|
||||
'n!' => \$email_usename,
|
||||
'l!' => \$email_list,
|
||||
|
|
@ -107,8 +109,9 @@ if ($selections == 0) {
|
|||
die "$P: Missing required option: email, scm, status, subsystem or web\n";
|
||||
}
|
||||
|
||||
if ($email && ($email_maintainer + $email_list + $email_subscriber_list
|
||||
+ $email_git + $email_git_penguin_chiefs) == 0) {
|
||||
if ($email &&
|
||||
($email_maintainer + $email_list + $email_subscriber_list +
|
||||
$email_git + $email_git_penguin_chiefs + $email_git_blame) == 0) {
|
||||
usage();
|
||||
die "$P: Please select at least 1 email option\n";
|
||||
}
|
||||
|
|
@ -150,6 +153,7 @@ close(MAINT);
|
|||
## use the filenames on the command line or find the filenames in the patchfiles
|
||||
|
||||
my @files = ();
|
||||
my @range = ();
|
||||
|
||||
foreach my $file (@ARGV) {
|
||||
##if $file is a directory and it lacks a trailing slash, add one
|
||||
|
|
@ -162,13 +166,19 @@ foreach my $file (@ARGV) {
|
|||
push(@files, $file);
|
||||
} else {
|
||||
my $file_cnt = @files;
|
||||
my $lastfile;
|
||||
open(PATCH, "<$file") or die "$P: Can't open ${file}\n";
|
||||
while (<PATCH>) {
|
||||
if (m/^\+\+\+\s+(\S+)/) {
|
||||
my $filename = $1;
|
||||
$filename =~ s@^[^/]*/@@;
|
||||
$filename =~ s@\n@@;
|
||||
$lastfile = $filename;
|
||||
push(@files, $filename);
|
||||
} elsif (m/^\@\@ -(\d+),(\d+)/) {
|
||||
if ($email_git_blame) {
|
||||
push(@range, "$lastfile:$1:$2");
|
||||
}
|
||||
}
|
||||
}
|
||||
close(PATCH);
|
||||
|
|
@ -226,6 +236,9 @@ foreach my $file (@files) {
|
|||
recent_git_signoffs($file);
|
||||
}
|
||||
|
||||
if ($email && $email_git_blame) {
|
||||
git_assign_blame($file);
|
||||
}
|
||||
}
|
||||
|
||||
if ($email) {
|
||||
|
|
@ -311,6 +324,7 @@ MAINTAINER field selection options:
|
|||
--git-max-maintainers => maximum maintainers to add (default: 5)
|
||||
--git-min-percent => minimum percentage of commits required (default: 5)
|
||||
--git-since => git history to use (default: 1-year-ago)
|
||||
--git-blame => use git blame to find modified commits for patch or file
|
||||
--m => include maintainer(s) if any
|
||||
--n => include name 'Full Name <addr\@domain.tld>'
|
||||
--l => include list(s) if any
|
||||
|
|
@ -333,13 +347,15 @@ Other options:
|
|||
|
||||
Notes:
|
||||
Using "-f directory" may give unexpected results:
|
||||
|
||||
Used with "--git", git signators for _all_ files in and below
|
||||
directory are examined as git recurses directories.
|
||||
Any specified X: (exclude) pattern matches are _not_ ignored.
|
||||
Used with "--nogit", directory is used as a pattern match,
|
||||
no individual file within the directory or subdirectory
|
||||
is matched.
|
||||
Used with "--git-blame", does not iterate all files in directory
|
||||
Using "--git-blame" is slow and may add old committers and authors
|
||||
that are no longer active maintainers to the output.
|
||||
EOT
|
||||
}
|
||||
|
||||
|
|
@ -449,17 +465,22 @@ sub push_email_address {
|
|||
my ($email_address) = @_;
|
||||
|
||||
my $email_name = "";
|
||||
|
||||
if ($email_maintainer) {
|
||||
if ($email_address =~ m/([^<]+)<(.*\@.*)>$/) {
|
||||
$email_name = $1;
|
||||
$email_address = $2;
|
||||
}
|
||||
|
||||
if ($email_maintainer) {
|
||||
if ($email_usename && $email_name) {
|
||||
if ($email_usename) {
|
||||
push(@email_to, format_email($email_name, $email_address));
|
||||
} else {
|
||||
push(@email_to, $email_address);
|
||||
}
|
||||
} elsif ($email_address =~ m/<(.+)>/) {
|
||||
$email_address = $1;
|
||||
push(@email_to, $email_address);
|
||||
} else {
|
||||
push(@email_to, $email_address);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
|
@ -545,20 +566,79 @@ sub recent_git_signoffs {
|
|||
last;
|
||||
}
|
||||
}
|
||||
if ($line =~ m/(.+)<(.+)>/) {
|
||||
my $git_name = $1;
|
||||
my $git_addr = $2;
|
||||
if ($email_usename) {
|
||||
push(@email_to, format_email($git_name, $git_addr));
|
||||
} else {
|
||||
push(@email_to, $git_addr);
|
||||
push_email_address($line);
|
||||
}
|
||||
} elsif ($line =~ m/<(.+)>/) {
|
||||
my $git_addr = $1;
|
||||
push(@email_to, $git_addr);
|
||||
} else {
|
||||
push(@email_to, $line);
|
||||
}
|
||||
|
||||
sub save_commits {
|
||||
my ($cmd, @commits) = @_;
|
||||
my $output;
|
||||
my @lines = ();
|
||||
|
||||
$output = `${cmd}`;
|
||||
|
||||
@lines = split("\n", $output);
|
||||
foreach my $line (@lines) {
|
||||
if ($line =~ m/^(\w+) /) {
|
||||
push (@commits, $1);
|
||||
}
|
||||
}
|
||||
return @commits;
|
||||
}
|
||||
|
||||
sub git_assign_blame {
|
||||
my ($file) = @_;
|
||||
|
||||
my @lines = ();
|
||||
my @commits = ();
|
||||
my $cmd;
|
||||
my $output;
|
||||
my %hash;
|
||||
my $total_sign_offs;
|
||||
my $count;
|
||||
|
||||
if (@range) {
|
||||
foreach my $file_range_diff (@range) {
|
||||
next if (!($file_range_diff =~ m/(.+):(.+):(.+)/));
|
||||
my $diff_file = $1;
|
||||
my $diff_start = $2;
|
||||
my $diff_length = $3;
|
||||
next if (!("$file" eq "$diff_file"));
|
||||
$cmd = "git blame -l -L $diff_start,+$diff_length $file\n";
|
||||
@commits = save_commits($cmd, @commits);
|
||||
}
|
||||
} else {
|
||||
if (-f $file) {
|
||||
$cmd = "git blame -l $file\n";
|
||||
@commits = save_commits($cmd, @commits);
|
||||
}
|
||||
}
|
||||
|
||||
$total_sign_offs = 0;
|
||||
@commits = uniq(@commits);
|
||||
foreach my $commit (@commits) {
|
||||
$cmd = "git log -1 ${commit}";
|
||||
$cmd .= " | grep -Ei \"^[-_ a-z]+by:.*\\\@.*\$\"";
|
||||
if (!$email_git_penguin_chiefs) {
|
||||
$cmd .= " | grep -Ev \"${penguin_chiefs}\"";
|
||||
}
|
||||
$cmd .= " | cut -f2- -d\":\"";
|
||||
|
||||
$output = `${cmd}`;
|
||||
$output =~ s/^\s*//gm;
|
||||
@lines = split("\n", $output);
|
||||
$hash{$_}++ for @lines;
|
||||
$total_sign_offs += @lines;
|
||||
}
|
||||
|
||||
$count = 0;
|
||||
foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
|
||||
my $sign_offs = $hash{$line};
|
||||
$count++;
|
||||
last if ($sign_offs < $email_git_min_signatures ||
|
||||
$count > $email_git_max_maintainers ||
|
||||
$sign_offs * 100 / $total_sign_offs < $email_git_min_percent);
|
||||
push_email_address($line);
|
||||
}
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Reference in a new issue