[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonComplexOptions.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonComplexOptions.ml
diff -u mldonkey/src/daemon/common/commonComplexOptions.ml:1.38 
mldonkey/src/daemon/common/commonComplexOptions.ml:1.39
--- mldonkey/src/daemon/common/commonComplexOptions.ml:1.38     Wed Nov 30 
23:46:25 2005
+++ mldonkey/src/daemon/common/commonComplexOptions.ml  Fri Dec  2 12:02:36 2005
@@ -864,7 +864,7 @@
   ]
 
 
-let incoming_files () =
+let search_incoming_files () =
   try
     List.find (fun s -> s.shdir_strategy = "incoming_files") 
     !!shared_directories
@@ -880,7 +880,13 @@
         shared_directories =:= s :: !!shared_directories;
         s
 
-let incoming_directories () =
+let incoming_files () =
+  let dir = search_incoming_files () in
+    Unix2.safe_mkdir dir.shdir_dirname;
+    Unix2.can_write_to_directory dir.shdir_dirname;
+    dir
+
+let search_incoming_directories () =
   try
     List.find (fun s -> s.shdir_strategy = "incoming_directories") 
     !!shared_directories
@@ -895,6 +901,12 @@
       in
       shared_directories =:= s :: !!shared_directories;
       s
+
+let incoming_directories () =
+  let dir = search_incoming_directories () in
+    Unix2.safe_mkdir dir.shdir_dirname;
+    Unix2.can_write_to_directory dir.shdir_dirname;
+    dir
 
 let _ =
 (* Check the definition of the incoming_files and incoming_directories in