Changes In Branch create-disk Excluding Merge-Ins
This is equivalent to a diff from 10d6c50ecd to 27a8f638a9
2018-07-16
| ||
13:23 | Merged the create run area change. check-in: 83edad0b8e user: mrwellan tags: v1.65 | |
2018-07-13
| ||
17:25 | Creates diectories if does not exist for the disks/paths provided Leaf check-in: 27a8f638a9 user: raghavki tags: create-disk | |
2018-07-12
| ||
11:41 | Added localhost as fallback when checking for cpu load check-in: 10d6c50ecd user: mrwellan tags: v1.65 | |
2018-07-10
| ||
13:47 | Add a condition such that,the polling stops when it crosses 5000. check-in: 97716c5057 user: raghavki tags: v1.65 | |
Modified launch.scm from [46cdbaf4d6] to [53c1bc7991].
︙ | |||
1123 1124 1125 1126 1127 1128 1129 | 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 | - - - + + + + + + + + + + + + + + | (minspace (let ((m (configf:lookup confdat "setup" "minspace"))) (string->number (or m "10000"))))) (if disks (let ((res (common:get-disk-with-most-free-space disks minspace))) ;; min size of 1000, seems tad dumb (if res (cdr res) (begin |
︙ |