Lines Matching refs:name
774 my ($name, $address) = parse_email($email);
776 my $tmp_email = format_email($name, $address, $email_usename);
903 my $name = "";
907 $name = $1;
915 $name =~ s/^\s+|\s+$//g;
916 $name =~ s/^\"|\"$//g;
919 if ($name =~ /[^\w \-]/i) { ##has "must quote" chars
920 $name =~ s/(?<!\\)"/\\"/g; ##escape quotes
921 $name = "\"$name\"";
924 return ($name, $address);
928 my ($name, $address, $usename) = @_;
932 $name =~ s/^\s+|\s+$//g;
933 $name =~ s/^\"|\"$//g;
936 if ($name =~ /[^\w \-]/i) { ##has "must quote" chars
937 $name =~ s/(?<!\\)"/\\"/g; ##escape quotes
938 $name = "\"$name\"";
942 if ("$name" eq "") {
945 $formatted_email = "$name <$address>";
1110 my ($name, $address) = parse_email($pvalue);
1116 my ($name, $address) = parse_email($pvalue);
1132 my ($name, $address) = @_;
1134 return 1 if (($name eq "") && ($address eq ""));
1135 return 1 if (($name ne "") && exists($email_hash_name{lc($name)}));
1144 my ($name, $address) = parse_email($line);
1151 push(@email_to, [format_email($name, $address, $email_usename), $role]);
1152 } elsif (!email_inuse($name, $address)) {
1153 push(@email_to, [format_email($name, $address, $email_usename), $role]);
1154 $email_hash_name{lc($name)}++ if ($name ne "");
1183 my ($name, $address) = parse_email($line);
1184 my $email = format_email($name, $address, $email_usename);
1189 if (($name eq $entry_name || $address eq $entry_address)
1239 my ($name, $address) = parse_email($line);
1240 my $email = format_email($name, $address, 1);
1241 my $real_name = $name;
1279 my ($name, $address) = parse_email($email);
1280 if (exists $address_map{$name}) {
1281 $address = $address_map{$name};
1282 $email = format_email($name, $address, 1);
1284 $address_map{$name} = $address;
1373 my ($name, $address) = parse_email($author);
1374 $author = format_email($name, $address, 1);
1769 my ($name, $address) = parse_email($email);
1770 $email = format_email($name, $address, 1);
1775 ($name, $address) = parse_email($email);
1777 if ($name ne "" && $deduplicate_name_hash{lc($name)}) {
1778 $name = $deduplicate_name_hash{lc($name)}->[0];
1779 $address = $deduplicate_name_hash{lc($name)}->[1];
1782 $name = $deduplicate_address_hash{lc($address)}->[0];
1787 $deduplicate_name_hash{lc($name)} = [ $name, $address ];
1788 $deduplicate_address_hash{lc($address)} = [ $name, $address ];
1790 $email = format_email($name, $address, 1);
2067 my ($name, $address) = parse_email($email);
2068 if ($name eq '"[,\.]"') {
2069 $name = "";
2072 my @nw = split(/[^A-Za-zÀ-ÿ\'\,\.\+-]/, $name);
2082 $name = "$first $middle $last";
2084 $name = "$middle $last";
2088 if (substr($name, -1) =~ /[,\.]/) {
2089 $name = substr($name, 0, length($name) - 1);
2090 } elsif (substr($name, -2) =~ /[,\.]"/) {
2091 $name = substr($name, 0, length($name) - 2) . '"';
2094 if (substr($name, 0, 1) =~ /[,\.]/) {
2095 $name = substr($name, 1, length($name) - 1);
2096 } elsif (substr($name, 0, 2) =~ /"[,\.]/) {
2097 $name = '"' . substr($name, 2, length($name) - 2);
2100 my $fmt_email = format_email($name, $address, $email_usename);