Changes In Branch v1.61 Through [eefe466a08] Excluding Merge-Ins
This is equivalent to a diff from 96a1f6b9af to eefe466a08
|
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 | |
| 09:03 | Cherry pick from 608b7270a0: Added check for disk space to runs and improved disk space check to allow for end-user scripts (e.g. check quotas etc.). check-in: 09abbe5d7b user: mrwellan tags: rebase-envprocessing | |
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)
|
| ︙ | ︙ |