@@ -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, -to for dbs, -period and -timeout for continuous sync
 
 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>
@@ -333,11 +334,11 @@
 			":status"
 			"-status"
 			"-list-runs"
                         "-testdata-csv"
 			"-testpatt"
-                        "--modepatt"
+                        ;; "--modepatt"
                         "-modepatt"
                         "-tagexpr"
 			"-itempatt"
 			"-setlog"
 			"-set-toplog"
@@ -346,10 +347,11 @@
 			"-m"
 			"-rerun"
 
 			"-days"
 			"-rename-run"
+			"-from"
 			"-to"
 			"-dest"
                         "-source" 
                         "-time-stamp" 
 			;; values and messages
@@ -378,10 +380,12 @@
 			"-envcap"
 			"-envdelta"
 			"-setvars"
 			"-set-state-status"
 			"-import-sexpr"
+			"-period"  ;; sync period in seconds
+			"-timeout" ;; exit sync if timeout in seconds exceeded since last change
 
                         ;; move runs stuff here
                         "-remove-keep"           
 			"-set-run-status"
 			"-age"
@@ -495,10 +499,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 +2565,44 @@
 (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"))
+	   (sync-period (args:get-arg "-period"))    ;; NOT IMPLEMENTED YET
+	   (sync-timeout (args:get-arg "-timeout"))  ;; NOT IMPLEMENTED YET
+	   (lockfile    (conc dest-db".sync-lock"))
+	   (keys        (db:get-keys #f))
+	   )
+      
+      (if (and src-db dest-db)
+	  (if (file-exists? src-db)
+	      (if (file-exists? lockfile)
+		  (debug:print 0 *default-log-port* "Lock "lockfile" exists, skipping sync...")
+		  (begin
+		    (with-output-to-file lockfile
+		      (lambda ()
+			(print (current-process-id))))
+		    (debug:print-info 0 *default-log-port* "Attempting to sync data from "src-db" to "dest-db"...")
+		    (if (not (file-exists? dest-db))
+			(begin
+			  (debug:print 0 *default-log-port* "Using copy to create "dest-db" from "src-db)
+			  (file-copy src-db dest-db))
+			(let ((res (dbmod:db-to-db-sync src-db dest-db 0 (dbfile:db-init-proc) keys)))
+			  (if res
+			      (debug:print-info 0 *default-log-port* "Synced " res " records from "src-db" to "dest-db)
+			      (debug:print-info 0 *default-log-port* "No sync due to permissions or other issue."))))
+		    (delete-file* lockfile)))
+	      (debug:print 0 *default-log-port* "No sync due to unreadble or non-existant source file"src-db))
+	  (debug:print 0 *default-log-port* "Usage for -db2db; -to and -from must be specified"))
+      (set! *didsomething* #t)))
+
 (if (args:get-arg "-list-test-time")
      (let* ((toppath (launch:setup))) 
      (task:get-test-times)  
      (set! *didsomething* #t)))