Megatest

Check-in [da95f1afe5]
Login
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: da95f1afe5db2714fdecfb106a9ddb8e3f4c39c9
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
223

224
225
226
227
228
229
230
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)
				     (current-seconds)) ;; 0
				     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))