From 1f79fc38a17ceda30f378efd4e7f80f252c99b4d Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 28 Feb 2021 18:41:07 +0000 Subject: Add a new dynamic authentication approach This avoids the need to create agents upfront, which could be useful when creating many childhurd VMs or using scheduling tools to dynamically run agents. --- scripts/guix-build-coordinator.in | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'scripts/guix-build-coordinator.in') diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 4c7e208..f85a0ce 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -737,6 +737,17 @@ tags: (assoc-ref (request-agents-list (assq-ref opts 'coordinator)) "agents"))))) + (("dynamic-auth" "create-token") + (let ((opts (parse-options (append %client-options + %base-options) + (append %client-option-defaults + %base-option-defaults) + '()))) + (let ((token + (assoc-ref (send-create-dynamic-auth-token-request + (assq-ref opts 'coordinator)) + "token"))) + (simple-format #t "~A\n" token)))) ((arguments ...) (let* ((opts (parse-options (append %service-options %base-options) -- cgit v1.2.3