kvm-unit-tests/scripts/get_maintainer.pl

91 # rfc822 email address - preloaded methods go here.
429 # Read mail address map
461 	    my $address = $2;
464 	    ($real_name, $address) = parse_email("$real_name <$address>");
465 	    $mailmap->{names}->{$address} = $real_name;
685 		print("$x->{file}:$x->{linenr}: warning: section without email address\t$x->{line}\n");
773     my ($address) = @_;
776 	return 1 if ($ignore eq $address);
951 	    my ($name, $address) = parse_email($email);
953 	    my $tmp_email = format_email($name, $address, $email_usename);
1005   --email => print email address(es) if any
1066       other automated tools that expect only ["name"] <email address>
1067       may not work because of additional output after <email address>.
1093     my $address = "";
1097 	$address = $2;
1099 	$address = $1;
1101 	$address = $1;
1106     $address =~ s/^\s+|\s+$//g;
1113     return ($name, $address);
1117     my ($name, $address, $usename) = @_;
1123     $address =~ s/^\s+|\s+$//g;
1132 	    $formatted_email = "$address";
1134 	    $formatted_email = "$name <$address>";
1137 	$formatted_email = $address;
1323     my ($name, $address) = @_;
1325     return 1 if (($name eq "") && ($address eq ""));
1327     return 1 if (($address ne "") && exists($email_hash_address{lc($address)}));
1335     my ($name, $address) = parse_email($line);
1337     if ($address eq "") {
1342 	push(@email_to, [format_email($name, $address, $email_usename), $role]);
1343     } elsif (!email_inuse($name, $address)) {
1344 	push(@email_to, [format_email($name, $address, $email_usename), $role]);
1346 	$email_hash_address{lc($address)}++;
1353     my ($address, $role) = @_;
1357     if (rfc822_valid($address)) {
1358 	push_email_address($address, $role);
1359     } elsif (@address_list = rfc822_validlist($address)) {
1365 	if (!push_email_address($address, $role)) {
1366 	    warn("Invalid MAINTAINERS address: '" . $address . "'\n");
1374     my ($name, $address) = parse_email($line);
1375     my $email = format_email($name, $address, $email_usename);
1380 	    if (($name eq $entry_name || $address eq $entry_address)
1430     my ($name, $address) = parse_email($line);
1431     my $email = format_email($name, $address, 1);
1433     my $real_address = $address;
1444 	if (exists $mailmap->{names}->{$address}) {
1445 	    $real_name = $mailmap->{names}->{$address};
1447 	if (exists $mailmap->{addresses}->{$address}) {
1448 	    $real_address = $mailmap->{addresses}->{$address};
1470 	my ($name, $address) = parse_email($email);
1472 	    $address = $address_map{$name};
1473 	    $email = format_email($name, $address, 1);
1475 	    $address_map{$name} = $address;
1567 	    my ($name, $address) = parse_email($author);
1568 	    $author = format_email($name, $address, 1);
1989     my ($name, $address) = parse_email($email);
1990     $email = format_email($name, $address, 1);
1995     ($name, $address) = parse_email($email);
1999 	$address = $deduplicate_name_hash{lc($name)}->[1];
2001     } elsif ($deduplicate_address_hash{lc($address)}) {
2002 	$name = $deduplicate_address_hash{lc($address)}->[0];
2003 	$address = $deduplicate_address_hash{lc($address)}->[1];
2007 	$deduplicate_name_hash{lc($name)} = [ $name, $address ];
2008 	$deduplicate_address_hash{lc($address)} = [ $name, $address ];
2010     $email = format_email($name, $address, 1);
2382 	my ($name, $address) = parse_email($email);
2415 	my $fmt_email = format_email($name, $address, $email_usename);
2426 	my ($address, $role) = @$_;
2427 	if (!$saw{$address}) {
2429 		push(@lines, "$address ($role)");
2431 		push(@lines, $address);
2433 	    $saw{$address} = 1;
2486     my $address = "(?:$mailbox|$group)";
2488     return "$rfc822_lwsp*$address";
2503 #   valid: returns true if the parameter is an RFC822 valid address
2519 #              address was found); otherwise a list whose first element is the