Lines Matching refs:host
22 # disconnect & reconnect after 25 commands to the same sendmail 8.8.* host
112 $0 = "$av0 - lookup host FQDN and IP addr";
116 $usage = "Usage: $av0 [-1avwd] user[\@host] [user2[host2] ...]";
160 # do we already have an mx record for this host?
434 # there is another host to redirect to!
463 # %fallback{"$user *** $host"} tracks what is able to fallback
464 # %fellback{"$user *** $host"} tracks what has fallen back
470 local($method,$user,*host,*fall_table,*fellback) = @_;
482 print "U: $user H: $host\n";
485 $us = "$user *** $host";
500 print "Oldhost($host, $us) = " if $debug;
501 $oldhost = $host;
540 $host = $oldhost;
580 # Ranking of inputs: best: user@host.domain, okay: user
652 # current host ($server), the old "name" and a flag that
755 # using the host part of an address, and the server name, add the
761 local($host,$domain_host,$u) = @_;
765 $host =~ s/\.$//;
770 # domain host isn't, keep $host whatever it is
772 print "domainify($host,$domain_host) = $host\n" if $debug;
773 return $host;
781 # host server "right answer"
789 # the server and tack it onto the host.
792 # the host and for each possible repeated element, eliminate
803 $long = "$host $domain_host";
808 print "condensed fallback $host $domain_host -> $long\n" if $debug;
815 print "FALLBACK $host.$fh = 1\n" if $debug > 7;
816 $fallback{"$host.$fh"} = 1;
820 $fallback{"$host.$domain_host"} = 2;
823 $fallback{"$host$domain"} = 6
826 if ($host =~ /\./) {
831 print "domainify($host,$domain_host) = $host\n" if $debug;
832 delete $fallback{$host};
833 $domainify_fallback{"$u *** $host"} = join(' ',sort {$fallback{$b} <=> $fallback{$a};} keys %fallback) if %fallback;
834 return $host;
839 $newhost = "$host$domain";
842 print "domainify($host,$domain_host) = $newhost\n" if $debug;
867 local($host,$addr,$name,$level) = @_;
868 if ($host) {
869 $host = &trhost($host);
871 if (($debug > 3) || (defined $giveup{$host})) {
872 unshift(@hosts,$host) unless $users{$host};
874 push(@hosts,$host) unless $users{$host};
876 $users{$host} .= " $addr";
877 $names{"$addr *** $host"} = $name;
878 $level{"$addr *** $host"} = $level + 1;
879 print "expn($host,$addr,$name)\n" if $debug;
903 # return case-adjusted name for a host (for comparison purposes)
907 local($host) = @_;
908 local($trhost) = $host;
911 $host = $trhost{$trhost};
913 $trhost{$trhost} = $host;
982 # optionally give up on this host.
1080 local(*host,*addr) = @_;
1082 print "looking for mxbacktrace{$addr *** $host}\n"
1084 while (defined $mxbacktrace{"$addr *** $host"}) {
1085 print "Unrolling MX expnasion: \@$host:$addr -> "
1087 $host = $mxbacktrace{"$addr *** $host"};
1088 print "\@$host:$addr\n"
1093 $addr = "\@$host:$addr"
1094 if ($host =~ /\./);
1101 local($addr,$host,$name,$error) = @_;
1111 if (defined $create_host_backtrack{"$addr *** $host"}) {
1112 while (defined $create_host_backtrack{"$addr *** $host"}) {
1113 print "Un&domainifying($host) = " if $debug;
1114 $host = $create_host_backtrack{"$addr *** $host"};
1115 print "$host\n" if $debug;
1117 $error = "$host: could not locate";
1121 # bad host names.
1124 print STDERR "\@$host:$addr ($name) Non-existent domain\n";
1131 $0 = "$av0 - final parsing of \@$host:$addr";
1132 ($he = $host) =~ s/(\W)/\\$1/g;
1134 # addr does not contain any host
1135 $addr = "$addr@$host";
1137 # if host part really something else, use the something
1148 # addr does not contain full host
1150 if ($host =~ /^([^\.]+)(\..+)$/) {
1151 # host part has a . in it - foo.bar
1156 # host part -- tack on a
1160 &mxunroll(*host,*addr)
1164 &mxunroll(*host,*addr)
1168 $addr = "${addr}[\@$host]"
1169 if ($host =~ /\./);