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

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Branch:         
Changes by:     spiralvoice <address@hidden>    06/03/09 12:56:59

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

Log message:
        patch #4962

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/distrib/ChangeLog.diff?tr1=1.765&tr2=1.766&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/src/networks/bittorrent/bTInteractive.ml.diff?tr1=1.85&tr2=1.86&r1=text&r2=text

Patches:
Index: mldonkey/distrib/ChangeLog
diff -u mldonkey/distrib/ChangeLog:1.765 mldonkey/distrib/ChangeLog:1.766
--- mldonkey/distrib/ChangeLog:1.765    Wed Mar  8 20:58:22 2006
+++ mldonkey/distrib/ChangeLog  Thu Mar  9 12:56:59 2006
@@ -14,6 +14,9 @@
 ChangeLog
 =========
 
+2006/03/09
+4962: BT: New command "startbt" to force the start of a torrent download (jave)
+
 2006/03/08
 4963: Re-apply $DEVFLAGS to Makefile.in (pango)
 4961: EDK: New default URL for server list download
Index: mldonkey/src/networks/bittorrent/bTInteractive.ml
diff -u mldonkey/src/networks/bittorrent/bTInteractive.ml:1.85 
mldonkey/src/networks/bittorrent/bTInteractive.ml:1.86
--- mldonkey/src/networks/bittorrent/bTInteractive.ml:1.85      Wed Mar  8 
18:49:58 2006
+++ mldonkey/src/networks/bittorrent/bTInteractive.ml   Thu Mar  9 12:56:59 2006
@@ -921,6 +921,22 @@
       _s ""
     ), _s ":\t\t\tremove all old .torrent files";
 
+    "startbt", "Network/Bittorrent", Arg_one (fun url o ->
+      let buf = o.conn_buf in
+      if Sys.file_exists url then
+        begin
+          load_torrent_file url;
+          Printf.bprintf buf "loaded file %s\n" url
+       end
+      else
+        begin
+          let url = "Location: " ^ url in
+          let result = fst (op_network_parse_url url) in
+          Printf.bprintf buf "%s\n" result
+       end;
+      _s ""
+     ),  "<url>:\t [<URL|file>] start BT download";
+
     "stop_all_bt", "Network/Bittorrent", Arg_none (fun o ->
       List.iter (fun file -> BTClients.file_stop file ) !current_files;
       let buf = o.conn_buf in