Overview
| Comment: | Bumped the number of allowed logs (default) to 1000. This is kinder to the server start logic and 1000 files is not excessive (I hope). |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.71_old |
| Files: | files | file ages | folders |
| SHA1: |
9f3a202504bc69e7b6632eaebb28ad51 |
| User & Date: | mrwellan on 2020-10-05 09:26:16 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-10-05
| ||
| 09:37 | Patched in fix for local ssh burden fix check-in: 1ad4b8ce96 user: mrwellan tags: v1.71_old | |
| 09:26 | Bumped the number of allowed logs (default) to 1000. This is kinder to the server start logic and 1000 files is not excessive (I hope). check-in: 9f3a202504 user: mrwellan tags: v1.71_old | |
| 07:21 | Bumped version check-in: 0665d1c788 user: mrwellan tags: v1.7101, v1.71_old | |
Changes
Modified common.scm from [33c7316880] to [a37bf38bb2].
| ︙ | ︙ | |||
499 500 501 502 503 504 505 | ;; logs directory you wish to log-rotate. ;; (define (common:rotate-logs) (let* ((all-files (make-hash-table)) (stats (make-hash-table)) (inc-stat (lambda (key) (hash-table-set! stats key (+ (hash-table-ref/default stats key 0) 1)))) | | | 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 |
;; logs directory you wish to log-rotate.
;;
(define (common:rotate-logs)
(let* ((all-files (make-hash-table))
(stats (make-hash-table))
(inc-stat (lambda (key)
(hash-table-set! stats key (+ (hash-table-ref/default stats key 0) 1))))
(max-allowed (string->number (or (configf:lookup *configdat* "setup" "max-logfiles") "600")))) ;; name -> age
(if (not (directory-exists? "logs"))(create-directory "logs"))
(directory-fold
(lambda (file rem)
(handle-exceptions
exn
(begin
(debug:print-info 2 *default-log-port* "unable to rotate log " file ", probably handled by another process, this is safe to ignore. exn=" exn)
|
| ︙ | ︙ |