diff --git a/master/src/config.hrl b/master/src/config.hrl index 2f2cc4260..5b2ad0bff 100644 --- a/master/src/config.hrl +++ b/master/src/config.hrl @@ -1,4 +1,7 @@ - +-define(SECOND, 1000). +-define(MINUTE, 60 * ?SECOND). +-define(HOUR, 60 * ?MINUTE). +-define(DAY, 24 * ?HOUR). -define(MB, 1024 * 1024). -define(MAX_JSON_POST, 32 * ?MB). diff --git a/master/src/temp_gc.erl b/master/src/temp_gc.erl index 5ac7a3516..6c6590741 100644 --- a/master/src/temp_gc.erl +++ b/master/src/temp_gc.erl @@ -1,10 +1,11 @@ -module(temp_gc). -include_lib("kernel/include/file.hrl"). +-include("config.hrl"). -export([start_link/1]). --define(GC_INTERVAL, 600000). +-define(GC_INTERVAL, 2 * ?DAY). -spec start_link(pid()) -> no_return(). start_link(Master) -> @@ -35,6 +36,7 @@ loop() -> % master busy, try again after GC_INTERVAL ok end, + error_logger:info_report({"Tempgc: one pass completed"}), timer:sleep(?GC_INTERVAL), flush(), loop(). @@ -96,7 +98,7 @@ process_job(JobPath, Purged) -> ok end, % Sleep here to prevent master and disk being DDOS'ed - timer:sleep(10); + timer:sleep(100); E -> error_logger:info_report({"Tempgc: file error", E}) end.