Messages in this thread Patch in this message | | | Subject | [PATCH] scripts/get_maintainer.pl: add .get_maintainer.conf default options file | From | Joe Perches <> | Date | Sat, 08 May 2010 15:26:49 -0700 |
| |
Allow the use of a .get_maintainer.conf file to control the default options applied when scripts/get_maintainer.pl is run.
.get_maintainer.conf entries can be any valid argument.
Multiple lines may be used, blank lines ignored, # is a comment
Signed-off-by: Joe Perches <joe@perches.com> --- scripts/get_maintainer.pl | 24 ++++++++++++++++++++++++ 1 files changed, 24 insertions(+), 0 deletions(-)
diff --git a/scripts/get_maintainer.pl b/scripts/get_maintainer.pl index 6f97a13..0c4c7e0 100755 --- a/scripts/get_maintainer.pl +++ b/scripts/get_maintainer.pl @@ -97,6 +97,30 @@ my %VCS_cmds_hg = ( "blame_commit_pattern" => "^([0-9a-f]+):" ); +if (-f ${lk_path}.get_maintainer.conf) { + my @conf_args; + open(my $conffile, '<', "${lk_path}.get_maintainer.conf") + or warn "$P: Can't open .get_maintainer.conf: $!\n"; + while (<$conffile>) { + my $line = $_; + + $line =~ s/\s*\n?$//g; + $line =~ s/^\s*//g; + $line =~ s/\s+/ /g; + + next if ($line =~ m/^\s*#/); + next if ($line =~ m/^\s*$/); + + my @words = split(" ", $line); + foreach my $word (@words) { + last if ($word =~ m/^#/); + push (@conf_args, $word); + } + } + close($conffile); + unshift(@ARGV, @conf_args) if @conf_args; +} + if (!GetOptions( 'email!' => \$email, 'git!' => \$email_git,
| |