mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

mcron: Fix CPU hog with failing units_cur

master
Pierre Neidhardt 2018-04-24 11:34:01 +05:30
parent c314af95cf
commit de9c25bd88
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
.config/cron/job.guile
View File

@ -8,10 +8,11 @@
(let* ((seconds-in-a-day (* 60 60 24))
(currency-time (stat:mtime (stat currency-file))))
(if (< currency-time (- current-time seconds-in-a-day))
(next-second)
;; Use next-minute to avoid overwhelming the system in case of failure.
(next-minute)
;; TODO: The following does not work while it should. Report upstream.
;; (next-hour-from (next-day) (list (tm:hour (localtime (current-time)))))
(+ (next-second) (- 86400 (- current-time currency-time))))))
(+ (next-minute) (- 86400 (- current-time currency-time))))))
;; A string is nicer than Scheme code for `mcron --schedule' output.
;; Otherwise we could return '(system* "units_cur" currency-file)
;; and use job's 3rd argument as a description.