LM
/
u-boot
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

get_maintainer.pl: add support for scanning multiple MAINTAINERS files 

Signed-off-by: Daniel Schwierzeck <daniel.schwierzeck@gmail.com>
This commit is contained in:
Daniel Schwierzeck 2014-08-01 02:24:11 +02:00 committed by Tom Rini
parent ee360cd26a
commit 68dc8769e3
1 changed files with 42 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
scripts/get_maintainer.pl
View File

@ -16,6 +16,7 @@ my $P = $0;
my $V = '0.26'; my $V = '0.26';
use Getopt::Long qw(:config no_auto_abbrev); use Getopt::Long qw(:config no_auto_abbrev);
use File::Find;
my $lk_path = "./"; my $lk_path = "./";
my $email = 1; my $email = 1;
@ -273,9 +274,28 @@ if (!top_of_kernel_tree($lk_path)) {
my @typevalue = (); my @typevalue = ();
my %keyword_hash; my %keyword_hash;
open (my $maint, '<', "${lk_path}MAINTAINERS") my @maint_files = ();
or die "$P: Can't open MAINTAINERS: $!\n"; push(@maint_files, "${lk_path}MAINTAINERS");
while (<$maint>) {
sub maint_wanted {
return unless $_ =~ /^MAINTAINERS/;
push(@maint_files, "$File::Find::name");
}
File::Find::find(\&maint_wanted, "${lk_path}board");
foreach my $maint_file (@maint_files) {
my $maint;
open ($maint, '<', "$maint_file")
or die "$P: Can't open $maint_file: $!\n";
read_maintainers($maint);
close($maint);
}
sub read_maintainers {
my ($maint) = @_;
while (<$maint>) {
my $line = $_; my $line = $_;
if ($line =~ m/^(\C):\s*(.*)/) { if ($line =~ m/^(\C):\s*(.*)/) {
@ -299,8 +319,8 @@ while (<$maint>) {
$line =~ s/\n$//g; $line =~ s/\n$//g;
push(@typevalue, $line); push(@typevalue, $line);
} }
}
} }
close($maint);
# #