Overview
| Comment: | fixed typo |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
fc95990e0a7a5db9d596f0197dd9132e |
| 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 | (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)) | | | 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 (> 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)) |
| ︙ | ︙ |