Cross Reference: /scripts/get

Lines Matching refs:name
679 	    my ($name, $address) = parse_email($email);
681 	    my $tmp_email = format_email($name, $address, $email_usename);
743     --n => include name 'Full Name <addr\@domain.tld>'
752   --subsystem => print subsystem name if any
784       other automated tools that expect only ["name"] <email address>
834     my $name = "";
838 	$name = $1;
846     $name =~ s/^\s+|\s+$//g;
847     $name =~ s/^\"|\"$//g;
850     if ($name =~ /[^\w \-]/i) {  	 ##has "must quote" chars
851 	$name =~ s/(?<!\\)"/\\"/g;       ##escape quotes
852 	$name = "\"$name\"";
855     return ($name, $address);
859     my ($name, $address, $usename) = @_;
863     $name =~ s/^\s+|\s+$//g;
864     $name =~ s/^\"|\"$//g;
867     if ($name =~ /[^\w \-]/i) {          ##has "must quote" chars
868 	$name =~ s/(?<!\\)"/\\"/g;       ##escape quotes
869 	$name = "\"$name\"";
873 	if ("$name" eq "") {
876 	    $formatted_email = "$name <$address>";
1041 		my ($name, $address) = parse_email($pvalue);
1042 		if ($name eq "") {
1047 				$name = $2;
1048 				$pvalue = format_email($name, $address, $email_usename);
1069     my ($name, $address) = @_;
1071     return 1 if (($name eq "") && ($address eq ""));
1072     return 1 if (($name ne "") && exists($email_hash_name{lc($name)}));
1081     my ($name, $address) = parse_email($line);
1088 	push(@email_to, [format_email($name, $address, $email_usename), $role]);
1089     } elsif (!email_inuse($name, $address)) {
1090 	push(@email_to, [format_email($name, $address, $email_usename), $role]);
1091 	$email_hash_name{lc($name)}++ if ($name ne "");
1120     my ($name, $address) = parse_email($line);
1121     my $email = format_email($name, $address, $email_usename);
1126 	    if (($name eq $entry_name || $address eq $entry_address)
1176     my ($name, $address) = parse_email($line);
1177     my $email = format_email($name, $address, 1);
1178     my $real_name = $name;
1216 	my ($name, $address) = parse_email($email);
1217 	if (exists $address_map{$name}) {
1218 	    $address = $address_map{$name};
1219 	    $email = format_email($name, $address, 1);
1221 	    $address_map{$name} = $address;
1310 	    my ($name, $address) = parse_email($author);
1311 	    $author = format_email($name, $address, 1);
1706     my ($name, $address) = parse_email($email);
1707     $email = format_email($name, $address, 1);
1712     ($name, $address) = parse_email($email);
1714     if ($name ne "" && $deduplicate_name_hash{lc($name)}) {
1715 	$name = $deduplicate_name_hash{lc($name)}->[0];
1716 	$address = $deduplicate_name_hash{lc($name)}->[1];
1719 	$name = $deduplicate_address_hash{lc($address)}->[0];
1724 	$deduplicate_name_hash{lc($name)} = [ $name, $address ];
1725 	$deduplicate_address_hash{lc($address)} = [ $name, $address ];
1727     $email = format_email($name, $address, 1);
2004 	my ($name, $address) = parse_email($email);
2005 	if ($name eq '"[,\.]"') {
2006 	    $name = "";
2009 	my @nw = split(/[^A-Za-zÀ-ÿ\'\,\.\+-]/, $name);
2019 		$name = "$first $middle $last";
2021 		$name = "$middle $last";
2025 	if (substr($name, -1) =~ /[,\.]/) {
2026 	    $name = substr($name, 0, length($name) - 1);
2027 	} elsif (substr($name, -2) =~ /[,\.]"/) {
2028 	    $name = substr($name, 0, length($name) - 2) . '"';
2031 	if (substr($name, 0, 1) =~ /[,\.]/) {
2032 	    $name = substr($name, 1, length($name) - 1);
2033 	} elsif (substr($name, 0, 2) =~ /"[,\.]/) {
2034 	    $name = '"' . substr($name, 2, length($name) - 2);
2037 	my $fmt_email = format_email($name, $address, $email_usename);