diff options
author | Dale Mellor <mcron-lsfnyl@rdmp.org> | 2022-07-07 22:15:49 +0100 |
---|---|---|
committer | Dale Mellor <mcron-lsfnyl@rdmp.org> | 2022-07-07 22:15:49 +0100 |
commit | a5a032e7bebb4a725e3416e6708d20cdf9b7472e (patch) | |
tree | 70f9a8c566132b1b38570fdad313f405e3848bd3 /src/mcron/scripts | |
parent | a0d493fa9be910187a00c6be1ccbf5ee50ffd040 (diff) | |
download | mcron-a5a032e7bebb4a725e3416e6708d20cdf9b7472e.tar.gz mcron-a5a032e7bebb4a725e3416e6708d20cdf9b7472e.tar.bz2 mcron-a5a032e7bebb4a725e3416e6708d20cdf9b7472e.zip |
cron doesnʼt need the --log-format and --date-format options.
* src/cron.in: remove the options
* src/mcron/scripts/cron.scm: no need for extra processing
Diffstat (limited to 'src/mcron/scripts')
-rw-r--r-- | src/mcron/scripts/cron.scm | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/src/mcron/scripts/cron.scm b/src/mcron/scripts/cron.scm index 0a3b8b2..2e36d87 100644 --- a/src/mcron/scripts/cron.scm +++ b/src/mcron/scripts/cron.scm @@ -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))))) |