[Mldonkey-commits] Changes to mldonkey/src/networks/bittorrent/bTInteractive.ml

[mldonkey-commits]

Index: mldonkey/src/networks/bittorrent/bTInteractive.ml
diff -u mldonkey/src/networks/bittorrent/bTInteractive.ml:1.50 
mldonkey/src/networks/bittorrent/bTInteractive.ml:1.51
--- mldonkey/src/networks/bittorrent/bTInteractive.ml:1.50      Tue Aug  9 
10:52:02 2005
+++ mldonkey/src/networks/bittorrent/bTInteractive.ml   Mon Aug 15 20:28:50 2005
@@ -763,9 +763,14 @@
           fname :: [comm] -> filename := fname; comment := comm
         | [fname] -> filename := fname
         | _ -> raise Not_found);
-        let announce = Printf.sprintf "http://%s:%d/";
-          (Ip.to_string (CommonOptions.client_ip None))
-          !!BTTracker.tracker_port in
+        let announce = 
+          if !!BTTracker.default_tracker = "" then
+            Printf.sprintf "http://%s:%d/announce";
+              (Ip.to_string (CommonOptions.client_ip None))
+              !!BTTracker.tracker_port 
+          else
+            !!BTTracker.default_tracker
+        in
 
         let basename = Filename.basename !filename in
         let torrent = Filename.concat seeded_directory