1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
|
;; if have -append-config then read and append here
(let ((cfname (args:get-arg "-append-config")))
(if (and cfname
(file-read-access? cfname))
(read-config cfname *configdat* #t))) ;; values are added to the hash, no need to do anything special.
;; have config at this time, this is a good place to set params based on config file settings
(let* ((dbmode (configf:lookup *configdat* "setup" "dbcache-mode")))
(if dbmode
(begin
(debug:print-info 0 *default-log-port* "Overriding dbmode to "dbmode)
(dbcache-mode (string->symbol dbmode)))))
*toppath*)))
(define (get-best-disk confdat testconfig)
(let* ((disks (or (and testconfig (hash-table-ref/default testconfig "disks" #f))
(hash-table-ref/default confdat "disks" #f)))
(minspace (let ((m (configf:lookup confdat "setup" "minspace")))
|
|
>
|
|
>
>
>
|
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
|
;; if have -append-config then read and append here
(let ((cfname (args:get-arg "-append-config")))
(if (and cfname
(file-read-access? cfname))
(read-config cfname *configdat* #t))) ;; values are added to the hash, no need to do anything special.
;; have config at this time, this is a good place to set params based on config file settings
(let* ((dbmode (configf:lookup *configdat* "setup" "dbcache-mode"))
(syncmode (configf:lookup *configdat* "setup" "sync-mode")))
(if dbmode
(begin
(debug:print-info 0 *default-log-port* "Overriding dbmode to "dbmode)
(dbcache-mode (string->symbol dbmode))))
(if syncmode
(begin
(debug:print-info 0 *default-log-port* "Overriding syncmode to "syncmode)
(dbfile:sync-method (string->symbol syncmode)))))
*toppath*)))
(define (get-best-disk confdat testconfig)
(let* ((disks (or (and testconfig (hash-table-ref/default testconfig "disks" #f))
(hash-table-ref/default confdat "disks" #f)))
(minspace (let ((m (configf:lookup confdat "setup" "minspace")))
|