Overview
| Comment: | Added server parameter debug-parameter (set to -:p to profile for example). |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
d15b736af871d426ccb72f397b60a420 |
| User & Date: | matt on 2023-05-22 16:52:43 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-05-22
| ||
| 17:21 | Missed change check-in: 63f66b4145 user: matt tags: v1.80 | |
| 17:00 | Cherry pick 1443 and 41255, caching check-in: 816d0a281b user: matt tags: v1.80-servload2 | |
| 16:52 | Added server parameter debug-parameter (set to -:p to profile for example). check-in: d15b736af8 user: matt tags: v1.80 | |
| 12:09 | Changed delay to linear function 0.25 * number of threads over 3. check-in: f42bab9286 user: matt tags: v1.80 | |
Changes
Modified launch.scm from [a591d57e2c] to [4f5a6f2f65].
| ︙ | ︙ | |||
1153 1154 1155 1156 1157 1158 1159 1160 1161 |
(set! *configstatus* 'fulldata)))
;; 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"))
| > | > | > > > > | > | 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 |
(set! *configstatus* 'fulldata)))
;; 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"))
(srvdebug (configf:lookup *configdat* "server" "debug-parameter")))
(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))))
(if srvdebug
(begin
(debug:print-info 0 *default-log-port* "Overriding server debug parameter to "srvdebug)
(tt-server-profile-string srvdebug)))
)
*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")))
|
| ︙ | ︙ |