lk/linux-kernel-test
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

scripts/get_maintainer.pl: improve --git-chief-penquins (Linus Torvalds) filtering

Browse Source 
Moved linux-kernel@vger.kernel.org to MAINTAINERS
lkml will be added to all CC lists via F: pattern match

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
2009-06-16 15:34:00 -07:00
committed by Linus Torvalds
parent bdf7c685aa
commit f5f5078db2
1 changed files with 12 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
scripts/get_maintainer.pl
View File

@@ -216,15 +216,19 @@ foreach my $file (@files) {
} }
if ($email_git_penguin_chiefs) { if ($email) {
foreach my $chief (@penguin_chief) { foreach my $chief (@penguin_chief) {
if ($chief =~ m/^(.*):(.*)/) { if ($chief =~ m/^(.*):(.*)/) {
my $chief_name = $1; my $email_address;
my $chief_addr = $2;
if ($email_usename) { if ($email_usename) {
push(@email_to, format_email($chief_name, $chief_addr)); $email_address = format_email($1, $2);
} else { } else {
push(@email_to, $chief_addr); $email_address = $2;
}
if ($email_git_penguin_chiefs) {
push(@email_to, $email_address);
} else {
@email_to = grep(!/${email_address}/, @email_to);
} }
} }
} }
@@ -236,10 +240,7 @@ if ($email || $email_list) {
@to = (@to, @email_to); @to = (@to, @email_to);
} }
if ($email_list) { if ($email_list) {
if (@list_to == 0) {
push(@list_to, "linux-kernel\@vger.kernel.org");
@to = (@to, @list_to); @to = (@to, @list_to);
}
} }
output(uniq(@to)); output(uniq(@to));
} }
@@ -314,7 +315,7 @@ Default options:
[--email --git --m --n --l --multiline] [--email --git --m --n --l --multiline]
Other options: Other options:
--version -> show version --version => show version
--help => show this help information --help => show this help information
EOT EOT
@@ -423,7 +424,7 @@ sub add_categories {
sub which { sub which {
my ($bin) = @_; my ($bin) = @_;
foreach my $path (split /:/, $ENV{PATH}) { foreach my $path (split(/:/, $ENV{PATH})) {
if (-e "$path/$bin") { if (-e "$path/$bin") {
return "$path/$bin"; return "$path/$bin";
} }
@@ -446,12 +447,8 @@ sub recent_git_signoffs {
} }
$cmd = "git log --since=${email_git_since} -- ${file}"; $cmd = "git log --since=${email_git_since} -- ${file}";
$cmd .= " | grep -Pi \"^[-_ a-z]+by:.*\\\@\""; $cmd .= " | grep -Pi \"^[-_ a-z]+by:.*\\\@.*\$\"";
if (!$email_git_penguin_chiefs) {
$cmd .= " | grep -Pv \"${penguin_chiefs}\"";
}
$cmd .= " | cut -f2- -d\":\""; $cmd .= " | cut -f2- -d\":\"";
$cmd .= " | sed -e \"s/^\\s+//g\"";
$cmd .= " | sort | uniq -c | sort -rn"; $cmd .= " | sort | uniq -c | sort -rn";
$output = `${cmd}`; $output = `${cmd}`;