Overview
| Comment: | Switch to --strip-path from --strip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
a771721f7f384f7bd56df9c6f7bbbbb6 |
| User & Date: | matt on 2014-12-15 23:04:05 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-12-17
| ||
| 12:19 | Merged csv conversion code into v1.60 branch check-in: 2c4d4ed884 user: mrwellan tags: v1.60 | |
|
2014-12-16
| ||
| 16:55 | Adding csv export from refdb - partially coded up check-in: 7779baf96f user: mrwellan tags: Add_csv_export | |
|
2014-12-15
| ||
| 23:04 | Switch to --strip-path from --strip check-in: a771721f7f user: matt tags: v1.60 | |
| 22:51 | Flattened unnecessary hierarchy from paths in bup repositories check-in: 4aa76fc692 user: matt tags: v1.60 | |
Changes
Modified archive.scm from [20f948bb6a] to [4273899c0a].
| ︙ | ︙ | |||
144 145 146 147 148 149 150 |
(let* ((test-paths (hash-table-ref disk-groups disk-group))
;; ((string-intersperse (map cadr (rmt:get-key-val-pairs 1)) "-")
(bup-init-params (list "-d" archive-dir "init"))
(bup-index-params (append (list "-d" archive-dir "index") test-paths))
(bup-save-params (append (list "-d" archive-dir "save" ;; (conc "--strip-path=" linktree)
(conc "-" compress) ;; or (conc "--compress=" compress)
"-n" (conc (common:get-testsuite-name) "-" run-id)
| | | 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 |
(let* ((test-paths (hash-table-ref disk-groups disk-group))
;; ((string-intersperse (map cadr (rmt:get-key-val-pairs 1)) "-")
(bup-init-params (list "-d" archive-dir "init"))
(bup-index-params (append (list "-d" archive-dir "index") test-paths))
(bup-save-params (append (list "-d" archive-dir "save" ;; (conc "--strip-path=" linktree)
(conc "-" compress) ;; or (conc "--compress=" compress)
"-n" (conc (common:get-testsuite-name) "-" run-id)
(conc "--strip-path=" disk-group))
test-paths))
(print-prefix #f)) ;; "Running: ")) ;; change to #f to turn off printing
(if (not (file-exists? archive-dir))
(create-directory archive-dir #t))
(if (not (file-exists? (conc archive-dir "/HEAD")))
(begin
;; replace this with jobrunner stuff enventually
|
| ︙ | ︙ |