Overview
Comment: | Add option dbdir to set database path |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | better-html-update-control |
Files: | files | file ages | folders |
SHA1: |
e68b3262ebbc43acaef0db640b830371 |
User & Date: | matt on 2015-03-08 08:22:13 |
Other Links: | branch diff | manifest | tags |
Context
2015-03-08
| ||
08:25 | Add trailing slash to dbdir check-in: 3c58f4639b user: matt tags: better-html-update-control | |
08:22 | Add option dbdir to set database path check-in: e68b3262eb user: matt tags: better-html-update-control | |
2015-03-07
| ||
22:33 | Implemented simple locking for html update. check-in: e2a733c021 user: matt tags: better-html-update-control | |
Changes
Modified db.scm from [23d4e4d7d7] to [b5e5388382].
︙ | ︙ | |||
140 141 142 143 144 145 146 147 | ;; (filedb:get-path db id))) ;; NB// #f => zeroth db with name=main.db ;; (define (db:dbfile-path run-id) (let* (;; (toppath (dbr:dbstruct-get-path dbstruct)) (link-tree-path (configf:lookup *configdat* "setup" "linktree")) (fname (if (eq? run-id 0) "main.db" (conc run-id ".db"))) | > > > | | 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 | ;; (filedb:get-path db id))) ;; NB// #f => zeroth db with name=main.db ;; (define (db:dbfile-path run-id) (let* (;; (toppath (dbr:dbstruct-get-path dbstruct)) (link-tree-path (configf:lookup *configdat* "setup" "linktree")) (dbpath (configf:lookup *configdat* "setup" "dbdir")) (fname (if (eq? run-id 0) "main.db" (conc run-id ".db"))) (dbdir (if dbpath dbpath (conc link-tree-path "/.db/")))) (handle-exceptions exn (begin (debug:print 0 "ERROR: Couldn't create path to " dbdir) (exit 1)) (if (not (directory? dbdir))(create-directory dbdir #t))) (conc dbdir fname))) |
︙ | ︙ |
Modified tests/fullrun/megatest.config from [76d08fa242] to [7eaf93474b].
︙ | ︙ | |||
25 26 27 28 29 30 31 | [setup] # Set launchwait to no to use the more agressive code that does not wait for the launch to complete before proceeding # this may save a few milliseconds on launching tests # launchwait no waivercommentpatt ^WW\d+ [a-z].* incomplete-timeout 1 | > > > | < < | 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 | [setup] # Set launchwait to no to use the more agressive code that does not wait for the launch to complete before proceeding # this may save a few milliseconds on launching tests # launchwait no waivercommentpatt ^WW\d+ [a-z].* incomplete-timeout 1 # set the dbdir, default is linktree dbdir #{getenv MT_RUN_AREA_HOME}/db # wait for runs to completely complete. yes, anything else is no run-wait yes # If set to "default" the old code is used. Otherwise defaults to 200 or uses # numeric value given. # runqueue 20 # Default runtimelim 1d 1h 1m 10s |
︙ | ︙ |