From 11af999108d254f9612bfdc2ef6fffe9f364eb14 Mon Sep 17 00:00:00 2001 From: JEAN-FRANCOIS GUILLAUME Date: Fri, 13 May 2022 11:53:55 +0200 Subject: [PATCH] removing actions --- glicid/services/networking.scm | 41 ---------------------------------- 1 file changed, 41 deletions(-) diff --git a/glicid/services/networking.scm b/glicid/services/networking.scm index 7118055..1e90e99 100644 --- a/glicid/services/networking.scm +++ b/glicid/services/networking.scm @@ -59,47 +59,6 @@ #:resource-limits '((nofile 16384 16384)) )) (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")) - ))) - ) - )) ) ) )