@@ -31,32 +31,32 @@
 ;; 
 ;;======================================================================
 
 ;; NOT CURRENTLY USED
 ;;
-(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
-    ;;   - hand off du to job mgr
-    (if (and (common:file-exists? testdir)
-	     (file-writable? testdir))
-	(let* ((dused  (jobrunner:run-job 
-			flavor  ;; machine type
-			maxload ;; max allowed load
-			'()     ;; prevars - environment vars to set for the job
-			common:get-disk-space-used  ;; if a proc call it, if a string it is a unix command
-			(list testdir)))
-	       (apath  (archive:get-archive testname itempath dused)))
-	  (jobrunner:run-job
-	   flavor
-	   maxload
-	   '()
-	   archive:run-bup
-	   (list testdir apath))))))
+;; (define (archive:main linktree target runname testname itempath options)
+;;   (let ((testdir (conc linktree "/" target "/" runname "/" testname "/" itempath))
+;; 	(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
+;;     ;;   - hand off du to job mgr
+;;     (if (and (common:file-exists? testdir)
+;; 	     (file-writable? testdir))
+;; 	(let* ((dused  (jobrunner:run-job 
+;; 			flavor  ;; machine type
+;; 			maxload ;; max allowed load
+;; 			'()     ;; prevars - environment vars to set for the job
+;; 			common:get-disk-space-used  ;; if a proc call it, if a string it is a unix command
+;; 			(list testdir)))
+;; 	       (apath  (archive:get-archive testname itempath dused)))
+;; 	  (jobrunner:run-job
+;; 	   flavor
+;; 	   maxload
+;; 	   '()
+;; 	   archive:run-bup
+;; 	   (list testdir apath))))))
 	  
 ;; Get archive disks from megatest.config
 ;;
 (define (archive:get-archive-disks)
   (let ((section (configf:get-section *configdat* "archive-disks")))