Overview
| Comment: | Better message on failed access to drop triggers on megatest.db |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-wip |
| Files: | files | file ages | folders |
| SHA1: |
54f26c491b0d2dd73fc2c9e7823e3aca |
| User & Date: | mrwellan on 2019-09-27 16:04:36 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-10-01
| ||
| 21:38 | Merged in v1.65 check-in: a114850abb user: matt tags: v1.65-wip | |
|
2019-09-27
| ||
| 16:04 | Better message on failed access to drop triggers on megatest.db check-in: 54f26c491b user: mrwellan tags: v1.65-wip | |
| 13:46 | Add ulex loading check-in: 5b4dacbff2 user: mrwellan tags: v1.65-wip | |
Changes
Modified db.scm from [0b0178c202] to [5cbdd1ef19].
| ︙ | ︙ | |||
306 307 308 309 310 311 312 |
;(fmt (file-modification-time tmpdbfname))
(modtimedelta (and mtdbmodtime tmpdbmodtime (- mtdbmodtime tmpdbmodtime))))
(handle-exceptions
exn
(let ((call-chain (get-call-chain))
(msg ((condition-property-accessor 'exn 'message) exn)))
| | < | 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 |
;(fmt (file-modification-time tmpdbfname))
(modtimedelta (and mtdbmodtime tmpdbmodtime (- mtdbmodtime tmpdbmodtime))))
(handle-exceptions
exn
(let ((call-chain (get-call-chain))
(msg ((condition-property-accessor 'exn 'message) exn)))
(debug:print 0 *default-log-port* "ERROR: attempted to drop triggers on MTRA/megatest.db but failed. Error is " msg)
(set! write-access #f)) ;; if we failed to drop the triggers then we probably don't have write access
(when write-access
(sqlite3:execute (car mtdb) "drop trigger if exists update_tests_trigger")
(sqlite3:execute (car mtdb) "drop trigger if exists update_runs_trigger")))
;(print "mtdbmodtime " mtdbmodtime " tmpdbmodtime " tmpdbmodtime " mtdbpath " mtdbpath " " (conc *toppath* "/megatest.db"))
;;(debug:print-info 13 *default-log-port* "db:open-db>> mtdbpath="mtdbpath" mtdbexists="mtdbexists" and write-access="write-access)
|
| ︙ | ︙ |