72 |
|
|
73 |
let hourly_timer timer = |
let hourly_timer timer = |
74 |
incr CommonWeb.hours; |
incr CommonWeb.hours; |
75 |
CommonWeb.load_web_infos (); |
CommonWeb.load_web_infos false; |
76 |
if !CommonWeb.hours mod !!compaction_delay = 0 then Gc.compact (); |
if !CommonWeb.hours mod !!compaction_delay = 0 then Gc.compact (); |
77 |
if !!backup_options_delay <> 0 |
if !!backup_options_delay <> 0 |
78 |
&& !CommonWeb.hours mod !!backup_options_delay = 0 then |
&& !CommonWeb.hours mod !!backup_options_delay = 0 then |
521 |
Options.prune_file downloads_ini; |
Options.prune_file downloads_ini; |
522 |
Options.prune_file users_ini; |
Options.prune_file users_ini; |
523 |
(* Options.prune_file downloads_expert_ini; *) |
(* Options.prune_file downloads_expert_ini; *) |
524 |
add_timer 10. (fun _ -> try CommonWeb.load_web_infos () with _ -> ()); |
add_timer 10. (fun _ -> try CommonWeb.load_web_infos true with _ -> ()); |
525 |
lprintf_nl (_b "To command: telnet %s %d") |
lprintf_nl (_b "To command: telnet %s %d") |
526 |
(if !!telnet_bind_addr = Ip.any then "127.0.0.1" |
(if !!telnet_bind_addr = Ip.any then "127.0.0.1" |
527 |
else Ip.to_string !!telnet_bind_addr) !!telnet_port; |
else Ip.to_string !!telnet_bind_addr) !!telnet_port; |