Changes In Branch v1.65-cleanup-try-2 Excluding Merge-Ins
This is equivalent to a diff from ddd390fb9a to da95f1afe5
2020-10-05
| ||
06:36 | Trial 7. Revert a wait in runs. Leaf check-in: 061321389b user: matt tags: v1.65-cleanup-try-7 | |
2020-10-04
| ||
19:05 | Trial 2. Backout (current-seconds) to 0 as it was for fallback log age. Leaf check-in: da95f1afe5 user: matt tags: v1.65-cleanup-try-2 | |
18:05 | Trial 1. Merge all good stuff with minor changes back to last working node. Closed-Leaf check-in: ddd390fb9a user: matt tags: v1.65-cleanup-try-1 | |
2020-08-26
| ||
21:14 | Added instrumentation for server start throttle. ==/3.18/0.6/PASS/1201/orion/== check-in: 56b3986bbb user: mrwellan tags: v1.65-cleanup | |
Modified server.scm from [5d96649d59] to [15ff57d628].
︙ | ︙ | |||
216 217 218 219 220 221 222 | (let loop ((hed (car server-logs)) (tal (cdr server-logs)) (res '())) (let* ((mod-time (handle-exceptions exn (begin (print "failed to get modification time on " hed ", exn=" exn) | | | 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 | (let loop ((hed (car server-logs)) (tal (cdr server-logs)) (res '())) (let* ((mod-time (handle-exceptions exn (begin (print "failed to get modification time on " hed ", exn=" exn) 0 #;(current-seconds)) ;; 0 (file-modification-time hed))) ;; default to *very* old so log gets ignored if deleted (down-time (- (current-seconds) mod-time)) (serv-dat (if (or (< num-serv-logs 10) (< down-time 900)) ;; day-seconds)) (server:logf-get-start-info hed) '())) ;; don't waste time processing server files not touched in the 15 minutes if there are more than ten servers to look at (serv-rec (cons mod-time serv-dat)) |
︙ | ︙ |