backporting master into devel (devel was behind master)

glicid/services/networking.scm

@@ -0,0 +1,112 @@
+(define-module (glicid services networking)
+  #:use-module (gnu packages networking)
+  #:use-module (gnu services)
+  #:use-module (gnu services shepherd)
+  #:use-module (guix)
+  #:use-module (guix records)
+  #:use-module (ice-9 match)
+  #: export (
+    squid-configuration
+    squid-configuration?
+    squid-shepherd-service
+    squid-service-type
+  )
+)
+
+(define-record-type* <squid-configuration>
+  squid-configuration make-squid-configuration
+  squid-configuration?
+  (squid squid-configuration-squid
+    (default squid)
+  )
+  (port squid-configuration-port
+    (default 3128)
+  )
+  (pid-file squid-configuration-pid-file
+    (default "/var/run/squid.pid")
+  )
+  (config-file squid-configuration-config-file
+    (default (file-append squid "/etc/squid.conf"))
+  )
+  (log-file squid-configuration-log-file
+    (default "/var/log/squid.log")
+  )
+)
+
+(define squid-shepherd-service
+  (match-lambda
+    (($ <squid-configuration> squid port pid-file config-file log-file)
+      (list
+        (shepherd-service
+          (provision '(squid) )
+          (documentation "Run squid.")
+          (requirement '(user-processes))
+          (respawn? #t)
+          (start #~(make-forkexec-constructor
+            (list
+              #$(file-append squid "/sbin/squid")
+              "-d ALL,1"
+              "-a" #$port
+              "-u" #$port
+              "-f" #$config-file
+            )
+            #:pid-file #$pid-file 
+            #:log-file #$log-file
+          ))
+          (stop #~(exec-command
+            (list
+              #$(file-append squid "/sbin/squid")
+              "-d"
+              "-a" #$port
+              "-u" #$port
+              "-k" "shutdown"
+              "-f" #$config-file
+            )
+            #:pid-file #$pid-file 
+            #:log-file #$log-file
+          ))
+          (actions (list
+            (shepherd-action
+              (name 'reload)
+              (documentation "Reload the settings file from disk.")
+              (procedure #~(exec-command
+                (list
+                  #$(file-append squid "/sbin/squid")
+                  "-d"
+                  "-a" #$port
+                  "-u" #$port
+                  "-k" "reconfigure"
+                  "-f" #$config-file
+                )
+              ))
+            )
+          ))
+        )
+      )
+    )
+  )
+)
+
+
+(define %squid-activation
+  (with-imported-modules '((guix build utils))
+    #~(begin
+        (use-modules (guix build utils))
+        (mkdir-p "/var/run/squid")
+        (mkdir-p "/var/spool/squid")
+        #t
+    )
+  )
+)
+
+(define squid-service-type
+  (service-type (name 'squid)
+    (extensions 
+      (list
+        (service-extension shepherd-root-service-type squid-shepherd-service)
+        (service-extension activation-service-type (const %squid-activation))
+      )
+    )
+    (description "Run @uref{http://www.squid-cache.org/, squid} community developped Squid software.")
+  )
+)