Overview
| Comment: | Forced cleanup db on changing versions |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.61 |
| Files: | files | file ages | folders |
| SHA1: |
c2ba631f768711d61544e9392c16e58a |
| User & Date: | ritikaag on 2016-05-18 11:21:07 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-06-21
| ||
| 04:06 | Merging first phase of redir-logs into v1.61 check-in: 1f31d511c0 user: matt tags: v1.61 | |
|
2016-06-16
| ||
| 03:19 | Added param for overriding port to debug:print and debug:print-info check-in: 7b4d2dba0e user: matt tags: redir-logs | |
|
2016-05-18
| ||
| 15:51 | Merged with the latest 1.61/02 changes check-in: 3f21429f4f user: ritikaag tags: mtdboard | |
| 11:21 | Forced cleanup db on changing versions check-in: c2ba631f76 user: ritikaag tags: v1.61 | |
|
2016-05-16
| ||
| 17:13 | Split show/hide to two buttons check-in: cf1f6d704a user: mrwellan tags: v1.61 | |
Changes
Modified common.scm from [49cb5d370b] to [421424f2aa].
| ︙ | ︙ | |||
153 154 155 156 157 158 159 |
(define (common:version-changed?)
(not (equal? (common:get-last-run-version)
(common:version-signature))))
(define (common:exit-on-version-changed)
(if (common:version-changed?)
(begin
| | > > > > > > > > > | 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 |
(define (common:version-changed?)
(not (equal? (common:get-last-run-version)
(common:version-signature))))
(define (common:exit-on-version-changed)
(if (common:version-changed?)
(begin
(debug:print 0
"ERROR: Version mismatch!\n"
" expected: " (common:version-signature) "\n"
" got: " (common:get-last-run-version) "\n"
" to switch versions you can run: \"megatest -cleanup-db\"")
;; megatest -cleanup-db IS NOT correcting the dbver. Let's force it for now.
;; Matt: please review this!
(db:multi-db-sync
#f
'killservers
'dejunk
'new2old)
(rmt:set-var "MEGATEST_VERSION" (common:version-signature))
(exit 1))))
;;======================================================================
;; S P A R S E A R R A Y S
;;======================================================================
(define (make-sparse-array)
|
| ︙ | ︙ |