[Mldonkey-commits] Changes to mldonkey/src/daemon/driver/driverMain.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/driver/driverMain.ml
diff -u mldonkey/src/daemon/driver/driverMain.ml:1.44 
mldonkey/src/daemon/driver/driverMain.ml:1.45
--- mldonkey/src/daemon/driver/driverMain.ml:1.44       Sat Jun 18 20:55:50 2005
+++ mldonkey/src/daemon/driver/driverMain.ml    Mon Jun 20 18:56:44 2005
@@ -414,9 +414,14 @@
   
   List.iter (fun s ->
       Unix2.safe_mkdir s.shdir_dirname;
+      if s.shdir_strategy = "incoming_directories" ||
+         s.shdir_strategy = "incoming_files" then
+       Unix2.can_write_to_directory s.shdir_dirname
   ) !!CommonComplexOptions.shared_directories;
   Unix2.safe_mkdir "searches";
-  Unix2.safe_mkdir !!temp_directory
+  Unix2.can_write_to_directory "searches";
+  Unix2.safe_mkdir !!temp_directory;
+  Unix2.can_write_to_directory !!temp_directory
 
 let _ =