01/02: hydra: Allow backups of Guix-HPC videos.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository maintenance.

commit 7ec04e79d5f2ef301bbe1b6a816c04978815915c
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Jan 14 23:07:02 2024 +0100

    hydra: Allow backups of Guix-HPC videos.
    
    * hydra/bayfront.scm (backup-mcron-jobs): Add job for
    /srv/guix-hpc-videos.
    * hydra/berlin.scm (%rsync-modules-for-backup): Add
    “web-guix-hpc-videos” module.
---
 hydra/bayfront.scm | 9 +++++++--
 hydra/berlin.scm   | 7 +++++--
 2 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/hydra/bayfront.scm b/hydra/bayfront.scm
index 68906c3..0a4ee10 100644
--- a/hydra/bayfront.scm
+++ b/hydra/bayfront.scm
@@ -1,5 +1,5 @@
 ;; OS configuration for bayfront
-;; Copyright © 2016-2023 Ludovic Courtès <ludo@gnu.org>
+;; Copyright © 2016-2024 Ludovic Courtès <ludo@gnu.org>
 ;; Copyright © 2016, 2017, 2018, 2019, 2020, 2023 Andreas Enge 
<andreas@enge.fr>
 ;; Copyright © 2017, 2019 Ricardo Wurmus <rekado@elephly.net>
 ;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu>
@@ -261,7 +261,12 @@ of Tennessee")))))
           (backup-job "40 4 * * *"
                       (url "web-cuirass") "/srv/cuirass-releases")
           (backup-job "50 4 * * *"
-                      (url "web-cuirass-manual") "/srv/cuirass-manual"))))
+                      (url "web-cuirass-manual") "/srv/cuirass-manual")
+
+          ;; This one goes in the other direction because bayfront hosts
+          ;; hpc.guix.info.
+          (backup-job "00 5 * * *"
+                      "/srv/guix-hpc-videos" (url "web-guix-hpc-videos")))))
 
 (define backup-activation
   (with-imported-modules (source-module-closure
diff --git a/hydra/berlin.scm b/hydra/berlin.scm
index 475f707..4110ecf 100644
--- a/hydra/berlin.scm
+++ b/hydra/berlin.scm
@@ -1,6 +1,6 @@
 ;; OS configuration for "berlin", the frontend of the compile farm
 ;; hosted at the MDC.
-;; Copyright © 2016-2023 Ludovic Courtès <ludo@gnu.org>
+;; Copyright © 2016-2024 Ludovic Courtès <ludo@gnu.org>
 ;; Copyright © 2017, 2018, 2019, 2020, 2021, 2022 Ricardo Wurmus 
<rekado@elephly.net>
 ;; Copyright © 2019, 2021 Julien Lepiller <julien@lepiller.eu>
 ;; Copyright © 2020, 2021 Florian Pelz <pelzflorian@pelzflorian.de>
@@ -213,7 +213,10 @@ devices {
          (file-name "/gnu/disarchive"))
         (rsync-module
          (name "substitutes")
-         (file-name "/var/cache/guix/publish"))))
+         (file-name "/var/cache/guix/publish"))
+        (rsync-module
+         (name "web-guix-hpc-videos")
+         (file-name "/srv/guix-hpc-videos"))))
 
 
 ;;;