122 |
let lprintf_nl () = |
let lprintf_nl () = |
123 |
lprintf "%s[BT] " |
lprintf "%s[BT] " |
124 |
(log_time ()); lprintf_nl2 |
(log_time ()); lprintf_nl2 |
125 |
|
|
126 |
let check_if_interesting file c = |
let check_if_interesting file c = |
127 |
|
|
128 |
if not c.client_alrd_sent_notinterested then |
if not c.client_alrd_sent_notinterested then |
962 |
let downloads_directory = Filename.concat torrents_directory "downloads" |
let downloads_directory = Filename.concat torrents_directory "downloads" |
963 |
let tracked_directory = Filename.concat torrents_directory "tracked" |
let tracked_directory = Filename.concat torrents_directory "tracked" |
964 |
let seeded_directory = Filename.concat torrents_directory "seeded" |
let seeded_directory = Filename.concat torrents_directory "seeded" |
|
let old_directory = Filename.concat torrents_directory "old" |
|
965 |
|
let old_directory = Filename.concat torrents_directory "old" |