Paste number 322769: untitled

Paste number 322769: untitled
Pasted by: janneke
When:5 years, 3 months ago
Share:Tweet this! |
Paste contents:
Raw Source | XML | Display As
(use-package-modules admin)
(use-service-modules mcron)

(define rottlog-job
  #~(job '(next-hour '(5))
         (lambda ()
           (system (string-append  #$rottlog "/sbin/rottlog")))))

(define updatedb-job
  ;; Run 'updatedb' at 3AM every day.  Here we write the
  ;; job's action as a Scheme procedure.
  #~(job '(next-hour '(3))
         (lambda ()
           (execl (string-append #$findutils "/bin/updatedb")
                  "--prunepaths=/tmp /var/tmp /gnu/store"))))



      (mcron-service (list rottlog-job

This paste has no annotations.

Colorize as:
Show Line Numbers

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.