/[mldonkey]/mldonkey/src/daemon/driver/driverMain.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/driver/driverMain.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.70 by spiralvoice, Sun Aug 28 12:18:30 2005 UTC revision 1.71 by spiralvoice, Thu Sep 1 00:04:12 2005 UTC
# Line 72  let minute_timer () = Line 72  let minute_timer () =
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
# Line 521  or getting a binary compiled with glibc Line 521  or getting a binary compiled with glibc
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;

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26