414 |
|
|
415 |
List.iter (fun s -> |
List.iter (fun s -> |
416 |
Unix2.safe_mkdir s.shdir_dirname; |
Unix2.safe_mkdir s.shdir_dirname; |
417 |
|
if s.shdir_strategy = "incoming_directories" || |
418 |
|
s.shdir_strategy = "incoming_files" then |
419 |
|
Unix2.can_write_to_directory s.shdir_dirname |
420 |
) !!CommonComplexOptions.shared_directories; |
) !!CommonComplexOptions.shared_directories; |
421 |
Unix2.safe_mkdir "searches"; |
Unix2.safe_mkdir "searches"; |
422 |
Unix2.safe_mkdir !!temp_directory |
Unix2.can_write_to_directory "searches"; |
423 |
|
Unix2.safe_mkdir !!temp_directory; |
424 |
|
Unix2.can_write_to_directory !!temp_directory |
425 |
|
|
426 |
let _ = |
let _ = |
427 |
|
|