01/02: guix-install.sh: Authorize all project build farms at once.

[guix-commits]

civodul pushed a commit to branch version-1.4.0
in repository guix.

commit 416a691cff8b75d0fcba50412c6e347212ab5973
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Wed Sep 29 17:43:10 2021 +0200

    guix-install.sh: Authorize all project build farms at once.
    
    * etc/guix-install.sh (sys_authorize_build_farms):
    Iterate over all hosts.
    
    Co-authored-by: Ludovic Courtès <ludo@gnu.org>
---
 etc/guix-install.sh | 22 +++++++++++++++-------
 1 file changed, 15 insertions(+), 7 deletions(-)

diff --git a/etc/guix-install.sh b/etc/guix-install.sh
index 6bef21bb7e..fb9006b3e2 100755
--- a/etc/guix-install.sh
+++ b/etc/guix-install.sh
@@ -492,14 +492,22 @@ sys_enable_guix_daemon()
 }
 
 sys_authorize_build_farms()
-{ # authorize the public key of the build farm
+{ # authorize the public key(s) of the build farm(s)
+    local hosts=(
+       ci.guix.gnu.org
+       bordeaux.guix.gnu.org
+    )
+
     if prompt_yes_no "Permit downloading pre-built package binaries from the \
-project's build farm?"; then
-        guix archive --authorize \
-             < ~root/.config/guix/current/share/guix/ci.guix.gnu.org.pub \
-            && _msg "${PAS}Authorized public key for ci.guix.gnu.org"
-        else
-            _msg "${INF}Skipped authorizing build farm public keys"
+project's build farms?"; then
+       for host in "${hosts[@]}"; do
+           local key=~root/.config/guix/current/share/guix/$host.pub
+           [ -f "$key" ] \
+               && guix archive --authorize < "$key" \
+               && _msg "${PAS}Authorized public key for $host"
+       done
+    else
+        _msg "${INF}Skipped authorizing build farm public keys"
     fi
 }