Megatest

Check-in [fc95990e0a]
Login
Overview
Comment:fixed typo
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: fc95990e0a7a5db9d596f0197dd9132edfa870d3
User & Date: mmgraham on 2020-08-19 11:33:27
Other Links: branch diff | manifest | tags
Context
2020-08-19
11:41
merged fork check-in: 4ff27cb772 user: mmgraham tags: v1.65
11:33
fixed typo check-in: fc95990e0a user: mmgraham tags: v1.65
10:26
Changed gzip logic in log rotation to not touch server logs unless they are old. Bumped version to v1.6563 check-in: c5adf1640d user: mrwellan tags: v1.65
Changes

Modified common.scm from [2cb67526d4] to [c0e67cab03].

489
490
491
492
493
494
495
496

497
498
499
500
501
502
503
489
490
491
492
493
494
495

496
497
498
499
500
501
502
503







-
+







	  (debug:print-info 2 *default-log-port* "unable to rotate log " file ", probably handled by another process, this is safe to ignore.")
	  (debug:print 2 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
	  ;; (print-call-chain (current-error-port)) ;; 
	  )
	(let* ((fullname  (conc "logs/" file))
	       (mod-time  (file-modification-time fullname))
	       (file-age  (- (current-seconds) mod-time))
	       (file-old  (> age (* 48 60 60)))
	       (file-old  (> file-age (* 48 60 60)))
	       (file-big  (> (file-size fullname) 200000)))
	  (hash-table-set! all-files file mod-time)
	  (if (or (and (string-match "^.*.log" file)
		       file-old
		       file-big)
		  (and (string-match "^server-.*.log" file)
		       file-old))