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

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonInteractive.ml
diff -u mldonkey/src/daemon/common/commonInteractive.ml:1.37 
mldonkey/src/daemon/common/commonInteractive.ml:1.38
--- mldonkey/src/daemon/common/commonInteractive.ml:1.37        Tue Jun 28 
22:48:13 2005
+++ mldonkey/src/daemon/common/commonInteractive.ml     Tue Jul  5 12:26:40 2005
@@ -20,6 +20,7 @@
 open AnyEndian
 open LittleEndian
 open Int64ops
+open Misc
 open Printf2
 open CommonOptions
 open BasicSocket  
@@ -123,12 +124,11 @@
         let new_name = file_commited_name 
             incoming.shdir_dirname file in
        if Unix2.is_directory file_name then
-         begin
-           Unix2.safe_mkdir new_name;
-           Unix.chmod new_name 0o777
-         end;
+         Unix2.safe_mkdir new_name;
         (try
             set_file_disk_name file new_name;
+           if Unix2.is_directory new_name then
+             Unix.chmod new_name (Misc.int_of_octal_string !!create_dir_mask);
             let best_name = file_best_name file in  
             Unix32.destroy (file_fd file);
             if !verbose_files then lprintf "commonInteractive.file_commit: 
destroyed\n";