Overview
| Comment: | Cherry pick from b5393fd63f: Missed change - need to conc on params for disk space call |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6013 | v1.61 |
| Files: | files | file ages | folders |
| SHA1: |
eefe466a08852b56b4b4a0a3be303c77 |
| User & Date: | mrwellan on 2016-04-28 09:05:27 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-04-28
| ||
| 10:17 | Bumped version number check-in: d679bd9373 user: mrwellan tags: v1.61, v1.6101 | |
| 09:05 | Cherry pick from b5393fd63f: Missed change - need to conc on params for disk space call check-in: eefe466a08 user: mrwellan tags: v1.6013, v1.61 | |
| 09:05 | Cherry pick from e5dfeacf59: Updated documentation on disk checks Closed-Leaf check-in: 96a1f6b9af user: mrwellan tags: rebase-envprocessing | |
Changes
Modified common.scm from [f17c224b46] to [b1aba2dd8c].
| ︙ | ︙ | |||
671 672 673 674 675 676 677 |
;; given path get free space, allows override in [setup]
;; with free-space-script /path/to/some/script.sh
;;
(define (get-df path)
(if (configf:lookup *configdat* "setup" "free-space-script")
(with-input-from-pipe
| | | 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 |
;; given path get free space, allows override in [setup]
;; with free-space-script /path/to/some/script.sh
;;
(define (get-df path)
(if (configf:lookup *configdat* "setup" "free-space-script")
(with-input-from-pipe
(conc (configf:lookup *configdat* "setup" "free-space-script") " " path)
(lambda ()
(let ((res (read-line)))
(if (string? res)
(string->number res)))))
(get-unix-df path)))
(define (get-unix-df path)
|
| ︙ | ︙ |