20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
;;======================================================================
;;
;;======================================================================
;; NOT CURRENTLY USED
;;
#;(define (archive:main linktree target runname testname itempath options)
|
|
|
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
;;======================================================================
;;
;;======================================================================
;; 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)
|