Lines Matching refs:host
480 local($method,$user,*host,*fall_table,*fellback) = @_;
492 print "U: $user H: $host\n";
495 $us = "$user *** $host";
510 print "Oldhost($host, $us) = " if $debug;
511 $oldhost = $host;
550 $host = $oldhost;
771 local($host,$domain_host,$u) = @_;
775 $host =~ s/\.$//;
780 # domain host isn't, keep $host whatever it is
782 print "domainify($host,$domain_host) = $host\n" if $debug;
783 return $host;
813 $long = "$host $domain_host";
818 print "condensed fallback $host $domain_host -> $long\n" if $debug;
825 print "FALLBACK $host.$fh = 1\n" if $debug > 7;
826 $fallback{"$host.$fh"} = 1;
830 $fallback{"$host.$domain_host"} = 2;
833 $fallback{"$host$domain"} = 6
836 if ($host =~ /\./) {
841 print "domainify($host,$domain_host) = $host\n" if $debug;
842 delete $fallback{$host};
843 …$domainify_fallback{"$u *** $host"} = join(' ',sort {$fallback{$b} <=> $fallback{$a};} keys %fallb…
844 return $host;
849 $newhost = "$host$domain";
852 print "domainify($host,$domain_host) = $newhost\n" if $debug;
877 local($host,$addr,$name,$level) = @_;
878 if ($host) {
879 $host = &trhost($host);
881 if (($debug > 3) || (defined $giveup{$host})) {
882 unshift(@hosts,$host) unless $users{$host};
884 push(@hosts,$host) unless $users{$host};
886 $users{$host} .= " $addr";
887 $names{"$addr *** $host"} = $name;
888 $level{"$addr *** $host"} = $level + 1;
889 print "expn($host,$addr,$name)\n" if $debug;
917 local($host) = @_;
918 local($trhost) = $host;
921 $host = $trhost{$trhost};
923 $trhost{$trhost} = $host;
1092 print "looking for mxbacktrace{$addr *** $host}\n"
1094 while (defined $mxbacktrace{"$addr *** $host"}) {
1095 print "Unrolling MX expansion: \@$host:$addr -> "
1097 $host = $mxbacktrace{"$addr *** $host"};
1098 print "\@$host:$addr\n"
1103 $addr = "\@$host:$addr"
1104 if ($host =~ /\./);
1111 local($addr,$host,$name,$error) = @_;
1121 if (defined $create_host_backtrack{"$addr *** $host"}) {
1122 while (defined $create_host_backtrack{"$addr *** $host"}) {
1123 print "Un&domainifying($host) = " if $debug;
1124 $host = $create_host_backtrack{"$addr *** $host"};
1125 print "$host\n" if $debug;
1127 $error = "$host: could not locate";
1134 print STDERR "\@$host:$addr ($name) Non-existent domain\n";
1141 $0 = "$av0 - final parsing of \@$host:$addr";
1142 ($he = $host) =~ s/(\W)/\\$1/g;
1145 $addr = "$addr@$host";
1160 if ($host =~ /^([^\.]+)(\..+)$/) {
1178 $addr = "${addr}[\@$host]"
1179 if ($host =~ /\./);