Index: dashboard-transport-mode.scm.template ================================================================== --- dashboard-transport-mode.scm.template +++ dashboard-transport-mode.scm.template @@ -14,9 +14,9 @@ ;; (dbfile:cache-method 'none) ;; (rmt:transport-mode 'nfs) ;; uncomment this block to test with tcp and inmem (dbfile:sync-method 'original) -(dbfile:cache-method 'inmem) +(dbfile:cache-method 'none) (rmt:transport-mode 'nfs) Index: dbmod.scm ================================================================== --- dbmod.scm +++ dbmod.scm @@ -129,10 +129,11 @@ dbh: (dbr:dbstruct-inmem dbstruct) ))) (dbr:dbstruct-dbdat-set! dbstruct dbdat) dbdat))) +;; NOT USED? (define (dbmod:need-on-disk-db-handle) (case (dbfile:cache-method) ((none tmp) #t) ((inmem) (case (dbfile:sync-method) @@ -181,11 +182,11 @@ (if (not (file-exists? tmpdir))(create-directory tmpdir)) ;; check if tmpdb already exists, either delete it or ;; add something to the name fname)) (inmem (dbmod:open-inmem-db init-proc - (if (eq? (dbcache-mode) 'inmem) + (if (eq? (dbfile:cache-method) 'inmem) #f tmpdb) )) (write-access (file-write-access? dbpath)) (db (dbmod:safely-open-db dbfullname init-proc write-access)) Index: transport-mode.scm.template ================================================================== --- transport-mode.scm.template +++ transport-mode.scm.template @@ -14,9 +14,9 @@ ;; (dbfile:cache-method 'none) ;; (rmt:transport-mode 'nfs) ;; uncomment this block to test with tcp and inmem (dbfile:sync-method 'original) ;; attach) -(dbfile:cache-method 'inmem) +(dbfile:cache-method 'tmp) (rmt:transport-mode 'tcp)