Lines Matching refs:name
728 my ($name, $address) = parse_email($email);
730 my $tmp_email = format_email($name, $address, $email_usename);
873 my $name = "";
877 $name = $1;
885 $name =~ s/^\s+|\s+$//g;
886 $name =~ s/^\"|\"$//g;
889 if ($name =~ /[^\w \-]/i) { ##has "must quote" chars
890 $name =~ s/(?<!\\)"/\\"/g; ##escape quotes
891 $name = "\"$name\"";
894 return ($name, $address);
898 my ($name, $address, $usename) = @_;
902 $name =~ s/^\s+|\s+$//g;
903 $name =~ s/^\"|\"$//g;
906 if ($name =~ /[^\w \-]/i) { ##has "must quote" chars
907 $name =~ s/(?<!\\)"/\\"/g; ##escape quotes
908 $name = "\"$name\"";
912 if ("$name" eq "") {
915 $formatted_email = "$name <$address>";
1080 my ($name, $address) = parse_email($pvalue);
1081 if ($name eq "") {
1086 $name = $2;
1087 $pvalue = format_email($name, $address, $email_usename);
1108 my ($name, $address) = @_;
1110 return 1 if (($name eq "") && ($address eq ""));
1111 return 1 if (($name ne "") && exists($email_hash_name{lc($name)}));
1120 my ($name, $address) = parse_email($line);
1127 push(@email_to, [format_email($name, $address, $email_usename), $role]);
1128 } elsif (!email_inuse($name, $address)) {
1129 push(@email_to, [format_email($name, $address, $email_usename), $role]);
1130 $email_hash_name{lc($name)}++ if ($name ne "");
1159 my ($name, $address) = parse_email($line);
1160 my $email = format_email($name, $address, $email_usename);
1165 if (($name eq $entry_name || $address eq $entry_address)
1215 my ($name, $address) = parse_email($line);
1216 my $email = format_email($name, $address, 1);
1217 my $real_name = $name;
1255 my ($name, $address) = parse_email($email);
1256 if (exists $address_map{$name}) {
1257 $address = $address_map{$name};
1258 $email = format_email($name, $address, 1);
1260 $address_map{$name} = $address;
1349 my ($name, $address) = parse_email($author);
1350 $author = format_email($name, $address, 1);
1745 my ($name, $address) = parse_email($email);
1746 $email = format_email($name, $address, 1);
1751 ($name, $address) = parse_email($email);
1753 if ($name ne "" && $deduplicate_name_hash{lc($name)}) {
1754 $name = $deduplicate_name_hash{lc($name)}->[0];
1755 $address = $deduplicate_name_hash{lc($name)}->[1];
1758 $name = $deduplicate_address_hash{lc($address)}->[0];
1763 $deduplicate_name_hash{lc($name)} = [ $name, $address ];
1764 $deduplicate_address_hash{lc($address)} = [ $name, $address ];
1766 $email = format_email($name, $address, 1);
2043 my ($name, $address) = parse_email($email);
2044 if ($name eq '"[,\.]"') {
2045 $name = "";
2048 my @nw = split(/[^A-Za-zÀ-ÿ\'\,\.\+-]/, $name);
2058 $name = "$first $middle $last";
2060 $name = "$middle $last";
2064 if (substr($name, -1) =~ /[,\.]/) {
2065 $name = substr($name, 0, length($name) - 1);
2066 } elsif (substr($name, -2) =~ /[,\.]"/) {
2067 $name = substr($name, 0, length($name) - 2) . '"';
2070 if (substr($name, 0, 1) =~ /[,\.]/) {
2071 $name = substr($name, 1, length($name) - 1);
2072 } elsif (substr($name, 0, 2) =~ /"[,\.]/) {
2073 $name = '"' . substr($name, 2, length($name) - 2);
2076 my $fmt_email = format_email($name, $address, $email_usename);