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))) (set! %load-compiled-path (cons "%modbuilddir%" %load-compiled-path)))
(use-modules (mcron scripts cron) (use-modules (mcron scripts cron)
(mcron utils)
(ice-9 command-line-processor)) (ice-9 command-line-processor))
(process-command-line (command-line) (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 (with-output-to-file config-pid-file
(λ () (display (getpid)) (newline))) (λ () (display (getpid)) (newline)))
(parameterize ((%log-format (option-ref opts 'log-format (%log-format))) ;; Forever execute the 'run-job-loop', and when it drops out (can
(%date-format (option-ref opts 'date-format (%date-format)))) ;; only be because a message has come in on the socket) we
;; Forever execute the 'run-job-loop', and when it drops out (can ;; process the socket request before restarting the loop again.
;; only be because a message has come in on the socket) we (let ((fdes-list (cron-file-descriptors)))
;; process the socket request before restarting the loop again. (while #t
(let ((fdes-list (cron-file-descriptors))) (run-job-loop fdes-list)
(while #t (unless (null? fdes-list) (process-update-request fdes-list)))))
(run-job-loop fdes-list)
(unless (null? fdes-list) (process-update-request fdes-list))))))