Overview
| Comment: | Missed change - need to conc on params for disk space call |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v1.60_defunct |
| Files: | files | file ages | folders |
| SHA1: |
b5393fd63fef7177f1f5173b5859f5c7 |
| User & Date: | mrwellan on 2016-04-26 16:37:25 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-04-26
| ||
| 16:37 | Missed change - need to conc on params for disk space call Closed-Leaf check-in: b5393fd63f user: mrwellan tags: v1.60_defunct | |
|
2016-04-25
| ||
| 16:26 | Updated documentation on disk checks check-in: e5dfeacf59 user: mrwellan tags: v1.60_defunct | |
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)
|
| ︙ | ︙ |