diff options
Diffstat (limited to 'gn/services/file-systems.scm')
| -rw-r--r-- | gn/services/file-systems.scm | 653 |
1 files changed, 0 insertions, 653 deletions
diff --git a/gn/services/file-systems.scm b/gn/services/file-systems.scm deleted file mode 100644 index 386f2ac..0000000 --- a/gn/services/file-systems.scm +++ /dev/null @@ -1,653 +0,0 @@ -(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 ""))) |