83 |
set_file_state file file_state; |
set_file_state file file_state; |
84 |
if !verbose then |
if !verbose then |
85 |
(match file_state with |
(match file_state with |
86 |
FileDownloading -> lprintf "New downloading file\n"; |
FileDownloading -> lprintf_nl "New downloading file"; |
87 |
| FileDownloaded -> lprintf "New downloaded file\n"; |
| FileDownloaded -> lprintf_nl "New downloaded file"; |
88 |
| _ -> lprintf "New file with other state\n" |
| _ -> lprintf_nl "New file with other state" |
89 |
); |
); |
90 |
|
|
91 |
(try |
(try |
248 |
in |
in |
249 |
let network = |
let network = |
250 |
try network_find_by_name network with e -> |
try network_find_by_name network with e -> |
251 |
lprintf "Network %s not supported\n" network; |
lprintf_nl "Network %s not supported" network; |
252 |
raise e |
raise e |
253 |
in |
in |
254 |
let server = network_server_of_option network assocs in |
let server = network_server_of_option network assocs in |