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

updating squid service

Browse source
This commit is contained in:
Jean-François GUILLAUME 2022-05-12 23:04:07 +02:00
parent 3c0f48414d
commit 65df04bbe5
1 changed files with 2 additions and 43 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
glicid/services/networking.scm
View file

@ -55,53 +55,12 @@
"-f" #$config-file "-f" #$config-file
) )
#: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"))
#:group (passwd:gid (getpwnam "squid")) #:group (passwd:gid (getpwnam "squid"))
#:resource-limits '((nofile 16384 16384))
)) ))
(stop #~(make-kill-destructor)) (stop #~(make-kill-destructor))
; TODO: find out why actions are not working
; (actions (list
; (shepherd-action
; (name 'reload)
; (documentation "Reload the settings file from disk.")
; (procedure #~(lambda _ (exec-command
; (list
; #$(file-append squid "/sbin/squid")
; "-d" #$loglevel
; "-N"
; "-k" "reconfigure"
; "-f" #$config-file
; )
; )#t))
; )
; (shepherd-action
; (name 'check-config)
; (documentation "Check the settings file from disk.")
; (procedure #~(lambda _ (exec-command
; (list
; #$(file-append squid "/sbin/squid")
; "-d" #$loglevel
; "-N"
; "-k" "parse"
; "-f" #$config-file
; )
; )#t))
; )
; (shepherd-action
; (name 'kill)
; (documentation "Ultimatly kill the squid process.")
; (procedure #~(lambda _ (exec-command
; (list
; #$(file-append squid "/sbin/squid")
; "-d" #$loglevel
; "-N"
; "-k" "kill"
; "-f" #$config-file
; )
; )#t))
; )
; ))
) )
) )
) )