Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80-servload |
| Files: | files | file ages | folders |
| SHA1: |
1e38d0d69d940cbc39a740dc22a70a6e |
| User & Date: | matt on 2023-05-03 22:05:18 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-05-04
| ||
| 09:21 | Removed not-working-very-well threading stuff from dashboard and put sync in separate but joined process. check-in: 907e020fcf user: mrwellan tags: v1.80-servload | |
|
2023-05-03
| ||
| 22:05 | wip check-in: 1e38d0d69d user: matt tags: v1.80-servload | |
| 21:49 | Sorta working but not really... check-in: 81dd2a2efe user: matt tags: v1.80-servload | |
Changes
Modified dbmod.scm from [7ef30ab344] to [e52ded043e].
| ︙ | ︙ | |||
225 226 227 228 229 230 231 | (if *sync-in-progress* (debug:print 3 *default-log-port* "WARNING: overlapping calls to sync to disk") (begin (mutex-lock! *db-with-db-mutex*) ;; this mutex is used when overloaded or during a query that modifies the db (set! *sync-in-progress* #t) #;(dbmod:sync-gasket tables last-update inmem db dbfullname syncdir) | | | 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 |
(if *sync-in-progress*
(debug:print 3 *default-log-port* "WARNING: overlapping calls to sync to disk")
(begin
(mutex-lock! *db-with-db-mutex*) ;; this mutex is used when overloaded or during a query that modifies the db
(set! *sync-in-progress* #t)
#;(dbmod:sync-gasket tables last-update inmem db
dbfullname syncdir)
(system (conc "megatest -db2db -from "tmpdb" -to "dbfullname"&"))
(mutex-unlock! *db-with-db-mutex*)
(thread-sleep! 0.5) ;; ensure at least 1/2 second down time between sync calls
(set! *sync-in-progress* #f)))))
;; (dbmod:sync-tables tables #f db inmem)
;; (if db
(dbmod:sync-gasket tables #f inmem db dbfullname 'fromdest keys) ;; ) ;; load into inmem
(dbr:dbstruct-last-update-set! dbstruct (current-seconds)) ;; should this be offset back in time by one second?
|
| ︙ | ︙ |