amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: gitolite-rc-file: Add host-name field.

Browse source 
* gnu/services/version-control.scm (<gitolite-rc-file>): Add host-name field.
(gitolite-rc-file-compiler): Handle it during configuration file generation.
* doc/guix.texi (Version Control Services): Document it.

Change-Id: I1231ed47a294ff48b35a301f76ae8e9cbfcd9b95
Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
This commit is contained in:
Tomas Volf 2025-04-01 00:10:09 +02:00 • committed by Maxim Cournoyer
parent 9306539f08
commit 5466a46a72
No known key found for this signature in database
GPG key ID: 1260E46482E63562
2 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
doc/guix.texi
View file

@ -41065,6 +41065,10 @@ For historical reasons, this field defaults to @code{#f}. The default
value from gitolite however is @code{1} (written as @code{#t} in this value from gitolite however is @code{1} (written as @code{#t} in this
configuration). configuration).
@item @code{host-name} (default: @code{#f})
The host name of this gitolite instance. It is used by the mirroring
feature.
@item @code{roles} (default: @code{'(("READERS" . 1) ("WRITERS" . ))}) @item @code{roles} (default: @code{'(("READERS" . 1) ("WRITERS" . ))})
Set the role names allowed to be used by users running the perms command. Set the role names allowed to be used by users running the perms command.

8
gnu/services/version-control.scm
View file

@ -61,6 +61,7 @@
gitolite-rc-file-unsafe-pattern gitolite-rc-file-unsafe-pattern
gitolite-rc-file-git-config-keys gitolite-rc-file-git-config-keys
gitolite-rc-file-log-extra gitolite-rc-file-log-extra
gitolite-rc-file-host-name
gitolite-rc-file-roles gitolite-rc-file-roles
gitolite-rc-file-enable gitolite-rc-file-enable
@ -255,6 +256,8 @@ access to exported repositories under @file{/srv/git}."
(default "")) (default ""))
(log-extra gitolite-rc-file-log-extra (log-extra gitolite-rc-file-log-extra
(default #f)) (default #f))
(host-name gitolite-rc-file-host-name
(default #f))
(roles gitolite-rc-file-roles (roles gitolite-rc-file-roles
(default '(("READERS" . 1) (default '(("READERS" . 1)
("WRITERS" . 1)))) ("WRITERS" . 1))))
@ -273,7 +276,7 @@ access to exported repositories under @file{/srv/git}."
(file <gitolite-rc-file>) system target) (file <gitolite-rc-file>) system target)
(match-record file <gitolite-rc-file> (match-record file <gitolite-rc-file>
( umask local-code unsafe-pattern git-config-keys log-extra ( umask local-code unsafe-pattern git-config-keys log-extra
roles enable) host-name roles enable)
(apply text-file* "gitolite.rc" (apply text-file* "gitolite.rc"
`("%RC = (\n" `("%RC = (\n"
" UMASK => " ,(format #f "~4,'0o" umask) ",\n" " UMASK => " ,(format #f "~4,'0o" umask) ",\n"
@ -284,6 +287,9 @@ access to exported repositories under @file{/srv/git}."
,(if log-extra ,(if log-extra
" LOG_EXTRA => 1,\n" " LOG_EXTRA => 1,\n"
"") "")
,(if host-name
(simple-format #f " HOSTNAME => \"~A\",\n" host-name)
"")
" ROLES => {\n" " ROLES => {\n"
,@(map (match-lambda ,@(map (match-lambda
((role . value) ((role . value)