24 |
open TcpBufferedSocket |
open TcpBufferedSocket |
25 |
open Options |
open Options |
26 |
open Unix |
open Unix |
|
|
|
27 |
|
|
28 |
|
|
29 |
let bin_dir = Filename.dirname Sys.argv.(0) |
let bin_dir = Filename.dirname Sys.argv.(0) |
920 |
|
|
921 |
let current_section = path_section |
let current_section = path_section |
922 |
|
|
923 |
let temp_directory = define_option current_section ["temp_directory" ] |
let temp_directory = define_option current_section ["temp_directory"] |
924 |
"The directory where temporary files should be put" |
"The directory where temporary files should be put" |
925 |
string_option "temp" |
string_option "temp" |
926 |
|
|
927 |
(* |
let create_dir_mask = define_option current_section ["create_dir_mask"] |
928 |
let incoming_directory_prio = |
"New directories in incoming_directories are created with these rights" |
929 |
define_expert_option current_section ["incoming_directory_prio" ] |
string_option "755" |
930 |
"The upload prio of the incoming directory" |
|
|
int_option 0 |
|
|
|
|
|
let incoming_directory = |
|
|
define_option current_section ["incoming_directory" ] |
|
|
"The directory where downloaded files should be moved after commit" |
|
|
string_option "incoming" |
|
|
|
|
|
let default_sharing_strategy = |
|
|
define_option current_section ["default_sharing_strategy" ] |
|
|
"Sharing strategy the share command will use when none is specified" |
|
|
string_option "all_files" |
|
|
*) |
|
|
|
|
931 |
let previewer = define_expert_option current_section ["previewer"] |
let previewer = define_expert_option current_section ["previewer"] |
932 |
"Name of program used for preview (first arg is local filename, second arg |
"Name of program used for preview (first arg is local filename, second arg |
933 |
is name of file as searched on eDonkey" string_option |
is name of file as searched on eDonkey" string_option |
942 |
(Filename.concat bin_dir "mlgui") |
(Filename.concat bin_dir "mlgui") |
943 |
|
|
944 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
945 |
(*************************************************************************) |
(*************************************************************************) |
946 |
(* *) |
(* *) |
947 |
(* Security section *) |
(* Security section *) |
1172 |
TcpBufferedSocket.copy_read_buffer := !!copy_read_buffer |
TcpBufferedSocket.copy_read_buffer := !!copy_read_buffer |
1173 |
) |
) |
1174 |
|
|
1175 |
|
let _ = |
1176 |
|
option_hook create_dir_mask (fun _ -> |
1177 |
|
Unix32.create_dir_mask := !!create_dir_mask |
1178 |
|
) |
1179 |
|
|
1180 |
|
|
1181 |
(* |
(* |