54 |
let lprintf_nl () = |
let lprintf_nl () = |
55 |
lprintf "%s[BT] " |
lprintf "%s[BT] " |
56 |
(log_time ()); lprintf_nl2 |
(log_time ()); lprintf_nl2 |
57 |
|
|
58 |
(* prints a new logline with date, module and does not start newline *) |
(* prints a new logline with date, module and does not start newline *) |
59 |
let lprintf_n () = |
let lprintf_n () = |
60 |
lprintf "%s[BT] " |
lprintf "%s[BT] " |
454 |
File.to_string filename |
File.to_string filename |
455 |
with e -> lprintf_nl () "Empty reply from tracker"; "" |
with e -> lprintf_nl () "Empty reply from tracker"; "" |
456 |
in |
in |
457 |
let v = |
let v = |
458 |
match tracker_reply with |
match tracker_reply with |
459 |
| "" -> |
| "" -> |
460 |
if !verbose_connect then |
if !verbose_connect then |
675 |
P.client_software = c.client_software; |
P.client_software = c.client_software; |
676 |
(* TODO: switch it |
(* TODO: switch it |
677 |
P.client_release = c.client_release; |
P.client_release = c.client_release; |
678 |
*) |
*) |
679 |
P.client_release = ""; |
P.client_release = ""; |
680 |
P.client_emulemod = ""; |
P.client_emulemod = ""; |
681 |
P.client_downloaded = c.client_downloaded; |
P.client_downloaded = c.client_downloaded; |
779 |
else |
else |
780 |
Printf.bprintf buf ".torrent file generated\n"; |
Printf.bprintf buf ".torrent file generated\n"; |
781 |
"" |
"" |
782 |
with Not_found -> |
with Not_found -> |
783 |
if o.conn_output = HTML then |
if o.conn_output = HTML then |
784 |
(* TODO: really htmlize it *) |
(* TODO: really htmlize it *) |
785 |
Printf.bprintf buf "Not enough parameters" |
Printf.bprintf buf "Not enough parameters" |