Overview
| Comment: | Add full exit when server hits issue |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
4e923ad188358faa79e76c42f08546de |
| User & Date: | mrwellan on 2014-11-17 00:11:02 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-11-17
| ||
| 17:15 | Some fixes check-in: e5288739a1 user: mrwellan tags: v1.60 | |
| 00:11 | Add full exit when server hits issue check-in: 4e923ad188 user: mrwellan tags: v1.60 | |
|
2014-11-16
| ||
| 22:42 | Fixed wrong order in calculation of sync time check-in: c0bc542d13 user: matt tags: v1.60 | |
Changes
Modified db.scm from [658953f833] to [f79d03493a].
| ︙ | ︙ | |||
434 435 436 437 438 439 440 |
(debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
(print "exn=" (condition->list exn))
(debug:print 0 " status: " ((condition-property-accessor 'sqlite3 'status) exn))
(debug:print 0 " src db: " (db:dbdat-get-path fromdb))
(for-each (lambda (dbdat)
(debug:print 0 " dbpath: " (db:dbdat-get-path dbdat)))
(cons todb slave-dbs))
| | > | 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 |
(debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
(print "exn=" (condition->list exn))
(debug:print 0 " status: " ((condition-property-accessor 'sqlite3 'status) exn))
(debug:print 0 " src db: " (db:dbdat-get-path fromdb))
(for-each (lambda (dbdat)
(debug:print 0 " dbpath: " (db:dbdat-get-path dbdat)))
(cons todb slave-dbs))
(print-call-chain (current-error-port))
(exit 1))
(cond
((not fromdb) (debug:print 3 "WARNING: db:sync-tables called with fromdb missing") -1)
((not todb) (debug:print 3 "WARNING: db:sync-tables called with todb missing") -2)
((not (sqlite3:database? (db:dbdat-get-db fromdb)))
(debug:print 0 "ERROR: db:sync-tables called with fromdb not a database " fromdb) -3)
((not (sqlite3:database? (db:dbdat-get-db todb)))
(debug:print 0 "ERROR: db:sync-tables called with todb not a database " todb) -4)
|
| ︙ | ︙ |