2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
|
(if (args:get-arg "-db2db")
(let* ((duh (launch:setup))
(src-db (args:get-arg "-from"))
(dest-db (args:get-arg "-to"))
(sync-period (args:get-arg "-period")) ;; NOT IMPLEMENTED YET
(sync-timeout (args:get-arg "-timeout")) ;; NOT IMPLEMENTED YET
(lockfile (conc dest-db".lock"))
;; (locked (common:simple-file-lock lockfile))
(res ;; (if locked
(dbmod:db-to-db-sync src-db dest-db 0 (dbfile:db-init-proc) keys)
;; #f)))
))
(if res
(begin
(common:simple-file-release-lock lockfile)
(debug:print 0 *default-log-port* "Synced " res " records from "src-db" to "dest-db))
(debug:print 0 *default-log-port* "Skipping sync, there is a sync in progress."))
(set! *didsomething* #t))
(debug:print 0 *default-log-port* "Usage for -db2db; -to and -from must be specified"))))
(if (args:get-arg "-list-test-time")
(let* ((toppath (launch:setup)))
(task:get-test-times)
(set! *didsomething* #t)))
(if (args:get-arg "-list-run-time")
|
<
<
<
<
<
>
|
|
>
>
>
|
|
|
|
|
|
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
|
(if (args:get-arg "-db2db")
(let* ((duh (launch:setup))
(src-db (args:get-arg "-from"))
(dest-db (args:get-arg "-to"))
(sync-period (args:get-arg "-period")) ;; NOT IMPLEMENTED YET
(sync-timeout (args:get-arg "-timeout")) ;; NOT IMPLEMENTED YET
(lockfile (conc dest-db".lock"))
(keys (db:get-keys #f))
)
(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 (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)
(debug:print 0 *default-log-port* "Synced " res " records from "src-db" to "dest-db)))
(debug:print 0 *default-log-port* "Skipping sync, there is a sync in progress."))
(set! *didsomething* #t))
(debug:print 0 *default-log-port* "Usage for -db2db; -to and -from must be specified"))
(if (args:get-arg "-list-test-time")
(let* ((toppath (launch:setup)))
(task:get-test-times)
(set! *didsomething* #t)))
(if (args:get-arg "-list-run-time")
|