[Mldonkey-commits] mldonkey distrib/ChangeLog src/networks/bittorr...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Branch:         
Changes by:     spiralvoice <address@hidden>    06/01/14 22:08:05

Modified files:
        distrib        : ChangeLog 
        src/networks/bittorrent: bTInteractive.ml 

Log message:
        patch #4716

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/distrib/ChangeLog.diff?tr1=1.672&tr2=1.673&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/src/networks/bittorrent/bTInteractive.ml.diff?tr1=1.76&tr2=1.77&r1=text&r2=text

Patches:
Index: mldonkey/distrib/ChangeLog
diff -u mldonkey/distrib/ChangeLog:1.672 mldonkey/distrib/ChangeLog:1.673
--- mldonkey/distrib/ChangeLog:1.672    Thu Jan 12 11:44:34 2006
+++ mldonkey/distrib/ChangeLog  Sat Jan 14 22:08:05 2006
@@ -14,6 +14,9 @@
 ChangeLog
 =========
 
+2006/01/14
+4716: BT: new command "tracker" to add trackers (bogeyman)
+
 2006/01/12
 4792: GeoIP: Add license (distrib/GeoIP_LICENSE.txt, runinfo)
       This product includes GeoLite data created by MaxMind,
Index: mldonkey/src/networks/bittorrent/bTInteractive.ml
diff -u mldonkey/src/networks/bittorrent/bTInteractive.ml:1.76 
mldonkey/src/networks/bittorrent/bTInteractive.ml:1.77
--- mldonkey/src/networks/bittorrent/bTInteractive.ml:1.76      Thu Jan 12 
08:57:58 2006
+++ mldonkey/src/networks/bittorrent/bTInteractive.ml   Sat Jan 14 22:08:05 2006
@@ -931,6 +931,52 @@
        _s ""
     ), _s " :\t\t\t\tstops all bittorrent downloads, use this if you want to 
make sure that the stop signal actualy gets to the tracker\n\t\t\t\twhen 
shuting mlnet down, but you have to wait till the stops get to the tracker and 
not wait too long,\n\t\t\t\tso mldonkey reconnects to the tracker :)";
 
+    "tracker", "Network/Bittorrent", Arg_multiple (fun args o ->
+        try
+          let num = ref "" in
+          let urls = ref [] in
+          (match args with
+          | nums :: [] -> raise Not_found
+          | nums :: rest -> num := nums; urls := rest
+          | _ -> raise Not_found);
+
+          let num = int_of_string !num in
+          Hashtbl.iter (fun _ file ->
+              if file_num file = num then begin
+                  if !verbose then
+                    lprintf_nl () "adding trackers for file %i" num;
+                  set_trackers file !urls;
+                  raise Exit
+                end
+          ) files_by_uid;
+         let buf = o.conn_buf in
+          if o.conn_output = HTML then
+            html_mods_table_one_row buf "serversTable" "servers" [
+              ("", "srh", "file not found"); ]
+          else
+            Printf.bprintf buf "file not found";
+          _s ""
+        with
+        | Exit -> 
+            let buf = o.conn_buf in
+            if o.conn_output = HTML then
+              html_mods_table_one_row buf "serversTable" "servers" [
+                ("", "srh", "tracker added"); ]
+            else
+              Printf.bprintf buf "tracker added";
+            _s ""
+        | _ ->
+            if !verbose then
+              lprintf_nl () "Not enough or wrong parameters.";
+            let buf = o.conn_buf in
+            if o.conn_output = HTML then
+              html_mods_table_one_row buf "serversTable" "servers" [
+                ("", "srh", "Not enough or wrong parameters."); ]
+            else
+              Printf.bprintf buf "Not enough or wrong parameters.";
+            _s ""        
+    ), " <num> <url> <url>... :\t\t\tadd urls as trackers for num.";
+
 (* TODO : add some code from make_torrent
     "print_torrent", Arg_one (fun filename o ->