sendmail/contrib/expn.pl

285 				($newhost, $newaddr, $newname) =  &parse($addr,$server,$oldname, $#expansion == 0);
286 				print "($newhost, $newaddr, $newname) = &parse($addr, $server, $oldname)\n" if $debug;
290 						push(@isValid, &validAddr($newaddr));
291 						push(@toFinal,$newaddr,$server,$newname);
293 						&verbose(&final($newaddr,$server,$newname));
296 					$newmxhost = &mx($newhost,$newaddr);
299 					$0 = "$av0 - parsing $newaddr [@$newmxhost]";
309 							push(@isValid, &validAddr($newaddr));
310 							push(@toFinal,$newaddr,$newmxhost,$newname);
312 							&verbose(&final($newaddr,$newmxhost,$newname));
317 							push(@isValid, &validAddr($newaddr));
318 							push(@toExpn,$newmxhost,$newaddr,$newname,$level{"$u *** $server"});
320 							&verbose(&expn($newmxhost,$newaddr,$newname,$level{"$u *** $server"}));
642 	local($newhost, $newaddr, $newname, $um) =  &parse2($oldaddr,$server,$oldname,$one_to_one);
643 	if ($newaddr =~ m,^["/],) {
647 	return ($newhost, $newaddr, $newname);
651 # given a response from a SMTP server ($newaddr), the
657 	local($newaddr,$context_host,$old_name,$parsing_args) = @_;
673 	if ($newaddr =~ /^\<(.*)\>$/) {
675 		($newaddr) = &trim($1);
676 		print "na = $newaddr\n" if $debug;
678 	if ($newaddr =~ /^([^\<\>]*)\<([^\<\>]*)\>([^\<\>]*)$/) {
681 		($newaddr) = &trim($2);
683 		print "na = $newaddr\n" if $debug;
685 	if ($newaddr =~ /^([^\(\)]*)\(([^\(\)]*)\)([^\(\)]*)$/) {
694 			print STDERR "Could not parse $newaddr\n" if $vw;
695 			return(undef,$newaddr,&firstname(@names));
697 		$newaddr = $f if $f;
698 		$newaddr = $l if $l;
699 		print "newaddr now = $newaddr\n" if $debug;
708 	$unmangle = $newaddr;
709 	if ($newaddr =~ /^\@($urx)\:(.+)$/) {
714 	if ($newaddr =~ /^(.+)\@($urx)$/) {
716 		return (&domainify($2,$context_host,$newaddr),$newaddr,&firstname(@names),$unmangle);
719 		if ($newaddr =~ /^($urx)\!(.+)$/) {
720 			return (&domainify($1,$context_host,$newaddr),$newaddr,&firstname(@names),$unmangle);
722 		if ($newaddr =~ /^($urx)$/) {
723 			return ($context_host,$newaddr,&firstname(@names),$unmangle);
725 		print STDERR "Could not parse $newaddr\n";
728 	return(undef,$newaddr,&firstname(@names),$unmangle);