[patch] files/mldonkey-2.8.1-fix_dns_test.patch

mldonkey-2.8.1-fix_dns_test.patch (text/plain), 1.21 KB, created by Christian Schlotter on 2006-11-01 01:18:07 UTC

diff -a -x Root -x Repository -x Tag -x Entries -x Entries.Log -x .svn -x '*.rej' -x '*.orig' -N -r -u ./src/daemon/driver/driverMain.ml ./src/daemon/driver/driverMain.ml
--- ./src/daemon/driver/driverMain.ml	2006-10-08 16:12:13.000000000 +0200
+++ ./src/daemon/driver/driverMain.ml	2006-10-24 23:56:54.000000000 +0200
@@ -340,15 +340,18 @@
       CommonGlobals.exit_properly 71
     end;
 
-  (
-    let hostname = "www.mldonkey.net" in
-    try
-      ignore(Ip.from_name hostname);
-      DriverInteractive.dns_works := true
-    with e ->
-        lprintf (_b "\nDNS resolution does not work! Looking up %s failed with %s.")
-           hostname (Printexc2.to_string e);
-	lprintf "
+  ( let resolve_name hostname =
+      try
+	ignore (Ip.from_name hostname);
+	true
+      with _ -> false
+    in
+    let hostnames =
+      ["www.mldonkey.org"; "mldonkey.sf.net"; "www.mldonkey.net"; "www.google.com"]
+    in
+    DriverInteractive.dns_works := List.exists resolve_name hostnames;
+
+    if not !DriverInteractive.dns_works then lprintf "
 The core therefore is unable to get eDonkey serverlists and loading
 .torrent files via dllink from websites is also impossible.
 If you are using MLDonkey in a chroot environment you should