branch master updated: berlin: Automate Debbugs rsync job for mumi.

[Maxim Cournoyer]

This is an automated email from the git hooks/post-receive script.

apteryx pushed a commit to branch master
in repository maintenance.

The following commit(s) were added to refs/heads/master by this push:
     new ce19490  berlin: Automate Debbugs rsync job for mumi.
ce19490 is described below

commit ce1949099d3947dc915710bcc7dab439a590b71f
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Thu Feb 1 14:16:48 2024 -0500

    berlin: Automate Debbugs rsync job for mumi.
    
    * hydra/berlin.scm (rsync-debbugs-job): New variable.
    (services) [mcron-service-type]: Register it.
    
    Fixes: https://issues.guix.gnu.org/59180
---
 hydra/berlin.scm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/hydra/berlin.scm b/hydra/berlin.scm
index 4be6d5f..7b75d98 100644
--- a/hydra/berlin.scm
+++ b/hydra/berlin.scm
@@ -6,7 +6,7 @@
 ;; Copyright © 2020, 2021 Florian Pelz <pelzflorian@pelzflorian.de>
 ;; Copyright © 2020, 2021 Mathieu Othacehe <othacehe@gnu.org>
 ;; Copyright © 2021 Tobias Geerinckx-Rice <me@tobias.gr>
-;; Copyright © 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
+;; Copyright © 2022, 2023, 2024 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 ;; Copyright © 2023 Andreas Enge <andreas@enge.fr>
 ;; Copyright © 2023 Arun Isaac <arunisaac@systemreboot.net>
 ;; Released under the GNU GPLv3 or any later version.
@@ -360,6 +360,17 @@ An incremental send is attempted if a PARENT snapshot is 
provided."
                          (send-snapshot snapshot #:parent parent
                                         #:pipe #f))))))))))
 
+(define rsync-debbugs-job
+  #~(job '(next-minute (range 1 60 5))
+         (lambda _
+           (system* (string-append #$rsync "/bin/rsync")
+                    "--delete" "-av"
+                    "--timeout=120"     ;2 minutes
+                    "--password-file=/root/secrets/var-lib-debbugs.rsync"
+                    "debbugs-var@debbugs.gnu.org::var-lib-debbugs"
+                    "/var/mumi/data/"))
+         "Rsync Debbugs data"))
+
 (define (anonip-service file)
   (service anonip-service-type
            (anonip-configuration
@@ -444,6 +455,8 @@ An incremental send is attempted if a PARENT snapshot is 
provided."
                    (device (uuid "43AE-6859" 'fat)) ;/dev/sdg2
                    (type "vfat"))
                  %btrfs-pool-san        ;for convenience
+                 ;; The root subvolume contains 'secrets' a directory
+                 ;; for storing secrets in files.
                  (btrfs-subvolume-mount "@root" "/")
                  (btrfs-subvolume-mount "@cache" "/var/cache")
                  (btrfs-subvolume-mount "@home" "/home")
@@ -701,5 +714,6 @@ An incremental send is attempted if a PARENT snapshot is 
provided."
                             (inherit config)
                             (jobs (cons* btrfs-balance-job
                                          btrfs-send-job
+                                         rsync-debbugs-job
                                          (mcron-configuration-jobs
                                           config))))))))))