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