dmbcs/mcron
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

cron doesnʼt need the --log-format and --date-format options.

Browse source 
* src/cron.in: remove the options
* src/mcron/scripts/cron.scm: no need for extra processing
This commit is contained in:
Dale Mellor 2022-07-07 22:15:49 +01:00
commit a5a032e7be
Signed by: khleedril
GPG key ID: CA471FD501618A49
2 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/cron.in
View file

@ -27,6 +27,7 @@
(set! %load-compiled-path (cons "%modbuilddir%" %load-compiled-path)))
(use-modules (mcron scripts cron)
(mcron utils)
(ice-9 command-line-processor))
(process-command-line (command-line)

16
src/mcron/scripts/cron.scm
View file

@ -153,12 +153,10 @@ option.\n")
(with-output-to-file config-pid-file
(λ () (display (getpid)) (newline)))
(parameterize ((%log-format (option-ref opts 'log-format (%log-format)))
(%date-format (option-ref opts 'date-format (%date-format))))
;; Forever execute the 'run-job-loop', and when it drops out (can
;; only be because a message has come in on the socket) we
;; process the socket request before restarting the loop again.
(let ((fdes-list (cron-file-descriptors)))
(while #t
(run-job-loop fdes-list)
(unless (null? fdes-list) (process-update-request fdes-list))))))
;; Forever execute the 'run-job-loop', and when it drops out (can
;; only be because a message has come in on the socket) we
;; process the socket request before restarting the loop again.
(let ((fdes-list (cron-file-descriptors)))
(while #t
(run-job-loop fdes-list)
(unless (null? fdes-list) (process-update-request fdes-list)))))