amd/scripts/expn.in

294 				($newhost, $newaddr, $newname) =  &parse($addr,$server,$oldname, $#expansion == 0);
295 				print "($newhost, $newaddr, $newname) = &parse($addr, $server, $oldname)\n" if $debug;
299 						push(@isValid, &validAddr($newaddr));
300 						push(@toFinal,$newaddr,$server,$newname);
302 						&verbose(&final($newaddr,$server,$newname));
305 					$newmxhost = &mx($newhost,$newaddr);
308 					$0 = "$av0 - parsing $newaddr [@$newmxhost]";
318 							push(@isValid, &validAddr($newaddr));
319 							push(@toFinal,$newaddr,$newmxhost,$newname);
321 							&verbose(&final($newaddr,$newmxhost,$newname));
326 							push(@isValid, &validAddr($newaddr));
327 							push(@toExpn,$newmxhost,$newaddr,$newname,$level{"$u *** $server"});
329 							&verbose(&expn($newmxhost,$newaddr,$newname,$level{"$u *** $server"}));
651 	local($newhost, $newaddr, $newname, $um) =  &parse2($oldaddr,$server,$oldname,$one_to_one);
652 	if ($newaddr =~ m,^["/],) {
656 	return ($newhost, $newaddr, $newname);
660 # given a response from a SMTP server ($newaddr), the
666 	local($newaddr,$context_host,$old_name,$parsing_args) = @_;
682 	if ($newaddr =~ /^\<(.*)\>$/) {
684 		($newaddr) = &trim($1);
685 		print "na = $newaddr\n" if $debug;
687 	if ($newaddr =~ /^([^\<\>]*)\<([^\<\>]*)\>([^\<\>]*)$/) {
690 		($newaddr) = &trim($2);
692 		print "na = $newaddr\n" if $debug;
694 	if ($newaddr =~ /^([^\(\)]*)\(([^\(\)]*)\)([^\(\)]*)$/) {
703 			print STDERR "Could not parse $newaddr\n" if $vw;
704 			return(undef,$newaddr,&firstname(@names));
706 		$newaddr = $f if $f;
707 		$newaddr = $l if $l;
708 		print "newaddr now = $newaddr\n" if $debug;
717 	$unmangle = $newaddr;
718 	if ($newaddr =~ /^\@($urx)\:(.+)$/) {
723 	if ($newaddr =~ /^(.+)\@($urx)$/) {
725 		return (&domainify($2,$context_host,$newaddr),$newaddr,&firstname(@names),$unmangle);
728 		if ($newaddr =~ /^($urx)\!(.+)$/) {
729 			return (&domainify($1,$context_host,$newaddr),$newaddr,&firstname(@names),$unmangle);
731 		if ($newaddr =~ /^($urx)$/) {
732 			return ($context_host,$newaddr,&firstname(@names),$unmangle);
734 		print STDERR "Could not parse $newaddr\n";
737 	return(undef,$newaddr,&firstname(@names),$unmangle);