Overview
Comment: | Changed gzip logic in log rotation to not touch server logs unless they are old. Bumped version to v1.6563 |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65 |
Files: | files | file ages | folders |
SHA1: |
c5adf1640d071ce2334d6a60592d5e8f |
User & Date: | mrwellan on 2020-08-19 10:26:29 |
Other Links: | branch diff | manifest | tags |
Context
2020-08-19
| ||
11:33 | Changed gzip logic in log rotation to not touch server logs unless they are old. Bumped version to v1.6563 check-in: d495e1aac3 user: mrwellan tags: v1.65, v1.6563 | |
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 | |
2020-08-18
| ||
17:06 | Bumped version check-in: bdbca349cb user: mrwellan tags: v1.65, v1.6562 | |
Changes
Modified common.scm from [5ca9ccb479] to [2cb67526d4].
︙ | ︙ | |||
488 489 490 491 492 493 494 | (begin (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)) | | > > | > < | | 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 | (begin (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-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)) (let ((gzfile (conc fullname ".gz"))) (if (common:file-exists? gzfile) (begin (debug:print-info 0 *default-log-port* "removing " gzfile) (delete-file* gzfile) (hash-table-delete! all-files gzfile) ;; needed? )) |
︙ | ︙ |
Modified megatest-version.scm from [7444fb7bcf] to [84e4b47ed7].
︙ | ︙ | |||
16 17 18 19 20 21 22 | ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; Always use two or four digit decimal ;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00.. (declare (unit megatest-version)) | | | 16 17 18 19 20 21 22 23 | ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; Always use two or four digit decimal ;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00.. (declare (unit megatest-version)) (define megatest-version 1.6563) |