@@ -284,10 +284,11 @@
   -list-test-time	  : list time requered to complete each test in a run. It following following arguments
                             -runname <patt> -target <patt> -dumpmode <csv,json,plain-text>
   -syscheck               : do some very basic checks; write access and space in tmp, home, runs, links and 
                             is $DISPLAY valid 
   -list-waivers           : dump waivers for specified target, runname, testpatt to stdout
+  -db2db                  : sync db to db, use -from and -to to specify the databases
 
 Diff report
   -diff-rep               : generate diff report (must include -src-target, -src-runname, -target, -runname
                                                   and either -diff-email or -diff-html)
   -src-target <target>
@@ -346,10 +347,11 @@
 			"-m"
 			"-rerun"
 
 			"-days"
 			"-rename-run"
+			"-from"
 			"-to"
 			"-dest"
                         "-source" 
                         "-time-stamp" 
 			;; values and messages
@@ -450,11 +452,10 @@
 			"-cache-db"
 			"-cp-eventtime-to-publishtime"
                         "-use-db-cache"
                         "-prepend-contour"
 
-
 			;; misc
 			"-repl"
 			"-lock"
 			"-unlock"
 			"-list-servers"
@@ -495,10 +496,11 @@
 
 			"-convert-to-norm"
 			"-convert-to-old"
 			"-import-megatest.db"
 			"-sync-to-megatest.db"
+			"-db2db"
                         "-sync-brute-force"
 			"-logging"
 			"-v" ;; verbose 2, more than normal (normal is 1)
 			"-q" ;; quiet 0, errors/warnings only
 
@@ -2560,10 +2562,35 @@
 (if (args:get-arg "-sync-to")
     (let ((toppath (launch:setup)))
       (tasks:sync-to-postgres *configdat* (args:get-arg "-sync-to"))
       (set! *didsomething* #t)))
 
+;; use with -from and -to
+;;
+(if (args:get-arg "-db2db")
+    (let* ((duh      (launch:setup))
+	   (src-db   (args:get-arg "-from"))
+	   (dest-db  (args:get-arg "-to"))
+	   (lockfile (conc dest-db".lock"))
+	   ;; (locked   (common:simple-file-lock lockfile))
+	   (keys     (db:get-keys #f))
+	   (res      ;; (if locked
+			 (dbmod:db-to-db-sync src-db dest-db 0 (dbfile:db-init-proc) 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 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)))