18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
;; strftime('%m/%d/%Y %H:%M:%S','now','localtime')
;;======================================================================
;;
;;======================================================================
;; 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
|
|
|
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
;; strftime('%m/%d/%Y %H:%M:%S','now','localtime')
;;======================================================================
;;
;;======================================================================
;; NOT CURRENTLY USED - commented out as it has unresolved dependencies
;;
#;(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
|