me
/
guix
Archived
1
0
Fork 0
Code

git-authenticate: Rename '%committers' to '%historical-committers'. 

* build-aux/git-authenticate.scm (%committers): Rename to...
(%historical-committers): ... this.
(%authorized-signing-keys): Rename to...
(%historical-authorized-signing-keys): ... this.
(authenticate-commit): Adjust accordingly.
master
Ludovic Courtès 2020-06-01 17:23:34 +02:00
parent 86a03090af
commit 15534de8b7
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
build-aux/git-authenticate.scm
View File

@ -42,12 +42,13 @@
(ice-9 pretty-print)) (ice-9 pretty-print))
(define %committers (define %historical-committers
;; List of committers. These are the user names found on ;; List of "historical" committers---people once authorized committers
;; before the '.guix-authorizations' file was created.
;;
;; These are the user names found on
;; <https://savannah.gnu.org/project/memberlist.php?group=guix> along with ;; <https://savannah.gnu.org/project/memberlist.php?group=guix> along with
;; the fingerprint of the signing (sub)key. ;; the fingerprint of the signing (sub)key.
;;
;; TODO: Replace this statically-defined list by an in-repo list.
'(("andreas" '(("andreas"
"AD17 A21E F8AE D8F1 CC02 DBD9 F7D5 C9BF 765C 61E3") "AD17 A21E F8AE D8F1 CC02 DBD9 F7D5 C9BF 765C 61E3")
("ajgrf" ("ajgrf"
@ -214,13 +215,13 @@
("wingo" ("wingo"
"FF47 8FB2 64DE 32EC 2967 25A3 DDC0 F535 8812 F8F2"))) "FF47 8FB2 64DE 32EC 2967 25A3 DDC0 F535 8812 F8F2")))
(define %authorized-signing-keys (define %historical-authorized-signing-keys
;; Fingerprint of authorized signing keys. ;; Fingerprint of historically authorized signing keys.
(map (match-lambda (map (match-lambda
((name fingerprint) ((name fingerprint)
(base16-string->bytevector (base16-string->bytevector
(string-downcase (string-filter char-set:graphic fingerprint))))) (string-downcase (string-filter char-set:graphic fingerprint)))))
%committers)) %historical-committers))
(define %commits-with-bad-signature (define %commits-with-bad-signature
;; Commits with a known-bad signature. ;; Commits with a known-bad signature.
@ -312,7 +313,7 @@ Raise an error when authentication fails."
(unless (member (openpgp-public-key-fingerprint signing-key) (unless (member (openpgp-public-key-fingerprint signing-key)
(commit-authorized-keys repository commit (commit-authorized-keys repository commit
%authorized-signing-keys)) %historical-authorized-signing-keys))
(raise (condition (raise (condition
(&message (&message
(message (format #f (G_ "commit ~a not signed by an authorized \ (message (format #f (G_ "commit ~a not signed by an authorized \