Lines Matching refs:addr
75 # string "$addr *** $server" where $addr is the address to be
112 $0 = "$av0 - lookup host FQDN and IP addr";
284 ($done,$addr) = ($1,$2);
285 ($newhost, $newaddr, $newname) = &parse($addr,$server,$oldname, $#expansion == 0);
286 print "($newhost, $newaddr, $newname) = &parse($addr, $server, $oldname)\n" if $debug;
546 local($addr) = @_;
547 $res = &do_validAddr($addr);
548 print "validAddr($addr) = $res\n" if $debug;
553 local($addr) = @_;
557 return 0 if ($addr =~ /^\\/);
559 return 1 if ($addr =~ /.\@$urx$/);
561 return 1 if ($addr =~ /^\@$urx\:./);
563 return 1 if ($addr =~ /^$urx!./);
565 return 1 if ($addr =~ /^$urx$/);
567 print "validAddr($addr) = ???\n" if $debug;
867 local($host,$addr,$name,$level) = @_;
876 $users{$host} .= " $addr";
877 $names{"$addr *** $host"} = $name;
878 $level{"$addr *** $host"} = $level + 1;
879 print "expn($host,$addr,$name)\n" if $debug;
880 return "\t$addr\n";
882 return &final($addr,'NONE',$name);
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"
1101 local($addr,$host,$name,$error) = @_;
1111 if (defined $create_host_backtrack{"$addr *** $host"}) {
1112 while (defined $create_host_backtrack{"$addr *** $host"}) {
1114 $host = $create_host_backtrack{"$addr *** $host"};
1124 print STDERR "\@$host:$addr ($name) Non-existent domain\n";
1131 $0 = "$av0 - final parsing of \@$host:$addr";
1133 if ($addr !~ /@/) {
1134 # addr does not contain any host
1135 $addr = "$addr@$host";
1136 } elsif ($addr !~ /$he/i) {
1139 if ($addr =~ m/(.*)\@([^\@]+)$/) {
1142 if (defined $temporary_redirect{"$addr *** $ah"}) {
1143 $addr = "$au\@".$temporary_redirect{"$addr *** $ah"};
1144 print "Rewrite! to $addr\n" if $debug;
1148 # addr does not contain full host
1153 if ($addr =~ /\@([^\.\@]+)$/ && ($1 eq $hb)) {
1154 # addr part has not .
1158 $addr .= $hr;
1160 &mxunroll(*host,*addr)
1164 &mxunroll(*host,*addr)
1168 $addr = "${addr}[\@$host]"
1176 push(@final,"$name<$addr>");
1178 push(@final,"$name<$addr>$error");
1180 "\t$name<$addr>$error\n";