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.
This commit is contained in:
		
							parent
							
								
									21b99aade1
								
							
						
					
					
						commit
						db88b5a857
					
				
					 1 changed files with 7 additions and 1 deletions
				
			
		| 
						 | 
					@ -628,7 +628,13 @@ also walk each side of a merge and test those changes individually.")
 | 
				
			||||||
                        ;; invokes Perl.
 | 
					                        ;; invokes Perl.
 | 
				
			||||||
                        (substitute* (find-files "." ".*")
 | 
					                        (substitute* (find-files "." ".*")
 | 
				
			||||||
                          ((" perl -")
 | 
					                          ((" 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
 | 
					                  (replace 'install
 | 
				
			||||||
                    (lambda* (#:key outputs #:allow-other-keys)
 | 
					                    (lambda* (#:key outputs #:allow-other-keys)
 | 
				
			||||||
                      (let* ((output (assoc-ref outputs "out"))
 | 
					                      (let* ((output (assoc-ref outputs "out"))
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue