GLiCID/guix-glicid
7
0
Fork 0
mirror of https://gitlab.univ-nantes.fr/glicid-public/guix-glicid.git synced 2025-04-30 14:18:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge branch 'devel' into 'main'

Browse source 
updating squid service

See merge request glicid-public/guix-glicid!22
This commit is contained in:
Jean-François GUILLAUME 2022-05-12 19:19:44 +00:00
commit ce0c835c2a
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
glicid/services/networking.scm
View file

@ -58,7 +58,7 @@
#:log-file #$log-file #:log-file #$log-file
#:user (passwd:uid (getpwnam "squid")) #:user (passwd:uid (getpwnam "squid"))
)) ))
(stop #~(exec-command (stop #~(lambda _ (exec-command
(list (list
#$(file-append squid "/sbin/squid") #$(file-append squid "/sbin/squid")
"-d" #$loglevel "-d" #$loglevel
@ -69,12 +69,12 @@
#:pid-file #$pid-file #:pid-file #$pid-file
#:log-file #$log-file #:log-file #$log-file
#:user (passwd:uid (getpwnam "squid")) #:user (passwd:uid (getpwnam "squid"))
)) )))
(actions (list (actions (list
(shepherd-action (shepherd-action
(name 'reload) (name 'reload)
(documentation "Reload the settings file from disk.") (documentation "Reload the settings file from disk.")
(procedure #~(exec-command (procedure #~(lambda _ (exec-command
(list (list
#$(file-append squid "/sbin/squid") #$(file-append squid "/sbin/squid")
"-d" #$loglevel "-d" #$loglevel
@ -85,12 +85,12 @@
#:pid-file #$pid-file #:pid-file #$pid-file
#:log-file #$log-file #:log-file #$log-file
#:user (passwd:uid (getpwnam "squid")) #:user (passwd:uid (getpwnam "squid"))
)) )))
) )
(shepherd-action (shepherd-action
(name 'check-config) (name 'check-config)
(documentation "Check the settings file from disk.") (documentation "Check the settings file from disk.")
(procedure #~(exec-command (procedure #~(lambda _ (exec-command
(list (list
#$(file-append squid "/sbin/squid") #$(file-append squid "/sbin/squid")
"-d" #$loglevel "-d" #$loglevel
@ -101,12 +101,12 @@
#:pid-file #$pid-file #:pid-file #$pid-file
#:log-file #$log-file #:log-file #$log-file
#:user (passwd:uid (getpwnam "squid")) #:user (passwd:uid (getpwnam "squid"))
)) )))
) )
(shepherd-action (shepherd-action
(name 'kill) (name 'kill)
(documentation "Ultimatly kill the squid process.") (documentation "Ultimatly kill the squid process.")
(procedure #~(exec-command (procedure #~(lambda _ (exec-command
(list (list
#$(file-append squid "/sbin/squid") #$(file-append squid "/sbin/squid")
"-d" #$loglevel "-d" #$loglevel
@ -117,7 +117,7 @@
#:pid-file #$pid-file #:pid-file #$pid-file
#:log-file #$log-file #:log-file #$log-file
#:user (passwd:uid (getpwnam "squid")) #:user (passwd:uid (getpwnam "squid"))
)) )))
) )
)) ))
) )