Overview
| Comment: | preparing for merge |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63-configdbsync |
| Files: | files | file ages | folders |
| SHA1: |
f1e2f0433e1157b97c21b0f916d003e4 |
| User & Date: | srehman on 2017-01-10 11:50:13 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-01-10
| ||
| 12:06 | merged with latest v1.63, fixed merge conflicts with db.scm check-in: 0764f1e0bc user: srehman tags: v1.63-configdbsync | |
| 11:50 | preparing for merge check-in: f1e2f0433e user: srehman tags: v1.63-configdbsync | |
|
2017-01-09
| ||
| 17:17 | added sqlite3 switch back check-in: 4b9956034c user: srehman tags: v1.63-configdbsync | |
Changes
Modified db.scm from [2c21b2df15] to [03ae1f6f87].
| ︙ | ︙ | |||
561 562 563 564 565 566 567 |
;; db's are dbdat's
;;
;; if last-update specified ("field-name" . time-in-seconds)
;; then sync only records where field-name >= time-in-seconds
;; IFF field-name exists
;;
(define (db:sync-tables tbls last-update fromdb todb . slave-dbs)
| < | 561 562 563 564 565 566 567 568 569 570 571 572 573 574 |
;; db's are dbdat's
;;
;; if last-update specified ("field-name" . time-in-seconds)
;; then sync only records where field-name >= time-in-seconds
;; IFF field-name exists
;;
(define (db:sync-tables tbls last-update fromdb todb . slave-dbs)
(set! todb (cons (dbi:convert (db:dbdat-get-db todb)) (db:dbdat-get-path todb)))
(set! fromdb (cons (dbi:convert (db:dbdat-get-db fromdb)) (db:dbdat-get-path fromdb)))
(handle-exceptions
exn
(begin
(debug:print 0 *default-log-port* "EXCEPTION: database probably overloaded or unreadable in db:sync-tables.")
|
| ︙ | ︙ |