Hi Ludo', On Sun, Mar 24 2024, Ludovic Courtès wrote:
> I pushed to the ‘devel’ branch of the Shepherd a new module that > implements “timers” Wow, that's super exciting! I promptly reconfigured my channels to pull in the Shepherd branch. (Anyone who wants to do the same, please reply here for info.) For me, Shepherd timers will allow the temporary stoppage of individual cron jobs. For a server that can make debugging much easier. > (command '("sh" "-c" "echo Hi from $PWD.; sleep 20; echo done"))) The simple example worked great, but my more complex attempt to convert an mcron job seems to have failed. Do you know why? --8<---------------cut here---------------start------------->8--- (define (rsync-debbugs-shepherd-service config) (shepherd-service (provision '(rsync-debbugs)) (requirement '(networking file-systems)) (modules '((shepherd service timer) (srfi srfi-1))) (start #~(make-timer-constructor (calendar-event #:minutes '(iota 12 3 5)) (command `(,#$(file-append rsync "/bin/rsync") "-4" "--delete" "-av" "--password-file=/root/secrets/var-lib-debbugs.rsync" "debbugs-...@debbugs.gnu.org::var-lib-debbugs" "/var/lib/debbugs/")))) (stop #~(make-timer-destructor)) (documentation "Timer to rsync Debbugs bug details to this machine."))) (define rsync-debbugs-service-type (service-type (name 'rsync-debbugs) (description "Rsync Debbugs bug details to this machine.") (extensions (list (service-extension shepherd-root-service-type (compose list rsync-debbugs-shepherd-service)))) (default-value #f))) --8<---------------cut here---------------end--------------->8--- and then later --8<---------------cut here---------------start------------->8--- (service rsync-debbugs-service-type) --8<---------------cut here---------------end--------------->8--- At the bottom of this message is the log from my Eshell session. The first funny thing was that the old timer info still showed in 'herd status'. That's probably because some services are not reloaded automatically. I can never figure out which are and which aren't. More important, however, I was unable to get status information from the more complex timer service. What did I do wrong, please? Thanks for this excellent work, especially in calender-event. The Shepherd is a super cute piece of software! Kind regards Felix * * * guix deploy: successfully deployed wallace-server #[STATUS] End time 2024-03-25 14:02:35, duration 86.932s [~] > cd /ssh:root@wallace-server.local:/srv/patchwise (root@wallace-server.local)[/s/srv/patchwise] > herd status rsync-debbugs Status of rsync-debbugs: It is running since 13:44:40 (19 minutes ago). Timed service. Periodically running: sh -c "echo Hi from $PWD.; sleep 20; echo done". It is enabled. Provides (rsync-debbugs). Requires (networking file-systems). Will be respawned. Recent runs: 2024-03-25 14:03:06 Process exited with code 1. 2024-03-25 14:03:14 Process exited with code 1. 2024-03-25 14:03:21 Process exited with code 1. 2024-03-25 14:03:29 Process exited with code 1. 2024-03-25 14:03:44 Process exited with code 1. Recent messages: 2024-03-25 14:03:44 exec of "sh" failed: No such file or directory 2024-03-25 14:03:44 2024-03-25 14:03:44 Some deprecated features have been used. Set the environment 2024-03-25 14:03:44 variable GUILE_WARN_DEPRECATED to "detailed" and rerun the 2024-03-25 14:03:44 program to get more information. Set it to "no" to suppress 2024-03-25 14:03:44 this message. Upcoming timer alarms: 14:04:00 (in 15 seconds) 14:04:07 (in 22 seconds) 14:04:15 (in 30 seconds) 14:04:22 (in 37 seconds) 14:04:30 (in 45 seconds) #[STATUS] End time 2024-03-25 14:03:45, duration 1.430s (root@wallace-server.local)[/s/srv/patchwise] > herd restart rsync-debbugs Service user-homes has been started. Starting service rsync-debbugs... Service rsync-debbugs started. Service rsync-debbugs running with value #<<timer> channel: #<<channel> getq: #<atomic-box 7fb467c1c990 value: (())> getq-gc-counter: #<atomic-box 7fb467c1c980 value: 42> putq: #<atomic-box 7fb467c1c960 value: (())> putq-gc-counter: #<atomic-box 7fb467c1c950 value: 42>> event: #<<calendar-event> seconds: (0) minutes: (iota 12 3 5) hours: (0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23) days-of-month: (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31) months: (1 2 3 4 5 6 7 8 9 10 11 12) days-of-week: #f> action: #<<command> arguments: ("/gnu/store/1g0gk9pcymgc0bb1dh115swakmh438p6-rsync-3.2.7/bin/rsync" "-4" "--delete" "-av" "--password-file=/root/secrets/var-lib-debbugs.rsync" "debbugs-...@debbugs.gnu.org::var-lib-debbugs" "/var/lib/debbugs/") user: #f group: #f environment-variables: ("HOME=/" "TERM=linux" "BOOT_IMAGE=/gnu/store/psn2jwyrvr8jxb1nrndxf3h7kg8vvfwa-linux-6.6.2/bzImage" "PATH=/gnu/store/2jbvnib5ar70q1vlhhngish1svqfry0j-e2fsck-static-1.46.4/sbin:/gnu/store/jlbzcgxxzhynv74ss2510b0x978srnf9-loadkeys-static-2.5.1/bin" "GUIX_LOCPATH=/gnu/store/5fmqijrs5f7vx8mc2q2pmq26yvhb74sm-glibc-utf8-locales-2.35/lib/locale") directory: "/" resource-limits: ()>>. Service rsync-debbugs has been started. #[STATUS] End time 2024-03-25 14:04:40, duration 1.081s (root@wallace-server.local)[/s/srv/patchwise] > herd status rsync-debbugs #[STATUS] End time 2024-03-25 14:07:41, duration 159.524s (root@wallace-server.local)[/s/srv/patchwise] > herd restart mcron Service user-homes has been started. Starting service mcron... Service mcron started. Service mcron running with value #<<process> id: 4171 command: ("/gnu/store/2izimf0xymk3qm35i7lsqbhpid2235ik-mcron-1.2.3/bin/mcron" "--log" "--log-format" "~1@*~a ~a: ~a~%" "/gnu/store/annwvnihjy5sghw6s05l6kzijk6rbg93-mcron-job" "/gnu/store/dx7gyb3mrfzpwrsfjfjfnicmiqz7jszw-mcron-job" "/gnu/store/knfag5iw4mqhf6lqb462p95zs3knici3-mcron-job" "/gnu/store/485wh62g950zgi2cjwh7q6rayag2p5mi-mcron-job" "/gnu/store/kxp8cd5x183zy10bd93mmvyxgm8b89q6-mcron-job" "/gnu/store/20a2d6pg5hckpsv2ap91y0sl2vdcx0jb-mcron-job" "/gnu/store/7l4cr6982gyldv8jz8lfvq8i4wcp65z6-mcron-job" "/gnu/store/srcq4hqg88s3nd22b4l3vkpg2gx03fyf-mcron-job")>. Service mcron has been started. #[STATUS] End time 2024-03-25 14:12:52, duration 1.333s (root@wallace-server.local)[/s/srv/patchwise] > herd status rsync-debbugs #[STATUS] End time 2024-03-25 15:18:41, duration 10.155s