Megatest

Check-in [9f3a202504]
Login
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: 9f3a202504bc69e7b6632eaebb28ad51758ecffc
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
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") "300")))) ;; 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)







|







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)