qemu/scripts/get_maintainer.pl

323 	    my $address = $2;
326 	    ($real_name, $address) = parse_email("$real_name <$address>");
327 	    $mailmap->{names}->{$address} = $real_name;
662 	    my ($name, $address) = parse_email($email);
664 	    my $tmp_email = format_email($name, $address, $email_usename);
809     my $address = "";
813 	$address = $2;
815 	$address = $1;
817 	$address = $1;
822     $address =~ s/^\s+|\s+$//g;
829     return ($name, $address);
833     my ($name, $address, $usename) = @_;
839     $address =~ s/^\s+|\s+$//g;
848 	    $formatted_email = "$address";
850 	    $formatted_email = "$name <$address>";
853 	$formatted_email = $address;
1016 		my ($name, $address) = parse_email($pvalue);
1023 				$pvalue = format_email($name, $address, $email_usename);
1033 		my ($name, $address) = parse_email($pvalue);
1040 				$pvalue = format_email($name, $address, $email_usename);
1061     my ($name, $address) = @_;
1063     return 1 if (($name eq "") && ($address eq ""));
1065     return 1 if (($address ne "") && exists($email_hash_address{lc($address)}));
1073     my ($name, $address) = parse_email($line);
1075     if ($address eq "") {
1080 	push(@email_to, [format_email($name, $address, $email_usename), $role]);
1081     } elsif (!email_inuse($name, $address)) {
1082 	push(@email_to, [format_email($name, $address, $email_usename), $role]);
1084 	$email_hash_address{lc($address)}++;
1091     my ($address, $role) = @_;
1095     if (rfc822_valid($address)) {
1096 	push_email_address($address, $role);
1097     } elsif (@address_list = rfc822_validlist($address)) {
1103 	if (!push_email_address($address, $role)) {
1104 	    warn("Invalid MAINTAINERS address: '" . $address . "'\n");
1112     my ($name, $address) = parse_email($line);
1113     my $email = format_email($name, $address, $email_usename);
1118 	    if (($name eq $entry_name || $address eq $entry_address)
1168     my ($name, $address) = parse_email($line);
1169     my $email = format_email($name, $address, 1);
1171     my $real_address = $address;
1182 	if (exists $mailmap->{names}->{$address}) {
1183 	    $real_name = $mailmap->{names}->{$address};
1185 	if (exists $mailmap->{addresses}->{$address}) {
1186 	    $real_address = $mailmap->{addresses}->{$address};
1208 	my ($name, $address) = parse_email($email);
1210 	    $address = $address_map{$name};
1211 	    $email = format_email($name, $address, 1);
1213 	    $address_map{$name} = $address;
1294 	    my ($name, $address) = parse_email($author);
1295 	    $author = format_email($name, $address, 1);
1690     my ($name, $address) = parse_email($email);
1691     $email = format_email($name, $address, 1);
1696     ($name, $address) = parse_email($email);
1700 	$address = $deduplicate_name_hash{lc($name)}->[1];
1702     } elsif ($deduplicate_address_hash{lc($address)}) {
1703 	$name = $deduplicate_address_hash{lc($address)}->[0];
1704 	$address = $deduplicate_address_hash{lc($address)}->[1];
1708 	$deduplicate_name_hash{lc($name)} = [ $name, $address ];
1709 	$deduplicate_address_hash{lc($address)} = [ $name, $address ];
1711     $email = format_email($name, $address, 1);
1984 	my ($name, $address) = parse_email($email);
2017 	my $fmt_email = format_email($name, $address, $email_usename);
2028 	my ($address, $role) = @$_;
2029 	if (!$saw{$address}) {
2031 		push(@lines, "$address ($role)");
2033 		push(@lines, $address);
2035 	    $saw{$address} = 1;
2088     my $address = "(?:$mailbox|$group)";
2090     return "$rfc822_lwsp*$address";