1431 |
enable_overnet =:= true; |
enable_overnet =:= true; |
1432 |
enable_bittorrent =:= true |
enable_bittorrent =:= true |
1433 |
|
|
1434 |
|
let win_message = |
1435 |
|
"\n\nNEVER close this windows with the close button |
1436 |
|
on the top right corner of this window! |
1437 |
|
Instead use the kill command in Telnet or HTML, |
1438 |
|
the kill function of a GUI or CTRL+C.\n\n" |
1439 |
|
|
1440 |
let _ = |
let _ = |
1441 |
let in_hook = ref false in |
let in_hook = ref false in |
1442 |
option_hook global_login (fun _ -> |
option_hook global_login (fun _ -> |
1454 |
try |
try |
1455 |
let oc = open_out !!log_file in |
let oc = open_out !!log_file in |
1456 |
lprintf_to_file := true; |
lprintf_to_file := true; |
1457 |
|
if Autoconf.system = "windows" then lprintf "%s" win_message; |
1458 |
lprintf "Logging in %s\n" !!log_file; |
lprintf "Logging in %s\n" !!log_file; |
1459 |
log_to_file oc; |
log_to_file oc; |
1460 |
with e -> |
with e -> |