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")) - ))) - ) - )) ) ) )