@@ -2579,17 +2579,11 @@ ) (if (and src-db dest-db) (begin (debug:print-info 0 *default-log-port* "Attempting to sync data from "src-db" to "dest-db"...") - ;; (if (common:simple-file-lock lockfile) - ;; (begin - (if (and (file-exists? src-db) - (not (file-exists? dest-db))) ;; use copy to get going - (file-copy src-db dest-db)) (let ((res (dbmod:db-to-db-sync src-db dest-db 0 (dbfile:db-init-proc) keys))) - ;; (common:simple-file-release-lock lockfile) (if res (debug:print 0 *default-log-port* "Synced " res " records from "src-db" to "dest-db) (debug:print 0 *default-log-port* "No sync due to permissions or non-existant source db.")))) (debug:print 0 *default-log-port* "Skipping sync, there is a sync in progress.")) (set! *didsomething* #t))