guix-glicid/glicid/services/networking.scm

(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)
  )
  (poer 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 "/libexec/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 "/libexec/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 "/libexec/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.")
  )
)