aboutsummaryrefslogtreecommitdiffstats
path: root/scripts
diff options
context:
space:
mode:
authorJoe Perches <joe@perches.com>2009-06-16 18:34:00 -0400
committerLinus Torvalds <torvalds@linux-foundation.org>2009-06-16 22:47:53 -0400
commitf5f5078db2c61bf42ed20527731c0a23bed86c11 (patch)
tree02a145e9cab8dac82d487027d2ed6df1947124c1 /scripts
parentbdf7c685aa4639c95a752b52fa06741a7e3bb34e (diff)
scripts/get_maintainer.pl: improve --git-chief-penquins (Linus Torvalds) filtering
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>
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/get_maintainer.pl27
1 files changed, 12 insertions, 15 deletions
diff --git a/scripts/get_maintainer.pl b/scripts/get_maintainer.pl
index f302ad3759f3..1eb67fc543df 100755
--- a/scripts/get_maintainer.pl
+++ b/scripts/get_maintainer.pl
@@ -216,15 +216,19 @@ foreach my $file (@files) {
216 216
217} 217}
218 218
219if ($email_git_penguin_chiefs) { 219if ($email) {
220 foreach my $chief (@penguin_chief) { 220 foreach my $chief (@penguin_chief) {
221 if ($chief =~ m/^(.*):(.*)/) { 221 if ($chief =~ m/^(.*):(.*)/) {
222 my $chief_name = $1; 222 my $email_address;
223 my $chief_addr = $2;
224 if ($email_usename) { 223 if ($email_usename) {
225 push(@email_to, format_email($chief_name, $chief_addr)); 224 $email_address = format_email($1, $2);
226 } else { 225 } else {
227 push(@email_to, $chief_addr); 226 $email_address = $2;
227 }
228 if ($email_git_penguin_chiefs) {
229 push(@email_to, $email_address);
230 } else {
231 @email_to = grep(!/${email_address}/, @email_to);
228 } 232 }
229 } 233 }
230 } 234 }
@@ -236,10 +240,7 @@ if ($email || $email_list) {
236 @to = (@to, @email_to); 240 @to = (@to, @email_to);
237 } 241 }
238 if ($email_list) { 242 if ($email_list) {
239 if (@list_to == 0) {
240 push(@list_to, "linux-kernel\@vger.kernel.org");
241 @to = (@to, @list_to); 243 @to = (@to, @list_to);
242 }
243 } 244 }
244 output(uniq(@to)); 245 output(uniq(@to));
245} 246}
@@ -314,7 +315,7 @@ Default options:
314 [--email --git --m --n --l --multiline] 315 [--email --git --m --n --l --multiline]
315 316
316Other options: 317Other options:
317 --version -> show version 318 --version => show version
318 --help => show this help information 319 --help => show this help information
319 320
320EOT 321EOT
@@ -423,7 +424,7 @@ sub add_categories {
423sub which { 424sub which {
424 my ($bin) = @_; 425 my ($bin) = @_;
425 426
426 foreach my $path (split /:/, $ENV{PATH}) { 427 foreach my $path (split(/:/, $ENV{PATH})) {
427 if (-e "$path/$bin") { 428 if (-e "$path/$bin") {
428 return "$path/$bin"; 429 return "$path/$bin";
429 } 430 }
@@ -446,12 +447,8 @@ sub recent_git_signoffs {
446 } 447 }
447 448
448 $cmd = "git log --since=${email_git_since} -- ${file}"; 449 $cmd = "git log --since=${email_git_since} -- ${file}";
449 $cmd .= " | grep -Pi \"^[-_ a-z]+by:.*\\\@\""; 450 $cmd .= " | grep -Pi \"^[-_ a-z]+by:.*\\\@.*\$\"";
450 if (!$email_git_penguin_chiefs) {
451 $cmd .= " | grep -Pv \"${penguin_chiefs}\"";
452 }
453 $cmd .= " | cut -f2- -d\":\""; 451 $cmd .= " | cut -f2- -d\":\"";
454 $cmd .= " | sed -e \"s/^\\s+//g\"";
455 $cmd .= " | sort | uniq -c | sort -rn"; 452 $cmd .= " | sort | uniq -c | sort -rn";
456 453
457 $output = `${cmd}`; 454 $output = `${cmd}`;