sendmail/contrib/expn.pl

84 # @users = $users{@hosts[0]} : addresses to expand at this server
85 # $u = $users[0] : the current address being expanded
86 # $names{"$users[0] *** $server"} : the 'name' associated with the address
87 # $mxbacktrace{"$users[0] *** $server"} : record of mx expansion
89 # $domainify_fallback{"$users[0] *** $server"} : alternative names to try
91 # $temporary_redirect{"$users[0] *** $server"} : when trying alternates,
150 	@users = split(' ',$users{$server});
151 	delete $users{$server};
161 	next HOST if &mxredirect($server,*users);
169 		&mxlookup(1,$server,"$server: could not resolve name",*users);
184 		unless (&mxlookup(0,$server,"$server: could not connect: $!",*users)) {
205 				if (&mxlookup(0,$server,"$server: did not respond with a 220 greeting",*users)) {
215 			unless (&mxlookup(0,$server,"$server: did not respond with SMTP codes",*users)) {
235 	# try the users, one by one
237 	while(@users) {
238 		$u = shift(@users);
331 			# mixed with valid users?
422 	push(@users,$user) if $user;
438 	for $u (@users) {
451 	@users = @remaining_users;
452 	for $u (@users) {
572 # lists and vrfy against users.  It doesn't appear to be
872 			unshift(@hosts,$host) unless $users{$host};
874 			push(@hosts,$host) unless $users{$host};
876 		$users{$host} .= " $addr";
917 # re-queue users if an mx record dictates a redirect
921 	local($server,*users) = @_;
928 		for $u (@users) {
938 		@users = @still_there;
939 		if (! @users) {
985 	local($lastchance,$server,$giveup,*users) = @_;
994 	return 1 if &mxredirect($server,*users);
1065 	# redeploy the users
1066 	unless (&mxredirect($server,*users)) {