path: root/gn/services/file-systems.scm

(define-module (gn services file-systems)
  #:use-module (guix gexp)
  #:use-module (guix records)
  #:use-module (gnu services)
  #:use-module (gnu services shepherd)
  #:use-module (gnu system accounts)
  #:use-module (gnu system shadow)
  #:use-module (gnu packages admin)
  #:use-module (gnu packages linux)
  #:use-module (gn packages file-systems)
  #:use-module (ice-9 match)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-9)

  #:export (lizardfs-configuration
            lizardfs-configuration?
            lizardfs-service-type

            lizardfs-mfschunkserver-config-file
            lizardfs-mfschunkserver-config-file?
            lizardfs-mfshdd-config-file
            lizardfs-mfshdd-config-file?
            lizardfs-mfsmaster-config-file
            lizardfs-mfsmaster-config-file?
            lizardfs-mfsmetalogger-config-file
            lizardfs-mfsmetalogger-config-file?))


(define %lizardfs-accounts
  (list (user-group
          (name "lizardfs")
          (system? #t))
        (user-account
          (name "lizardfs")
          (group "lizardfs")
          (system? #t)
          (comment "Lizardfs User")
          (home-directory "/var/lib/lizardfs")
          (shell (file-append shadow "/sbin/nologin")))))

(define-record-type* <lizardfs-mfsmetalogger-config-file>
  lizardfs-mfsmetalogger-config-file
  make-lizardfs-mfsmetalogger-config-file
  lizardfs-mfsmetalogger-config-file?
  (working-user     lizardfs-mfsmetalogger-config-file-working-user
                    (default "lizardfs"))
  (working-group    lizardfs-mfsmetalogger-config-file-working-group
                    (default "lizardfs"))
  (syslog-identifier lizardfs-mfsmetalogger-config-file-syslog-identifier
                     (default "mfsmetalogger"))
  (lock-memory      lizardfs-mfsmetalogger-config-file-lock-memory
                    (default #f))   ; 0 or 1
  (nice-level       lizardfs-mfsmetalogger-config-file-nice-level
                    (default -19))
  (data-path        lizardfs-mfsmetalogger-config-file-data-path
                    (default "/var/lib/lizardfs"))
  (back-logs        lizardfs-mfsmetalogger-config-file-back-logs
                    (default 50))
  (back-meta-keep-previous  lizardfs-mfsmetalogger-config-file-back-meta-keep-previous
                            (default 3))
  (meta-download-frequency  lizardfs-mfsmetalogger-config-file-meta-download-frequency
                            (default 24))
  (master-reconnection-delay    lizardfs-mfsmetalogger-config-file-master-reconnection-delay
                                (default 5))
  (master-host      lizardfs-mfsmetalogger-config-file-master-host
                    (default "mfsmaster"))
  (master-port      lizardfs-mfsmetalogger-config-file-master-port
                    (default 9419))
  (master-timeout   lizardfs-mfsmetalogger-config-file-master-timeout
                    (default 60)))

(define-gexp-compiler (lizardfs-mfsmetalogger-config-file-compiler
                        (file <lizardfs-mfsmetalogger-config-file>) system target)
  (match file
         (($ <lizardfs-mfsmetalogger-config-file> working-user working-group syslog-identifier lock-memory nice-level data-path back-logs back-meta-keep-previous meta-download-frequency master-reconnection-delay master-host master-port master-timeout)
          (gexp->derivation
            "mfsmetalogger.cfg"
            #~(call-with-output-file #$output
                (lambda (port)
                  (display
                    (string-append
                      "# This file generated by GNU Guix\n\n"
                      (ungexp-splicing
                        `(,@`("WORKING_USER = " ,working-user "\n")
                          ,@`("WORKING_GROUP = " ,working-group "\n")
                          ,@`("SYSLOG_IDENT = " ,syslog-identifier "\n")
                          ,@(if lock-memory
                              `("LOCK_MEMORY = 1\n")
                              `("LOCK_MEMORY = 0\n"))
                          ,@`("NICE_LEVEL = " ,(number->string nice-level) "\n")
                          ,@`("DATA_PATH = " ,data-path "\n")
                          ,@`("BACK_LOGS = " ,(number->string back-logs) "\n")
                          ,@`("BACK_META_KEEP_PREVIOUS = " ,(number->string back-meta-keep-previous) "\n")
                          ,@`("META_DOWNLOAD_FREQ = " ,(number->string meta-download-frequency) "\n")
                          ,@`("MASTER_RECONNECTION_DELAY = " ,(number->string master-reconnection-delay) "\n")
                          ,@`("MASTER_HOST = " ,master-host "\n")
                          ,@`("MASTER_PORT = " ,(number->string master-port) "\n")
                          ,@`("MASTER_TIMEOUT = " ,(number->string master-timeout) "\n"))))
                    port)))
            #:local-build? #t))))

(define-record-type* <lizardfs-mfschunkserver-config-file>
  lizardfs-mfschunkserver-config-file
  make-lizardfs-mfschunkserver-config-file
  lizardfs-mfschunkserver-config-file?
  (label            lizardfs-mfschunkserver-label
                    (default "_"))
  (working-user     lizardfs-mfschunkserver-config-file-working-user
                    (default "lizardfs"))
  (working-group    lizardfs-mfschunkserver-config-file-working-group
                    (default "lizardfs"))
  (syslog-identifier lizardfs-mfschunkserver-config-file-syslog-identifier
                     (default "mfschunkserver"))
  (lock-memory      lizardfs-mfschunkserver-config-file-lock-memory
                    (default #f))   ; 0 or 1
  (nice-level       lizardfs-mfschunkserver-config-file-nice-level
                    (default -19))
  (data-path        lizardfs-mfschunkserver-config-file-data-path
                    (default "/var/lib/lizardfs"))
  (master-reconnection-delay    lizardfs-mfschunkserver-config-file-master-reconnection-delay
                                (default 5))
  (bind-host        lizardfs-mfschunkserver-bind-host
                    (default "*"))
  (master-host      lizardfs-mfschunkserver-config-file-master-host
                    (default "mfsmaster"))
  (master-port      lizardfs-mfschunkserver-config-file-master-port
                    (default 9420))
  (master-timeout   lizardfs-mfschunkserver-config-file-master-timeout
                    (default 60))
  (csserv-listen-host       lizardfs-mfschunkserver-config-csserv-listen-host
                            (default "*"))
  (csserv-listen-port       lizardfs-mfschunkserver-config-csserv-listen-port
                            (default 9422))
  (hdd-conf-filename        lizardfs-mfschunkserver-config-hdd-conf-filename
                            (default "/etc/lizardfs/mfshdd.cfg"))      ; This should be our generated one
  (hdd-leave-space-default  lizardfs-mfschunkserver-config-hdd-leave-space-default
                            (default "4GiB"))
  (hdd-test-freq        lizardfs-mfschunkserver-config-hdd-test-freq
                        (default 10))
  (hdd-advise-no-cache  lizardfs-mfschunkserver-config-hdd-advise-no-cache
                        (default #t))   ; 0 or 1
  (hdd-punch-holes      lizardfs-mfschunkserver-config-hdd-punch-holes
                        (default #t))   ; 0 or 1
  (enable-load-factor   lizardfrs-mfschunkserver-config-enable-load-factor
                        (default #f))   ; 0 or 1
  (replication-bandwidth-limit-kbps
                        lizardfs-mfschunkserver-config-replication-bandwidth-limit-kbps
                        (default 8192))
  (nr-of-network-workers    lizardfs-mfschunkserver-config-nr-of-network-workers
                            (default 1))
  (nr-of-hdd-workers-per-network-worker
                        lizardfs-mfschunkerver-config-nr-of-hdd-workers-per-network-pworker
                        (default 20))
  (read-ahead-kb        lizardfs-mfschunkserver-config-read-ahead-kb
                        (default 0))
  (max-read-behind-kb   lizardfs-mfschunkserver-config-max-read-behind-kb
                        (default 0))
  (create-new-chunks-in-moosefs-format
                        lizardfs-mfschunkserver-config-crate-new-chunks-in-moosefs-format
                        (default #t))   ; 0 or 1
  (perform-fsync        lizardfs-mfschunkserver-config-perform-fsync
                        (default #t))   ; 0 or 1
  )

(define-gexp-compiler (lizardfs-mfschunkserver-config-file-compiler
                        (file <lizardfs-mfschunkserver-config-file>) system target)
  (match file
         (($ <lizardfs-mfschunkserver-config-file> label working-user working-group syslog-identifier lock-memory nice-level data-path master-reconnection-delay bind-host master-host master-port master-timeout csserv-listen-host csserv-listen-port hdd-conf-filename hdd-leave-space-default hdd-test-freq hdd-advise-no-cache hdd-punch-holes enable-load-factor replication-bandwidth-limit-kbps nr-of-network-workers nr-of-hdd-workers-per-network-worker read-ahead-kb max-read-behind-kb create-new-chunks-in-moosefs-format perform-fsync)
          (gexp->derivation
            "mfschunkserver.cfg"
            #~(call-with-output-file #$output
                (lambda (port)
                  (display
                    (string-append
                      "# This file generated by GNU Guix\n\n"
                      (ungexp-splicing
                        `(,@`("LABEL = " ,label "\n")
                          ,@`("WORKING_USER = " ,working-user "\n")
                          ,@`("WORKING_GROUP = " ,working-group "\n")
                          ,@`("SYSLOG_IDENT = " ,syslog-identifier "\n")
                          ,@(if lock-memory
                              `("LOCK_MEMORY = 1\n")
                              `("LOCK_MEMORY = 0\n"))
                          ,@`("NICE_LEVEL = " ,(number->string nice-level) "\n")
                          ,@`("DATA_PATH = " ,data-path "\n")
                          ,@`("MASTER_RECONNECTION_DELAY = " ,(number->string master-reconnection-delay) "\n")
                          ,@`("MASTER_HOST = " ,master-host "\n")
                          ,@`("MASTER_PORT = " ,(number->string master-port) "\n")
                          ,@`("MASTER_TIMEOUT = " ,(number->string master-timeout) "\n")
                          ,@`("CSSERV_LISTEN_HOST = " ,csserv-listen-host "\n")
                          ,@`("CSSERV_LISTEN_PORT = " ,(number->string csserv-listen-port) "\n")
                          ,@`("HDD_CONF_FILENAME = " ,hdd-conf-filename "\n")
                          ,@`("HDD_LEAVE_SPACE_DEFAULT = " ,hdd-leave-space-default "\n")
                          ,@`("HDD_TEST_FREQ = " ,(number->string hdd-test-freq) "\n")
                          ,@(if hdd-advise-no-cache
                              `("HDD_ADVISE_NO_CACHE = 1\n")
                              `("HDD_ADVISE_NO_CACHE = 0\n"))
                          ,@(if hdd-punch-holes
                              `("HDD_PUNCH_HOLES = 1\n")
                              `("HDD_PUNCH_HOLES = 0\n"))
                          ,@(if enable-load-factor
                              `("ENABLE_LOAD_FACTOR = 1\n")
                              `("ENABLE_LOAD_FACTOR = 0\n"))
                          ,@`("REPLICATION_BANDWIDTH_LIMIT_KBPS = " ,(number->string replication-bandwidth-limit-kbps) "\n")
                          ,@`("NR_OF_NETWORK_WORKERS = " ,(number->string nr-of-network-workers) "\n")
                          ,@`("NR_OF_HDD_WORKERS_PER_NETWORK_WORKER = " ,(number->string nr-of-hdd-workers-per-network-worker) "\n")
                          ,@`("READ_AHEAD_KB = " ,(number->string read-ahead-kb) "\n")
                          ,@`("MAX_READ_BEHIND_KB = " ,(number->string max-read-behind-kb) "\n")
                          ,@(if create-new-chunks-in-moosefs-format
                              `("CREATE_NEW_CHUNKS_IN_MOOSEFS_FORMAT = 1\n")
                              `("CREATE_NEW_CHUNKS_IN_MOOSEFS_FORMAT = 0\n"))
                          ,@(if perform-fsync
                              `("PERFORM_FSYNC = 1\n")
                              `("PERFORM_FSYNC = 0\n")))))
                    port)))
            #:local-build? #t))))

(define-record-type* <lizardfs-mfshdd-config-file>
  lizardfs-mfshdd-config-file
  make-lizardfs-mfshdd-config-file
  lizardfs-mfshdd-config-file?
  (disks-to-use     lizardfs-mfshdd-config-file-disks-to-use
                    (default '()))
  (disks-to-remove  lizardfs-mfshdd-config-file-disks-to-remove
                    (default '())))

(define-gexp-compiler (lizardfs-mfshdd-config-file-compiler
                        (file <lizardfs-mfshdd-config-file>) system target)
  (match file
         (($ <lizardfs-mfshdd-config-file> disks-to-use disks-to-remove)
          (gexp->derivation
            "mfshdd.cfg"
            #~(call-with-output-file #$output
                (lambda (port)
                  (display
                    (string-append
                      "# This file generated by GNU Guix\n\n"
                      (ungexp-splicing
                        `(,@(append-map
                              (lambda (disk)
                                `(,disk "\n"))
                              disks-to-use)
                          ,@(append-map
                              (lambda (disk)
                                `("*" ,disk "\n"))
                              disks-to-remove))))
                    port)))
            #:local-build? #t))))

(define-record-type* <lizardfs-mfsmaster-config-file>
  lizardfs-mfsmaster-config-file
  make-lizardfs-mfsmaster-config-file
  lizardfs-mfsmaster-config-file?
  (personality      lizardsf-mfsmaster-config-personality
                    (default ""))
  (admin-password   lizardfs-mfsmaster-config-admin-password
                    (default ""))
  (working-user     lizardfs-mfsmaster-config-working-user
                    (default "lizardfs"))
  (working-group    lizardfs-mfsmaster-config-working-group
                    (default "lizardfs"))
  (syslog-ident     lizardfs-mfsmaster-config-syslog-ident
                    (default "mfsmaster"))
  (lock-memory      lizardfs-mfsmaster-config-lock-memory
                    (default #f))   ; 0 or 1
  (nice-level       lizardfs-mfsmaster-config-nice-level
                    (default -19))
  (exports-filename lizardfs-mfsmaster-config-exports-filename
                    (default "/etc/lizardfs/mfsexports.cfg"))   ; our created one?
  (topology-filename    lizardfs-mfsmaster-config-topology-filename
                        (default "/etc/lizardfs/mfstopology.cfg"))   ; our created one?
  (custom-goals-filename    lizardfs-mfsmaster-config-custom-goals-filename
                            (default "/etc/lizardfs/mfsgoals.cfg"))  ; our created one?
  (data-path        lizardfs-mfsmaster-config-data-path
                    (default "/var/lib/lizardfs"))
  (prefer-local-chunkserver lizardfs-mfsmaster-prefer-local-chunkserver
                            (default #t))    ; 0 or 1
  (auto-recovery    lizardfs-mfsmaster-config-auto-recovery
                    (default #f))       ; 0 or 1
  (back-logs        lizardfs-mfsmaster-config-back-logs
                    (default 50))
  (back-meta-keep-previous  lizardfs-mfsmaster-config-back-meta-keep-previous
                            (default 1))
  (operations-delay-init    lizardfs-mfsmaster-config-operations-delay-init
                            (default 300))
  (operations-delay-disconnect  lizardfs-mfsmaster-config-operations-delay-disconnect
                                (default 3600))
  (matoml-listen-host   lizardfs-mfsmaster-config-matoml-listen-host
                        (default "*"))
  (matoml-listen-port   lizardfs-mfsmaster-config-matoml-listen-port
                        (default 9419))
  (matoml-log-preserve-seconds  lizardfs-mfsmaster-config-matoml-log-preserve-seconds
                                (default 600))
  (matocs-listen-host   lizardfs-mfsmaster-config-matocs-listen-host
                        (default "*"))
  (matocs-listen-port   lizardfs-mfsmaster-config-matocs-listen-port
                        (default 9420))
  (matocl-listen-host   lizardfs-mfsmaster-config-matocl-listen-host
                        (default "*"))
  (matocl-listen-port   lizardfs-mfsmaster-config-matocl-listen-port
                        (default 9421))
  (matots-listen-host   lizardfs-mfsmaster-config-matots-listen-host
                        (default "*"))
  (matots-listen-port   lizardfs-mfsmaster-config-matots-listen-port
                        (default 9424))
  (chunks-loop-max-cps  lizardfs-mfsmaster-config-chunks-loop-max-cps
                        (default 100000))
  (chunks-loop-min-time lizardfs-mfsmaster-config-chunks-loop-min-time
                        (default 300))
  (chunks-loop-peroid   lizardfs-mfsmaster-config-chunks-loop-period
                        (default 1000))
  (chunks-loop-max-cpu  lizardfs-mfsmaster-config-chunks-loop-max-cpu
                        (default 60))
  (chunks-soft-del-limit    lizardfs-mfsmaster-config-chunks-soft-del-limit
                            (default 10))
  (chunks-hard-del-limit    lizardfs-mfsmaster-config-chunks-hard-del-limit
                            (default 25))
  (chunks-write-rep-limit   lizardfs-mfsmaster-config-chunks-write-rep-limit
                            (default 2))
  (chunks-read-rep-limit    lizardfs-mfsmaster-config-chunks-read-rep-limit
                            (default 10))
  (endangered-chunks-priority   lizardfs-mfsmaster-config-endangered-chunks-priority
                                (default 0))
  (endangered-chunks-max-capacity   lizardfs-mfsmaster-config-endangered-chunks-max-capacity
                                    (default "1Mi"))
  (acceptable-difference    lizardfs-mfsmaster-config-acceptable-difference
                            (default 0.1))
  (chunks-rebalancing-between-labels    lizardfs-mfsmaster-config-chunks-rebalancing-between-labels
                                        (default 0))
  (free-inodes-period   lizardfs-mfsmaster-config-free-inodes-period
                        (default 60))
  (no-atime             lizardfs-mfsmaster-config-no-atime
                        (default #f))       ; 0 or 1
  (session-sustain-time lizardfs-mfsmaster-config-session-sustain-time
                        (default 86400))
  (reject-old-client    lizardfs-mfsmaster-config-reject-old-clients
                        (default #f))       ; 0 or 1
  (globaliolimits-filename  lizardfs-mfsmaster-config-globaliolimits-filename
                            (default "/etc/lizardfs/globaliolimits.cfg"))   ; our generated one?
  (globaliolimits-renegotiation-period-settings
                        lizardfs-mfsmaster-config-globaliolmits-renegotiation-period-settings
                        (default 0.1))
  (globaliolimits-accumulate-ms lizardfs-mfsmaster-config-globaliolimits-accumulate-ms
                                (default 250))
  (mfsmetarestore-path  lizardfs-mfsmaster-config-mfsmeaterestore-path
                        (default (file-append lizardfs "/sbin/mfsmetarestore")))
  (master-reconnection-delay    lizardfs-mfsmaster-config-master-reconnection-delay
                                (default 5))
  (master-host      lizardfs-mfsmaster-config-master-host
                    (default "mfsmaster"))
  (master-port      lizardfs-mfsmaster-config-master-port
                    (default 9419))
  (master-timeout   lizardfs-mfsmaster-config-master-timeout
                    (default 60))
  (metadata-checksum-interval   lizardfs-mfsmaster-config-metadata-checksum-interval
                                (default 50))
  (metadata-checksum-recalculation-speed    lizardfs-mfsmaster-config-metadata-recalculation-speed
                                            (default 100))
  (disable-metadata-checksum-verification   lizardfs-mfsmaster-config-disable-metadata-checksum-verification
                                            (default #f))   ; 0 or 1
  (metadata-save-request-min-period     lizardfs-mfsmaster-config-metadata-save-request-min-period
                                        (default 1800))
  (use-bdb-for-name-storage     lizardfs-mfsmaster-config-use-bdb-for-name-storage
                                (default #t))       ; 0 or 1
  (bdb-name-storage-cache       lizardfs-mfsmaster-config-bdb-name-storage-cache
                                (default 10))
  (avoid-same-ip-chunkservers   lizardfs-mfsmaster-config-avoid-same-ip-chunkservers
                                (default #f))       ; 0 or 1
  (load-factor-penalty      lizardfs-mfsmaster-config-load-factor-penalty
                            (default 0))        ; between 0, 0.5, inclusive
  (redundancy-level         lizardfs-mfsmaster-config-redundancy-level
                            (default 0))
  (snapshot-initial-batch-size-limit    lizardfs-mfsmaster-config-snapshot-initial-batch-size-limit
                                        (default 10000))
  (file-test-loop-min-time  lizardfs-mfsmaster-config-file-test-loop-min-time
                            (default 3600)))


(define-gexp-compiler (lizardfs-mfsmaster-config-file-compiler
                        (file <lizardfs-mfsmaster-config-file>) system target)
  (match file
         (($ <lizardfs-mfsmaster-config-file> personality admin-password working-user working-group syslog-ident lock-memory nice-level exports-filename topology-filename custom-goals-filename data-path prefer-local-chunkserver auto-recovery back-logs back-meta-keep-previous operations-delay-init operations-delay-disconnect matoml-listen-host matoml-listen-port matoml-log-preserve-seconds matocs-listen-host matocs-listen-port matocl-listen-host matocl-listen-port matots-listen-host matots-listen-port chunks-loop-max-cps chunks-loop-min-time chunks-loop-period chunks-loop-max-cpu chunks-soft-del-limit chunks-hard-del-limit chunks-write-rep-limit chunks-read-rep-limit endangered-chunks-priority endangered-chunks-max-capacity acceptable-difference chunks-rebalancing-between-labels free-inodes-period no-atime session-sustain-time reject-old-client globaliolimits-filename globaliolimits-renegotiation-period-settings globaliolimits-accumulate-ms mfsmetarestore-path master-reconnection-delay master-host master-port master-timeout metadata-checksum-interval metadata-checksum-recalculation-speed disable-metadata-checksum-verification metadata-save-request-min-period use-bdb-for-name-storage bdb-name-storage-cache avoid-same-ip-chunkservers load-factor-penalty redundancy-level snapshot-initial-batch-size-limit file-test-loop-min-time)
          (gexp->derivation
            "mfsmaster.cfg"
            #~(call-with-output-file #$output
                (lambda (port)
                  (display
                    (string-append
                      "# This file generated by GNU Guix\n\n"
                      (ungexp-splicing
                        `(,@`("PERSONALITY = " ,personality "\n")
                          ,@`("ADMIN_PASSWORD = \"" ,admin-password "\"\n")
                          ,@`("WORKING_USER = " ,working-user "\n")
                          ,@`("WORKING_GROUP = " ,working-group "\n")
                          ,@`("SYSLOG_IDENT = " ,syslog-ident "\n")
                          ,@(if lock-memory
                              `("LOCK_MEMORY = 1\n")
                              `("LOCK_MEMORY = 0\n"))
                          ,@`("NICE_LEVEL = " ,(number->string nice-level) "\n")
                          ,@`("EXPORTS_FILENAME = " ,exports-filename "\n")
                          ,@`("TOPOLOGY_FILENAME = " ,topology-filename "\n")
                          ,@`("CUSTOM_GOALS_FILENAME = " ,custom-goals-filename "\n")
                          ,@`("DATA_PATH = " ,data-path "\n")
                          ,@(if prefer-local-chunkserver
                              `("PREFER_LOCAL_CHUNKSERVER = 1\n")
                              `("PREFER_LOCAL_CHUNKSERVER = 0\n"))
                          ,@(if auto-recovery
                              `("AUTO_RECOVERY = 1\n")
                              `("AUTO_RECOVERY = 0\n"))
                          ,@`("BACK_LOGS = " ,(number->string back-logs) "\n")
                          ,@`("BACK_META_KEEP_PREVIOUS = " ,(number->string back-meta-keep-previous) "\n")
                          ,@`("OPERATIONS_DELAY_INIT = " ,(number->string operations-delay-init) "\n")
                          ,@`("OPERATIONS_DELAY_DISCONNECT = " ,(number->string operations-delay-disconnect) "\n")
                          ,@`("MATOML_LISTEN_HOST = " ,matoml-listen-host "\n")
                          ,@`("MATOML_LISTEN_PORT = " ,(number->string matoml-listen-port) "\n")
                          ,@`("MATOML_LOG_PRESERVE_SECONDS = " ,(number->string matoml-log-preserve-seconds) "\n")
                          ,@`("MATOCS_LISTEN_HOST = " ,matocs-listen-host "\n")
                          ,@`("MATOCS_LISTEN_PORT = " ,(number->string matocs-listen-port) "\n")
                          ,@`("MATOCL_LISTEN_HOST = " ,matocl-listen-host "\n")
                          ,@`("MATOCL_LISTEN_PORT = " ,(number->string matocl-listen-port) "\n")
                          ,@`("MATOTS_LISTEN_HOST = " ,matots-listen-host "\n")
                          ,@`("MATOTS_LISTEN_PORT = " ,(number->string matots-listen-port) "\n")
                          ,@`("CHUNKS_LOOP_MAX_CPS = " ,(number->string chunks-loop-max-cps) "\n")
                          ,@`("CHUNKS_LOOP_MIN_TIME = " ,(number->string chunks-loop-min-time) "\n")
                          ,@`("CHUNKS_LOOP_PERIOD = " ,(number->string chunks-loop-period) "\n")
                          ,@`("CHUNKS_LOOP_MAX_CPU = " ,(number->string chunks-loop-max-cpu) "\n")
                          ,@`("CHUNKS_SOFT_DEL_LIMIT = " ,(number->string chunks-soft-del-limit) "\n")
                          ,@`("CHUNKS_HARD_DEL_LIMIT = " ,(number->string chunks-hard-del-limit) "\n")
                          ,@`("CHUNKS_WRITE_REP_LIMIT = " ,(number->string chunks-write-rep-limit) "\n")
                          ,@`("CHUNKS_READ_REP_LIMIT = " ,(number->string chunks-read-rep-limit) "\n")
                          ,@`("ENDANGERED_CHUNKS_PRIORITY = " ,(number->string endangered-chunks-priority) "\n")
                          ,@`("ENDANGERED_CHUNKS_MAX_CAPACITY = " ,endangered-chunks-max-capacity "\n")
                          ,@`("ACCEPTABLE_DIFFERENCE = " ,(number->string acceptable-difference) "\n")
                          ,@`("CHUNKS_REBALANCING_BETWEEN_LABELS = " ,(number->string chunks-rebalancing-between-labels) "\n")
                          ,@`("FREE_INODES_PERIOD = " ,(number->string free-inodes-period) "\n")
                          ,@(if no-atime
                              `("NO_ATIME = 1\n")
                              `("NO_ATIME = 0\n"))
                          ,@`("SESSION_SUSTAIN_TIME = " ,(number->string session-sustain-time) "\n")
                          ,@(if reject-old-client
                              `("REJECT_OLD_CLIENT = 1\n")
                              `("REJECT_OLD_CLIENT = 0\n"))
                          ,@`("GLOBALIOLIMITS_FILENAME = " ,globaliolimits-filename "\n")
                          ,@`("GLOBALIOLIMITS_RENEGOTIATION_PERIOD_SETTINGS = " ,(number->string globaliolimits-renegotiation-period-settings) "\n")
                          ,@`("GLOBALIOLIMITS_ACCUMULATE_MS = " ,(number->string globaliolimits-accumulate-ms) "\n")
                          ,@`("MFSMETARESTORE_PATH = " ,mfsmetarestore-path "\n")
                          ,@`("MASTER_RECONNECTION_DELAY = " ,(number->string master-reconnection-delay) "\n")
                          ,@`("MASTER_HOST = " ,master-host "\n")
                          ,@`("MASTER_PORT = " ,(number->string master-port) "\n")
                          ,@`("MASTER_TIMEOUT = " ,(number->string master-timeout) "\n")
                          ,@`("METADATA_CHECKSUM_INTERVAL = " ,(number->string metadata-checksum-interval) "\n")
                          ,@`("METADATA_CHECKSUM_RECALCULATION_SPEED = " ,(number->string metadata-checksum-recalculation-speed) "\n")
                          ,@(if disable-metadata-checksum-verification
                              `("DISABLE_METADATA_CHECKSUM_VERIFICATION = 1\n")
                              `("DISABLE_METADATA_CHECKSUM_VERIFICATION = 0\n"))
                          ,@`("METADATA_SAVE_REQUEST_MIN_PERIOD = " ,(number->string metadata-save-request-min-period) "\n")
                          ,@(if use-bdb-for-name-storage
                              `("USE_BDB_FOR_NAME_STORAGE = 1\n")
                              `("USE_BDB_FOR_NAME_STORAGE = 0\n"))
                          ,@`("BDB_NAME_STORAGE_CACHE = " ,(number->string bdb-name-storage-cache) "\n")
                          ,@(if avoid-same-ip-chunkservers
                              `("AVOID_SAME_IP_CHUNKSERVERS = 1\n")
                              `("AVOID_SAME_IP_CHUNKSERVERS = 0\n"))
                          ,@`("LOAD_FACTOR_PENALTY = " ,(number->string load-factor-penalty) "\n")
                          ,@`("REDUNDANCY_LEVEL = " ,(number->string redundancy-level) "\n")
                          ,@`("SNAPSHOT_INITIAL_BATCH_SIZE_LIMIT = " ,(number->string snapshot-initial-batch-size-limit) "\n")
                          ,@`("FILE_TEST_LOOP_MIN_TIME = " ,(number->string file-test-loop-min-time) "\n"))))
                    port)))
            #:local-build? #t))))

(define-record-type* <lizardfs-configuration>
  lizardfs-configuration
  make-lizardfs-configuration
  lizardfs-configuration?
  (package                  lizardfs-configuration-package
                            (default lizardfs))
  (mfsmetalogger-config     lizardfs-configuration-mfsmetalogger-config
                            (default (lizardfs-mfsmetalogger-config-file)))
  (mfschunkserver-config    lizardfs-configuration-mfschunkserver-config
                            (default (lizardfs-mfschunkserver-config-file)))
  (mfshdd-config            lizardfs-configuration-mfshdd-config
                            (default (lizardfs-mfshdd-config-file)))
  (mfsmaster-config         lizardfs-configuration-mfsmaster-config
                            (default (lizardfs-mfsmaster-config-file)))
  (run-mfsmetalogger-service? lizardfs-configuration-run-mfsmetalogger-service
                            (default #f))
  (mfsgoals-config          lizardfs-configuration-mfsgoals-config
                            (default (plain-file "mfsgoals.cfg"
                                                 (string-append
                                                   "1 1_copy : _\n"
                                                   "2 2_copies : _ _\n"
                                                   "3 3_copies : _ _ _\n"))))
  (mfsmount-config          lizardfs-configuration-mfsmount-config
                            (default (plain-file "mfsmount.cfg"
                                                 "")))
  (mfsexports-config        lizardfs-configuration-mfsexports-config
                            (default (plain-file "mfsexports.cfg"
                                                 "")))
  (mfstopology-config       lizardfs-configuration-mfstopology-config
                            (default (plain-file "mfstopology.cfg"
                                                 "")))
  (globaliolimits-config    lizardfs-configuration-globaliolimits-config
                            (default (plain-file "globaliolimits.cfg"
                                                 "")))
  (iolimits-config          lizardfs-configuration-iolimits-config
                            (default (plain-file "iolimits.cfg"
                                                 ""))))

(define lizardfs-shepherd-service
  (match-lambda
    (($ <lizardfs-configuration> package)
     (list
       (shepherd-service
         (documentation "Lizardfs mfsmaster server")
         (provision '(lizardfs))
         (requirement '(loopback))
         (start #~(make-forkexec-constructor
                    (list #$(file-append package "/sbin/mfsmaster")
                          "-c" "/etc/lizardfs/mfsmaster.cfg"
                          "-d" "start")
                    #:log-file "/var/log/mfsmaster.log"))
         (stop #~(make-system-destructor
                   #$(file-append package "/sbin/mfsmaster")
                   " -c /etc/lizardfs/mfsmaster.cfg"
                   " stop"))
         (respawn? #f)
         (auto-start? #f)
         )))))

(define lizardfs-mfsmetalogger-shepherd-service
  (match-lambda
    (($ <lizardfs-configuration> package)
     (list
       (shepherd-service
         (documentation "Lizardfs mfsmetalogger server")
         (provision '(lizardfs-mfsmetalogger))
         (requirement '(loopback lizardfs))
         (start #~(make-forkexec-constructor
                    (list #$(file-append package "/sbin/mfsmetalogger")
                          "-c" "/etc/lizardfs/mfsmetalogger.cfg"
                          "-d" "start")
                    #:log-file "/var/log/mfsmetalogger.log"))
         (stop #~(make-system-destructor
                   #$(file-append package "/sbin/mfsmetalogger")
                   " -c /etc/lizardfs/mfsmetalogger.cfg"
                   " stop"))
         (auto-start? #f)
         )))))

(define lizardfs-mfschunkserver-shepherd-service
  (match-lambda
    (($ <lizardfs-configuration> package)
     (list
       (shepherd-service
         (documentation "Lizardfs mfschunkserver server")
         (provision '(lizardfs-mfschunkserver))
         (requirement '(loopback lizardfs))
         (start #~(make-forkexec-constructor
                    (list #$(file-append package "/sbin/mfschunkserver")
                          "-c" "/etc/lizardfs/mfschunkserver.cfg"
                          "-d" "start")
                    #:log-file "/var/log/mfschunkserver.log"))
         (stop #~(make-system-destructor
                   #$(file-append package "/sbin/mfschunkserver")
                   " -c /etc/lizardfs/mfschunkserver.cfg"
                   " stop"))
         (auto-start? #f)
         )))))

(define lizardfs-mfsmount-shepherd-service
  (match-lambda
    (($ <lizardfs-configuration> package)
     (list
       (shepherd-service
         (documentation "Mount Lizardfs filesystems")
         (provision '(lizardfs-mounts))
         (requirement '(loopback))
         (start #~(make-forkexec-constructor
                    (list #$(file-append package "/bin/mfsmount")
                          ;#$mountpoint
                          "-o" "mfsdelayedinit")
                    ))
         ;(stop #~(make-system-destructor #$(file-append fuse "/bin/fusermount") " -u " #$mountpoint))
         (stop #~(make-kill-destructor))
         (auto-start? #f)
         )))))

(define (lizardfs-etc-service config)
  `(("lizardfs/globaliolimits.cfg"
     ,(lizardfs-configuration-globaliolimits-config config))
    ("lizardfs/iolimits.cfg"
     ,(lizardfs-configuration-iolimits-config config))
    ("lizardfs/mfschunkserver.cfg"
     ,(lizardfs-configuration-mfschunkserver-config config))
    ("lizardfs/mfsexports.cfg"
     ,(lizardfs-configuration-mfsexports-config config))
    ("lizardfs/mfsgoals.cfg"
     ,(lizardfs-configuration-mfsgoals-config config))
    ("lizardfs/mfshdd.cfg"
     ,(lizardfs-configuration-mfshdd-config config))
    ("lizardfs/mfsmaster.cfg"
     ,(lizardfs-configuration-mfsmaster-config config))
    ("lizardfs/mfsmetalogger.cfg"
     ,(lizardfs-configuration-mfsmetalogger-config config))
    ("lizardfs/mfsmount.cfg"
     ,(lizardfs-configuration-mfsmount-config config))
    ("lizardfs/mfstopology.cfg"
     ,(lizardfs-configuration-mfstopology-config config))))

(define (lizardfs-activation config)
  #~(begin
      (unless (and (file-exists? "/var/lib/lizardfs/metadata.mfs")
                   (lizardfs-configuration-run-mfsmetalogger-service config))
        ;; First run "service".
        (with-output-to-file "/var/lib/lizardfs/metadata.mfs"
          (lambda ()
            (format #t "MFSM NEW"))))
      #$(plain-file? (lizardfs-configuration-globaliolimits-config config))
      #$(plain-file? (lizardfs-configuration-iolimits-config config))
      #$(plain-file? (lizardfs-configuration-mfschunkserver-config config))
      #$(plain-file? (lizardfs-configuration-mfsexports-config config))
      #$(plain-file? (lizardfs-configuration-mfsgoals-config config))
      #$(plain-file? (lizardfs-configuration-mfshdd-config config))
      #$(plain-file? (lizardfs-configuration-mfsmaster-config config))
      #$(plain-file? (lizardfs-configuration-mfsmetalogger-config config))
      #$(plain-file? (lizardfs-configuration-mfsmount-config config))
      #$(plain-file? (lizardfs-configuration-mfstopology-config config))
      #t))

(define (lizardfs-services-to-run config)
  (append (lizardfs-shepherd-service config)
          (lizardfs-mfschunkserver-shepherd-service config)
          (if (lizardfs-configuration-run-mfsmetalogger-service config)
            (lizardfs-mfsmetalogger-shepherd-service config)
            '())))

(define lizardfs-service-type
  (service-type
    (name 'lizardfs)
    (extensions
      (list
        (service-extension shepherd-root-service-type
                           lizardfs-services-to-run)
        (service-extension activation-service-type
                           lizardfs-activation)
        (service-extension etc-service-type
                           lizardfs-etc-service)
        (service-extension account-service-type
                           (const %lizardfs-accounts))
        (service-extension profile-service-type
                           (compose list lizardfs-configuration-package))))
    (default-value (lizardfs-configuration))
    (description "")))