config/cron: Update with mcron 1.1.1 fixes
parent
ca38963e91
commit
f009dd08ae
|
@ -10,14 +10,10 @@
|
||||||
(if (< currency-time (- current-time seconds-in-a-day))
|
(if (< currency-time (- current-time seconds-in-a-day))
|
||||||
;; Use next-minute to avoid overwhelming the system in case of failure.
|
;; Use next-minute to avoid overwhelming the system in case of failure.
|
||||||
(next-minute)
|
(next-minute)
|
||||||
;; TODO: The following does not work while it should. Report upstream.
|
(next-hour-from (next-day) (list (tm:hour (localtime currency-time)))))))
|
||||||
;; (next-hour-from (next-day) (list (tm:hour (localtime (current-time)))))
|
|
||||||
(+ (next-minute) (- 86400 (- current-time currency-time))))))
|
|
||||||
;; A string is nicer than Scheme code for `mcron --schedule' output.
|
;; A string is nicer than Scheme code for `mcron --schedule' output.
|
||||||
;; Otherwise we could return '(system* "units_cur" currency-file)
|
;; Otherwise we could return '(system* "units_cur" currency-file)
|
||||||
;; and use job's 3rd argument as a description.
|
;; and use job's 3rd argument as a description.
|
||||||
(string-append "units_cur " currency-file))
|
(string-append "units_cur " currency-file))
|
||||||
|
|
||||||
(job '(next-hour)
|
(job '(next-hour '(3)) "updatedb-local")
|
||||||
;; '(next-hour '(3)) is broken in mcron 1.1.
|
|
||||||
"updatedb-local")
|
|
||||||
|
|
Loading…
Reference in New Issue