Lines Matching refs:host
479 local($method,$user,*host,*fall_table,*fellback) = @_;
491 print "U: $user H: $host\n";
494 $us = "$user *** $host";
509 print "Oldhost($host, $us) = " if $debug;
510 $oldhost = $host;
549 $host = $oldhost;
770 local($host,$domain_host,$u) = @_;
774 $host =~ s/\.$//;
779 # domain host isn't, keep $host whatever it is
781 print "domainify($host,$domain_host) = $host\n" if $debug;
782 return $host;
812 $long = "$host $domain_host";
817 print "condensed fallback $host $domain_host -> $long\n" if $debug;
824 print "FALLBACK $host.$fh = 1\n" if $debug > 7;
825 $fallback{"$host.$fh"} = 1;
829 $fallback{"$host.$domain_host"} = 2;
832 $fallback{"$host$domain"} = 6
835 if ($host =~ /\./) {
840 print "domainify($host,$domain_host) = $host\n" if $debug;
841 delete $fallback{$host};
842 …$domainify_fallback{"$u *** $host"} = join(' ',sort {$fallback{$b} <=> $fallback{$a};} keys %fallb…
843 return $host;
848 $newhost = "$host$domain";
851 print "domainify($host,$domain_host) = $newhost\n" if $debug;
876 local($host,$addr,$name,$level) = @_;
877 if ($host) {
878 $host = &trhost($host);
880 if (($debug > 3) || (defined $giveup{$host})) {
881 unshift(@hosts,$host) unless $users{$host};
883 push(@hosts,$host) unless $users{$host};
885 $users{$host} .= " $addr";
886 $names{"$addr *** $host"} = $name;
887 $level{"$addr *** $host"} = $level + 1;
888 print "expn($host,$addr,$name)\n" if $debug;
916 local($host) = @_;
917 local($trhost) = $host;
920 $host = $trhost{$trhost};
922 $trhost{$trhost} = $host;
1091 print "looking for mxbacktrace{$addr *** $host}\n"
1093 while (defined $mxbacktrace{"$addr *** $host"}) {
1094 print "Unrolling MX expansion: \@$host:$addr -> "
1096 $host = $mxbacktrace{"$addr *** $host"};
1097 print "\@$host:$addr\n"
1102 $addr = "\@$host:$addr"
1103 if ($host =~ /\./);
1110 local($addr,$host,$name,$error) = @_;
1120 if (defined $create_host_backtrack{"$addr *** $host"}) {
1121 while (defined $create_host_backtrack{"$addr *** $host"}) {
1122 print "Un&domainifying($host) = " if $debug;
1123 $host = $create_host_backtrack{"$addr *** $host"};
1124 print "$host\n" if $debug;
1126 $error = "$host: could not locate";
1133 print STDERR "\@$host:$addr ($name) Non-existent domain\n";
1140 $0 = "$av0 - final parsing of \@$host:$addr";
1141 ($he = $host) =~ s/(\W)/\\$1/g;
1144 $addr = "$addr@$host";
1159 if ($host =~ /^([^\.]+)(\..+)$/) {
1177 $addr = "${addr}[\@$host]"
1178 if ($host =~ /\./);