amd/scripts/expn.1

295 				($newhost, $newaddr, $newname) =  &parse($addr,$server,$oldname, $#expansion == 0);
296 				print "($newhost, $newaddr, $newname) = &parse($addr, $server, $oldname)\n" if $debug;
300 						push(@isValid, &validAddr($newaddr));
301 						push(@toFinal,$newaddr,$server,$newname);
303 						&verbose(&final($newaddr,$server,$newname));
306 					$newmxhost = &mx($newhost,$newaddr);
309 					$0 = "$av0 - parsing $newaddr [@$newmxhost]";
319 							push(@isValid, &validAddr($newaddr));
320 							push(@toFinal,$newaddr,$newmxhost,$newname);
322 							&verbose(&final($newaddr,$newmxhost,$newname));
327 							push(@isValid, &validAddr($newaddr));
328 							push(@toExpn,$newmxhost,$newaddr,$newname,$level{"$u *** $server"});
330 							&verbose(&expn($newmxhost,$newaddr,$newname,$level{"$u *** $server"}));
652 	local($newhost, $newaddr, $newname, $um) =  &parse2($oldaddr,$server,$oldname,$one_to_one);
653 	if ($newaddr =~ m,^["/],) {
657 	return ($newhost, $newaddr, $newname);
661 # given a response from a SMTP server ($newaddr), the
667 	local($newaddr,$context_host,$old_name,$parsing_args) = @_;
683 	if ($newaddr =~ /^\<(.*)\>$/) {
685 		($newaddr) = &trim($1);
686 		print "na = $newaddr\n" if $debug;
688 	if ($newaddr =~ /^([^\<\>]*)\<([^\<\>]*)\>([^\<\>]*)$/) {
691 		($newaddr) = &trim($2);
693 		print "na = $newaddr\n" if $debug;
695 	if ($newaddr =~ /^([^\(\)]*)\(([^\(\)]*)\)([^\(\)]*)$/) {
704 			print STDERR "Could not parse $newaddr\n" if $vw;
705 			return(undef,$newaddr,&firstname(@names));
707 		$newaddr = $f if $f;
708 		$newaddr = $l if $l;
709 		print "newaddr now = $newaddr\n" if $debug;
718 	$unmangle = $newaddr;
719 	if ($newaddr =~ /^\@($urx)\:(.+)$/) {
724 	if ($newaddr =~ /^(.+)\@($urx)$/) {
726 		return (&domainify($2,$context_host,$newaddr),$newaddr,&firstname(@names),$unmangle);
729 		if ($newaddr =~ /^($urx)\!(.+)$/) {
730 			return (&domainify($1,$context_host,$newaddr),$newaddr,&firstname(@names),$unmangle);
732 		if ($newaddr =~ /^($urx)$/) {
733 			return ($context_host,$newaddr,&firstname(@names),$unmangle);
735 		print STDERR "Could not parse $newaddr\n";
738 	return(undef,$newaddr,&firstname(@names),$unmangle);