Megatest

Diff
Login

Differences From Artifact [46d9ed9faa]:

To Artifact [a7eb8f34d2]:



1
2
3
4
5
6
7
1
2
3
4
5
6
7
8
+








;;======================================================================
;; Copyright 2017, Matthew Welland.
;; 
;; This file is part of Megatest.
;; 
;;     Megatest is free software: you can redistribute it and/or modify
;;     it under the terms of the GNU General Public License as published by
463
464
465
466
467
468
469
470
471





472
473
474
475
476
477
478
464
465
466
467
468
469
470


471
472
473
474
475
476
477
478
479
480
481
482







-
-
+
+
+
+
+








(define (archive:restore-db archive-path ts)
   (let* ((bup-exe               (or (configf:lookup *configdat* "archive" "bup") "bup"))
         (archive-internal-path (conc (common:get-area-name) "-megatest-db/" ts "/megatest.db" ))
         (bup-restore-params  (list "-d" archive-path "restore" "-C" *toppath* archive-internal-path)))
		 (debug:print-info 2 *default-log-port* "Restoring archived data to " *toppath* " from archive in " archive-path " ... " archive-internal-path)
		 (run-n-wait bup-exe params: bup-restore-params print-cmd: "Running:"))
      (sleep 2)
      (db:multi-db-sync 
   (sleep 2)

   ;; TODO: restore this functionality
   
      #;(db:multi-db-sync 
       (db:setup #f)
       'killservers
       ;'dejunk
       ;'adj-testids
       'old2new
       )
      (debug:print-info 1 *default-log-port* "dropping triggers to update linktree")