Lines Matching refs:name
380 $file = $File::Find::name;
960 my ($name, $address) = parse_email($email);
962 my $tmp_email = format_email($name, $address, $email_usename);
1124 my $name = "";
1128 $name = $1;
1136 $name =~ s/^\s+|\s+$//g;
1137 $name =~ s/^\"|\"$//g;
1140 if ($name =~ /[^\w \-]/i) { ##has "must quote" chars
1141 $name =~ s/(?<!\\)"/\\"/g; ##escape quotes
1142 $name = "\"$name\"";
1145 return ($name, $address);
1149 my ($name, $address, $usename) = @_;
1153 $name =~ s/^\s+|\s+$//g;
1154 $name =~ s/^\"|\"$//g;
1157 if ($name =~ /[^\w \-]/i) { ##has "must quote" chars
1158 $name =~ s/(?<!\\)"/\\"/g; ##escape quotes
1159 $name = "\"$name\"";
1163 if ("$name" eq "") {
1166 $formatted_email = "$name <$address>";
1334 my ($name, $address) = parse_email($pvalue);
1335 if ($name eq "") {
1340 $name = $2;
1341 $pvalue = format_email($name, $address, $email_usename);
1351 my ($name, $address) = parse_email($pvalue);
1352 if ($name eq "") {
1357 $name = $2;
1358 $pvalue = format_email($name, $address, $email_usename);
1379 my ($name, $address) = @_;
1381 return 1 if (($name eq "") && ($address eq ""));
1382 return 1 if (($name ne "") && exists($email_hash_name{lc($name)}));
1391 my ($name, $address) = parse_email($line);
1398 push(@email_to, [format_email($name, $address, $email_usename), $role]);
1399 } elsif (!email_inuse($name, $address)) {
1400 push(@email_to, [format_email($name, $address, $email_usename), $role]);
1401 $email_hash_name{lc($name)}++ if ($name ne "");
1430 my ($name, $address) = parse_email($line);
1431 my $email = format_email($name, $address, $email_usename);
1436 if (($name eq $entry_name || $address eq $entry_address)
1486 my ($name, $address) = parse_email($line);
1487 my $email = format_email($name, $address, 1);
1488 my $real_name = $name;
1526 my ($name, $address) = parse_email($email);
1527 if (exists $address_map{$name}) {
1528 $address = $address_map{$name};
1529 $email = format_email($name, $address, 1);
1531 $address_map{$name} = $address;
1631 my ($name, $address) = parse_email($author);
1632 $author = format_email($name, $address, 1);
2027 my ($name, $address) = parse_email($email);
2028 $email = format_email($name, $address, 1);
2033 ($name, $address) = parse_email($email);
2035 if ($name ne "" && $deduplicate_name_hash{lc($name)}) {
2036 $name = $deduplicate_name_hash{lc($name)}->[0];
2037 $address = $deduplicate_name_hash{lc($name)}->[1];
2040 $name = $deduplicate_address_hash{lc($address)}->[0];
2045 $deduplicate_name_hash{lc($name)} = [ $name, $address ];
2046 $deduplicate_address_hash{lc($address)} = [ $name, $address ];
2048 $email = format_email($name, $address, 1);
2424 my ($name, $address) = parse_email($email);
2425 if ($name eq '"[,\.]"') {
2426 $name = "";
2429 my @nw = split(/[^A-Za-zÀ-ÿ\'\,\.\+-]/, $name);
2439 $name = "$first $middle $last";
2441 $name = "$middle $last";
2445 if (substr($name, -1) =~ /[,\.]/) {
2446 $name = substr($name, 0, length($name) - 1);
2447 } elsif (substr($name, -2) =~ /[,\.]"/) {
2448 $name = substr($name, 0, length($name) - 2) . '"';
2451 if (substr($name, 0, 1) =~ /[,\.]/) {
2452 $name = substr($name, 1, length($name) - 1);
2453 } elsif (substr($name, 0, 2) =~ /"[,\.]/) {
2454 $name = '"' . substr($name, 2, length($name) - 2);
2457 my $fmt_email = format_email($name, $address, $email_usename);