/[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.54 by spiralvoice, Sun Jul 17 16:12:59 2005 UTC revision 1.55 by spiralvoice, Sun Jul 17 16:36:07 2005 UTC
# Line 58  let do_daily () = Line 58  let do_daily () =
58    CommonWeb.load_web_infos ()    CommonWeb.load_web_infos ()
59    
60  let minute_timer () =  let minute_timer () =
61      CommonShared.shared_check_files ();
62    CommonUploads.upload_credit_timer ();    CommonUploads.upload_credit_timer ();
63    CommonInteractive.force_download_quotas ();    CommonInteractive.force_download_quotas ();
64    CommonResult.dummy_result.result_time <- last_time ();    CommonResult.dummy_result.result_time <- last_time ();
# Line 74  let minute_timer () = Line 75  let minute_timer () =
75  let hourly_timer timer =  let hourly_timer timer =
76    incr CommonWeb.hours;    incr CommonWeb.hours;
77    if !CommonWeb.hours mod 24 = 0 then do_daily ();    if !CommonWeb.hours mod 24 = 0 then do_daily ();
   CommonShared.shared_check_files ();  
78    if !CommonWeb.hours mod !!compaction_delay = 0 then Gc.compact ();    if !CommonWeb.hours mod !!compaction_delay = 0 then Gc.compact ();
79    DriverControlers.check_calendar ();    DriverControlers.check_calendar ();
80    CommonWeb.connect_redirector ();    CommonWeb.connect_redirector ();

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

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