Overview
| Comment: | Added protection for call to get mod time |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | run-mgr |
| Files: | files | file ages | folders |
| SHA1: |
c39a272abe25d51b673ac359e86e83a9 |
| User & Date: | mrwellan on 2017-02-14 16:44:14 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-14
| ||
| 21:49 | Added sync of contour field. However sync itself is not working. check-in: 45f0a7be94 user: matt tags: run-mgr | |
| 16:44 | Added protection for call to get mod time check-in: c39a272abe user: mrwellan tags: run-mgr | |
| 14:48 | Minor tweaks check-in: 073579372e user: mrwellan tags: run-mgr | |
Changes
Modified server.scm from [c88a26a1a2] to [0d4bee3590].
| ︙ | ︙ | |||
181 182 183 184 185 186 187 | (let* ((server-logs (glob (conc areapath "/logs/server-*.log"))) (num-serv-logs (length server-logs))) (if (null? server-logs) '() (let loop ((hed (car server-logs)) (tal (cdr server-logs)) (res '())) | | > > > | 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 |
(let* ((server-logs (glob (conc areapath "/logs/server-*.log")))
(num-serv-logs (length server-logs)))
(if (null? server-logs)
'()
(let loop ((hed (car server-logs))
(tal (cdr server-logs))
(res '()))
(let* ((mod-time (handle-exceptions
exn
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 day-seconds))
(server:logf-get-start-info hed)
'())) ;; don't waste time processing server files not touched in the past day if there are more than ten servers to look at
(serv-rec (cons mod-time serv-dat))
(fmatch (string-match fname-rx hed))
|
| ︙ | ︙ |