54 |
if not !is_enabled then |
if not !is_enabled then |
55 |
let enabler = ref true in |
let enabler = ref true in |
56 |
(* lprintf "enabling...\n"; *) |
(* lprintf "enabling...\n"; *) |
57 |
Unix2.safe_mkdir old_torrents_directory; |
Unix2.safe_mkdir torrents_directory; |
58 |
Unix2.safe_mkdir seeded_directory; |
Unix2.safe_mkdir seeded_directory; |
59 |
Unix2.safe_mkdir tracked_directory; |
Unix2.safe_mkdir tracked_directory; |
60 |
Unix2.safe_mkdir downloads_directory; |
Unix2.safe_mkdir downloads_directory; |
61 |
Unix2.can_write_to_directory old_torrents_directory; |
Unix2.safe_mkdir old_directory; |
62 |
|
Unix2.can_write_to_directory torrents_directory; |
63 |
Unix2.can_write_to_directory seeded_directory; |
Unix2.can_write_to_directory seeded_directory; |
64 |
Unix2.can_write_to_directory tracked_directory; |
Unix2.can_write_to_directory tracked_directory; |
65 |
Unix2.can_write_to_directory downloads_directory; |
Unix2.can_write_to_directory downloads_directory; |
66 |
|
Unix2.can_write_to_directory old_directory; |
67 |
is_enabled := true; |
is_enabled := true; |
68 |
if !!BTTracker.tracker_port > 0 then ( |
if !!BTTracker.tracker_port > 0 then ( |
69 |
try BTTracker.start_tracker () |
try BTTracker.start_tracker () |
135 |
*) |
*) |
136 |
network.op_network_enable <- enable; |
network.op_network_enable <- enable; |
137 |
network.network_config_file <- [bittorrent_ini]; |
network.network_config_file <- [bittorrent_ini]; |
138 |
|
check_client_uid (); |
139 |
network.op_network_info <- (fun n -> |
network.op_network_info <- (fun n -> |
140 |
{ |
{ |
141 |
network_netnum = network.network_num; |
network_netnum = network.network_num; |