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!10
This commit is contained in:
Jean-François GUILLAUME 2022-05-11 07:19:08 +00:00
commit 09e33dabb1
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
glicid/services/networking.scm
View file

@ -45,6 +45,8 @@
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(list (list
#$(file-append squid "/sbin/squid") #$(file-append squid "/sbin/squid")
"-d 1"
"--foreground"
"-f" #$config-file "-f" #$config-file
) )
#:pid-file #$pid-file #:pid-file #$pid-file
@ -53,6 +55,8 @@
(stop #~(exec-command (stop #~(exec-command
(list (list
#$(file-append squid "/sbin/squid") #$(file-append squid "/sbin/squid")
"-d 1"
"--foreground"
"-k" "shutdown" "-k" "shutdown"
"-f" #$config-file "-f" #$config-file
) )
@ -66,6 +70,8 @@
(procedure #~(exec-command (procedure #~(exec-command
(list (list
#$(file-append squid "/sbin/squid") #$(file-append squid "/sbin/squid")
"-d 1"
"--foreground"
"-k" "reconfigure" "-k" "reconfigure"
"-f" #$config-file "-f" #$config-file
) )
@ -82,10 +88,10 @@
(define %squid-activation (define %squid-activation
(with-imported-modules '((guix build utils)) (with-imported-modules '((guix build utils))
#~(begin #~(begin
(use-modules (guix build utils))
(define (touch file-name) (define (touch file-name)
(call-with-output-file file-name (const #t)) (call-with-output-file file-name (const #t))
) )
(use-modules (guix build utils))
(mkdir-p "/var/run/squid") (mkdir-p "/var/run/squid")
(mkdir-p "/var/log/squid") (mkdir-p "/var/log/squid")
(mkdir-p "/var/cache/squid") (mkdir-p "/var/cache/squid")