Overview
| Comment: | typo |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
5dd768da2059be69fcc9389e0f9f1c5c |
| User & Date: | mrwellan on 2014-12-23 15:43:43 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-12-23
| ||
| 22:59 | Bumped version to 1.6007, added save-remove option to -archive. Updated dashboard to treat ARCHIVED as synonynm to COMPLETED check-in: f068f1efc7 user: matt tags: v1.60 | |
| 15:43 | typo check-in: 5dd768da20 user: mrwellan tags: v1.60 | |
| 00:03 | Store the archive block in the archived field of tests check-in: 96ec8198f3 user: matt tags: v1.60 | |
Changes
Modified archive.scm from [8c86f66425] to [929fac72c6].
| ︙ | |||
19 20 21 22 23 24 25 26 27 28 29 30 31 32 | 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | + + |
(include "common_records.scm")
(include "db_records.scm")
;;======================================================================
;;
;;======================================================================
;; 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
|
| ︙ | |||
103 104 105 106 107 108 109 | 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 | - + | ;; move the getting of archive space down into the below block so that a single run can ;; allocate as needed should a disk fill up ;; (let* ((min-space (string->number (or (configf:lookup *configdat* "archive" "minspace") "1000"))) (archive-info (if (equal? archive-dir-in "-") ;; auto allocate an archive dir (archive:allocate-new-archive-block *toppath* (common:get-testsuite-name) min-space) (cons archive-dir-in 0))) ;; THIS WONT WORK!!! |
| ︙ |