@@ -31,11 +31,11 @@
 ;; 
 ;;======================================================================
 
 ;; NOT CURRENTLY USED
 ;;
-(define (archive:main linktree target runname testname itempath options)
+#;(define (archive:main linktree target runname testname itempath options)
   (let ((testdir (conc linktree "/" target "/" runname "/" testname "/" itempatt))
 	(flavor  'plain) ;; type of machine to run jobs on
 	(maxload 1.5)   ;; max allowed load for this work
 	(adisks  (archive:get-archive-disks)))
     ;; get testdir size
@@ -364,11 +364,11 @@
 		     (run-n-wait bup-exe params: bup-save-params print-cmd: print-prefix)))
                (else
                    (debug:print-info 0 *default-log-port* "No support for databse archiving with " archiver)))
                (debug:print-error 0 *default-log-port* "There was an error rsyncing tmp database")))))
 
-(define (archive:restore-db archive-path ts)
+#;(define (archive:restore-db archive-path ts)
    (let* ((bup-exe               (or (configf:lookup *configdat* "archive" "bup") "bup"))
          (archive-internal-path (conc (common:get-testsuite-name) "-megatest-db/" ts "/megatest.db" ))
          (bup-restore-params  (list "-d" archive-path "restore" "-C" *toppath* archive-internal-path)))
 		 (debug:print-info 0 *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: #f))