Lines Matching refs:server
156 $server = shift(@hosts);
157 @users = split(' ',$users{$server});
158 delete $users{$server};
161 $0 = "$av0 - looking up $server";
162 if ($giveup{$server}) {
163 &giveup('mx domainify',$giveup{$server});
168 next HOST if &mxredirect($server,*users);
171 $0 = "$av0 - gethostbyname($server)";
173 ($name,$aliases,$type,$len,$thataddr) = gethostbyname($server);
176 &mxlookup(1,$server,"$server: could not resolve name",*users);
181 $0 = "$av0 - socket to $server";
185 $0 = "$av0 - bind to $server";
188 $0 = "$av0 - connect to $server";
189 print "debug = $debug server = $server\n" if $debug > 8;
190 if (! connect(S, $that) || ($debug == 10 && $server =~ /relay\d.UU.NET$/i)) {
191 $0 = "$av0 - $server: could not connect: $!\n";
193 unless (&mxlookup(0,$server,"$server: could not connect: $!",*users)) {
194 &giveup('mx',"$server: Could not connect: $emsg");
201 $0 = "$av0 - talking to $server";
202 &alarm("greeting with $server",'');
208 $0 = "$av0 - bad numeric response from $server";
209 &alarm("giving up after bad response from $server",'');
212 print STDERR "$server: NOT 220 greeting: $_"
214 if (&mxlookup(0,$server,"$server: did not respond with a 220 greeting",*users)) {
221 $0 = "$av0 - bad response from $server";
222 print STDERR "$server: NOT 220 greeting: $_"
224 unless (&mxlookup(0,$server,"$server: did not respond with SMTP codes",*users)) {
225 &giveup('',"$server: did not talk SMTP");
230 &alarm("greeting with $server",'');
235 $0 = "$av0 - sending helo to $server";
236 &alarm("sending helo to $server","");
248 $0 = "$av0 - expanding $u [\@$server]";
251 $oldname = $names{"$u *** $server"};
253 print &compact($u,$server)." ->\n" if ($verbose && ! $valid);
270 (@foo) = &expn_vrfy($u,$server);
279 $0 = "$av0 - parsing $server: $s";
294 ($newhost, $newaddr, $newname) = &parse($addr,$server,$oldname, $#expansion == 0);
295 print "($newhost, $newaddr, $newname) = &parse($addr, $server, $oldname)\n" if $debug;
300 push(@toFinal,$newaddr,$server,$newname);
302 &verbose(&final($newaddr,$server,$newname));
309 … print "levels = $levels, level{$u *** $server} = ".$level{"$u *** $server"}."\n" if ($debug > 1);
316 … if (&trhost($newmxhost) eq &trhost($server) || ($levels && $level{"$u *** $server"} >= $levels)) {
327 push(@toExpn,$newmxhost,$newaddr,$newname,$level{"$u *** $server"});
329 &verbose(&expn($newmxhost,$newaddr,$newname,$level{"$u *** $server"}));
343 print STDERR "\@$server:$u ($oldname) USER UNKNOWN\n";
345 &verbose(&final($u,$server,$oldname,"USER UNKNOWN"));
353 print STDERR "\@$server:$u ($oldname) USER AMBIGUOUS\n";
355 &verbose(&final($u,$server,$oldname,"USER AMBIGUOUS"));
363 print STDERR "\@$server:$u ($oldname) REFUSED TO VRFY\n";
365 &verbose(&final($u,$server,$oldname,"REFUSED TO VRFY"));
370 &giveup('',"$server: did not grok '$s'",$u);
382 print &compact($u,$server)." ->\n" if $verbose;
390 …print "Tossing some valid to avoid invalid ".&compact($u,$server)."\n" if ($avgValid > 0.0 && ($vw…
391 print &compact($u,$server)." ->\n" if $verbose;
392 &verbose(&final($u,$server,$newname));
397 &alarm("sending 'quit' to $server",'');
398 $0 = "$av0 - sending 'quit' to $server";
427 $0 = "$av0 - giving up on $server: $reason";
435 unless ($giveup{$server}) {
436 $giveup{$server} = $reason;
449 next if &try_fallback('mx',$u,*server,
454 next if &try_fallback('domainify',$u,*server,
462 print &compact($u,$server)." ->\n" if ($verbose && $valid && $u);
463 &verbose(&final($u,$server,$names{"$u *** $server"},$reason));
594 local($u,$server) = @_;
599 if (($u =~ /(.+)@(.+)/) && (&trhost($2) eq &trhost($server))) {
606 &alarm("${c}'ing $try_u on $server",'',$u);
611 return "$server: lost connection";
614 return "$server: garbled reply to '$c $try_u'";
643 return "$server: expn/vrfy not implemented" unless @ret;
650 local($oldaddr,$server,$oldname,$one_to_one) = @_;
651 local($newhost, $newaddr, $newname, $um) = &parse2($oldaddr,$server,$oldname,$one_to_one);
661 # current host ($server), the old "name" and a flag that
739 # return $u (@$server) unless $u includes reference to $server
742 local($u, $server) = @_;
743 local($se) = $server;
746 $sp = " (\@$server)";
930 local($server,*users) = @_;
933 $nserver = &mx($server);
935 if (&trhost($nserver) ne &trhost($server)) {
936 $0 = "$av0 - mx redirect $server -> $nserver\n";
941 $mxbacktrace{"$u *** $nserver"} = $server;
942 print "mxbacktrace{$u *** $nserver} = $server\n"
944 &expn($nserver,$u,$names{"$u *** $server"});
994 local($lastchance,$server,$giveup,*users) = @_;
1003 return 1 if &mxredirect($server,*users);
1005 if ((defined $mx{$server}) || (! $have_nslookup)) {
1011 $0 = "$av0 - nslookup of $server";
1014 print T "$server\n";
1043 &giveup('domainify',"$server: Non-existent domain",undef,1);
1053 &giveup('mx domainify',"$server: Could not resolve address");
1059 $mx_secondary{$server} = $fallback{$cpref};
1071 print "MX($server) = $nserver\n" if $debug;
1072 print "$server -> $nserver\n" if $vw && !$debug;
1073 $mx{&trhost($server)} = $nserver;
1075 unless (&mxredirect($server,*users)) {