@@ -226,11 +226,11 @@
                             will substitute %s for the sheet name in generating 
                             multiple sheets)
   -o                      : output file for refdb2dat (defaults to stdout)
   -archive cmd            : archive runs specified by selectors to one of disks specified
                             in the [archive-disks] section.
-                            cmd: keep-html, restore, save, save-remove, get (use 
+                            cmd: keep-html, restore, save, save-remove, get,replicate-db (use 
                             -dest to set destination), -include path1,path2... to get or save specific files
   -generate-html          : create a simple html dashboard for browsing your runs
   -generate-html-structure  : create a top level html veiw to list targets/runs and a Run view within each run directory.  
   -list-run-time          : list time requered to complete runs. It supports following switches
                             -run-patt <patt> -target-patt <patt> -dumpmode <csv,json,plain-text>
@@ -301,10 +301,12 @@
 
 			"-days"
 			"-rename-run"
 			"-to"
 			"-dest"
+                        "-source" 
+                        "-time-stamp" 
 			;; values and messages
 			":category"
 			":variable"
 			":value"
 			":expected"
@@ -1913,12 +1915,42 @@
 
 ;;======================================================================
 ;; Archive tests
 ;;======================================================================
 ;; Archive tests matching target, runname, and testpatt
-(if (args:get-arg "-archive")
+(if (equal? (args:get-arg "-archive") "replicacte-db")
+    (begin
+          ;; check if source
+          ;; check if megatest.db exist 
+         (launch:setup)   
+         (if (not (args:get-arg "-source"))
+             (begin 
+             (debug:print-info 1 *default-log-port* "Missing required argument -source <archive path>")
+             (exit 1)))
+         (if (common:file-exists? (conc  *toppath* "/megatest.db"))
+             (begin  
+               (debug:print-info 1 *default-log-port* "File " (conc  *toppath* "/megatest.db") " already exists. Please remove it before trying to replicate db")
+               (exit 1)))
+         (if (and (common:get-db-tmp-area) (> (length (directory   (common:get-db-tmp-area) #f)) 0))
+           (begin
+           (debug:print-info 1 *default-log-port* (common:get-db-tmp-area) " not empty. Please remove it before trying to replicate db")
+           (exit 1)))    
+          ;; check if timestamp 
+          (let* ((source (args:get-arg "-source"))
+                (src     (if (not (equal? (substring source 0 1) "/"))
+                             (conc (current-directory) "/" source)
+                             source))
+                (ts (if (args:get-arg "-time-stamp")   (args:get-arg "-time-stamp") "latest")))
+              (if  (common:directory-exists? src)
+                  (begin 
+                  (archive:restore-db src ts)
+            (set! *didsomething* #t))
+       (begin
+         (debug:print-error 1 *default-log-port* "Path " source " not found")
+         (exit 1))))))   
     ;; else do a general-run-call
+   (if (and (args:get-arg "-archive") (not (equal? (args:get-arg "-archive") "replicacte-db"))) 
     (begin
       ;; for the archive get we need to preserve the starting dir as part of the target path
       (if (and (args:get-arg "-dest")
 	       (not (equal? (substring (args:get-arg "-dest") 0 1) "/")))
 	  (let ((newpath  (conc (current-directory) "/" (args:get-arg "-dest"))))