amd/scripts/expn.1

89 # $mxbacktrace{"$users[0] *** $server"} : record of mx expansion
90 # $mx_secondary{$server} : other mx relays at the same priority
164 		&giveup('mx domainify',$giveup{$server});
168 	# do we already have an mx record for this host?
171 	# look it up, or try for an mx.
181 	# get a connection, or look for an mx
195 			&giveup('mx',"$server: Could not connect: $emsg");
306 					$newmxhost = &mx($newhost,$newaddr);
307 					print "$newmxhost = &mx($newhost)\n"
450 			next if &try_fallback('mx',$u,*server,
506 	} elsif (($method eq 'mx') && (defined $mxbacktrace{$us}) && (defined $mx_secondary{$mxbacktrace{$us}})) {
520 		if ($method eq 'mx') {
530 			$mx{&trhost($oldhost)} = $newhost;
927 # re-queue users if an mx record dictates a redirect
934 	$nserver = &mx($server);
937 		$0 = "$av0 - mx redirect $server -> $nserver\n";
957 # follow mx records, return a hostname
960 sub mx
965 		if (defined $mx{&trhost($h)} && $h ne $mx{&trhost($h)}) {
966 			$0 = "$av0 - mx expand $h";
967 			$h = $mx{&trhost($h)};
990 # look up mx records with the name server.
1006 	if ((defined $mx{$server}) || (! $have_nslookup)) {
1008 		&giveup('mx domainify',$giveup);
1054 		&giveup('mx domainify',"$server: Could not resolve address");
1069 		&giveup('mx domainify',"$nserver: could not resolve address");
1074 	$mx{&trhost($server)} = $nserver;
1078 		&giveup('mx domainify',"$nserver: only one level of mx redirect allowed");
1084 # if mx expansion did not help to resolve an address