01/01: gnu: gitolite: Avoid references to the store in authorized_keys.

[Clément Lassieur]

snape pushed a commit to branch master
in repository guix.

commit db88b5a85791d309e58cdd3e1f0ce5ecf8f2ce9b
Author: Clément Lassieur <address@hidden>
Date:   Sun Apr 30 16:56:18 2017 +0200

    gnu: gitolite: Avoid references to the store in authorized_keys.
    
    * gnu/packages/version-control.scm (gitolite)[arguments]: Substitute
    '$glshell' with 'gitolite-shell' in ssh-authkeys.
---
 gnu/packages/version-control.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index e0770dc..1cad0f2 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -628,7 +628,13 @@ also walk each side of a merge and test those changes 
individually.")
                         ;; invokes Perl.
                         (substitute* (find-files "." ".*")
                           ((" perl -")
-                           (string-append " " perl " -"))))))
+                           (string-append " " perl " -")))
+
+                        ;; Avoid references to the store in authorized_keys.
+                        ;; This works because gitolite-shell is in the PATH.
+                        (substitute* "src/triggers/post-compile/ssh-authkeys"
+                          (("\\$glshell \\$user")
+                           "gitolite-shell $user")))))
                   (replace 'install
                     (lambda* (#:key outputs #:allow-other-keys)
                       (let* ((output (assoc-ref outputs "out"))