[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonComplexOp
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonComplexOptions.ml |
Date: |
Fri, 02 Dec 2005 07:02:37 -0500 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonComplexOptions.ml,
mldonkey-commits <=