[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/06: swh: Allows token from Software Heritage authentication service.
From: |
guix-commits |
Subject: |
03/06: swh: Allows token from Software Heritage authentication service. |
Date: |
Fri, 15 Oct 2021 17:20:13 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit 498cd9bcdbab2edacff9459d2c45d7631d9fb2d5
Author: zimoun <zimon.toutoune@gmail.com>
AuthorDate: Fri Oct 15 00:14:54 2021 +0200
swh: Allows token from Software Heritage authentication service.
The token is provided using the environment variable GUIX_SWH_TOKEN.
* guix/swh.scm (%swh-token): New variable.
(call): Use it.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
guix/swh.scm | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/guix/swh.scm b/guix/swh.scm
index 5c41685..c7c1c87 100644
--- a/guix/swh.scm
+++ b/guix/swh.scm
@@ -2,6 +2,7 @@
;;; Copyright © 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
+;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -136,6 +137,12 @@
;; Whether to verify the X.509 HTTPS certificate for %SWH-BASE-URL.
(make-parameter #t))
+;; Token from an account to the Software Heritage Authentication service
+;; <https://archive.softwareheritage.org/api/>
+(define %swh-token
+ (make-parameter (and=> (getenv "GUIX_SWH_TOKEN")
+ string->symbol)))
+
(define (swh-url path . rest)
;; URLs returned by the API may be relative or absolute. This has changed
;; without notice before. Handle both cases by detecting whether the path
@@ -246,6 +253,10 @@ FALSE-IF-404? is true, return #f upon 404 responses."
(and ((%allow-request?) url method)
(let*-values (((response port)
(method url #:streaming? #t
+ #:headers
+ (if (%swh-token)
+ `((authorization . (Bearer ,(%swh-token))))
+ '())
#:verify-certificate?
(%verify-swh-certificate?))))
;; See <https://archive.softwareheritage.org/api/#rate-limiting>.
- branch master updated (b87dbf2 -> 058ea26), guix-commits, 2021/10/15
- 01/06: lint: archival: Remove extra newline in warning., guix-commits, 2021/10/15
- 02/06: download: "GUIX_DOWNLOAD_FALLBACK_TEST=none" disables fallback mechanisms., guix-commits, 2021/10/15
- 04/06: import: pypi: Support 'input-changes'., guix-commits, 2021/10/15
- 06/06: refresh: Report suggested input changes with 'info'., guix-commits, 2021/10/15
- 03/06: swh: Allows token from Software Heritage authentication service.,
guix-commits <=
- 05/06: import: pypi: Remove leftover 'pk' call., guix-commits, 2021/10/15