[Mldonkey-commits] mldonkey/src/daemon common/commonInteractive.ml...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Branch:         
Changes by:     spiralvoice <address@hidden>    06/05/19 23:26:24

Modified files:
        src/daemon/common: commonInteractive.ml commonOptions.ml 
        src/daemon/driver: driverCommands.ml driverMain.ml 

Log message:
        patch #5109

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/src/daemon/common/commonInteractive.ml.diff?tr1=1.67&tr2=1.68&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/src/daemon/common/commonOptions.ml.diff?tr1=1.143&tr2=1.144&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/src/daemon/driver/driverCommands.ml.diff?tr1=1.143&tr2=1.144&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/mldonkey/mldonkey/src/daemon/driver/driverMain.ml.diff?tr1=1.107&tr2=1.108&r1=text&r2=text

Patches:
Index: mldonkey/src/daemon/common/commonInteractive.ml
diff -u mldonkey/src/daemon/common/commonInteractive.ml:1.67 
mldonkey/src/daemon/common/commonInteractive.ml:1.68
--- mldonkey/src/daemon/common/commonInteractive.ml:1.67        Sat Apr  8 
01:34:03 2006
+++ mldonkey/src/daemon/common/commonInteractive.ml     Fri May 19 23:26:24 2006
@@ -504,7 +504,7 @@
 let display_bw_stats = ref false
 
 let start_download file =
-
+  if !!pause_new_downloads then file_pause file;
   if !!file_started_cmd <> "" then
       MlUnix.fork_and_exec  !!file_started_cmd
       [|
Index: mldonkey/src/daemon/common/commonOptions.ml
diff -u mldonkey/src/daemon/common/commonOptions.ml:1.143 
mldonkey/src/daemon/common/commonOptions.ml:1.144
--- mldonkey/src/daemon/common/commonOptions.ml:1.143   Tue May  9 16:32:23 2006
+++ mldonkey/src/daemon/common/commonOptions.ml Fri May 19 23:26:24 2006
@@ -991,6 +991,11 @@
   "Set to false if you don't want mldonkey to automatically put completed 
files in incoming directory"
     bool_option true
 
+let pause_new_downloads = define_option current_section
+    ["pause_new_downloads"]
+    "Set to true if you want all new downloads be paused immediatly, will be 
set to false on core start."
+    bool_option false
+
   (*
 let commit_unverified_files = define_option current_section
     ["commit_unverified_files"]
Index: mldonkey/src/daemon/driver/driverCommands.ml
diff -u mldonkey/src/daemon/driver/driverCommands.ml:1.143 
mldonkey/src/daemon/driver/driverCommands.ml:1.144
--- mldonkey/src/daemon/driver/driverCommands.ml:1.143  Thu May 18 17:28:44 2006
+++ mldonkey/src/daemon/driver/driverCommands.ml        Fri May 19 23:26:24 2006
@@ -1727,6 +1727,7 @@
                        strings_of_option file_completed_cmd;
                        strings_of_option allow_browse_share;
                        strings_of_option auto_commit;
+                       strings_of_option pause_new_downloads;
                        strings_of_option create_dir_mask;
                        strings_of_option create_file_sparse;
                        strings_of_option log_file;
Index: mldonkey/src/daemon/driver/driverMain.ml
diff -u mldonkey/src/daemon/driver/driverMain.ml:1.107 
mldonkey/src/daemon/driver/driverMain.ml:1.108
--- mldonkey/src/daemon/driver/driverMain.ml:1.107      Fri May 12 21:08:30 2006
+++ mldonkey/src/daemon/driver/driverMain.ml    Fri May 19 23:26:24 2006
@@ -649,6 +649,7 @@
     end;
 
   lprintf_nl () (_b "Core started");
+  pause_new_downloads =:= false;
   core_included := true;
 
   CommonGlobals.do_at_exit (fun _ ->