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

removing actions

Browse source
This commit is contained in:
Jean-François GUILLAUME 2022-05-13 11:53:55 +02:00
parent 408a5842aa
commit 11af999108
1 changed files with 0 additions and 41 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
glicid/services/networking.scm
View file

@ -59,47 +59,6 @@
#:resource-limits '((nofile 16384 16384)) #:resource-limits '((nofile 16384 16384))
)) ))
(stop #~(make-kill-destructor)) (stop #~(make-kill-destructor))
(actions (list
(shepherd-action
(name 'reload)
(documentation "Reload the settings file from disk.")
(procedure #~(lambda _ (exec-command
(list
#$(file-append squid "/sbin/squid")
"-k" "reconfigure"
"-f" #$config-file
)
#:user (passwd:uid (getpwnam "squid"))
#:group (passwd:gid (getpwnam "squid"))
)))
)
(shepherd-action
(name 'check-config)
(documentation "Check the settings file from disk.")
(procedure #~(lambda _ (exec-command
(list
#$(file-append squid "/sbin/squid")
"-k" "parse"
"-f" #$config-file
)
#:user (passwd:uid (getpwnam "squid"))
#:group (passwd:gid (getpwnam "squid"))
)))
)
(shepherd-action
(name 'kill)
(documentation "Ultimatly kill the squid process.")
(procedure #~(lambda _ (exec-command
(list
#$(file-append squid "/sbin/squid")
"-k" "kill"
"-f" #$config-file
)
#:user (passwd:uid (getpwnam "squid"))
#:group (passwd:gid (getpwnam "squid"))
)))
)
))
) )
) )
) )