Overview
| Comment: | Trial 2. Backout (current-seconds) to 0 as it was for fallback log age. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-cleanup-try-2 |
| Files: | files | file ages | folders |
| SHA1: |
da95f1afe5db2714fdecfb106a9ddb8e |
| User & Date: | matt on 2020-10-04 19:05:14 |
| Other Links: | branch diff | manifest | tags |
Context
|
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 | |
Changes
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)) |
| ︙ | ︙ |