blob: f32a04c4c5bc1c56a88e0f7fba3cb521aa997e52 [file] [log] [blame]
Joe Perchescb7301c2009-04-07 20:40:12 -07001#!/usr/bin/perl -w
2# (c) 2007, Joe Perches <joe@perches.com>
3# created from checkpatch.pl
4#
5# Print selected MAINTAINERS information for
6# the files modified in a patch or for a file
7#
Roel Kluin3bd7bf52009-11-11 14:26:13 -08008# usage: perl scripts/get_maintainer.pl [OPTIONS] <patch>
9# perl scripts/get_maintainer.pl [OPTIONS] -f <file>
Joe Perchescb7301c2009-04-07 20:40:12 -070010#
11# Licensed under the terms of the GNU GPL License version 2
12
13use strict;
14
15my $P = $0;
Joe Perches7e1863a2011-01-12 16:59:49 -080016my $V = '0.26';
Joe Perchescb7301c2009-04-07 20:40:12 -070017
18use Getopt::Long qw(:config no_auto_abbrev);
19
20my $lk_path = "./";
21my $email = 1;
22my $email_usename = 1;
23my $email_maintainer = 1;
24my $email_list = 1;
25my $email_subscriber_list = 0;
Joe Perchescb7301c2009-04-07 20:40:12 -070026my $email_git_penguin_chiefs = 0;
Joe Perchese3e9d112010-10-26 14:22:53 -070027my $email_git = 0;
Florian Mickler0fa05592010-05-24 14:33:20 -070028my $email_git_all_signature_types = 0;
Joe Perches60db31a2009-12-14 18:00:50 -080029my $email_git_blame = 0;
Joe Perches683c6f82010-10-26 14:22:55 -070030my $email_git_blame_signatures = 1;
Joe Perchese3e9d112010-10-26 14:22:53 -070031my $email_git_fallback = 1;
Joe Perchescb7301c2009-04-07 20:40:12 -070032my $email_git_min_signatures = 1;
33my $email_git_max_maintainers = 5;
Joe Perchesafa81ee2009-07-29 15:04:28 -070034my $email_git_min_percent = 5;
Joe Perchescb7301c2009-04-07 20:40:12 -070035my $email_git_since = "1-year-ago";
Joe Perches60db31a2009-12-14 18:00:50 -080036my $email_hg_since = "-365";
Florian Micklerdace8e32010-10-26 14:22:54 -070037my $interactive = 0;
Joe Perches11ecf532009-09-21 17:04:22 -070038my $email_remove_duplicates = 1;
Joe Perchesb9e23312010-10-26 14:22:58 -070039my $email_use_mailmap = 1;
Joe Perchescb7301c2009-04-07 20:40:12 -070040my $output_multiline = 1;
41my $output_separator = ", ";
Joe Perches3c7385b2009-12-14 18:00:46 -080042my $output_roles = 0;
Joe Perches7e1863a2011-01-12 16:59:49 -080043my $output_rolestats = 1;
Joe Perchescb7301c2009-04-07 20:40:12 -070044my $scm = 0;
45my $web = 0;
46my $subsystem = 0;
47my $status = 0;
Joe Perchesdcf36a92009-10-26 16:49:47 -070048my $keywords = 1;
Joe Perches4b76c9d2010-03-05 13:43:03 -080049my $sections = 0;
Joe Perches03372db2010-03-05 13:43:00 -080050my $file_emails = 0;
Joe Perches4a7fdb52009-04-10 12:28:57 -070051my $from_filename = 0;
Joe Perches3fb55652009-09-21 17:04:17 -070052my $pattern_depth = 0;
Joe Perchescb7301c2009-04-07 20:40:12 -070053my $version = 0;
54my $help = 0;
55
Joe Perches683c6f82010-10-26 14:22:55 -070056my $vcs_used = 0;
57
Joe Perchescb7301c2009-04-07 20:40:12 -070058my $exit = 0;
59
Joe Perches683c6f82010-10-26 14:22:55 -070060my %commit_author_hash;
61my %commit_signer_hash;
Florian Micklerdace8e32010-10-26 14:22:54 -070062
Joe Perchescb7301c2009-04-07 20:40:12 -070063my @penguin_chief = ();
Joe Perchese4d26b02010-05-24 14:33:17 -070064push(@penguin_chief, "Linus Torvalds:torvalds\@linux-foundation.org");
Joe Perchescb7301c2009-04-07 20:40:12 -070065#Andrew wants in on most everything - 2009/01/14
Joe Perchese4d26b02010-05-24 14:33:17 -070066#push(@penguin_chief, "Andrew Morton:akpm\@linux-foundation.org");
Joe Perchescb7301c2009-04-07 20:40:12 -070067
68my @penguin_chief_names = ();
69foreach my $chief (@penguin_chief) {
70 if ($chief =~ m/^(.*):(.*)/) {
71 my $chief_name = $1;
72 my $chief_addr = $2;
73 push(@penguin_chief_names, $chief_name);
74 }
75}
Joe Perchese4d26b02010-05-24 14:33:17 -070076my $penguin_chiefs = "\(" . join("|", @penguin_chief_names) . "\)";
77
78# Signature types of people who are either
79# a) responsible for the code in question, or
80# b) familiar enough with it to give relevant feedback
81my @signature_tags = ();
82push(@signature_tags, "Signed-off-by:");
83push(@signature_tags, "Reviewed-by:");
84push(@signature_tags, "Acked-by:");
Joe Perchescb7301c2009-04-07 20:40:12 -070085
Joe Perches5f2441e2009-06-16 15:34:02 -070086# rfc822 email address - preloaded methods go here.
Joe Perches1b5e1cf2009-06-16 15:34:01 -070087my $rfc822_lwsp = "(?:(?:\\r\\n)?[ \\t])";
Joe Perchesdf4cc032009-06-16 15:34:04 -070088my $rfc822_char = '[\\000-\\377]';
Joe Perches1b5e1cf2009-06-16 15:34:01 -070089
Joe Perches60db31a2009-12-14 18:00:50 -080090# VCS command support: class-like functions and strings
91
92my %VCS_cmds;
93
94my %VCS_cmds_git = (
95 "execute_cmd" => \&git_execute_cmd,
96 "available" => '(which("git") ne "") && (-d ".git")',
Joe Perches683c6f82010-10-26 14:22:55 -070097 "find_signers_cmd" =>
Ian Campbelled128fe2012-01-10 15:08:41 -080098 "git log --no-color --follow --since=\$email_git_since " .
Joe Perches683c6f82010-10-26 14:22:55 -070099 '--format="GitCommit: %H%n' .
100 'GitAuthor: %an <%ae>%n' .
101 'GitDate: %aD%n' .
102 'GitSubject: %s%n' .
103 '%b%n"' .
104 " -- \$file",
105 "find_commit_signers_cmd" =>
106 "git log --no-color " .
107 '--format="GitCommit: %H%n' .
108 'GitAuthor: %an <%ae>%n' .
109 'GitDate: %aD%n' .
110 'GitSubject: %s%n' .
111 '%b%n"' .
112 " -1 \$commit",
113 "find_commit_author_cmd" =>
114 "git log --no-color " .
115 '--format="GitCommit: %H%n' .
116 'GitAuthor: %an <%ae>%n' .
117 'GitDate: %aD%n' .
118 'GitSubject: %s%n"' .
119 " -1 \$commit",
Joe Perches60db31a2009-12-14 18:00:50 -0800120 "blame_range_cmd" => "git blame -l -L \$diff_start,+\$diff_length \$file",
121 "blame_file_cmd" => "git blame -l \$file",
Joe Perches683c6f82010-10-26 14:22:55 -0700122 "commit_pattern" => "^GitCommit: ([0-9a-f]{40,40})",
Florian Micklerdace8e32010-10-26 14:22:54 -0700123 "blame_commit_pattern" => "^([0-9a-f]+) ",
Joe Perches683c6f82010-10-26 14:22:55 -0700124 "author_pattern" => "^GitAuthor: (.*)",
125 "subject_pattern" => "^GitSubject: (.*)",
Joe Perches60db31a2009-12-14 18:00:50 -0800126);
127
128my %VCS_cmds_hg = (
129 "execute_cmd" => \&hg_execute_cmd,
130 "available" => '(which("hg") ne "") && (-d ".hg")',
131 "find_signers_cmd" =>
Joe Perches683c6f82010-10-26 14:22:55 -0700132 "hg log --date=\$email_hg_since " .
133 "--template='HgCommit: {node}\\n" .
134 "HgAuthor: {author}\\n" .
135 "HgSubject: {desc}\\n'" .
136 " -- \$file",
137 "find_commit_signers_cmd" =>
138 "hg log " .
139 "--template='HgSubject: {desc}\\n'" .
140 " -r \$commit",
141 "find_commit_author_cmd" =>
142 "hg log " .
143 "--template='HgCommit: {node}\\n" .
144 "HgAuthor: {author}\\n" .
145 "HgSubject: {desc|firstline}\\n'" .
146 " -r \$commit",
Joe Perches60db31a2009-12-14 18:00:50 -0800147 "blame_range_cmd" => "", # not supported
Joe Perches683c6f82010-10-26 14:22:55 -0700148 "blame_file_cmd" => "hg blame -n \$file",
149 "commit_pattern" => "^HgCommit: ([0-9a-f]{40,40})",
150 "blame_commit_pattern" => "^([ 0-9a-f]+):",
151 "author_pattern" => "^HgAuthor: (.*)",
152 "subject_pattern" => "^HgSubject: (.*)",
Joe Perches60db31a2009-12-14 18:00:50 -0800153);
154
Joe Perchesbcde44e2010-10-26 14:22:53 -0700155my $conf = which_conf(".get_maintainer.conf");
156if (-f $conf) {
Joe Perches368669d2010-05-24 14:33:19 -0700157 my @conf_args;
Joe Perchesbcde44e2010-10-26 14:22:53 -0700158 open(my $conffile, '<', "$conf")
159 or warn "$P: Can't find a readable .get_maintainer.conf file $!\n";
160
Joe Perches368669d2010-05-24 14:33:19 -0700161 while (<$conffile>) {
162 my $line = $_;
163
164 $line =~ s/\s*\n?$//g;
165 $line =~ s/^\s*//g;
166 $line =~ s/\s+/ /g;
167
168 next if ($line =~ m/^\s*#/);
169 next if ($line =~ m/^\s*$/);
170
171 my @words = split(" ", $line);
172 foreach my $word (@words) {
173 last if ($word =~ m/^#/);
174 push (@conf_args, $word);
175 }
176 }
177 close($conffile);
178 unshift(@ARGV, @conf_args) if @conf_args;
179}
180
Joe Perchescb7301c2009-04-07 20:40:12 -0700181if (!GetOptions(
182 'email!' => \$email,
183 'git!' => \$email_git,
Joe Perchese4d26b02010-05-24 14:33:17 -0700184 'git-all-signature-types!' => \$email_git_all_signature_types,
Joe Perches60db31a2009-12-14 18:00:50 -0800185 'git-blame!' => \$email_git_blame,
Joe Perches683c6f82010-10-26 14:22:55 -0700186 'git-blame-signatures!' => \$email_git_blame_signatures,
Joe Perchese3e9d112010-10-26 14:22:53 -0700187 'git-fallback!' => \$email_git_fallback,
Joe Perchescb7301c2009-04-07 20:40:12 -0700188 'git-chief-penguins!' => \$email_git_penguin_chiefs,
189 'git-min-signatures=i' => \$email_git_min_signatures,
190 'git-max-maintainers=i' => \$email_git_max_maintainers,
Joe Perchesafa81ee2009-07-29 15:04:28 -0700191 'git-min-percent=i' => \$email_git_min_percent,
Joe Perchescb7301c2009-04-07 20:40:12 -0700192 'git-since=s' => \$email_git_since,
Joe Perches60db31a2009-12-14 18:00:50 -0800193 'hg-since=s' => \$email_hg_since,
Florian Micklerdace8e32010-10-26 14:22:54 -0700194 'i|interactive!' => \$interactive,
Joe Perches11ecf532009-09-21 17:04:22 -0700195 'remove-duplicates!' => \$email_remove_duplicates,
Joe Perchesb9e23312010-10-26 14:22:58 -0700196 'mailmap!' => \$email_use_mailmap,
Joe Perchescb7301c2009-04-07 20:40:12 -0700197 'm!' => \$email_maintainer,
198 'n!' => \$email_usename,
199 'l!' => \$email_list,
200 's!' => \$email_subscriber_list,
201 'multiline!' => \$output_multiline,
Joe Perches3c7385b2009-12-14 18:00:46 -0800202 'roles!' => \$output_roles,
203 'rolestats!' => \$output_rolestats,
Joe Perchescb7301c2009-04-07 20:40:12 -0700204 'separator=s' => \$output_separator,
205 'subsystem!' => \$subsystem,
206 'status!' => \$status,
207 'scm!' => \$scm,
208 'web!' => \$web,
Joe Perches3fb55652009-09-21 17:04:17 -0700209 'pattern-depth=i' => \$pattern_depth,
Joe Perchesdcf36a92009-10-26 16:49:47 -0700210 'k|keywords!' => \$keywords,
Joe Perches4b76c9d2010-03-05 13:43:03 -0800211 'sections!' => \$sections,
Joe Perches03372db2010-03-05 13:43:00 -0800212 'fe|file-emails!' => \$file_emails,
Joe Perches4a7fdb52009-04-10 12:28:57 -0700213 'f|file' => \$from_filename,
Joe Perchescb7301c2009-04-07 20:40:12 -0700214 'v|version' => \$version,
Joe Perches64f77f32010-03-05 13:43:04 -0800215 'h|help|usage' => \$help,
Joe Perchescb7301c2009-04-07 20:40:12 -0700216 )) {
Joe Perches3c7385b2009-12-14 18:00:46 -0800217 die "$P: invalid argument - use --help if necessary\n";
Joe Perchescb7301c2009-04-07 20:40:12 -0700218}
219
220if ($help != 0) {
221 usage();
222 exit 0;
223}
224
225if ($version != 0) {
226 print("${P} ${V}\n");
227 exit 0;
228}
229
Joe Perches64f77f32010-03-05 13:43:04 -0800230if (-t STDIN && !@ARGV) {
231 # We're talking to a terminal, but have no command line arguments.
232 die "$P: missing patchfile or -f file - use --help if necessary\n";
Joe Perchescb7301c2009-04-07 20:40:12 -0700233}
234
Joe Perches683c6f82010-10-26 14:22:55 -0700235$output_multiline = 0 if ($output_separator ne ", ");
236$output_rolestats = 1 if ($interactive);
237$output_roles = 1 if ($output_rolestats);
Joe Perches3c7385b2009-12-14 18:00:46 -0800238
Joe Perches4b76c9d2010-03-05 13:43:03 -0800239if ($sections) {
240 $email = 0;
241 $email_list = 0;
242 $scm = 0;
243 $status = 0;
244 $subsystem = 0;
245 $web = 0;
246 $keywords = 0;
Joe Perches6ef1c522010-10-26 14:22:56 -0700247 $interactive = 0;
Joe Perches4b76c9d2010-03-05 13:43:03 -0800248} else {
249 my $selections = $email + $scm + $status + $subsystem + $web;
250 if ($selections == 0) {
Joe Perches4b76c9d2010-03-05 13:43:03 -0800251 die "$P: Missing required option: email, scm, status, subsystem or web\n";
252 }
Joe Perchescb7301c2009-04-07 20:40:12 -0700253}
254
Joe Perchesf5492662009-09-21 17:04:13 -0700255if ($email &&
256 ($email_maintainer + $email_list + $email_subscriber_list +
257 $email_git + $email_git_penguin_chiefs + $email_git_blame) == 0) {
Joe Perchescb7301c2009-04-07 20:40:12 -0700258 die "$P: Please select at least 1 email option\n";
259}
260
261if (!top_of_kernel_tree($lk_path)) {
262 die "$P: The current directory does not appear to be "
263 . "a linux kernel source tree.\n";
264}
265
266## Read MAINTAINERS for type/value pairs
267
268my @typevalue = ();
Joe Perchesdcf36a92009-10-26 16:49:47 -0700269my %keyword_hash;
270
Stephen Hemminger22dd5b02010-03-05 13:43:06 -0800271open (my $maint, '<', "${lk_path}MAINTAINERS")
272 or die "$P: Can't open MAINTAINERS: $!\n";
273while (<$maint>) {
Joe Perchescb7301c2009-04-07 20:40:12 -0700274 my $line = $_;
275
276 if ($line =~ m/^(\C):\s*(.*)/) {
277 my $type = $1;
278 my $value = $2;
279
280 ##Filename pattern matching
281 if ($type eq "F" || $type eq "X") {
282 $value =~ s@\.@\\\.@g; ##Convert . to \.
283 $value =~ s/\*/\.\*/g; ##Convert * to .*
284 $value =~ s/\?/\./g; ##Convert ? to .
Joe Perches870020f2009-07-29 15:04:28 -0700285 ##if pattern is a directory and it lacks a trailing slash, add one
286 if ((-d $value)) {
287 $value =~ s@([^/])$@$1/@;
288 }
Joe Perchesdcf36a92009-10-26 16:49:47 -0700289 } elsif ($type eq "K") {
290 $keyword_hash{@typevalue} = $value;
Joe Perchescb7301c2009-04-07 20:40:12 -0700291 }
292 push(@typevalue, "$type:$value");
293 } elsif (!/^(\s)*$/) {
294 $line =~ s/\n$//g;
295 push(@typevalue, $line);
296 }
297}
Stephen Hemminger22dd5b02010-03-05 13:43:06 -0800298close($maint);
Joe Perchescb7301c2009-04-07 20:40:12 -0700299
Joe Perches8cbb3a72009-09-21 17:04:21 -0700300
Florian Mickler7fa8ff22010-10-26 14:22:56 -0700301#
302# Read mail address map
303#
304
Joe Perchesb9e23312010-10-26 14:22:58 -0700305my $mailmap;
306
307read_mailmap();
Florian Mickler7fa8ff22010-10-26 14:22:56 -0700308
309sub read_mailmap {
Joe Perchesb9e23312010-10-26 14:22:58 -0700310 $mailmap = {
Florian Mickler7fa8ff22010-10-26 14:22:56 -0700311 names => {},
312 addresses => {}
Joe Perches47abc722010-10-26 14:22:57 -0700313 };
Florian Mickler7fa8ff22010-10-26 14:22:56 -0700314
Joe Perchesb9e23312010-10-26 14:22:58 -0700315 return if (!$email_use_mailmap || !(-f "${lk_path}.mailmap"));
Florian Mickler7fa8ff22010-10-26 14:22:56 -0700316
317 open(my $mailmap_file, '<', "${lk_path}.mailmap")
Stephen Hemminger22dd5b02010-03-05 13:43:06 -0800318 or warn "$P: Can't open .mailmap: $!\n";
Joe Perches8cbb3a72009-09-21 17:04:21 -0700319
Florian Mickler7fa8ff22010-10-26 14:22:56 -0700320 while (<$mailmap_file>) {
321 s/#.*$//; #strip comments
322 s/^\s+|\s+$//g; #trim
Joe Perches8cbb3a72009-09-21 17:04:21 -0700323
Florian Mickler7fa8ff22010-10-26 14:22:56 -0700324 next if (/^\s*$/); #skip empty lines
325 #entries have one of the following formats:
326 # name1 <mail1>
327 # <mail1> <mail2>
328 # name1 <mail1> <mail2>
329 # name1 <mail1> name2 <mail2>
330 # (see man git-shortlog)
Joe Perches0334b382011-07-25 17:13:13 -0700331
332 if (/^([^<]+)<([^>]+)>$/) {
Joe Perches47abc722010-10-26 14:22:57 -0700333 my $real_name = $1;
334 my $address = $2;
Joe Perches8cbb3a72009-09-21 17:04:21 -0700335
Joe Perches47abc722010-10-26 14:22:57 -0700336 $real_name =~ s/\s+$//;
Joe Perchesb9e23312010-10-26 14:22:58 -0700337 ($real_name, $address) = parse_email("$real_name <$address>");
Joe Perches47abc722010-10-26 14:22:57 -0700338 $mailmap->{names}->{$address} = $real_name;
Joe Perches8cbb3a72009-09-21 17:04:21 -0700339
Joe Perches0334b382011-07-25 17:13:13 -0700340 } elsif (/^<([^>]+)>\s*<([^>]+)>$/) {
Joe Perches47abc722010-10-26 14:22:57 -0700341 my $real_address = $1;
342 my $wrong_address = $2;
Florian Mickler7fa8ff22010-10-26 14:22:56 -0700343
Joe Perches47abc722010-10-26 14:22:57 -0700344 $mailmap->{addresses}->{$wrong_address} = $real_address;
Florian Mickler7fa8ff22010-10-26 14:22:56 -0700345
Joe Perches0334b382011-07-25 17:13:13 -0700346 } elsif (/^(.+)<([^>]+)>\s*<([^>]+)>$/) {
Joe Perchesb9e23312010-10-26 14:22:58 -0700347 my $real_name = $1;
Joe Perches47abc722010-10-26 14:22:57 -0700348 my $real_address = $2;
349 my $wrong_address = $3;
Florian Mickler7fa8ff22010-10-26 14:22:56 -0700350
Joe Perches47abc722010-10-26 14:22:57 -0700351 $real_name =~ s/\s+$//;
Joe Perchesb9e23312010-10-26 14:22:58 -0700352 ($real_name, $real_address) =
353 parse_email("$real_name <$real_address>");
Joe Perches47abc722010-10-26 14:22:57 -0700354 $mailmap->{names}->{$wrong_address} = $real_name;
355 $mailmap->{addresses}->{$wrong_address} = $real_address;
Florian Mickler7fa8ff22010-10-26 14:22:56 -0700356
Joe Perches0334b382011-07-25 17:13:13 -0700357 } elsif (/^(.+)<([^>]+)>\s*(.+)\s*<([^>]+)>$/) {
Joe Perches47abc722010-10-26 14:22:57 -0700358 my $real_name = $1;
359 my $real_address = $2;
360 my $wrong_name = $3;
361 my $wrong_address = $4;
Florian Mickler7fa8ff22010-10-26 14:22:56 -0700362
Joe Perches47abc722010-10-26 14:22:57 -0700363 $real_name =~ s/\s+$//;
Joe Perchesb9e23312010-10-26 14:22:58 -0700364 ($real_name, $real_address) =
365 parse_email("$real_name <$real_address>");
Florian Mickler7fa8ff22010-10-26 14:22:56 -0700366
Joe Perchesb9e23312010-10-26 14:22:58 -0700367 $wrong_name =~ s/\s+$//;
368 ($wrong_name, $wrong_address) =
369 parse_email("$wrong_name <$wrong_address>");
370
371 my $wrong_email = format_email($wrong_name, $wrong_address, 1);
372 $mailmap->{names}->{$wrong_email} = $real_name;
373 $mailmap->{addresses}->{$wrong_email} = $real_address;
Joe Perches11ecf532009-09-21 17:04:22 -0700374 }
Joe Perches8cbb3a72009-09-21 17:04:21 -0700375 }
Florian Mickler7fa8ff22010-10-26 14:22:56 -0700376 close($mailmap_file);
Joe Perches8cbb3a72009-09-21 17:04:21 -0700377}
378
Joe Perches4a7fdb52009-04-10 12:28:57 -0700379## use the filenames on the command line or find the filenames in the patchfiles
Joe Perchescb7301c2009-04-07 20:40:12 -0700380
381my @files = ();
Joe Perchesf5492662009-09-21 17:04:13 -0700382my @range = ();
Joe Perchesdcf36a92009-10-26 16:49:47 -0700383my @keyword_tvi = ();
Joe Perches03372db2010-03-05 13:43:00 -0800384my @file_emails = ();
Joe Perchescb7301c2009-04-07 20:40:12 -0700385
Joe Perches64f77f32010-03-05 13:43:04 -0800386if (!@ARGV) {
387 push(@ARGV, "&STDIN");
388}
389
Joe Perches4a7fdb52009-04-10 12:28:57 -0700390foreach my $file (@ARGV) {
Joe Perches64f77f32010-03-05 13:43:04 -0800391 if ($file ne "&STDIN") {
392 ##if $file is a directory and it lacks a trailing slash, add one
393 if ((-d $file)) {
394 $file =~ s@([^/])$@$1/@;
395 } elsif (!(-f $file)) {
396 die "$P: file '${file}' not found\n";
397 }
Joe Perchescb7301c2009-04-07 20:40:12 -0700398 }
Joe Perches4a7fdb52009-04-10 12:28:57 -0700399 if ($from_filename) {
400 push(@files, $file);
Joe Perchesfab9ed12010-10-26 14:22:52 -0700401 if ($file ne "MAINTAINERS" && -f $file && ($keywords || $file_emails)) {
Stephen Hemminger22dd5b02010-03-05 13:43:06 -0800402 open(my $f, '<', $file)
403 or die "$P: Can't open $file: $!\n";
404 my $text = do { local($/) ; <$f> };
405 close($f);
Joe Perches03372db2010-03-05 13:43:00 -0800406 if ($keywords) {
407 foreach my $line (keys %keyword_hash) {
408 if ($text =~ m/$keyword_hash{$line}/x) {
409 push(@keyword_tvi, $line);
410 }
Joe Perchesdcf36a92009-10-26 16:49:47 -0700411 }
412 }
Joe Perches03372db2010-03-05 13:43:00 -0800413 if ($file_emails) {
414 my @poss_addr = $text =~ m$[A-Za-zÀ-ÿ\"\' \,\.\+-]*\s*[\,]*\s*[\(\<\{]{0,1}[A-Za-z0-9_\.\+-]+\@[A-Za-z0-9\.-]+\.[A-Za-z0-9]+[\)\>\}]{0,1}$g;
415 push(@file_emails, clean_file_emails(@poss_addr));
416 }
Joe Perchesdcf36a92009-10-26 16:49:47 -0700417 }
Joe Perches4a7fdb52009-04-10 12:28:57 -0700418 } else {
419 my $file_cnt = @files;
Joe Perchesf5492662009-09-21 17:04:13 -0700420 my $lastfile;
Stephen Hemminger22dd5b02010-03-05 13:43:06 -0800421
Wolfram Sang3a4df132010-03-23 13:35:18 -0700422 open(my $patch, "< $file")
Stephen Hemminger22dd5b02010-03-05 13:43:06 -0800423 or die "$P: Can't open $file: $!\n";
Joe Perches7764dcb2011-03-22 16:34:24 -0700424
425 # We can check arbitrary information before the patch
426 # like the commit message, mail headers, etc...
427 # This allows us to match arbitrary keywords against any part
428 # of a git format-patch generated file (subject tags, etc...)
429
430 my $patch_prefix = ""; #Parsing the intro
431
Stephen Hemminger22dd5b02010-03-05 13:43:06 -0800432 while (<$patch>) {
Joe Perchesdcf36a92009-10-26 16:49:47 -0700433 my $patch_line = $_;
Joe Perches4a7fdb52009-04-10 12:28:57 -0700434 if (m/^\+\+\+\s+(\S+)/) {
435 my $filename = $1;
436 $filename =~ s@^[^/]*/@@;
437 $filename =~ s@\n@@;
Joe Perchesf5492662009-09-21 17:04:13 -0700438 $lastfile = $filename;
Joe Perches4a7fdb52009-04-10 12:28:57 -0700439 push(@files, $filename);
Joe Perches7764dcb2011-03-22 16:34:24 -0700440 $patch_prefix = "^[+-].*"; #Now parsing the actual patch
Joe Perchesf5492662009-09-21 17:04:13 -0700441 } elsif (m/^\@\@ -(\d+),(\d+)/) {
442 if ($email_git_blame) {
443 push(@range, "$lastfile:$1:$2");
444 }
Joe Perchesdcf36a92009-10-26 16:49:47 -0700445 } elsif ($keywords) {
446 foreach my $line (keys %keyword_hash) {
Joe Perches7764dcb2011-03-22 16:34:24 -0700447 if ($patch_line =~ m/${patch_prefix}$keyword_hash{$line}/x) {
Joe Perchesdcf36a92009-10-26 16:49:47 -0700448 push(@keyword_tvi, $line);
449 }
450 }
Joe Perches4a7fdb52009-04-10 12:28:57 -0700451 }
Joe Perchescb7301c2009-04-07 20:40:12 -0700452 }
Stephen Hemminger22dd5b02010-03-05 13:43:06 -0800453 close($patch);
454
Joe Perches4a7fdb52009-04-10 12:28:57 -0700455 if ($file_cnt == @files) {
Joe Perches7f29fd272009-06-16 15:34:04 -0700456 warn "$P: file '${file}' doesn't appear to be a patch. "
Joe Perches4a7fdb52009-04-10 12:28:57 -0700457 . "Add -f to options?\n";
458 }
459 @files = sort_and_uniq(@files);
Joe Perchescb7301c2009-04-07 20:40:12 -0700460 }
Joe Perchescb7301c2009-04-07 20:40:12 -0700461}
462
Joe Perches03372db2010-03-05 13:43:00 -0800463@file_emails = uniq(@file_emails);
464
Joe Perches683c6f82010-10-26 14:22:55 -0700465my %email_hash_name;
466my %email_hash_address;
Joe Perchescb7301c2009-04-07 20:40:12 -0700467my @email_to = ();
Joe Perches683c6f82010-10-26 14:22:55 -0700468my %hash_list_to;
Joe Perches290603c2009-06-16 15:33:58 -0700469my @list_to = ();
Joe Perchescb7301c2009-04-07 20:40:12 -0700470my @scm = ();
471my @web = ();
472my @subsystem = ();
473my @status = ();
Joe Perchesb9e23312010-10-26 14:22:58 -0700474my %deduplicate_name_hash = ();
475my %deduplicate_address_hash = ();
Joe Perches683c6f82010-10-26 14:22:55 -0700476my $signature_pattern;
Joe Perchescb7301c2009-04-07 20:40:12 -0700477
Joe Perches6ef1c522010-10-26 14:22:56 -0700478my @maintainers = get_maintainers();
Joe Perchescb7301c2009-04-07 20:40:12 -0700479
Joe Perches6ef1c522010-10-26 14:22:56 -0700480if (@maintainers) {
481 @maintainers = merge_email(@maintainers);
482 output(@maintainers);
483}
Joe Perchescb7301c2009-04-07 20:40:12 -0700484
485if ($scm) {
Joe Perchesb7816552009-09-21 17:04:24 -0700486 @scm = uniq(@scm);
Joe Perchescb7301c2009-04-07 20:40:12 -0700487 output(@scm);
488}
Joe Perches683c6f82010-10-26 14:22:55 -0700489
Joe Perchescb7301c2009-04-07 20:40:12 -0700490if ($status) {
Joe Perchesb7816552009-09-21 17:04:24 -0700491 @status = uniq(@status);
Joe Perchescb7301c2009-04-07 20:40:12 -0700492 output(@status);
493}
494
495if ($subsystem) {
Joe Perchesb7816552009-09-21 17:04:24 -0700496 @subsystem = uniq(@subsystem);
Joe Perchescb7301c2009-04-07 20:40:12 -0700497 output(@subsystem);
498}
499
500if ($web) {
Joe Perchesb7816552009-09-21 17:04:24 -0700501 @web = uniq(@web);
Joe Perchescb7301c2009-04-07 20:40:12 -0700502 output(@web);
503}
504
505exit($exit);
506
Joe Perchesab6c9372011-01-12 16:59:50 -0800507sub range_is_maintained {
508 my ($start, $end) = @_;
509
510 for (my $i = $start; $i < $end; $i++) {
511 my $line = $typevalue[$i];
512 if ($line =~ m/^(\C):\s*(.*)/) {
513 my $type = $1;
514 my $value = $2;
515 if ($type eq 'S') {
516 if ($value =~ /(maintain|support)/i) {
517 return 1;
518 }
519 }
520 }
521 }
522 return 0;
523}
524
525sub range_has_maintainer {
526 my ($start, $end) = @_;
527
528 for (my $i = $start; $i < $end; $i++) {
529 my $line = $typevalue[$i];
530 if ($line =~ m/^(\C):\s*(.*)/) {
531 my $type = $1;
532 my $value = $2;
533 if ($type eq 'M') {
534 return 1;
535 }
536 }
537 }
538 return 0;
539}
540
Joe Perches6ef1c522010-10-26 14:22:56 -0700541sub get_maintainers {
Joe Perches683c6f82010-10-26 14:22:55 -0700542 %email_hash_name = ();
543 %email_hash_address = ();
544 %commit_author_hash = ();
545 %commit_signer_hash = ();
546 @email_to = ();
547 %hash_list_to = ();
548 @list_to = ();
549 @scm = ();
550 @web = ();
551 @subsystem = ();
552 @status = ();
Joe Perchesb9e23312010-10-26 14:22:58 -0700553 %deduplicate_name_hash = ();
554 %deduplicate_address_hash = ();
Joe Perches683c6f82010-10-26 14:22:55 -0700555 if ($email_git_all_signature_types) {
556 $signature_pattern = "(.+?)[Bb][Yy]:";
557 } else {
558 $signature_pattern = "\(" . join("|", @signature_tags) . "\)";
559 }
560
561 # Find responsible parties
562
Joe Perchesb9e23312010-10-26 14:22:58 -0700563 my %exact_pattern_match_hash = ();
Joe Perches6ef1c522010-10-26 14:22:56 -0700564
Joe Perches683c6f82010-10-26 14:22:55 -0700565 foreach my $file (@files) {
566
567 my %hash;
Joe Perches683c6f82010-10-26 14:22:55 -0700568 my $tvi = find_first_section();
569 while ($tvi < @typevalue) {
570 my $start = find_starting_index($tvi);
571 my $end = find_ending_index($tvi);
572 my $exclude = 0;
573 my $i;
574
575 #Do not match excluded file patterns
576
577 for ($i = $start; $i < $end; $i++) {
578 my $line = $typevalue[$i];
579 if ($line =~ m/^(\C):\s*(.*)/) {
580 my $type = $1;
581 my $value = $2;
582 if ($type eq 'X') {
583 if (file_match_pattern($file, $value)) {
584 $exclude = 1;
585 last;
586 }
587 }
588 }
589 }
590
591 if (!$exclude) {
592 for ($i = $start; $i < $end; $i++) {
593 my $line = $typevalue[$i];
594 if ($line =~ m/^(\C):\s*(.*)/) {
595 my $type = $1;
596 my $value = $2;
597 if ($type eq 'F') {
598 if (file_match_pattern($file, $value)) {
599 my $value_pd = ($value =~ tr@/@@);
600 my $file_pd = ($file =~ tr@/@@);
601 $value_pd++ if (substr($value,-1,1) ne "/");
602 $value_pd = -1 if ($value =~ /^\.\*/);
Joe Perchesab6c9372011-01-12 16:59:50 -0800603 if ($value_pd >= $file_pd &&
604 range_is_maintained($start, $end) &&
605 range_has_maintainer($start, $end)) {
Joe Perches6ef1c522010-10-26 14:22:56 -0700606 $exact_pattern_match_hash{$file} = 1;
607 }
Joe Perches683c6f82010-10-26 14:22:55 -0700608 if ($pattern_depth == 0 ||
609 (($file_pd - $value_pd) < $pattern_depth)) {
610 $hash{$tvi} = $value_pd;
611 }
612 }
613 }
614 }
615 }
616 }
617 $tvi = $end + 1;
618 }
619
620 foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
621 add_categories($line);
622 if ($sections) {
623 my $i;
624 my $start = find_starting_index($line);
625 my $end = find_ending_index($line);
626 for ($i = $start; $i < $end; $i++) {
627 my $line = $typevalue[$i];
628 if ($line =~ /^[FX]:/) { ##Restore file patterns
629 $line =~ s/([^\\])\.([^\*])/$1\?$2/g;
630 $line =~ s/([^\\])\.$/$1\?/g; ##Convert . back to ?
631 $line =~ s/\\\./\./g; ##Convert \. to .
632 $line =~ s/\.\*/\*/g; ##Convert .* to *
633 }
634 $line =~ s/^([A-Z]):/$1:\t/g;
635 print("$line\n");
636 }
637 print("\n");
638 }
639 }
Joe Perches683c6f82010-10-26 14:22:55 -0700640 }
641
642 if ($keywords) {
643 @keyword_tvi = sort_and_uniq(@keyword_tvi);
644 foreach my $line (@keyword_tvi) {
645 add_categories($line);
646 }
647 }
648
Joe Perchesb9e23312010-10-26 14:22:58 -0700649 foreach my $email (@email_to, @list_to) {
650 $email->[0] = deduplicate_email($email->[0]);
651 }
Joe Perches6ef1c522010-10-26 14:22:56 -0700652
653 foreach my $file (@files) {
654 if ($email &&
655 ($email_git || ($email_git_fallback &&
656 !$exact_pattern_match_hash{$file}))) {
657 vcs_file_signoffs($file);
658 }
659 if ($email && $email_git_blame) {
660 vcs_file_blame($file);
661 }
662 }
663
Joe Perches683c6f82010-10-26 14:22:55 -0700664 if ($email) {
665 foreach my $chief (@penguin_chief) {
666 if ($chief =~ m/^(.*):(.*)/) {
667 my $email_address;
668
669 $email_address = format_email($1, $2, $email_usename);
670 if ($email_git_penguin_chiefs) {
671 push(@email_to, [$email_address, 'chief penguin']);
672 } else {
673 @email_to = grep($_->[0] !~ /${email_address}/, @email_to);
674 }
675 }
676 }
677
678 foreach my $email (@file_emails) {
679 my ($name, $address) = parse_email($email);
680
681 my $tmp_email = format_email($name, $address, $email_usename);
682 push_email_address($tmp_email, '');
683 add_role($tmp_email, 'in file');
684 }
685 }
686
687 my @to = ();
688 if ($email || $email_list) {
689 if ($email) {
690 @to = (@to, @email_to);
691 }
692 if ($email_list) {
693 @to = (@to, @list_to);
694 }
695 }
696
Joe Perches6ef1c522010-10-26 14:22:56 -0700697 if ($interactive) {
Joe Perchesb9e23312010-10-26 14:22:58 -0700698 @to = interactive_get_maintainers(\@to);
Joe Perches6ef1c522010-10-26 14:22:56 -0700699 }
Joe Perches683c6f82010-10-26 14:22:55 -0700700
701 return @to;
702}
703
Joe Perchescb7301c2009-04-07 20:40:12 -0700704sub file_match_pattern {
705 my ($file, $pattern) = @_;
706 if (substr($pattern, -1) eq "/") {
707 if ($file =~ m@^$pattern@) {
708 return 1;
709 }
710 } else {
711 if ($file =~ m@^$pattern@) {
712 my $s1 = ($file =~ tr@/@@);
713 my $s2 = ($pattern =~ tr@/@@);
714 if ($s1 == $s2) {
715 return 1;
716 }
717 }
718 }
719 return 0;
720}
721
722sub usage {
723 print <<EOT;
724usage: $P [options] patchfile
Joe Perches870020f2009-07-29 15:04:28 -0700725 $P [options] -f file|directory
Joe Perchescb7301c2009-04-07 20:40:12 -0700726version: $V
727
728MAINTAINER field selection options:
729 --email => print email address(es) if any
730 --git => include recent git \*-by: signers
Joe Perchese4d26b02010-05-24 14:33:17 -0700731 --git-all-signature-types => include signers regardless of signature type
Joe Perches683c6f82010-10-26 14:22:55 -0700732 or use only ${signature_pattern} signers (default: $email_git_all_signature_types)
Joe Perchese3e9d112010-10-26 14:22:53 -0700733 --git-fallback => use git when no exact MAINTAINERS pattern (default: $email_git_fallback)
Joe Perchescb7301c2009-04-07 20:40:12 -0700734 --git-chief-penguins => include ${penguin_chiefs}
Joe Perchese4d26b02010-05-24 14:33:17 -0700735 --git-min-signatures => number of signatures required (default: $email_git_min_signatures)
736 --git-max-maintainers => maximum maintainers to add (default: $email_git_max_maintainers)
737 --git-min-percent => minimum percentage of commits required (default: $email_git_min_percent)
Joe Perchesf5492662009-09-21 17:04:13 -0700738 --git-blame => use git blame to find modified commits for patch or file
Joe Perchese4d26b02010-05-24 14:33:17 -0700739 --git-since => git history to use (default: $email_git_since)
740 --hg-since => hg history to use (default: $email_hg_since)
Florian Micklerdace8e32010-10-26 14:22:54 -0700741 --interactive => display a menu (mostly useful if used with the --git option)
Joe Perchescb7301c2009-04-07 20:40:12 -0700742 --m => include maintainer(s) if any
743 --n => include name 'Full Name <addr\@domain.tld>'
744 --l => include list(s) if any
745 --s => include subscriber only list(s) if any
Joe Perches11ecf532009-09-21 17:04:22 -0700746 --remove-duplicates => minimize duplicate email names/addresses
Joe Perches3c7385b2009-12-14 18:00:46 -0800747 --roles => show roles (status:subsystem, git-signer, list, etc...)
748 --rolestats => show roles and statistics (commits/total_commits, %)
Joe Perches03372db2010-03-05 13:43:00 -0800749 --file-emails => add email addresses found in -f file (default: 0 (off))
Joe Perchescb7301c2009-04-07 20:40:12 -0700750 --scm => print SCM tree(s) if any
751 --status => print status if any
752 --subsystem => print subsystem name if any
753 --web => print website(s) if any
754
755Output type options:
756 --separator [, ] => separator for multiple entries on 1 line
Joe Perches42498312009-09-21 17:04:21 -0700757 using --separator also sets --nomultiline if --separator is not [, ]
Joe Perchescb7301c2009-04-07 20:40:12 -0700758 --multiline => print 1 entry per line
759
Joe Perchescb7301c2009-04-07 20:40:12 -0700760Other options:
Joe Perches3fb55652009-09-21 17:04:17 -0700761 --pattern-depth => Number of pattern directory traversals (default: 0 (all))
Joe Perchesb9e23312010-10-26 14:22:58 -0700762 --keywords => scan patch for keywords (default: $keywords)
763 --sections => print all of the subsystem sections with pattern matches
764 --mailmap => use .mailmap file (default: $email_use_mailmap)
Joe Perchesf5f50782009-06-16 15:34:00 -0700765 --version => show version
Joe Perchescb7301c2009-04-07 20:40:12 -0700766 --help => show this help information
767
Joe Perches3fb55652009-09-21 17:04:17 -0700768Default options:
Joe Perches7e1863a2011-01-12 16:59:49 -0800769 [--email --nogit --git-fallback --m --n --l --multiline -pattern-depth=0
770 --remove-duplicates --rolestats]
Joe Perches3fb55652009-09-21 17:04:17 -0700771
Joe Perches870020f2009-07-29 15:04:28 -0700772Notes:
773 Using "-f directory" may give unexpected results:
Joe Perchesf5492662009-09-21 17:04:13 -0700774 Used with "--git", git signators for _all_ files in and below
775 directory are examined as git recurses directories.
776 Any specified X: (exclude) pattern matches are _not_ ignored.
777 Used with "--nogit", directory is used as a pattern match,
Joe Perches60db31a2009-12-14 18:00:50 -0800778 no individual file within the directory or subdirectory
779 is matched.
Joe Perchesf5492662009-09-21 17:04:13 -0700780 Used with "--git-blame", does not iterate all files in directory
781 Using "--git-blame" is slow and may add old committers and authors
782 that are no longer active maintainers to the output.
Joe Perches3c7385b2009-12-14 18:00:46 -0800783 Using "--roles" or "--rolestats" with git send-email --cc-cmd or any
784 other automated tools that expect only ["name"] <email address>
785 may not work because of additional output after <email address>.
786 Using "--rolestats" and "--git-blame" shows the #/total=% commits,
787 not the percentage of the entire file authored. # of commits is
788 not a good measure of amount of code authored. 1 major commit may
789 contain a thousand lines, 5 trivial commits may modify a single line.
Joe Perches60db31a2009-12-14 18:00:50 -0800790 If git is not installed, but mercurial (hg) is installed and an .hg
791 repository exists, the following options apply to mercurial:
792 --git,
793 --git-min-signatures, --git-max-maintainers, --git-min-percent, and
794 --git-blame
795 Use --hg-since not --git-since to control date selection
Joe Perches368669d2010-05-24 14:33:19 -0700796 File ".get_maintainer.conf", if it exists in the linux kernel source root
797 directory, can change whatever get_maintainer defaults are desired.
798 Entries in this file can be any command line argument.
799 This file is prepended to any additional command line arguments.
800 Multiple lines and # comments are allowed.
Joe Perchescb7301c2009-04-07 20:40:12 -0700801EOT
802}
803
804sub top_of_kernel_tree {
Joe Perches47abc722010-10-26 14:22:57 -0700805 my ($lk_path) = @_;
Joe Perchescb7301c2009-04-07 20:40:12 -0700806
Joe Perches47abc722010-10-26 14:22:57 -0700807 if ($lk_path ne "" && substr($lk_path,length($lk_path)-1,1) ne "/") {
808 $lk_path .= "/";
809 }
810 if ( (-f "${lk_path}COPYING")
811 && (-f "${lk_path}CREDITS")
812 && (-f "${lk_path}Kbuild")
813 && (-f "${lk_path}MAINTAINERS")
814 && (-f "${lk_path}Makefile")
815 && (-f "${lk_path}README")
816 && (-d "${lk_path}Documentation")
817 && (-d "${lk_path}arch")
818 && (-d "${lk_path}include")
819 && (-d "${lk_path}drivers")
820 && (-d "${lk_path}fs")
821 && (-d "${lk_path}init")
822 && (-d "${lk_path}ipc")
823 && (-d "${lk_path}kernel")
824 && (-d "${lk_path}lib")
825 && (-d "${lk_path}scripts")) {
826 return 1;
827 }
828 return 0;
Joe Perchescb7301c2009-04-07 20:40:12 -0700829}
830
Joe Perches0e70e832009-09-21 17:04:20 -0700831sub parse_email {
832 my ($formatted_email) = @_;
833
834 my $name = "";
835 my $address = "";
836
Joe Perches11ecf532009-09-21 17:04:22 -0700837 if ($formatted_email =~ /^([^<]+)<(.+\@.*)>.*$/) {
Joe Perches0e70e832009-09-21 17:04:20 -0700838 $name = $1;
839 $address = $2;
Joe Perches11ecf532009-09-21 17:04:22 -0700840 } elsif ($formatted_email =~ /^\s*<(.+\@\S*)>.*$/) {
Joe Perches0e70e832009-09-21 17:04:20 -0700841 $address = $1;
Joe Perchesb7816552009-09-21 17:04:24 -0700842 } elsif ($formatted_email =~ /^(.+\@\S*).*$/) {
Joe Perches0e70e832009-09-21 17:04:20 -0700843 $address = $1;
844 }
Joe Perchescb7301c2009-04-07 20:40:12 -0700845
846 $name =~ s/^\s+|\s+$//g;
Joe Perchesd7895042009-06-16 15:34:02 -0700847 $name =~ s/^\"|\"$//g;
Joe Perches0e70e832009-09-21 17:04:20 -0700848 $address =~ s/^\s+|\s+$//g;
Joe Perchescb7301c2009-04-07 20:40:12 -0700849
Stephen Hemmingera63ceb42010-03-05 13:43:06 -0800850 if ($name =~ /[^\w \-]/i) { ##has "must quote" chars
Joe Perchescb7301c2009-04-07 20:40:12 -0700851 $name =~ s/(?<!\\)"/\\"/g; ##escape quotes
Joe Perches0e70e832009-09-21 17:04:20 -0700852 $name = "\"$name\"";
Joe Perchescb7301c2009-04-07 20:40:12 -0700853 }
Joe Perches0e70e832009-09-21 17:04:20 -0700854
855 return ($name, $address);
856}
857
858sub format_email {
Joe Perchesa8af2432009-12-14 18:00:49 -0800859 my ($name, $address, $usename) = @_;
Joe Perches0e70e832009-09-21 17:04:20 -0700860
861 my $formatted_email;
862
863 $name =~ s/^\s+|\s+$//g;
864 $name =~ s/^\"|\"$//g;
865 $address =~ s/^\s+|\s+$//g;
866
Stephen Hemmingera63ceb42010-03-05 13:43:06 -0800867 if ($name =~ /[^\w \-]/i) { ##has "must quote" chars
Joe Perches0e70e832009-09-21 17:04:20 -0700868 $name =~ s/(?<!\\)"/\\"/g; ##escape quotes
869 $name = "\"$name\"";
870 }
871
Joe Perchesa8af2432009-12-14 18:00:49 -0800872 if ($usename) {
Joe Perches0e70e832009-09-21 17:04:20 -0700873 if ("$name" eq "") {
874 $formatted_email = "$address";
875 } else {
Joe Perchesa8af2432009-12-14 18:00:49 -0800876 $formatted_email = "$name <$address>";
Joe Perches0e70e832009-09-21 17:04:20 -0700877 }
878 } else {
879 $formatted_email = $address;
880 }
881
Joe Perchescb7301c2009-04-07 20:40:12 -0700882 return $formatted_email;
883}
884
Joe Perches272a8972010-01-08 14:42:48 -0800885sub find_first_section {
886 my $index = 0;
887
888 while ($index < @typevalue) {
889 my $tv = $typevalue[$index];
890 if (($tv =~ m/^(\C):\s*(.*)/)) {
891 last;
892 }
893 $index++;
894 }
895
896 return $index;
897}
898
Joe Perchesb7816552009-09-21 17:04:24 -0700899sub find_starting_index {
Joe Perchesb7816552009-09-21 17:04:24 -0700900 my ($index) = @_;
901
902 while ($index > 0) {
903 my $tv = $typevalue[$index];
904 if (!($tv =~ m/^(\C):\s*(.*)/)) {
905 last;
906 }
907 $index--;
908 }
909
910 return $index;
911}
912
913sub find_ending_index {
914 my ($index) = @_;
915
916 while ($index < @typevalue) {
917 my $tv = $typevalue[$index];
918 if (!($tv =~ m/^(\C):\s*(.*)/)) {
919 last;
920 }
921 $index++;
922 }
923
924 return $index;
925}
926
Joe Perches3c7385b2009-12-14 18:00:46 -0800927sub get_maintainer_role {
928 my ($index) = @_;
929
930 my $i;
931 my $start = find_starting_index($index);
932 my $end = find_ending_index($index);
933
934 my $role;
935 my $subsystem = $typevalue[$start];
936 if (length($subsystem) > 20) {
937 $subsystem = substr($subsystem, 0, 17);
938 $subsystem =~ s/\s*$//;
939 $subsystem = $subsystem . "...";
940 }
941
942 for ($i = $start + 1; $i < $end; $i++) {
943 my $tv = $typevalue[$i];
944 if ($tv =~ m/^(\C):\s*(.*)/) {
945 my $ptype = $1;
946 my $pvalue = $2;
947 if ($ptype eq "S") {
948 $role = $pvalue;
949 }
950 }
951 }
952
953 $role = lc($role);
954 if ($role eq "supported") {
955 $role = "supporter";
956 } elsif ($role eq "maintained") {
957 $role = "maintainer";
958 } elsif ($role eq "odd fixes") {
959 $role = "odd fixer";
960 } elsif ($role eq "orphan") {
961 $role = "orphan minder";
962 } elsif ($role eq "obsolete") {
963 $role = "obsolete minder";
964 } elsif ($role eq "buried alive in reporters") {
965 $role = "chief penguin";
966 }
967
968 return $role . ":" . $subsystem;
969}
970
971sub get_list_role {
972 my ($index) = @_;
973
974 my $i;
975 my $start = find_starting_index($index);
976 my $end = find_ending_index($index);
977
978 my $subsystem = $typevalue[$start];
979 if (length($subsystem) > 20) {
980 $subsystem = substr($subsystem, 0, 17);
981 $subsystem =~ s/\s*$//;
982 $subsystem = $subsystem . "...";
983 }
984
985 if ($subsystem eq "THE REST") {
986 $subsystem = "";
987 }
988
989 return $subsystem;
990}
991
Joe Perchescb7301c2009-04-07 20:40:12 -0700992sub add_categories {
993 my ($index) = @_;
994
Joe Perchesb7816552009-09-21 17:04:24 -0700995 my $i;
996 my $start = find_starting_index($index);
997 my $end = find_ending_index($index);
998
999 push(@subsystem, $typevalue[$start]);
1000
1001 for ($i = $start + 1; $i < $end; $i++) {
1002 my $tv = $typevalue[$i];
Joe Perches290603c2009-06-16 15:33:58 -07001003 if ($tv =~ m/^(\C):\s*(.*)/) {
Joe Perchescb7301c2009-04-07 20:40:12 -07001004 my $ptype = $1;
1005 my $pvalue = $2;
1006 if ($ptype eq "L") {
Joe Perches290603c2009-06-16 15:33:58 -07001007 my $list_address = $pvalue;
1008 my $list_additional = "";
Joe Perches3c7385b2009-12-14 18:00:46 -08001009 my $list_role = get_list_role($i);
1010
1011 if ($list_role ne "") {
1012 $list_role = ":" . $list_role;
1013 }
Joe Perches290603c2009-06-16 15:33:58 -07001014 if ($list_address =~ m/([^\s]+)\s+(.*)$/) {
1015 $list_address = $1;
1016 $list_additional = $2;
1017 }
Joe Perchesbdf7c682009-06-16 15:33:59 -07001018 if ($list_additional =~ m/subscribers-only/) {
Joe Perchescb7301c2009-04-07 20:40:12 -07001019 if ($email_subscriber_list) {
Joe Perches6ef1c522010-10-26 14:22:56 -07001020 if (!$hash_list_to{lc($list_address)}) {
1021 $hash_list_to{lc($list_address)} = 1;
Joe Perches683c6f82010-10-26 14:22:55 -07001022 push(@list_to, [$list_address,
1023 "subscriber list${list_role}"]);
1024 }
Joe Perchescb7301c2009-04-07 20:40:12 -07001025 }
1026 } else {
1027 if ($email_list) {
Joe Perches6ef1c522010-10-26 14:22:56 -07001028 if (!$hash_list_to{lc($list_address)}) {
1029 $hash_list_to{lc($list_address)} = 1;
Joe Perches683c6f82010-10-26 14:22:55 -07001030 push(@list_to, [$list_address,
1031 "open list${list_role}"]);
1032 }
Joe Perchescb7301c2009-04-07 20:40:12 -07001033 }
1034 }
1035 } elsif ($ptype eq "M") {
Joe Perches0e70e832009-09-21 17:04:20 -07001036 my ($name, $address) = parse_email($pvalue);
1037 if ($name eq "") {
Joe Perchesb7816552009-09-21 17:04:24 -07001038 if ($i > 0) {
1039 my $tv = $typevalue[$i - 1];
Joe Perches0e70e832009-09-21 17:04:20 -07001040 if ($tv =~ m/^(\C):\s*(.*)/) {
1041 if ($1 eq "P") {
1042 $name = $2;
Joe Perchesa8af2432009-12-14 18:00:49 -08001043 $pvalue = format_email($name, $address, $email_usename);
Joe Perches5f2441e2009-06-16 15:34:02 -07001044 }
1045 }
1046 }
1047 }
Joe Perches0e70e832009-09-21 17:04:20 -07001048 if ($email_maintainer) {
Joe Perches3c7385b2009-12-14 18:00:46 -08001049 my $role = get_maintainer_role($i);
1050 push_email_addresses($pvalue, $role);
Joe Perchescb7301c2009-04-07 20:40:12 -07001051 }
1052 } elsif ($ptype eq "T") {
1053 push(@scm, $pvalue);
1054 } elsif ($ptype eq "W") {
1055 push(@web, $pvalue);
1056 } elsif ($ptype eq "S") {
1057 push(@status, $pvalue);
1058 }
Joe Perchescb7301c2009-04-07 20:40:12 -07001059 }
1060 }
1061}
1062
Joe Perches11ecf532009-09-21 17:04:22 -07001063sub email_inuse {
1064 my ($name, $address) = @_;
Joe Perches0e70e832009-09-21 17:04:20 -07001065
Joe Perches11ecf532009-09-21 17:04:22 -07001066 return 1 if (($name eq "") && ($address eq ""));
Joe Perches6ef1c522010-10-26 14:22:56 -07001067 return 1 if (($name ne "") && exists($email_hash_name{lc($name)}));
1068 return 1 if (($address ne "") && exists($email_hash_address{lc($address)}));
Joe Perches11ecf532009-09-21 17:04:22 -07001069
Joe Perches0e70e832009-09-21 17:04:20 -07001070 return 0;
1071}
1072
Joe Perches1b5e1cf2009-06-16 15:34:01 -07001073sub push_email_address {
Joe Perches3c7385b2009-12-14 18:00:46 -08001074 my ($line, $role) = @_;
Joe Perches1b5e1cf2009-06-16 15:34:01 -07001075
Joe Perches0e70e832009-09-21 17:04:20 -07001076 my ($name, $address) = parse_email($line);
Joe Perches1b5e1cf2009-06-16 15:34:01 -07001077
Joe Perchesb7816552009-09-21 17:04:24 -07001078 if ($address eq "") {
1079 return 0;
1080 }
1081
Joe Perches11ecf532009-09-21 17:04:22 -07001082 if (!$email_remove_duplicates) {
Joe Perchesa8af2432009-12-14 18:00:49 -08001083 push(@email_to, [format_email($name, $address, $email_usename), $role]);
Joe Perches11ecf532009-09-21 17:04:22 -07001084 } elsif (!email_inuse($name, $address)) {
Joe Perchesa8af2432009-12-14 18:00:49 -08001085 push(@email_to, [format_email($name, $address, $email_usename), $role]);
Joe Perchesfae99202010-10-26 14:22:58 -07001086 $email_hash_name{lc($name)}++ if ($name ne "");
Joe Perches6ef1c522010-10-26 14:22:56 -07001087 $email_hash_address{lc($address)}++;
Joe Perches1b5e1cf2009-06-16 15:34:01 -07001088 }
Joe Perchesb7816552009-09-21 17:04:24 -07001089
1090 return 1;
Joe Perches1b5e1cf2009-06-16 15:34:01 -07001091}
1092
1093sub push_email_addresses {
Joe Perches3c7385b2009-12-14 18:00:46 -08001094 my ($address, $role) = @_;
Joe Perches1b5e1cf2009-06-16 15:34:01 -07001095
1096 my @address_list = ();
1097
Joe Perches5f2441e2009-06-16 15:34:02 -07001098 if (rfc822_valid($address)) {
Joe Perches3c7385b2009-12-14 18:00:46 -08001099 push_email_address($address, $role);
Joe Perches5f2441e2009-06-16 15:34:02 -07001100 } elsif (@address_list = rfc822_validlist($address)) {
Joe Perches1b5e1cf2009-06-16 15:34:01 -07001101 my $array_count = shift(@address_list);
1102 while (my $entry = shift(@address_list)) {
Joe Perches3c7385b2009-12-14 18:00:46 -08001103 push_email_address($entry, $role);
Joe Perches1b5e1cf2009-06-16 15:34:01 -07001104 }
Joe Perches5f2441e2009-06-16 15:34:02 -07001105 } else {
Joe Perches3c7385b2009-12-14 18:00:46 -08001106 if (!push_email_address($address, $role)) {
Joe Perchesb7816552009-09-21 17:04:24 -07001107 warn("Invalid MAINTAINERS address: '" . $address . "'\n");
1108 }
Joe Perches1b5e1cf2009-06-16 15:34:01 -07001109 }
Joe Perches1b5e1cf2009-06-16 15:34:01 -07001110}
1111
Joe Perches3c7385b2009-12-14 18:00:46 -08001112sub add_role {
1113 my ($line, $role) = @_;
1114
1115 my ($name, $address) = parse_email($line);
Joe Perchesa8af2432009-12-14 18:00:49 -08001116 my $email = format_email($name, $address, $email_usename);
Joe Perches3c7385b2009-12-14 18:00:46 -08001117
1118 foreach my $entry (@email_to) {
1119 if ($email_remove_duplicates) {
1120 my ($entry_name, $entry_address) = parse_email($entry->[0]);
Joe Perches03372db2010-03-05 13:43:00 -08001121 if (($name eq $entry_name || $address eq $entry_address)
1122 && ($role eq "" || !($entry->[1] =~ m/$role/))
1123 ) {
Joe Perches3c7385b2009-12-14 18:00:46 -08001124 if ($entry->[1] eq "") {
1125 $entry->[1] = "$role";
1126 } else {
1127 $entry->[1] = "$entry->[1],$role";
1128 }
1129 }
1130 } else {
Joe Perches03372db2010-03-05 13:43:00 -08001131 if ($email eq $entry->[0]
1132 && ($role eq "" || !($entry->[1] =~ m/$role/))
1133 ) {
Joe Perches3c7385b2009-12-14 18:00:46 -08001134 if ($entry->[1] eq "") {
1135 $entry->[1] = "$role";
1136 } else {
1137 $entry->[1] = "$entry->[1],$role";
1138 }
1139 }
1140 }
1141 }
1142}
1143
Joe Perchescb7301c2009-04-07 20:40:12 -07001144sub which {
1145 my ($bin) = @_;
1146
Joe Perchesf5f50782009-06-16 15:34:00 -07001147 foreach my $path (split(/:/, $ENV{PATH})) {
Joe Perchescb7301c2009-04-07 20:40:12 -07001148 if (-e "$path/$bin") {
1149 return "$path/$bin";
1150 }
1151 }
1152
1153 return "";
1154}
1155
Joe Perchesbcde44e2010-10-26 14:22:53 -07001156sub which_conf {
1157 my ($conf) = @_;
1158
1159 foreach my $path (split(/:/, ".:$ENV{HOME}:.scripts")) {
1160 if (-e "$path/$conf") {
1161 return "$path/$conf";
1162 }
1163 }
1164
1165 return "";
1166}
1167
Florian Mickler7fa8ff22010-10-26 14:22:56 -07001168sub mailmap_email {
Joe Perchesb9e23312010-10-26 14:22:58 -07001169 my ($line) = @_;
Joe Perches8cbb3a72009-09-21 17:04:21 -07001170
Joe Perches47abc722010-10-26 14:22:57 -07001171 my ($name, $address) = parse_email($line);
1172 my $email = format_email($name, $address, 1);
1173 my $real_name = $name;
1174 my $real_address = $address;
Florian Mickler7fa8ff22010-10-26 14:22:56 -07001175
Joe Perches47abc722010-10-26 14:22:57 -07001176 if (exists $mailmap->{names}->{$email} ||
1177 exists $mailmap->{addresses}->{$email}) {
1178 if (exists $mailmap->{names}->{$email}) {
1179 $real_name = $mailmap->{names}->{$email};
Joe Perches8cbb3a72009-09-21 17:04:21 -07001180 }
Joe Perches47abc722010-10-26 14:22:57 -07001181 if (exists $mailmap->{addresses}->{$email}) {
1182 $real_address = $mailmap->{addresses}->{$email};
1183 }
1184 } else {
1185 if (exists $mailmap->{names}->{$address}) {
1186 $real_name = $mailmap->{names}->{$address};
1187 }
1188 if (exists $mailmap->{addresses}->{$address}) {
1189 $real_address = $mailmap->{addresses}->{$address};
1190 }
1191 }
1192 return format_email($real_name, $real_address, 1);
Florian Mickler7fa8ff22010-10-26 14:22:56 -07001193}
1194
1195sub mailmap {
1196 my (@addresses) = @_;
1197
Joe Perchesb9e23312010-10-26 14:22:58 -07001198 my @mapped_emails = ();
Florian Mickler7fa8ff22010-10-26 14:22:56 -07001199 foreach my $line (@addresses) {
Joe Perchesb9e23312010-10-26 14:22:58 -07001200 push(@mapped_emails, mailmap_email($line));
Joe Perches8cbb3a72009-09-21 17:04:21 -07001201 }
Joe Perchesb9e23312010-10-26 14:22:58 -07001202 merge_by_realname(@mapped_emails) if ($email_use_mailmap);
1203 return @mapped_emails;
Florian Mickler7fa8ff22010-10-26 14:22:56 -07001204}
1205
1206sub merge_by_realname {
Joe Perches47abc722010-10-26 14:22:57 -07001207 my %address_map;
1208 my (@emails) = @_;
Joe Perchesb9e23312010-10-26 14:22:58 -07001209
Joe Perches47abc722010-10-26 14:22:57 -07001210 foreach my $email (@emails) {
1211 my ($name, $address) = parse_email($email);
Joe Perchesb9e23312010-10-26 14:22:58 -07001212 if (exists $address_map{$name}) {
Joe Perches47abc722010-10-26 14:22:57 -07001213 $address = $address_map{$name};
Joe Perchesb9e23312010-10-26 14:22:58 -07001214 $email = format_email($name, $address, 1);
1215 } else {
1216 $address_map{$name} = $address;
Florian Mickler7fa8ff22010-10-26 14:22:56 -07001217 }
Joe Perches47abc722010-10-26 14:22:57 -07001218 }
Joe Perches8cbb3a72009-09-21 17:04:21 -07001219}
1220
Joe Perches60db31a2009-12-14 18:00:50 -08001221sub git_execute_cmd {
1222 my ($cmd) = @_;
1223 my @lines = ();
Joe Perchescb7301c2009-04-07 20:40:12 -07001224
Joe Perches60db31a2009-12-14 18:00:50 -08001225 my $output = `$cmd`;
1226 $output =~ s/^\s*//gm;
1227 @lines = split("\n", $output);
1228
1229 return @lines;
Joe Perchesa8af2432009-12-14 18:00:49 -08001230}
1231
Joe Perches60db31a2009-12-14 18:00:50 -08001232sub hg_execute_cmd {
Joe Perchesa8af2432009-12-14 18:00:49 -08001233 my ($cmd) = @_;
Joe Perches60db31a2009-12-14 18:00:50 -08001234 my @lines = ();
Joe Perchesa8af2432009-12-14 18:00:49 -08001235
Joe Perches60db31a2009-12-14 18:00:50 -08001236 my $output = `$cmd`;
1237 @lines = split("\n", $output);
1238
1239 return @lines;
1240}
1241
Joe Perches683c6f82010-10-26 14:22:55 -07001242sub extract_formatted_signatures {
1243 my (@signature_lines) = @_;
1244
1245 my @type = @signature_lines;
1246
1247 s/\s*(.*):.*/$1/ for (@type);
1248
1249 # cut -f2- -d":"
1250 s/\s*.*:\s*(.+)\s*/$1/ for (@signature_lines);
1251
1252## Reformat email addresses (with names) to avoid badly written signatures
1253
1254 foreach my $signer (@signature_lines) {
Joe Perchesb9e23312010-10-26 14:22:58 -07001255 $signer = deduplicate_email($signer);
Joe Perches683c6f82010-10-26 14:22:55 -07001256 }
1257
1258 return (\@type, \@signature_lines);
1259}
1260
Joe Perches60db31a2009-12-14 18:00:50 -08001261sub vcs_find_signers {
1262 my ($cmd) = @_;
Joe Perchesa8af2432009-12-14 18:00:49 -08001263 my $commits;
Joe Perches683c6f82010-10-26 14:22:55 -07001264 my @lines = ();
1265 my @signatures = ();
Joe Perchesa8af2432009-12-14 18:00:49 -08001266
Joe Perches60db31a2009-12-14 18:00:50 -08001267 @lines = &{$VCS_cmds{"execute_cmd"}}($cmd);
Joe Perchescb7301c2009-04-07 20:40:12 -07001268
Joe Perches60db31a2009-12-14 18:00:50 -08001269 my $pattern = $VCS_cmds{"commit_pattern"};
Joe Perchescb7301c2009-04-07 20:40:12 -07001270
Joe Perches60db31a2009-12-14 18:00:50 -08001271 $commits = grep(/$pattern/, @lines); # of commits
Joe Perchesafa81ee2009-07-29 15:04:28 -07001272
Joe Perches683c6f82010-10-26 14:22:55 -07001273 @signatures = grep(/^[ \t]*${signature_pattern}.*\@.*$/, @lines);
1274
1275 return (0, @signatures) if !@signatures;
1276
1277 save_commits_by_author(@lines) if ($interactive);
1278 save_commits_by_signer(@lines) if ($interactive);
1279
Joe Perches0e70e832009-09-21 17:04:20 -07001280 if (!$email_git_penguin_chiefs) {
Joe Perches683c6f82010-10-26 14:22:55 -07001281 @signatures = grep(!/${penguin_chiefs}/i, @signatures);
Joe Perches0e70e832009-09-21 17:04:20 -07001282 }
Joe Perches63ab52d2010-10-26 14:22:51 -07001283
Joe Perches683c6f82010-10-26 14:22:55 -07001284 my ($types_ref, $signers_ref) = extract_formatted_signatures(@signatures);
Joe Perches63ab52d2010-10-26 14:22:51 -07001285
Joe Perches683c6f82010-10-26 14:22:55 -07001286 return ($commits, @$signers_ref);
Joe Perchesa8af2432009-12-14 18:00:49 -08001287}
1288
Joe Perches63ab52d2010-10-26 14:22:51 -07001289sub vcs_find_author {
1290 my ($cmd) = @_;
1291 my @lines = ();
1292
1293 @lines = &{$VCS_cmds{"execute_cmd"}}($cmd);
1294
1295 if (!$email_git_penguin_chiefs) {
1296 @lines = grep(!/${penguin_chiefs}/i, @lines);
1297 }
1298
1299 return @lines if !@lines;
1300
Joe Perches683c6f82010-10-26 14:22:55 -07001301 my @authors = ();
Joe Perches63ab52d2010-10-26 14:22:51 -07001302 foreach my $line (@lines) {
Joe Perches683c6f82010-10-26 14:22:55 -07001303 if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1304 my $author = $1;
1305 my ($name, $address) = parse_email($author);
1306 $author = format_email($name, $address, 1);
1307 push(@authors, $author);
1308 }
Joe Perches63ab52d2010-10-26 14:22:51 -07001309 }
1310
Joe Perches683c6f82010-10-26 14:22:55 -07001311 save_commits_by_author(@lines) if ($interactive);
1312 save_commits_by_signer(@lines) if ($interactive);
1313
1314 return @authors;
Joe Perches63ab52d2010-10-26 14:22:51 -07001315}
1316
Joe Perches60db31a2009-12-14 18:00:50 -08001317sub vcs_save_commits {
1318 my ($cmd) = @_;
1319 my @lines = ();
1320 my @commits = ();
1321
1322 @lines = &{$VCS_cmds{"execute_cmd"}}($cmd);
1323
1324 foreach my $line (@lines) {
1325 if ($line =~ m/$VCS_cmds{"blame_commit_pattern"}/) {
1326 push(@commits, $1);
1327 }
1328 }
1329
1330 return @commits;
1331}
1332
1333sub vcs_blame {
1334 my ($file) = @_;
1335 my $cmd;
1336 my @commits = ();
1337
1338 return @commits if (!(-f $file));
1339
1340 if (@range && $VCS_cmds{"blame_range_cmd"} eq "") {
1341 my @all_commits = ();
1342
1343 $cmd = $VCS_cmds{"blame_file_cmd"};
1344 $cmd =~ s/(\$\w+)/$1/eeg; #interpolate $cmd
1345 @all_commits = vcs_save_commits($cmd);
1346
1347 foreach my $file_range_diff (@range) {
1348 next if (!($file_range_diff =~ m/(.+):(.+):(.+)/));
1349 my $diff_file = $1;
1350 my $diff_start = $2;
1351 my $diff_length = $3;
1352 next if ("$file" ne "$diff_file");
1353 for (my $i = $diff_start; $i < $diff_start + $diff_length; $i++) {
1354 push(@commits, $all_commits[$i]);
1355 }
1356 }
1357 } elsif (@range) {
1358 foreach my $file_range_diff (@range) {
1359 next if (!($file_range_diff =~ m/(.+):(.+):(.+)/));
1360 my $diff_file = $1;
1361 my $diff_start = $2;
1362 my $diff_length = $3;
1363 next if ("$file" ne "$diff_file");
1364 $cmd = $VCS_cmds{"blame_range_cmd"};
1365 $cmd =~ s/(\$\w+)/$1/eeg; #interpolate $cmd
1366 push(@commits, vcs_save_commits($cmd));
1367 }
1368 } else {
1369 $cmd = $VCS_cmds{"blame_file_cmd"};
1370 $cmd =~ s/(\$\w+)/$1/eeg; #interpolate $cmd
1371 @commits = vcs_save_commits($cmd);
1372 }
1373
Joe Perches63ab52d2010-10-26 14:22:51 -07001374 foreach my $commit (@commits) {
1375 $commit =~ s/^\^//g;
1376 }
1377
Joe Perches60db31a2009-12-14 18:00:50 -08001378 return @commits;
1379}
1380
1381my $printed_novcs = 0;
1382sub vcs_exists {
1383 %VCS_cmds = %VCS_cmds_git;
1384 return 1 if eval $VCS_cmds{"available"};
1385 %VCS_cmds = %VCS_cmds_hg;
Joe Perches683c6f82010-10-26 14:22:55 -07001386 return 2 if eval $VCS_cmds{"available"};
Joe Perches60db31a2009-12-14 18:00:50 -08001387 %VCS_cmds = ();
1388 if (!$printed_novcs) {
1389 warn("$P: No supported VCS found. Add --nogit to options?\n");
1390 warn("Using a git repository produces better results.\n");
1391 warn("Try Linus Torvalds' latest git repository using:\n");
Ralf Thielow3d1c2f72011-08-25 15:59:07 -07001392 warn("git clone git://git.kernel.org/pub/scm/linux/kernel/git/torvalds/linux.git\n");
Joe Perches60db31a2009-12-14 18:00:50 -08001393 $printed_novcs = 1;
1394 }
1395 return 0;
1396}
1397
Joe Perches683c6f82010-10-26 14:22:55 -07001398sub vcs_is_git {
Joe Perchesb9e23312010-10-26 14:22:58 -07001399 vcs_exists();
Joe Perches683c6f82010-10-26 14:22:55 -07001400 return $vcs_used == 1;
1401}
1402
1403sub vcs_is_hg {
1404 return $vcs_used == 2;
1405}
1406
Joe Perches6ef1c522010-10-26 14:22:56 -07001407sub interactive_get_maintainers {
Joe Perches683c6f82010-10-26 14:22:55 -07001408 my ($list_ref) = @_;
Florian Micklerdace8e32010-10-26 14:22:54 -07001409 my @list = @$list_ref;
1410
Joe Perches683c6f82010-10-26 14:22:55 -07001411 vcs_exists();
Florian Micklerdace8e32010-10-26 14:22:54 -07001412
1413 my %selected;
Joe Perches683c6f82010-10-26 14:22:55 -07001414 my %authored;
1415 my %signed;
Florian Micklerdace8e32010-10-26 14:22:54 -07001416 my $count = 0;
Joe Perches6ef1c522010-10-26 14:22:56 -07001417 my $maintained = 0;
Joe Perches6ef1c522010-10-26 14:22:56 -07001418 foreach my $entry (@list) {
Joe Perchesb9e23312010-10-26 14:22:58 -07001419 $maintained = 1 if ($entry->[1] =~ /^(maintainer|supporter)/i);
1420 $selected{$count} = 1;
Joe Perches683c6f82010-10-26 14:22:55 -07001421 $authored{$count} = 0;
1422 $signed{$count} = 0;
1423 $count++;
Florian Micklerdace8e32010-10-26 14:22:54 -07001424 }
1425
1426 #menu loop
Joe Perches683c6f82010-10-26 14:22:55 -07001427 my $done = 0;
1428 my $print_options = 0;
1429 my $redraw = 1;
1430 while (!$done) {
1431 $count = 0;
1432 if ($redraw) {
Joe Perches6ef1c522010-10-26 14:22:56 -07001433 printf STDERR "\n%1s %2s %-65s",
1434 "*", "#", "email/list and role:stats";
1435 if ($email_git ||
1436 ($email_git_fallback && !$maintained) ||
1437 $email_git_blame) {
1438 print STDERR "auth sign";
1439 }
1440 print STDERR "\n";
Joe Perches683c6f82010-10-26 14:22:55 -07001441 foreach my $entry (@list) {
1442 my $email = $entry->[0];
1443 my $role = $entry->[1];
1444 my $sel = "";
1445 $sel = "*" if ($selected{$count});
1446 my $commit_author = $commit_author_hash{$email};
1447 my $commit_signer = $commit_signer_hash{$email};
1448 my $authored = 0;
1449 my $signed = 0;
1450 $authored++ for (@{$commit_author});
1451 $signed++ for (@{$commit_signer});
1452 printf STDERR "%1s %2d %-65s", $sel, $count + 1, $email;
1453 printf STDERR "%4d %4d", $authored, $signed
1454 if ($authored > 0 || $signed > 0);
1455 printf STDERR "\n %s\n", $role;
1456 if ($authored{$count}) {
1457 my $commit_author = $commit_author_hash{$email};
1458 foreach my $ref (@{$commit_author}) {
1459 print STDERR " Author: @{$ref}[1]\n";
Florian Micklerdace8e32010-10-26 14:22:54 -07001460 }
Florian Micklerdace8e32010-10-26 14:22:54 -07001461 }
Joe Perches683c6f82010-10-26 14:22:55 -07001462 if ($signed{$count}) {
1463 my $commit_signer = $commit_signer_hash{$email};
1464 foreach my $ref (@{$commit_signer}) {
1465 print STDERR " @{$ref}[2]: @{$ref}[1]\n";
1466 }
1467 }
1468
1469 $count++;
Florian Micklerdace8e32010-10-26 14:22:54 -07001470 }
Florian Micklerdace8e32010-10-26 14:22:54 -07001471 }
Joe Perches683c6f82010-10-26 14:22:55 -07001472 my $date_ref = \$email_git_since;
1473 $date_ref = \$email_hg_since if (vcs_is_hg());
1474 if ($print_options) {
1475 $print_options = 0;
1476 if (vcs_exists()) {
Joe Perchesb9e23312010-10-26 14:22:58 -07001477 print STDERR <<EOT
1478
1479Version Control options:
1480g use git history [$email_git]
1481gf use git-fallback [$email_git_fallback]
1482b use git blame [$email_git_blame]
1483bs use blame signatures [$email_git_blame_signatures]
1484c# minimum commits [$email_git_min_signatures]
1485%# min percent [$email_git_min_percent]
1486d# history to use [$$date_ref]
1487x# max maintainers [$email_git_max_maintainers]
1488t all signature types [$email_git_all_signature_types]
1489m use .mailmap [$email_use_mailmap]
1490EOT
Joe Perches683c6f82010-10-26 14:22:55 -07001491 }
Joe Perchesb9e23312010-10-26 14:22:58 -07001492 print STDERR <<EOT
1493
1494Additional options:
14950 toggle all
1496tm toggle maintainers
1497tg toggle git entries
1498tl toggle open list entries
1499ts toggle subscriber list entries
1500f emails in file [$file_emails]
1501k keywords in file [$keywords]
1502r remove duplicates [$email_remove_duplicates]
1503p# pattern match depth [$pattern_depth]
1504EOT
Joe Perches683c6f82010-10-26 14:22:55 -07001505 }
1506 print STDERR
1507"\n#(toggle), A#(author), S#(signed) *(all), ^(none), O(options), Y(approve): ";
1508
1509 my $input = <STDIN>;
Florian Micklerdace8e32010-10-26 14:22:54 -07001510 chomp($input);
1511
Joe Perches683c6f82010-10-26 14:22:55 -07001512 $redraw = 1;
1513 my $rerun = 0;
1514 my @wish = split(/[, ]+/, $input);
1515 foreach my $nr (@wish) {
1516 $nr = lc($nr);
1517 my $sel = substr($nr, 0, 1);
1518 my $str = substr($nr, 1);
1519 my $val = 0;
1520 $val = $1 if $str =~ /^(\d+)$/;
1521
1522 if ($sel eq "y") {
1523 $interactive = 0;
1524 $done = 1;
1525 $output_rolestats = 0;
1526 $output_roles = 0;
1527 last;
1528 } elsif ($nr =~ /^\d+$/ && $nr > 0 && $nr <= $count) {
1529 $selected{$nr - 1} = !$selected{$nr - 1};
1530 } elsif ($sel eq "*" || $sel eq '^') {
1531 my $toggle = 0;
1532 $toggle = 1 if ($sel eq '*');
1533 for (my $i = 0; $i < $count; $i++) {
1534 $selected{$i} = $toggle;
Florian Micklerdace8e32010-10-26 14:22:54 -07001535 }
Joe Perches683c6f82010-10-26 14:22:55 -07001536 } elsif ($sel eq "0") {
1537 for (my $i = 0; $i < $count; $i++) {
1538 $selected{$i} = !$selected{$i};
1539 }
Joe Perchesb9e23312010-10-26 14:22:58 -07001540 } elsif ($sel eq "t") {
1541 if (lc($str) eq "m") {
1542 for (my $i = 0; $i < $count; $i++) {
1543 $selected{$i} = !$selected{$i}
1544 if ($list[$i]->[1] =~ /^(maintainer|supporter)/i);
1545 }
1546 } elsif (lc($str) eq "g") {
1547 for (my $i = 0; $i < $count; $i++) {
1548 $selected{$i} = !$selected{$i}
1549 if ($list[$i]->[1] =~ /^(author|commit|signer)/i);
1550 }
1551 } elsif (lc($str) eq "l") {
1552 for (my $i = 0; $i < $count; $i++) {
1553 $selected{$i} = !$selected{$i}
1554 if ($list[$i]->[1] =~ /^(open list)/i);
1555 }
1556 } elsif (lc($str) eq "s") {
1557 for (my $i = 0; $i < $count; $i++) {
1558 $selected{$i} = !$selected{$i}
1559 if ($list[$i]->[1] =~ /^(subscriber list)/i);
1560 }
1561 }
Joe Perches683c6f82010-10-26 14:22:55 -07001562 } elsif ($sel eq "a") {
1563 if ($val > 0 && $val <= $count) {
1564 $authored{$val - 1} = !$authored{$val - 1};
1565 } elsif ($str eq '*' || $str eq '^') {
1566 my $toggle = 0;
1567 $toggle = 1 if ($str eq '*');
1568 for (my $i = 0; $i < $count; $i++) {
1569 $authored{$i} = $toggle;
1570 }
1571 }
1572 } elsif ($sel eq "s") {
1573 if ($val > 0 && $val <= $count) {
1574 $signed{$val - 1} = !$signed{$val - 1};
1575 } elsif ($str eq '*' || $str eq '^') {
1576 my $toggle = 0;
1577 $toggle = 1 if ($str eq '*');
1578 for (my $i = 0; $i < $count; $i++) {
1579 $signed{$i} = $toggle;
1580 }
1581 }
1582 } elsif ($sel eq "o") {
1583 $print_options = 1;
1584 $redraw = 1;
1585 } elsif ($sel eq "g") {
1586 if ($str eq "f") {
1587 bool_invert(\$email_git_fallback);
Florian Micklerdace8e32010-10-26 14:22:54 -07001588 } else {
Joe Perches683c6f82010-10-26 14:22:55 -07001589 bool_invert(\$email_git);
Florian Micklerdace8e32010-10-26 14:22:54 -07001590 }
Joe Perches683c6f82010-10-26 14:22:55 -07001591 $rerun = 1;
1592 } elsif ($sel eq "b") {
1593 if ($str eq "s") {
1594 bool_invert(\$email_git_blame_signatures);
1595 } else {
1596 bool_invert(\$email_git_blame);
1597 }
1598 $rerun = 1;
1599 } elsif ($sel eq "c") {
1600 if ($val > 0) {
1601 $email_git_min_signatures = $val;
1602 $rerun = 1;
1603 }
1604 } elsif ($sel eq "x") {
1605 if ($val > 0) {
1606 $email_git_max_maintainers = $val;
1607 $rerun = 1;
1608 }
1609 } elsif ($sel eq "%") {
1610 if ($str ne "" && $val >= 0) {
1611 $email_git_min_percent = $val;
1612 $rerun = 1;
1613 }
1614 } elsif ($sel eq "d") {
1615 if (vcs_is_git()) {
1616 $email_git_since = $str;
1617 } elsif (vcs_is_hg()) {
1618 $email_hg_since = $str;
1619 }
1620 $rerun = 1;
1621 } elsif ($sel eq "t") {
1622 bool_invert(\$email_git_all_signature_types);
1623 $rerun = 1;
1624 } elsif ($sel eq "f") {
1625 bool_invert(\$file_emails);
1626 $rerun = 1;
1627 } elsif ($sel eq "r") {
1628 bool_invert(\$email_remove_duplicates);
1629 $rerun = 1;
Joe Perchesb9e23312010-10-26 14:22:58 -07001630 } elsif ($sel eq "m") {
1631 bool_invert(\$email_use_mailmap);
1632 read_mailmap();
1633 $rerun = 1;
Joe Perches683c6f82010-10-26 14:22:55 -07001634 } elsif ($sel eq "k") {
1635 bool_invert(\$keywords);
1636 $rerun = 1;
1637 } elsif ($sel eq "p") {
1638 if ($str ne "" && $val >= 0) {
1639 $pattern_depth = $val;
1640 $rerun = 1;
1641 }
Joe Perches6ef1c522010-10-26 14:22:56 -07001642 } elsif ($sel eq "h" || $sel eq "?") {
1643 print STDERR <<EOT
1644
1645Interactive mode allows you to select the various maintainers, submitters,
1646commit signers and mailing lists that could be CC'd on a patch.
1647
1648Any *'d entry is selected.
1649
Joe Perches47abc722010-10-26 14:22:57 -07001650If you have git or hg installed, you can choose to summarize the commit
Joe Perches6ef1c522010-10-26 14:22:56 -07001651history of files in the patch. Also, each line of the current file can
1652be matched to its commit author and that commits signers with blame.
1653
1654Various knobs exist to control the length of time for active commit
1655tracking, the maximum number of commit authors and signers to add,
1656and such.
1657
1658Enter selections at the prompt until you are satisfied that the selected
1659maintainers are appropriate. You may enter multiple selections separated
1660by either commas or spaces.
1661
1662EOT
Joe Perches683c6f82010-10-26 14:22:55 -07001663 } else {
1664 print STDERR "invalid option: '$nr'\n";
1665 $redraw = 0;
1666 }
1667 }
1668 if ($rerun) {
1669 print STDERR "git-blame can be very slow, please have patience..."
1670 if ($email_git_blame);
Joe Perches6ef1c522010-10-26 14:22:56 -07001671 goto &get_maintainers;
Joe Perches683c6f82010-10-26 14:22:55 -07001672 }
1673 }
Florian Micklerdace8e32010-10-26 14:22:54 -07001674
1675 #drop not selected entries
1676 $count = 0;
Joe Perches683c6f82010-10-26 14:22:55 -07001677 my @new_emailto = ();
1678 foreach my $entry (@list) {
1679 if ($selected{$count}) {
1680 push(@new_emailto, $list[$count]);
Florian Micklerdace8e32010-10-26 14:22:54 -07001681 }
1682 $count++;
1683 }
Joe Perches683c6f82010-10-26 14:22:55 -07001684 return @new_emailto;
Florian Micklerdace8e32010-10-26 14:22:54 -07001685}
1686
Joe Perches683c6f82010-10-26 14:22:55 -07001687sub bool_invert {
1688 my ($bool_ref) = @_;
Florian Micklerdace8e32010-10-26 14:22:54 -07001689
Joe Perches683c6f82010-10-26 14:22:55 -07001690 if ($$bool_ref) {
1691 $$bool_ref = 0;
1692 } else {
1693 $$bool_ref = 1;
Florian Micklerdace8e32010-10-26 14:22:54 -07001694 }
Florian Micklerdace8e32010-10-26 14:22:54 -07001695}
1696
Joe Perchesb9e23312010-10-26 14:22:58 -07001697sub deduplicate_email {
1698 my ($email) = @_;
1699
1700 my $matched = 0;
1701 my ($name, $address) = parse_email($email);
1702 $email = format_email($name, $address, 1);
1703 $email = mailmap_email($email);
1704
1705 return $email if (!$email_remove_duplicates);
1706
1707 ($name, $address) = parse_email($email);
1708
Joe Perchesfae99202010-10-26 14:22:58 -07001709 if ($name ne "" && $deduplicate_name_hash{lc($name)}) {
Joe Perchesb9e23312010-10-26 14:22:58 -07001710 $name = $deduplicate_name_hash{lc($name)}->[0];
1711 $address = $deduplicate_name_hash{lc($name)}->[1];
1712 $matched = 1;
1713 } elsif ($deduplicate_address_hash{lc($address)}) {
1714 $name = $deduplicate_address_hash{lc($address)}->[0];
1715 $address = $deduplicate_address_hash{lc($address)}->[1];
1716 $matched = 1;
1717 }
1718 if (!$matched) {
1719 $deduplicate_name_hash{lc($name)} = [ $name, $address ];
1720 $deduplicate_address_hash{lc($address)} = [ $name, $address ];
1721 }
1722 $email = format_email($name, $address, 1);
1723 $email = mailmap_email($email);
1724 return $email;
1725}
1726
Joe Perches683c6f82010-10-26 14:22:55 -07001727sub save_commits_by_author {
1728 my (@lines) = @_;
Florian Micklerdace8e32010-10-26 14:22:54 -07001729
Joe Perches683c6f82010-10-26 14:22:55 -07001730 my @authors = ();
1731 my @commits = ();
1732 my @subjects = ();
1733
1734 foreach my $line (@lines) {
1735 if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1736 my $author = $1;
Joe Perchesb9e23312010-10-26 14:22:58 -07001737 $author = deduplicate_email($author);
Joe Perches683c6f82010-10-26 14:22:55 -07001738 push(@authors, $author);
1739 }
1740 push(@commits, $1) if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
1741 push(@subjects, $1) if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
1742 }
1743
1744 for (my $i = 0; $i < @authors; $i++) {
1745 my $exists = 0;
1746 foreach my $ref(@{$commit_author_hash{$authors[$i]}}) {
1747 if (@{$ref}[0] eq $commits[$i] &&
1748 @{$ref}[1] eq $subjects[$i]) {
1749 $exists = 1;
1750 last;
1751 }
1752 }
1753 if (!$exists) {
1754 push(@{$commit_author_hash{$authors[$i]}},
1755 [ ($commits[$i], $subjects[$i]) ]);
1756 }
1757 }
1758}
1759
1760sub save_commits_by_signer {
1761 my (@lines) = @_;
1762
1763 my $commit = "";
1764 my $subject = "";
1765
1766 foreach my $line (@lines) {
1767 $commit = $1 if ($line =~ m/$VCS_cmds{"commit_pattern"}/);
1768 $subject = $1 if ($line =~ m/$VCS_cmds{"subject_pattern"}/);
1769 if ($line =~ /^[ \t]*${signature_pattern}.*\@.*$/) {
1770 my @signatures = ($line);
1771 my ($types_ref, $signers_ref) = extract_formatted_signatures(@signatures);
1772 my @types = @$types_ref;
1773 my @signers = @$signers_ref;
1774
1775 my $type = $types[0];
1776 my $signer = $signers[0];
1777
Joe Perchesb9e23312010-10-26 14:22:58 -07001778 $signer = deduplicate_email($signer);
Joe Perches6ef1c522010-10-26 14:22:56 -07001779
Joe Perches683c6f82010-10-26 14:22:55 -07001780 my $exists = 0;
1781 foreach my $ref(@{$commit_signer_hash{$signer}}) {
1782 if (@{$ref}[0] eq $commit &&
1783 @{$ref}[1] eq $subject &&
1784 @{$ref}[2] eq $type) {
1785 $exists = 1;
1786 last;
1787 }
1788 }
1789 if (!$exists) {
1790 push(@{$commit_signer_hash{$signer}},
1791 [ ($commit, $subject, $type) ]);
1792 }
1793 }
1794 }
Florian Micklerdace8e32010-10-26 14:22:54 -07001795}
1796
Joe Perches60db31a2009-12-14 18:00:50 -08001797sub vcs_assign {
Joe Perchesa8af2432009-12-14 18:00:49 -08001798 my ($role, $divisor, @lines) = @_;
1799
1800 my %hash;
1801 my $count = 0;
1802
Joe Perchesa8af2432009-12-14 18:00:49 -08001803 return if (@lines <= 0);
1804
1805 if ($divisor <= 0) {
Joe Perches60db31a2009-12-14 18:00:50 -08001806 warn("Bad divisor in " . (caller(0))[3] . ": $divisor\n");
Joe Perchesa8af2432009-12-14 18:00:49 -08001807 $divisor = 1;
Joe Perches3c7385b2009-12-14 18:00:46 -08001808 }
Joe Perches8cbb3a72009-09-21 17:04:21 -07001809
Florian Mickler7fa8ff22010-10-26 14:22:56 -07001810 @lines = mailmap(@lines);
Joe Perches0e70e832009-09-21 17:04:20 -07001811
Joe Perches63ab52d2010-10-26 14:22:51 -07001812 return if (@lines <= 0);
1813
Joe Perches0e70e832009-09-21 17:04:20 -07001814 @lines = sort(@lines);
Joe Perchesafa81ee2009-07-29 15:04:28 -07001815
Joe Perches11ecf532009-09-21 17:04:22 -07001816 # uniq -c
1817 $hash{$_}++ for @lines;
1818
1819 # sort -rn
1820 foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
1821 my $sign_offs = $hash{$line};
Joe Perchesa8af2432009-12-14 18:00:49 -08001822 my $percent = $sign_offs * 100 / $divisor;
Joe Perches3c7385b2009-12-14 18:00:46 -08001823
Joe Perchesa8af2432009-12-14 18:00:49 -08001824 $percent = 100 if ($percent > 100);
Joe Perches11ecf532009-09-21 17:04:22 -07001825 $count++;
1826 last if ($sign_offs < $email_git_min_signatures ||
1827 $count > $email_git_max_maintainers ||
Joe Perchesa8af2432009-12-14 18:00:49 -08001828 $percent < $email_git_min_percent);
Joe Perches3c7385b2009-12-14 18:00:46 -08001829 push_email_address($line, '');
Joe Perches3c7385b2009-12-14 18:00:46 -08001830 if ($output_rolestats) {
Joe Perchesa8af2432009-12-14 18:00:49 -08001831 my $fmt_percent = sprintf("%.0f", $percent);
1832 add_role($line, "$role:$sign_offs/$divisor=$fmt_percent%");
1833 } else {
1834 add_role($line, $role);
Joe Perches3c7385b2009-12-14 18:00:46 -08001835 }
Joe Perchesf5492662009-09-21 17:04:13 -07001836 }
1837}
1838
Joe Perches60db31a2009-12-14 18:00:50 -08001839sub vcs_file_signoffs {
Joe Perchesa8af2432009-12-14 18:00:49 -08001840 my ($file) = @_;
1841
1842 my @signers = ();
Joe Perches60db31a2009-12-14 18:00:50 -08001843 my $commits;
Joe Perchesa8af2432009-12-14 18:00:49 -08001844
Joe Perches683c6f82010-10-26 14:22:55 -07001845 $vcs_used = vcs_exists();
1846 return if (!$vcs_used);
Joe Perchesa8af2432009-12-14 18:00:49 -08001847
Joe Perches60db31a2009-12-14 18:00:50 -08001848 my $cmd = $VCS_cmds{"find_signers_cmd"};
1849 $cmd =~ s/(\$\w+)/$1/eeg; # interpolate $cmd
1850
1851 ($commits, @signers) = vcs_find_signers($cmd);
Joe Perchesb9e23312010-10-26 14:22:58 -07001852
1853 foreach my $signer (@signers) {
1854 $signer = deduplicate_email($signer);
1855 }
1856
Joe Perches60db31a2009-12-14 18:00:50 -08001857 vcs_assign("commit_signer", $commits, @signers);
Joe Perchesa8af2432009-12-14 18:00:49 -08001858}
1859
Joe Perches60db31a2009-12-14 18:00:50 -08001860sub vcs_file_blame {
Joe Perchesf5492662009-09-21 17:04:13 -07001861 my ($file) = @_;
1862
Joe Perches60db31a2009-12-14 18:00:50 -08001863 my @signers = ();
Joe Perches63ab52d2010-10-26 14:22:51 -07001864 my @all_commits = ();
Joe Perchesa8af2432009-12-14 18:00:49 -08001865 my @commits = ();
Joe Perchesa8af2432009-12-14 18:00:49 -08001866 my $total_commits;
Joe Perches63ab52d2010-10-26 14:22:51 -07001867 my $total_lines;
Joe Perchesf5492662009-09-21 17:04:13 -07001868
Joe Perches683c6f82010-10-26 14:22:55 -07001869 $vcs_used = vcs_exists();
1870 return if (!$vcs_used);
Joe Perchesf5492662009-09-21 17:04:13 -07001871
Joe Perches63ab52d2010-10-26 14:22:51 -07001872 @all_commits = vcs_blame($file);
1873 @commits = uniq(@all_commits);
Joe Perchesa8af2432009-12-14 18:00:49 -08001874 $total_commits = @commits;
Joe Perches63ab52d2010-10-26 14:22:51 -07001875 $total_lines = @all_commits;
Joe Perchesa8af2432009-12-14 18:00:49 -08001876
Joe Perches683c6f82010-10-26 14:22:55 -07001877 if ($email_git_blame_signatures) {
1878 if (vcs_is_hg()) {
1879 my $commit_count;
1880 my @commit_signers = ();
1881 my $commit = join(" -r ", @commits);
1882 my $cmd;
Joe Perchesf5492662009-09-21 17:04:13 -07001883
Joe Perches683c6f82010-10-26 14:22:55 -07001884 $cmd = $VCS_cmds{"find_commit_signers_cmd"};
1885 $cmd =~ s/(\$\w+)/$1/eeg; #substitute variables in $cmd
Joe Perches60db31a2009-12-14 18:00:50 -08001886
Joe Perches683c6f82010-10-26 14:22:55 -07001887 ($commit_count, @commit_signers) = vcs_find_signers($cmd);
Joe Perches63ab52d2010-10-26 14:22:51 -07001888
Joe Perches683c6f82010-10-26 14:22:55 -07001889 push(@signers, @commit_signers);
1890 } else {
1891 foreach my $commit (@commits) {
1892 my $commit_count;
1893 my @commit_signers = ();
1894 my $cmd;
1895
1896 $cmd = $VCS_cmds{"find_commit_signers_cmd"};
1897 $cmd =~ s/(\$\w+)/$1/eeg; #substitute variables in $cmd
1898
1899 ($commit_count, @commit_signers) = vcs_find_signers($cmd);
1900
1901 push(@signers, @commit_signers);
1902 }
1903 }
Joe Perchesf5492662009-09-21 17:04:13 -07001904 }
1905
Joe Perchesa8af2432009-12-14 18:00:49 -08001906 if ($from_filename) {
Joe Perches63ab52d2010-10-26 14:22:51 -07001907 if ($output_rolestats) {
1908 my @blame_signers;
Joe Perches683c6f82010-10-26 14:22:55 -07001909 if (vcs_is_hg()) {{ # Double brace for last exit
1910 my $commit_count;
1911 my @commit_signers = ();
1912 @commits = uniq(@commits);
1913 @commits = sort(@commits);
1914 my $commit = join(" -r ", @commits);
1915 my $cmd;
1916
1917 $cmd = $VCS_cmds{"find_commit_author_cmd"};
1918 $cmd =~ s/(\$\w+)/$1/eeg; #substitute variables in $cmd
1919
1920 my @lines = ();
1921
1922 @lines = &{$VCS_cmds{"execute_cmd"}}($cmd);
1923
1924 if (!$email_git_penguin_chiefs) {
1925 @lines = grep(!/${penguin_chiefs}/i, @lines);
1926 }
1927
1928 last if !@lines;
1929
1930 my @authors = ();
1931 foreach my $line (@lines) {
1932 if ($line =~ m/$VCS_cmds{"author_pattern"}/) {
1933 my $author = $1;
Joe Perchesb9e23312010-10-26 14:22:58 -07001934 $author = deduplicate_email($author);
1935 push(@authors, $author);
Joe Perches683c6f82010-10-26 14:22:55 -07001936 }
1937 }
1938
1939 save_commits_by_author(@lines) if ($interactive);
1940 save_commits_by_signer(@lines) if ($interactive);
1941
1942 push(@signers, @authors);
1943 }}
1944 else {
1945 foreach my $commit (@commits) {
1946 my $i;
1947 my $cmd = $VCS_cmds{"find_commit_author_cmd"};
1948 $cmd =~ s/(\$\w+)/$1/eeg; #interpolate $cmd
1949 my @author = vcs_find_author($cmd);
1950 next if !@author;
Joe Perchesb9e23312010-10-26 14:22:58 -07001951
1952 my $formatted_author = deduplicate_email($author[0]);
1953
Joe Perches683c6f82010-10-26 14:22:55 -07001954 my $count = grep(/$commit/, @all_commits);
1955 for ($i = 0; $i < $count ; $i++) {
Joe Perchesb9e23312010-10-26 14:22:58 -07001956 push(@blame_signers, $formatted_author);
Joe Perches683c6f82010-10-26 14:22:55 -07001957 }
Joe Perches63ab52d2010-10-26 14:22:51 -07001958 }
1959 }
1960 if (@blame_signers) {
1961 vcs_assign("authored lines", $total_lines, @blame_signers);
1962 }
1963 }
Joe Perchesb9e23312010-10-26 14:22:58 -07001964 foreach my $signer (@signers) {
1965 $signer = deduplicate_email($signer);
1966 }
Joe Perches60db31a2009-12-14 18:00:50 -08001967 vcs_assign("commits", $total_commits, @signers);
Joe Perchesa8af2432009-12-14 18:00:49 -08001968 } else {
Joe Perchesb9e23312010-10-26 14:22:58 -07001969 foreach my $signer (@signers) {
1970 $signer = deduplicate_email($signer);
1971 }
Joe Perches60db31a2009-12-14 18:00:50 -08001972 vcs_assign("modified commits", $total_commits, @signers);
Joe Perchesf5492662009-09-21 17:04:13 -07001973 }
Joe Perchescb7301c2009-04-07 20:40:12 -07001974}
1975
1976sub uniq {
Joe Perchesa8af2432009-12-14 18:00:49 -08001977 my (@parms) = @_;
Joe Perchescb7301c2009-04-07 20:40:12 -07001978
1979 my %saw;
1980 @parms = grep(!$saw{$_}++, @parms);
1981 return @parms;
1982}
1983
1984sub sort_and_uniq {
Joe Perchesa8af2432009-12-14 18:00:49 -08001985 my (@parms) = @_;
Joe Perchescb7301c2009-04-07 20:40:12 -07001986
1987 my %saw;
1988 @parms = sort @parms;
1989 @parms = grep(!$saw{$_}++, @parms);
1990 return @parms;
1991}
1992
Joe Perches03372db2010-03-05 13:43:00 -08001993sub clean_file_emails {
1994 my (@file_emails) = @_;
1995 my @fmt_emails = ();
1996
1997 foreach my $email (@file_emails) {
1998 $email =~ s/[\(\<\{]{0,1}([A-Za-z0-9_\.\+-]+\@[A-Za-z0-9\.-]+)[\)\>\}]{0,1}/\<$1\>/g;
1999 my ($name, $address) = parse_email($email);
2000 if ($name eq '"[,\.]"') {
2001 $name = "";
2002 }
2003
2004 my @nw = split(/[^A-Za-zÀ-ÿ\'\,\.\+-]/, $name);
2005 if (@nw > 2) {
2006 my $first = $nw[@nw - 3];
2007 my $middle = $nw[@nw - 2];
2008 my $last = $nw[@nw - 1];
2009
2010 if (((length($first) == 1 && $first =~ m/[A-Za-z]/) ||
2011 (length($first) == 2 && substr($first, -1) eq ".")) ||
2012 (length($middle) == 1 ||
2013 (length($middle) == 2 && substr($middle, -1) eq "."))) {
2014 $name = "$first $middle $last";
2015 } else {
2016 $name = "$middle $last";
2017 }
2018 }
2019
2020 if (substr($name, -1) =~ /[,\.]/) {
2021 $name = substr($name, 0, length($name) - 1);
2022 } elsif (substr($name, -2) =~ /[,\.]"/) {
2023 $name = substr($name, 0, length($name) - 2) . '"';
2024 }
2025
2026 if (substr($name, 0, 1) =~ /[,\.]/) {
2027 $name = substr($name, 1, length($name) - 1);
2028 } elsif (substr($name, 0, 2) =~ /"[,\.]/) {
2029 $name = '"' . substr($name, 2, length($name) - 2);
2030 }
2031
2032 my $fmt_email = format_email($name, $address, $email_usename);
2033 push(@fmt_emails, $fmt_email);
2034 }
2035 return @fmt_emails;
2036}
2037
Joe Perches3c7385b2009-12-14 18:00:46 -08002038sub merge_email {
2039 my @lines;
2040 my %saw;
2041
2042 for (@_) {
2043 my ($address, $role) = @$_;
2044 if (!$saw{$address}) {
2045 if ($output_roles) {
Joe Perches60db31a2009-12-14 18:00:50 -08002046 push(@lines, "$address ($role)");
Joe Perches3c7385b2009-12-14 18:00:46 -08002047 } else {
Joe Perches60db31a2009-12-14 18:00:50 -08002048 push(@lines, $address);
Joe Perches3c7385b2009-12-14 18:00:46 -08002049 }
2050 $saw{$address} = 1;
2051 }
2052 }
2053
2054 return @lines;
2055}
2056
Joe Perchescb7301c2009-04-07 20:40:12 -07002057sub output {
Joe Perchesa8af2432009-12-14 18:00:49 -08002058 my (@parms) = @_;
Joe Perchescb7301c2009-04-07 20:40:12 -07002059
2060 if ($output_multiline) {
2061 foreach my $line (@parms) {
2062 print("${line}\n");
2063 }
2064 } else {
2065 print(join($output_separator, @parms));
2066 print("\n");
2067 }
2068}
Joe Perches1b5e1cf2009-06-16 15:34:01 -07002069
2070my $rfc822re;
2071
2072sub make_rfc822re {
2073# Basic lexical tokens are specials, domain_literal, quoted_string, atom, and
2074# comment. We must allow for rfc822_lwsp (or comments) after each of these.
2075# This regexp will only work on addresses which have had comments stripped
2076# and replaced with rfc822_lwsp.
2077
2078 my $specials = '()<>@,;:\\\\".\\[\\]';
2079 my $controls = '\\000-\\037\\177';
2080
2081 my $dtext = "[^\\[\\]\\r\\\\]";
2082 my $domain_literal = "\\[(?:$dtext|\\\\.)*\\]$rfc822_lwsp*";
2083
2084 my $quoted_string = "\"(?:[^\\\"\\r\\\\]|\\\\.|$rfc822_lwsp)*\"$rfc822_lwsp*";
2085
2086# Use zero-width assertion to spot the limit of an atom. A simple
2087# $rfc822_lwsp* causes the regexp engine to hang occasionally.
2088 my $atom = "[^$specials $controls]+(?:$rfc822_lwsp+|\\Z|(?=[\\[\"$specials]))";
2089 my $word = "(?:$atom|$quoted_string)";
2090 my $localpart = "$word(?:\\.$rfc822_lwsp*$word)*";
2091
2092 my $sub_domain = "(?:$atom|$domain_literal)";
2093 my $domain = "$sub_domain(?:\\.$rfc822_lwsp*$sub_domain)*";
2094
2095 my $addr_spec = "$localpart\@$rfc822_lwsp*$domain";
2096
2097 my $phrase = "$word*";
2098 my $route = "(?:\@$domain(?:,\@$rfc822_lwsp*$domain)*:$rfc822_lwsp*)";
2099 my $route_addr = "\\<$rfc822_lwsp*$route?$addr_spec\\>$rfc822_lwsp*";
2100 my $mailbox = "(?:$addr_spec|$phrase$route_addr)";
2101
2102 my $group = "$phrase:$rfc822_lwsp*(?:$mailbox(?:,\\s*$mailbox)*)?;\\s*";
2103 my $address = "(?:$mailbox|$group)";
2104
2105 return "$rfc822_lwsp*$address";
2106}
2107
2108sub rfc822_strip_comments {
2109 my $s = shift;
2110# Recursively remove comments, and replace with a single space. The simpler
2111# regexps in the Email Addressing FAQ are imperfect - they will miss escaped
2112# chars in atoms, for example.
2113
2114 while ($s =~ s/^((?:[^"\\]|\\.)*
2115 (?:"(?:[^"\\]|\\.)*"(?:[^"\\]|\\.)*)*)
2116 \((?:[^()\\]|\\.)*\)/$1 /osx) {}
2117 return $s;
2118}
2119
2120# valid: returns true if the parameter is an RFC822 valid address
2121#
Stephen Hemminger22dd5b02010-03-05 13:43:06 -08002122sub rfc822_valid {
Joe Perches1b5e1cf2009-06-16 15:34:01 -07002123 my $s = rfc822_strip_comments(shift);
2124
2125 if (!$rfc822re) {
2126 $rfc822re = make_rfc822re();
2127 }
2128
2129 return $s =~ m/^$rfc822re$/so && $s =~ m/^$rfc822_char*$/;
2130}
2131
2132# validlist: In scalar context, returns true if the parameter is an RFC822
2133# valid list of addresses.
2134#
2135# In list context, returns an empty list on failure (an invalid
2136# address was found); otherwise a list whose first element is the
2137# number of addresses found and whose remaining elements are the
2138# addresses. This is needed to disambiguate failure (invalid)
2139# from success with no addresses found, because an empty string is
2140# a valid list.
2141
Stephen Hemminger22dd5b02010-03-05 13:43:06 -08002142sub rfc822_validlist {
Joe Perches1b5e1cf2009-06-16 15:34:01 -07002143 my $s = rfc822_strip_comments(shift);
2144
2145 if (!$rfc822re) {
2146 $rfc822re = make_rfc822re();
2147 }
2148 # * null list items are valid according to the RFC
2149 # * the '1' business is to aid in distinguishing failure from no results
2150
2151 my @r;
2152 if ($s =~ m/^(?:$rfc822re)?(?:,(?:$rfc822re)?)*$/so &&
2153 $s =~ m/^$rfc822_char*$/) {
Joe Perches5f2441e2009-06-16 15:34:02 -07002154 while ($s =~ m/(?:^|,$rfc822_lwsp*)($rfc822re)/gos) {
Joe Perches60db31a2009-12-14 18:00:50 -08002155 push(@r, $1);
Joe Perches1b5e1cf2009-06-16 15:34:01 -07002156 }
2157 return wantarray ? (scalar(@r), @r) : 1;
2158 }
Joe Perches60db31a2009-12-14 18:00:50 -08002159 return wantarray ? () : 0;
Joe Perches1b5e1cf2009-06-16 15:34:01 -07002160}