Lines Matching refs:name

389     $file = $File::Find::name;
986 	    my ($name, $address) = parse_email($email);
988 	    my $tmp_email = format_email($name, $address, $email_usename);
1155     my $name = "";
1159 	$name = $1;
1167     $name =~ s/^\s+|\s+$//g;
1168     $name =~ s/^\"|\"$//g;
1171     if ($name =~ /[^\w \-]/i) {  	 ##has "must quote" chars
1172 	$name =~ s/(?<!\\)"/\\"/g;       ##escape quotes
1173 	$name = "\"$name\"";
1176     return ($name, $address);
1180     my ($name, $address, $usename) = @_;
1184     $name =~ s/^\s+|\s+$//g;
1185     $name =~ s/^\"|\"$//g;
1188     if ($name =~ /[^\w \-]/i) {          ##has "must quote" chars
1189 	$name =~ s/(?<!\\)"/\\"/g;       ##escape quotes
1190 	$name = "\"$name\"";
1194 	if ("$name" eq "") {
1197 	    $formatted_email = "$name <$address>";
1386     my ($name, $address) = @_;
1388     return 1 if (($name eq "") && ($address eq ""));
1389     return 1 if (($name ne "") && exists($email_hash_name{lc($name)}));
1398     my ($name, $address) = parse_email($line);
1405 	push(@email_to, [format_email($name, $address, $email_usename), $role]);
1406     } elsif (!email_inuse($name, $address)) {
1407 	push(@email_to, [format_email($name, $address, $email_usename), $role]);
1408 	$email_hash_name{lc($name)}++ if ($name ne "");
1437     my ($name, $address) = parse_email($line);
1438     my $email = format_email($name, $address, $email_usename);
1443 	    if (($name eq $entry_name || $address eq $entry_address)
1493     my ($name, $address) = parse_email($line);
1494     my $email = format_email($name, $address, 1);
1495     my $real_name = $name;
1533 	my ($name, $address) = parse_email($email);
1534 	if (exists $address_map{$name}) {
1535 	    $address = $address_map{$name};
1536 	    $email = format_email($name, $address, 1);
1538 	    $address_map{$name} = $address;
1638 	    my ($name, $address) = parse_email($author);
1639 	    $author = format_email($name, $address, 1);
2060     my ($name, $address) = parse_email($email);
2061     $email = format_email($name, $address, 1);
2066     ($name, $address) = parse_email($email);
2068     if ($name ne "" && $deduplicate_name_hash{lc($name)}) {
2069 	$name = $deduplicate_name_hash{lc($name)}->[0];
2070 	$address = $deduplicate_name_hash{lc($name)}->[1];
2073 	$name = $deduplicate_address_hash{lc($address)}->[0];
2078 	$deduplicate_name_hash{lc($name)} = [ $name, $address ];
2079 	$deduplicate_address_hash{lc($address)} = [ $name, $address ];
2081     $email = format_email($name, $address, 1);
2457 	my ($name, $address) = parse_email($email);
2458 	if ($name eq '"[,\.]"') {
2459 	    $name = "";
2462 	my @nw = split(/[^A-Za-zÀ-ÿ\'\,\.\+-]/, $name);
2472 		$name = "$first $middle $last";
2474 		$name = "$middle $last";
2478 	if (substr($name, -1) =~ /[,\.]/) {
2479 	    $name = substr($name, 0, length($name) - 1);
2480 	} elsif (substr($name, -2) =~ /[,\.]"/) {
2481 	    $name = substr($name, 0, length($name) - 2) . '"';
2484 	if (substr($name, 0, 1) =~ /[,\.]/) {
2485 	    $name = substr($name, 1, length($name) - 1);
2486 	} elsif (substr($name, 0, 2) =~ /"[,\.]/) {
2487 	    $name = '"' . substr($name, 2, length($name) - 2);
2490 	my $fmt_email = format_email($name, $address, $email_usename);