build/scripts/get_maintainer.pl

678 	    my ($name, $address) = parse_email($email);
680 	    my $tmp_email = format_email($name, $address, $email_usename);
833     my $name = "";
837 	$name = $1;
845     $name =~ s/^\s+|\s+$//g;
846     $name =~ s/^\"|\"$//g;
849     if ($name =~ /[^\w \-]/i) {  	 ##has "must quote" chars
850 	$name =~ s/(?<!\\)"/\\"/g;       ##escape quotes
851 	$name = "\"$name\"";
854     return ($name, $address);
858     my ($name, $address, $usename) = @_;
862     $name =~ s/^\s+|\s+$//g;
863     $name =~ s/^\"|\"$//g;
866     if ($name =~ /[^\w \-]/i) {          ##has "must quote" chars
867 	$name =~ s/(?<!\\)"/\\"/g;       ##escape quotes
868 	$name = "\"$name\"";
872 	if ("$name" eq "") {
875 	    $formatted_email = "$name <$address>";
1035 		my ($name, $address) = parse_email($pvalue);
1036 		if ($name eq "") {
1041 				$name = $2;
1042 				$pvalue = format_email($name, $address, $email_usename);
1063     my ($name, $address) = @_;
1065     return 1 if (($name eq "") && ($address eq ""));
1066     return 1 if (($name ne "") && exists($email_hash_name{lc($name)}));
1075     my ($name, $address) = parse_email($line);
1082 	push(@email_to, [format_email($name, $address, $email_usename), $role]);
1083     } elsif (!email_inuse($name, $address)) {
1084 	push(@email_to, [format_email($name, $address, $email_usename), $role]);
1085 	$email_hash_name{lc($name)}++ if ($name ne "");
1114     my ($name, $address) = parse_email($line);
1115     my $email = format_email($name, $address, $email_usename);
1120 	    if (($name eq $entry_name || $address eq $entry_address)
1170     my ($name, $address) = parse_email($line);
1171     my $email = format_email($name, $address, 1);
1172     my $real_name = $name;
1210 	my ($name, $address) = parse_email($email);
1211 	if (exists $address_map{$name}) {
1212 	    $address = $address_map{$name};
1213 	    $email = format_email($name, $address, 1);
1215 	    $address_map{$name} = $address;
1304 	    my ($name, $address) = parse_email($author);
1305 	    $author = format_email($name, $address, 1);
1700     my ($name, $address) = parse_email($email);
1701     $email = format_email($name, $address, 1);
1706     ($name, $address) = parse_email($email);
1708     if ($name ne "" && $deduplicate_name_hash{lc($name)}) {
1709 	$name = $deduplicate_name_hash{lc($name)}->[0];
1710 	$address = $deduplicate_name_hash{lc($name)}->[1];
1713 	$name = $deduplicate_address_hash{lc($address)}->[0];
1718 	$deduplicate_name_hash{lc($name)} = [ $name, $address ];
1719 	$deduplicate_address_hash{lc($address)} = [ $name, $address ];
1721     $email = format_email($name, $address, 1);
1998 	my ($name, $address) = parse_email($email);
1999 	if ($name eq '"[,\.]"') {
2000 	    $name = "";
2003 	my @nw = split(/[^A-Za-zÀ-ÿ\'\,\.\+-]/, $name);
2013 		$name = "$first $middle $last";
2015 		$name = "$middle $last";
2019 	if (substr($name, -1) =~ /[,\.]/) {
2020 	    $name = substr($name, 0, length($name) - 1);
2021 	} elsif (substr($name, -2) =~ /[,\.]"/) {
2022 	    $name = substr($name, 0, length($name) - 2) . '"';
2025 	if (substr($name, 0, 1) =~ /[,\.]/) {
2026 	    $name = substr($name, 1, length($name) - 1);
2027 	} elsif (substr($name, 0, 2) =~ /"[,\.]/) {
2028 	    $name = '"' . substr($name, 2, length($name) - 2);
2031 	my $fmt_email = format_email($name, $address, $email_usename);