OMS/tiedote.md
3
0
Fork 0
Code Issues 14 Pull Requests Projects Releases Wiki Activity

Compare commits

base: OMS:main
Branches Tags
OMS:main
OMS:guix-palvelu
OMS:keyring
..
compare: OMS:guix-palvelu
Branches Tags
OMS:main
OMS:guix-palvelu
OMS:keyring

8 Commits
main ... guix-palve

Author SHA1 Message Date
Saku Laesvuori
52e7ffc717
FIXUP lisää Gitin ssl-tiedot 2025-04-19 21:52:16 +03:00
Saku Laesvuori
c2c48c52d4
FIXUP cleanup .forward 2025-04-19 21:52:16 +03:00
Saku Laesvuori
a98b362cbd
FIXUP server argument before its flags 2025-04-19 21:52:16 +03:00
Saku Laesvuori
af5729b5f8
FIXUP guix tiedostot ei voi alkaa .llä 2025-04-19 21:52:16 +03:00
Saku Laesvuori
bf4cab8c0d
FIXUP puuttuvat match recordit 2025-04-19 21:52:16 +03:00
Saku Laesvuori
f0cb131fb6
FIXUP tiedote.md paketti onkin tiedote-md 2025-04-19 21:52:16 +03:00
Saku Laesvuori
8b76060416
FIXUP toimisko tää quasiquote 2025-04-19 21:52:16 +03:00
Saku Laesvuori
611e7f25a8
Lisää Guix-järjestelmäpalvelu 2025-04-19 21:52:16 +03:00
1 changed files with 8 additions and 9 deletions
Show Stats Expand all files Collapse all files

17
.guix/modules/tiedote-md-service.scm
View File

@ -71,24 +71,23 @@ the tiedote.md user on this system.")
(mkdir-p socket-directory) (mkdir-p socket-directory)
(chown socket-directory uid gid) (chown socket-directory uid gid)
(make-forkexec-constructor (make-forkexec-constructor
`(#$(file-append tiedote-md "/bin/tiedote.md") (list #$(file-append tiedote-md "/bin/tiedote.md")
"--address" #$email-address "--address" #$email-address
"--sender-name" #$sender-name "--sender-name" #$sender-name
"--sendmail" #$sendmail-path "--sendmail" #$sendmail-path
"--socket" #$socket-path "--socket" #$socket-path
"server" "server"
"--repository" ,repo-path "--repository" repo-path
"--port" #$(number->string port) "--port" #$(number->string port)
"--remote-url" #$remote-url "--remote-url" #$remote-url
,@(if #$(maybe-value-set? remote-branch) ;,@(if #$(maybe-value-set? remote-branch)
(list "--remote-branch" #$remote-branch) ; (list "--remote-branch" #$remote-branch)
'())) ; '())
)
#:user "tiedote.md" #:user "tiedote.md"
#:group "tiedote.md" #:group "tiedote.md"
#:environment-variables #:environment (cons "GIT_SSL_CAINFO=/etc/ssl/certs/ca-certificates.crt"
(cons* "GIT_SSL_CAINFO=/etc/ssl/certs/ca-certificates.crt" (default-environment-variable))
"LC_ALL=C.utf8"
(default-environment-variables))
#:directory #$state-directory)))) #:directory #$state-directory))))
(stop #~(make-kill-destructor)))))) (stop #~(make-kill-destructor))))))