DNS check: Only use the IPv4 version.

diff --git a/config/cfgroot/general-functions.pl b/config/cfgroot/general-functions.pl
index 9c6d460e66a5974d71882c9d147a3a5402fbe713..b1b47abcb0e9985cbbbfff4004458c99df2618dc 100644 (file)
--- a/config/cfgroot/general-functions.pl
+++ b/config/cfgroot/general-functions.pl
@@ -858,7 +858,7 @@ sub FetchPublicIp {
         Net::SSLeay::set_proxy($peer,$peerport,$proxysettings{'UPSTREAM_USER'},$proxysettings{'UPSTREAM_PASSWORD'} );
     }
     my $user_agent = &MakeUserAgent();
-    my ($out, $response) = Net::SSLeay::get_http(  'checkip.dns.lightningwirelabs.com',
+    my ($out, $response) = Net::SSLeay::get_http(  'checkip4.dns.lightningwirelabs.com',
                                                    80,
                                                    "/",
                                                    Net::SSLeay::make_headers('User-Agent' => $user_agent )