Megatest

Check-in [4e923ad188]
Login
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: 4e923ad188358faa79e76c42f08546de3f12d389
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
441


442
443
444
445
446
447
448
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)))
     (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)