Lines Matching full:my
16 my $P = $0;
17 my $V = '0.26';
24 my $cur_path = fastgetcwd() . '/';
25 my $lk_path = "./";
26 my $email = 1;
27 my $email_usename = 1;
28 my $email_maintainer = 1;
29 my $email_reviewer = 1;
30 my $email_fixes = 1;
31 my $email_list = 1;
32 my $email_moderated_list = 1;
33 my $email_subscriber_list = 0;
34 my $email_git_penguin_chiefs = 0;
35 my $email_git = 0;
36 my $email_git_all_signature_types = 0;
37 my $email_git_blame = 0;
38 my $email_git_blame_signatures = 1;
39 my $email_git_fallback = 1;
40 my $email_git_min_signatures = 1;
41 my $email_git_max_maintainers = 5;
42 my $email_git_min_percent = 5;
43 my $email_git_since = "1-year-ago";
44 my $email_hg_since = "-365";
45 my $interactive = 0;
46 my $email_remove_duplicates = 1;
47 my $email_use_mailmap = 1;
48 my $output_multiline = 1;
49 my $output_separator = ", ";
50 my $output_roles = 0;
51 my $output_rolestats = 1;
52 my $output_section_maxlen = 50;
53 my $scm = 0;
54 my $tree = 1;
55 my $web = 0;
56 my $subsystem = 0;
57 my $status = 0;
58 my $letters = "";
59 my $keywords = 1;
60 my $sections = 0;
61 my $email_file_emails = 0;
62 my $from_filename = 0;
63 my $pattern_depth = 0;
64 my $self_test = undef;
65 my $version = 0;
66 my $help = 0;
67 my $find_maintainer_files = 0;
68 my $maintainer_path;
69 my $vcs_used = 0;
71 my $exit = 0;
73 my @files = ();
74 my @fixes = (); # If a patch description includes Fixes: lines
75 my @range = ();
76 my @keyword_tvi = ();
77 my @file_emails = ();
79 my %commit_author_hash;
80 my %commit_signer_hash;
82 my @penguin_chief = ();
87 my @penguin_chief_names = ();
88 foreach my $chief (@penguin_chief) {
90 my $chief_name = $1;
91 my $chief_addr = $2;
95 my $penguin_chiefs = "\(" . join("|", @penguin_chief_names) . "\)";
100 my @signature_tags = ();
105 my $signature_pattern = "\(" . join("|", @signature_tags) . "\)";
108 my $rfc822_lwsp = "(?:(?:\\r\\n)?[ \\t])";
109 my $rfc822_char = '[\\000-\\377]';
113 my %VCS_cmds;
115 my %VCS_cmds_git = (
155 my %VCS_cmds_hg = (
185 my $conf = which_conf(".get_maintainer.conf");
187 my @conf_args;
188 open(my $conffile, '<', "$conf")
192 my $line = $_;
201 my @words = split(" ", $line);
202 foreach my $word (@words) {
211 my @ignore_emails = ();
212 my $ignore_file = which_conf(".get_maintainer.ignore");
214 open(my $ignore, '<', "$ignore_file")
217 my $line = $_;
323 my $selections = $email + $scm + $status + $subsystem + $web;
343 my @typevalue = ();
344 my %keyword_hash;
345 my @mfiles = ();
346 my @self_test_info = ();
349 my ($file) = @_;
351 open (my $maint, '<', "$file")
353 my $i = 1;
355 my $line = $_;
359 my $type = $1;
360 my $value = $2;
387 my ($file) = $_;
401 my $path = "${lk_path}MAINTAINERS";
417 my @files = readdir(DIR);
419 foreach my $file (@files) {
429 foreach my $file (@mfiles) {
435 my ($file) = @_;
440 open(my $f, '<', $file)
442 my $text = do { local($/) ; <$f> };
445 …my @poss_addr = $text =~ m$[A-Za-zÀ-ÿ\"\' \,\.\+-]*\s*[\,]*\s*[\(\<\{]{0,1}[A-Za-z0-9_\.\+-]+\@[A-…
454 my $mailmap;
466 open(my $mailmap_file, '<', "${lk_path}.mailmap")
482 my $real_name = $1;
483 my $address = $2;
490 my $real_address = $1;
491 my $wrong_address = $2;
496 my $real_name = $1;
497 my $real_address = $2;
498 my $wrong_address = $3;
507 my $real_name = $1;
508 my $real_address = $2;
509 my $wrong_name = $3;
510 my $wrong_address = $4;
520 my $wrong_email = format_email($wrong_name, $wrong_address, 1);
534 foreach my $file (@ARGV) {
552 open(my $f, '<', $file)
554 my $text = do { local($/) ; <$f> };
557 foreach my $line (keys %keyword_hash) {
565 my $file_cnt = @files;
566 my $lastfile;
568 open(my $patch, "< $file")
576 my $patch_prefix = ""; #Parsing the intro
579 my $patch_line = $_;
581 my $filename = $1;
584 my $filename = $1;
587 my $filename1 = $1;
588 my $filename2 = $2;
594 my $filename = $1;
605 foreach my $line (keys %keyword_hash) {
625 my %email_hash_name;
626 my %email_hash_address;
627 my @email_to = ();
628 my %hash_list_to;
629 my @list_to = ();
630 my @scm = ();
631 my @web = ();
632 my @subsystem = ();
633 my @status = ();
634 my %deduplicate_name_hash = ();
635 my %deduplicate_address_hash = ();
637 my @maintainers = get_maintainers();
666 my @lsfiles = ();
667 my @good_links = ();
668 my @bad_links = ();
669 my @section_headers = ();
670 my $index = 0;
674 for my $x (@self_test_info) {
682 my $has_S = 0;
683 my $has_F = 0;
684 my $has_ML = 0;
685 my $status = "";
691 my $nextline = $index;
694 my $type = $1;
695 my $value = $2;
719 my $type = $1;
720 my $value = $2;
741 my $isbad = 0;
745 my $output = `wget --spider -q --no-check-certificate --timeout 10 --tries 1 $value`;
761 my $isbad = 0;
767 my $url = $1;
768 my $branch = "";
770 my $output = `git ls-remote --exit-code -h "$url" $branch > /dev/null 2>&1`;
778 my $url = $1;
779 my $output = `wget --spider -q --no-check-certificate --timeout 10 --tries 1 $url`;
795 my ($address) = @_;
797 foreach my $ignore (@ignore_emails) {
805 my ($start, $end) = @_;
807 for (my $i = $start; $i < $end; $i++) {
808 my $line = $typevalue[$i];
810 my $type = $1;
811 my $value = $2;
823 my ($start, $end) = @_;
825 for (my $i = $start; $i < $end; $i++) {
826 my $line = $typevalue[$i];
828 my $type = $1;
829 my $value = $2;
860 my %exact_pattern_match_hash = ();
862 foreach my $file (@files) {
864 my %hash;
865 my $tvi = find_first_section();
867 my $start = find_starting_index($tvi);
868 my $end = find_ending_index($tvi);
869 my $exclude = 0;
870 my $i;
875 my $line = $typevalue[$i];
877 my $type = $1;
878 my $value = $2;
890 my $line = $typevalue[$i];
892 my $type = $1;
893 my $value = $2;
896 my $value_pd = ($value =~ tr@/@@);
897 my $file_pd = ($file =~ tr@/@@);
921 foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
924 my $i;
925 my $start = find_starting_index($line);
926 my $end = find_ending_index($line);
928 my $line = $typevalue[$i];
935 my $count = $line =~ s/^([A-Z]):/$1:\t/g;
949 foreach my $line (@keyword_tvi) {
954 foreach my $email (@email_to, @list_to) {
958 foreach my $file (@files) {
972 foreach my $chief (@penguin_chief) {
974 my $email_address;
985 foreach my $email (@file_emails) {
987 my ($name, $address) = parse_email($email);
989 my $tmp_email = format_email($name, $address, $email_usename);
995 foreach my $fix (@fixes) {
999 my @to = ();
1017 my ($file, $pattern) = @_;
1024 my $s1 = ($file =~ tr@/@@);
1025 my $s2 = ($pattern =~ tr@/@@);
1127 my ($lk_path) = @_;
1154 my ($formatted_email) = @_;
1156 my $name = "";
1157 my $address = "";
1181 my ($name, $address, $usename) = @_;
1183 my $formatted_email;
1208 my $index = 0;
1211 my $tv = $typevalue[$index];
1222 my ($index) = @_;
1225 my $tv = $typevalue[$index];
1236 my ($index) = @_;
1239 my $tv = $typevalue[$index];
1250 my ($index) = @_;
1252 my $start = find_starting_index($index);
1254 my $subsystem = $typevalue[$start];
1264 my ($index) = @_;
1266 my $i;
1267 my $start = find_starting_index($index);
1268 my $end = find_ending_index($index);
1270 my $role = "unknown";
1271 my $subsystem = get_subsystem_name($index);
1274 my $tv = $typevalue[$i];
1276 my $ptype = $1;
1277 my $pvalue = $2;
1303 my ($index) = @_;
1305 my $subsystem = get_subsystem_name($index);
1315 my ($index) = @_;
1317 my $i;
1318 my $start = find_starting_index($index);
1319 my $end = find_ending_index($index);
1324 my $tv = $typevalue[$i];
1326 my $ptype = $1;
1327 my $pvalue = $2;
1329 my $list_address = $pvalue;
1330 my $list_additional = "";
1331 my $list_role = get_list_role($i);
1367 my $role = get_maintainer_role($i);
1372 my $subsystem = get_subsystem_name($i);
1387 my ($name, $address) = @_;
1397 my ($line, $role) = @_;
1399 my ($name, $address) = parse_email($line);
1417 my ($address, $role) = @_;
1419 my @address_list = ();
1424 my $array_count = shift(@address_list);
1425 while (my $entry = shift(@address_list)) {
1436 my ($line, $role) = @_;
1438 my ($name, $address) = parse_email($line);
1439 my $email = format_email($name, $address, $email_usename);
1441 foreach my $entry (@email_to) {
1443 my ($entry_name, $entry_address) = parse_email($entry->[0]);
1468 my ($bin) = @_;
1470 foreach my $path (split(/:/, $ENV{PATH})) {
1480 my ($conf) = @_;
1482 foreach my $path (split(/:/, ".:$ENV{HOME}:.scripts")) {
1492 my ($line) = @_;
1494 my ($name, $address) = parse_email($line);
1495 my $email = format_email($name, $address, 1);
1496 my $real_name = $name;
1497 my $real_address = $address;
1519 my (@addresses) = @_;
1521 my @mapped_emails = ();
1522 foreach my $line (@addresses) {
1530 my %address_map;
1531 my (@emails) = @_;
1533 foreach my $email (@emails) {
1534 my ($name, $address) = parse_email($email);
1545 my ($cmd) = @_;
1546 my @lines = ();
1548 my $output = `$cmd`;
1556 my ($cmd) = @_;
1557 my @lines = ();
1559 my $output = `$cmd`;
1566 my (@signature_lines) = @_;
1568 my @type = @signature_lines;
1577 foreach my $signer (@signature_lines) {
1585 my ($cmd, $file) = @_;
1586 my $commits;
1587 my @lines = ();
1588 my @signatures = ();
1589 my @authors = ();
1590 my @stats = ();
1594 my $pattern = $VCS_cmds{"commit_pattern"};
1595 my $author_pattern = $VCS_cmds{"author_pattern"};
1596 my $stat_pattern = $VCS_cmds{"stat_pattern"};
1617 my ($author_ref, $authors_ref) = extract_formatted_signatures(@authors);
1618 my ($types_ref, $signers_ref) = extract_formatted_signatures(@signatures);
1624 my ($cmd) = @_;
1625 my @lines = ();
1635 my @authors = ();
1636 foreach my $line (@lines) {
1638 my $author = $1;
1639 my ($name, $address) = parse_email($author);
1652 my ($cmd) = @_;
1653 my @lines = ();
1654 my @commits = ();
1658 foreach my $line (@lines) {
1668 my ($file) = @_;
1669 my $cmd;
1670 my @commits = ();
1675 my @all_commits = ();
1681 foreach my $file_range_diff (@range) {
1683 my $diff_file = $1;
1684 my $diff_start = $2;
1685 my $diff_length = $3;
1687 for (my $i = $diff_start; $i < $diff_start + $diff_length; $i++) {
1692 foreach my $file_range_diff (@range) {
1694 my $diff_file = $1;
1695 my $diff_start = $2;
1696 my $diff_length = $3;
1708 foreach my $commit (@commits) {
1715 my $printed_novcs = 0;
1744 my ($commit, $desc) = @_;
1745 my $commit_count = 0;
1746 my $commit_authors_ref;
1747 my $commit_signers_ref;
1748 my $stats_ref;
1749 my @commit_authors = ();
1750 my @commit_signers = ();
1751 my $cmd;
1760 foreach my $signer (@commit_signers) {
1768 my ($list_ref) = @_;
1769 my @list = @$list_ref;
1773 my %selected;
1774 my %authored;
1775 my %signed;
1776 my $count = 0;
1777 my $maintained = 0;
1778 foreach my $entry (@list) {
1787 my $done = 0;
1788 my $print_options = 0;
1789 my $redraw = 1;
1801 foreach my $entry (@list) {
1802 my $email = $entry->[0];
1803 my $role = $entry->[1];
1804 my $sel = "";
1806 my $commit_author = $commit_author_hash{$email};
1807 my $commit_signer = $commit_signer_hash{$email};
1808 my $authored = 0;
1809 my $signed = 0;
1817 my $commit_author = $commit_author_hash{$email};
1818 foreach my $ref (@{$commit_author}) {
1823 my $commit_signer = $commit_signer_hash{$email};
1824 foreach my $ref (@{$commit_signer}) {
1832 my $date_ref = \$email_git_since;
1869 my $input = <STDIN>;
1873 my $rerun = 0;
1874 my @wish = split(/[, ]+/, $input);
1875 foreach my $nr (@wish) {
1877 my $sel = substr($nr, 0, 1);
1878 my $str = substr($nr, 1);
1879 my $val = 0;
1891 my $toggle = 0;
1893 for (my $i = 0; $i < $count; $i++) {
1897 for (my $i = 0; $i < $count; $i++) {
1902 for (my $i = 0; $i < $count; $i++) {
1907 for (my $i = 0; $i < $count; $i++) {
1912 for (my $i = 0; $i < $count; $i++) {
1917 for (my $i = 0; $i < $count; $i++) {
1926 my $toggle = 0;
1928 for (my $i = 0; $i < $count; $i++) {
1936 my $toggle = 0;
1938 for (my $i = 0; $i < $count; $i++) {
2037 my @new_emailto = ();
2038 foreach my $entry (@list) {
2048 my ($bool_ref) = @_;
2058 my ($email) = @_;
2060 my $matched = 0;
2061 my ($name, $address) = parse_email($email);
2088 my (@lines) = @_;
2090 my @authors = ();
2091 my @commits = ();
2092 my @subjects = ();
2094 foreach my $line (@lines) {
2096 my $author = $1;
2104 for (my $i = 0; $i < @authors; $i++) {
2105 my $exists = 0;
2106 foreach my $ref(@{$commit_author_hash{$authors[$i]}}) {
2121 my (@lines) = @_;
2123 my $commit = "";
2124 my $subject = "";
2126 foreach my $line (@lines) {
2130 my @signatures = ($line);
2131 my ($types_ref, $signers_ref) = extract_formatted_signatures(@signatures);
2132 my @types = @$types_ref;
2133 my @signers = @$signers_ref;
2135 my $type = $types[0];
2136 my $signer = $signers[0];
2140 my $exists = 0;
2141 foreach my $ref(@{$commit_signer_hash{$signer}}) {
2158 my ($role, $divisor, @lines) = @_;
2160 my %hash;
2161 my $count = 0;
2180 foreach my $line (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
2181 my $sign_offs = $hash{$line};
2182 my $percent = $sign_offs * 100 / $divisor;
2192 my $fmt_percent = sprintf("%.0f", $percent);
2201 my ($file) = @_;
2203 my $authors_ref;
2204 my $signers_ref;
2205 my $stats_ref;
2206 my @authors = ();
2207 my @signers = ();
2208 my @stats = ();
2209 my $commits;
2214 my $cmd = $VCS_cmds{"find_signers_cmd"};
2225 foreach my $signer (@signers) {
2232 my $stat_pattern = $VCS_cmds{"stat_pattern"};
2235 my $added = 0;
2236 my $deleted = 0;
2237 for (my $i = 0; $i <= $#stats; $i++) {
2243 my @tmp_authors = uniq(@authors);
2244 foreach my $author (@tmp_authors) {
2248 my @list_added = ();
2249 my @list_deleted = ();
2250 foreach my $author (@tmp_authors) {
2251 my $auth_added = 0;
2252 my $auth_deleted = 0;
2253 for (my $i = 0; $i <= $#stats; $i++) {
2260 for (my $i = 0; $i < $auth_added; $i++) {
2263 for (my $i = 0; $i < $auth_deleted; $i++) {
2273 my ($file) = @_;
2275 my @signers = ();
2276 my @all_commits = ();
2277 my @commits = ();
2278 my $total_commits;
2279 my $total_lines;
2291 my $commit_count;
2292 my $commit_authors_ref;
2293 my $commit_signers_ref;
2294 my $stats_ref;
2295 my @commit_authors = ();
2296 my @commit_signers = ();
2297 my $commit = join(" -r ", @commits);
2298 my $cmd;
2309 foreach my $commit (@commits) {
2310 my $commit_count;
2311 my $commit_authors_ref;
2312 my $commit_signers_ref;
2313 my $stats_ref;
2314 my @commit_authors = ();
2315 my @commit_signers = ();
2316 my $cmd;
2332 my @blame_signers;
2334 my $commit_count;
2335 my @commit_signers = ();
2338 my $commit = join(" -r ", @commits);
2339 my $cmd;
2344 my @lines = ();
2354 my @authors = ();
2355 foreach my $line (@lines) {
2357 my $author = $1;
2369 foreach my $commit (@commits) {
2370 my $i;
2371 my $cmd = $VCS_cmds{"find_commit_author_cmd"};
2373 my @author = vcs_find_author($cmd);
2376 my $formatted_author = deduplicate_email($author[0]);
2378 my $count = grep(/$commit/, @all_commits);
2388 foreach my $signer (@signers) {
2393 foreach my $signer (@signers) {
2401 my ($file) = @_;
2403 my $exists;
2405 my $vcs_used = vcs_exists();
2408 my $cmd = $VCS_cmds{"file_exists_cmd"};
2419 my ($file) = @_;
2421 my @lsfiles = ();
2423 my $vcs_used = vcs_exists();
2426 my $cmd = $VCS_cmds{"list_files_cmd"};
2436 my (@parms) = @_;
2438 my %saw;
2444 my (@parms) = @_;
2446 my %saw;
2453 my (@file_emails) = @_;
2454 my @fmt_emails = ();
2456 foreach my $email (@file_emails) {
2458 my ($name, $address) = parse_email($email);
2463 my @nw = split(/[^A-Za-zÀ-ÿ\'\,\.\+-]/, $name);
2465 my $first = $nw[@nw - 3];
2466 my $middle = $nw[@nw - 2];
2467 my $last = $nw[@nw - 1];
2491 my $fmt_email = format_email($name, $address, $email_usename);
2498 my @lines;
2499 my %saw;
2502 my ($address, $role) = @$_;
2517 my (@parms) = @_;
2520 foreach my $line (@parms) {
2529 my $rfc822re;
2537 my $specials = '()<>@,;:\\\\".\\[\\]';
2538 my $controls = '\\000-\\037\\177';
2540 my $dtext = "[^\\[\\]\\r\\\\]";
2541 my $domain_literal = "\\[(?:$dtext|\\\\.)*\\]$rfc822_lwsp*";
2543 my $quoted_string = "\"(?:[^\\\"\\r\\\\]|\\\\.|$rfc822_lwsp)*\"$rfc822_lwsp*";
2547 my $atom = "[^$specials $controls]+(?:$rfc822_lwsp+|\\Z|(?=[\\[\"$specials]))";
2548 my $word = "(?:$atom|$quoted_string)";
2549 my $localpart = "$word(?:\\.$rfc822_lwsp*$word)*";
2551 my $sub_domain = "(?:$atom|$domain_literal)";
2552 my $domain = "$sub_domain(?:\\.$rfc822_lwsp*$sub_domain)*";
2554 my $addr_spec = "$localpart\@$rfc822_lwsp*$domain";
2556 my $phrase = "$word*";
2557 my $route = "(?:\@$domain(?:,\@$rfc822_lwsp*$domain)*:$rfc822_lwsp*)";
2558 my $route_addr = "\\<$rfc822_lwsp*$route?$addr_spec\\>$rfc822_lwsp*";
2559 my $mailbox = "(?:$addr_spec|$phrase$route_addr)";
2561 my $group = "$phrase:$rfc822_lwsp*(?:$mailbox(?:,\\s*$mailbox)*)?;\\s*";
2562 my $address = "(?:$mailbox|$group)";
2568 my $s = shift;
2582 my $s = rfc822_strip_comments(shift);
2602 my $s = rfc822_strip_comments(shift);
2610 my @r;