Overview
| Comment: | Corrected dashboard sync direction and tmpadj from /dashboard to nothing |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
df20d307c11bb775333ea58b5b5d0b9f |
| User & Date: | mmgraham on 2024-05-17 11:19:12 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-05-21
| ||
| 11:46 | added list of preq-fail tests to messages and db comments check-in: e8d7732e53 user: mmgraham tags: v1.80 | |
|
2024-05-17
| ||
| 11:19 | Corrected dashboard sync direction and tmpadj from /dashboard to nothing check-in: df20d307c1 user: mmgraham tags: v1.80 | |
|
2024-05-15
| ||
| 16:40 | removed default setting of rmt:transport-mode in dashboard to tcp check-in: bd0c02e52d user: mmgraham tags: v1.80 | |
Changes
Modified dbmod.scm from [2bc6505880] to [fcf26556ab].
| ︙ | ︙ | |||
75 76 77 78 79 80 81 |
;; called in rmt.scm nfs-transport-handler
(define (dbmod:nfs-get-dbstruct run-id keys init-proc areapath #!key (tmpadj ""))
(assert areapath "FATAL: dbmod:nfs-get-dbstruct called without areapath set.")
(let* ((dbfname (dbmod:run-id->dbfname run-id))
(dbstruct (hash-table-ref/default *dbmod:nfs-db-handles* dbfname #f)))
(if dbstruct
dbstruct
| | | 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 |
;; called in rmt.scm nfs-transport-handler
(define (dbmod:nfs-get-dbstruct run-id keys init-proc areapath #!key (tmpadj ""))
(assert areapath "FATAL: dbmod:nfs-get-dbstruct called without areapath set.")
(let* ((dbfname (dbmod:run-id->dbfname run-id))
(dbstruct (hash-table-ref/default *dbmod:nfs-db-handles* dbfname #f)))
(if dbstruct
dbstruct
(let* ((newdbstruct (dbmod:open-dbmoddb areapath run-id dbfname init-proc keys syncdir: 'todisk)))
(hash-table-set! *dbmod:nfs-db-handles* dbfname newdbstruct)
newdbstruct))))
;;======================================================================
;; The cachedb one-db file per server method goes in here
;;======================================================================
|
| ︙ | ︙ |
Modified rmt.scm from [b6600b2d34] to [07e78d96d7].
| ︙ | ︙ | |||
92 93 94 95 96 97 98 |
((http)(http-transport-handler runremote cmd rid params attemptnum area-dat areapath readonly-mode))
((tcp) (tcp-transport-handler runremote cmd rid params attemptnum area-dat areapath readonly-mode testsuite mtexe))
((nfs) (nfs-transport-handler runremote cmd rid params attemptnum area-dat areapath readonly-mode testsuite mtexe))
)))
(define (nfs-transport-handler runremote cmd run-id params attemptnum area-dat areapath readonly-mode testsuite mtexe)
(let* ((keys (common:get-fields *configdat*))
| | | 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 |
((http)(http-transport-handler runremote cmd rid params attemptnum area-dat areapath readonly-mode))
((tcp) (tcp-transport-handler runremote cmd rid params attemptnum area-dat areapath readonly-mode testsuite mtexe))
((nfs) (nfs-transport-handler runremote cmd rid params attemptnum area-dat areapath readonly-mode testsuite mtexe))
)))
(define (nfs-transport-handler runremote cmd run-id params attemptnum area-dat areapath readonly-mode testsuite mtexe)
(let* ((keys (common:get-fields *configdat*))
(dbstruct (dbmod:nfs-get-dbstruct run-id keys (dbfile:db-init-proc) areapath)))
(api:dispatch-request dbstruct cmd run-id params)))
(define (tcp-transport-handler runremote cmd run-id params attemptnum area-dat areapath readonly-mode testsuite mtexe)
(if (not runremote)
(let* ((newremote (make-and-init-remote areapath)))
(set! *runremote* newremote)
(set! runremote newremote)))
|
| ︙ | ︙ |