| 1 |
--- smeserver-affa-0.10.0/root/sbin/e-smith/affa.DNS_Timeout 2008-03-10 18:41:52.000000000 +0100 |
| 2 |
+++ smeserver-affa-0.10.0/root/sbin/e-smith/affa 2008-03-11 09:55:26.000000000 +0100 |
| 3 |
@@ -635,15 +635,23 @@ |
| 4 |
|
| 5 |
# check for remoteHostName==localhost using DNS |
| 6 |
my $res = Net::DNS::Resolver->new; |
| 7 |
- my $query = $res->search($job{'remoteHostName'}); |
| 8 |
- if ($query) |
| 9 |
+ $res->udp_timeout(10); |
| 10 |
+ if( $job{'remoteHostName'} ne 'localhost' ) |
| 11 |
{ |
| 12 |
- foreach my $rr ($query->answer) |
| 13 |
+ my $query = $res->search($job{'remoteHostName'}); |
| 14 |
+ if ($query) |
| 15 |
{ |
| 16 |
- next unless $rr->type eq "A"; |
| 17 |
- $job{'remoteHostName'}='localhost' if( $rr->address eq $LocalIP ); |
| 18 |
- } |
| 19 |
- } |
| 20 |
+ foreach my $rr ($query->answer) |
| 21 |
+ { |
| 22 |
+ next unless $rr->type eq "A"; |
| 23 |
+ $job{'remoteHostName'}='localhost' if( $rr->address eq $LocalIP ); |
| 24 |
+ } |
| 25 |
+ } |
| 26 |
+ else |
| 27 |
+ { |
| 28 |
+ lg('Warning: DNS resolver timeout'); |
| 29 |
+ } |
| 30 |
+ } |
| 31 |
# check for remoteHostName==localhost using e-smith DB |
| 32 |
if( $job{'remoteHostName'} =~ /^(127.0.0.1|$LocalIP|$SystemName|$SystemName\.$DomainName)$/ ) |
| 33 |
{ |
Parent Directory
| 
Revision Log
| 
Revision Graph
